Start to migrate all old level generation to MetaTrees

2022-06-12 19:31:57 +01:00
parent 617765d5d4
commit dbba78ef05
9 changed files with 57 additions and 93 deletions
@@ -43,8 +43,8 @@ roomCritLS = do
 smallRoom :: Room
 smallRoom = corridorWallN & rmRandPSs .~ [psRandRanges (15,25) (30,45) (pi,2*pi)]

-runPastRoom :: RandomGen g => Int -> State g (Tree Room)
-runPastRoom i = do
+lookedStart :: RandomGen g => Int -> State g (Tree Room)
+lookedStart i = do
    h           <- state $ randomR (200,400::Float)
    thels       <- roomCritLS
    theweapon   <- randBlockBreakWeapon