Make creature vocalizations stop on death

2021-11-18 02:42:12 +00:00
parent f6d5d5a201
commit 94552ff658
7 changed files with 43 additions and 13 deletions
@@ -13,6 +13,7 @@ data SoundStatus
    | Playing
    | ToStart
    | ToContinueStart
+    | ToStop
  deriving (Eq,Ord,Show)
 newtype SoundID = SoundID { _getSoundID :: Int }
  deriving (Eq,Ord,Show)
@@ -23,8 +24,8 @@ data Sound = Sound
    { _soundTime        :: Maybe Int
    , _soundStatus      :: SoundStatus
    , _soundChannel     :: Maybe Mix.Channel
-    , _soundAngDist     :: Maybe (Int16,Word8)
-    , _soundPos         :: Point2
+    , _soundAngDist     :: Maybe (Int16,Word8)  -- why do BOTH of
+    , _soundPos         :: Point2               -- these exist?
    , _soundVolume      :: Float
    , _soundChunkID     :: SoundID
    }