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
@@ -111,6 +111,9 @@ psPtCont ps pt = Placement ps pt Nothing
 sPS :: Point2 -> Float -> PSType -> Placement
 sPS p a pt = Placement (PS p a) pt Nothing (const Nothing)

+plRRpt :: Int -> PSType -> Placement
+plRRpt i pt = Placement (PSRoomRand i) pt Nothing (const Nothing)
+
 jsps :: Point2 -> Float -> PSType -> Maybe Placement
 jsps p a pst = Just $ Placement (PS p a) pst Nothing $ const Nothing

@@ -8,7 +8,6 @@ import Dodge.Data
 import Dodge.Default
 import Dodge.Data.SoundOrigin
 import Dodge.SoundLogic
-import Dodge.SoundLogic.LoadSound
 import Picture
 import ShapePicture
 import Shape