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
@@ -11,6 +11,7 @@ module Dodge.Room.Procedural
    ) where
 import Dodge.Data
 import Dodge.Default.Wall
+import Dodge.PlacementSpot
 import Dodge.Placement.Instance
 import Dodge.Room.Link
 import Dodge.Room.Path
@@ -55,6 +56,7 @@ roomRect x y xn yn = defaultRoom
            , _tileX    = V2 1 0
            , _tileZ    = 16
            } ]
+    , _rmRandPSs = [psRandRanges (10,x-10) (10,y-10) (0,2*pi)]
    }
  where 
    yd = (y - 40) / fromIntegral yn