Add basic vocalizations to chase creatures

2021-11-18 01:46:37 +00:00
parent 5949ad2b3d
commit f6d5d5a201
34 changed files with 525 additions and 329 deletions
@@ -1,5 +1,7 @@
-module Dodge.Room.Start where
+module Dodge.Room.Start 
+    where
 import Dodge.LevelGen.Data
+import Dodge.Room.RunPast
 import Dodge.Data
 import Dodge.Default
 import Dodge.Layout.Tree.Either
@@ -27,12 +29,24 @@ import System.Random

 startRoom :: RandomGen g => State g (Tree (Either Room Room))
 startRoom = join $ takeOne 
-    [ rezBoxesWp
-    , rezBoxesThenWeaponRoom
-    , rezBoxThenWeaponRoom
-    , rezBoxesWpCrit
+    [ -- rezBoxesWp
+--    , rezBoxesThenWeaponRoom
+--    , rezBoxThenWeaponRoom
+--    , rezBoxesWpCrit
+    runPastStart
    ]

+runPastStart :: RandomGen g => State g (Tree (Either Room Room))
+runPastStart = do
+    s <- rezBoxStart
+    rp <- runPastRoom
+    return $ s `appendEitherTree` [rp]
+
+rezBoxStart :: RandomGen g => State g (Tree (Either Room Room))
+rezBoxStart = do
+    ls <- rezColor
+    return $ treeFromPost [Left $ rezBox ls] (Right door)
+
 rezBox :: LightSource -> Room
 rezBox ls = roomRect 40 60 1 1 
    & rmPmnts .~ [ sPS (V2 20 1) 0 $ PutLS ls]