Working reimplementation of blocks and destruction

2021-10-27 12:12:51 +01:00
parent 8f738410c0
commit 74e19008b4
2 changed files with 24 additions and 10 deletions
@@ -21,3 +21,8 @@ mkSoundSplinterGlass :: Point2 -> World -> World
 mkSoundSplinterGlass p w = soundStart (GlassBreakSound 1) p soundid Nothing $ set randGen g w
  where
    (soundid,g) = _randGen w & runState (takeOne [smallGlass1S,smallGlass2S,smallGlass3S,smallGlass4S])
+
+mkSoundSplinterBlock :: Point2 -> World -> World
+mkSoundSplinterBlock p w = soundStart (BlockDegradeSound 1) p soundid Nothing $ set randGen g w
+  where
+    (soundid,g) = _randGen w & runState (takeOne [impact1S,impact2S,impact3S,impact4S])