Add sound queue when on chasm edge

src/Dodge/Data/Creature.hs

@@ -37,6 +37,8 @@ import qualified IntMapHelp as IM
 data Creature = Creature
     { _crPos :: Point2
     , _crOldPos :: Point2
+    , _crZ :: Float
+    , _crZVel :: Float
     , _crDir :: Float
     , _crMvDir :: Float
     , _crMvAim :: Float

src/Dodge/Data/SoundOrigin.hs

@@ -16,6 +16,7 @@ data SoundOrigin
     | OnceSound
     | CrSound Int
     | CrMouth Int
+    | CrChasm Int
     | CrWeaponSound Int Int
     | CrWeaponFailSound Int
     | MachineSound Int