Start implementing sticky grenades

2025-01-01 17:03:10 +00:00
parent 356301fb61
commit e8fe4c2d72
16 changed files with 585 additions and 536 deletions
@@ -30,7 +30,7 @@ import RandomHelp
 splinterBlock :: Block -> World -> World
 splinterBlock bl w =
    foldl' unshadowBlock w (_blShadows bl) -- foldr shiftTowardCen w (_blWallIDs bl)
-        & originsIDsAt
+        & soundOriginsIDsAt
            [MaterialSound bm 0, MaterialSound bm 1, MaterialSound bm 2]
            (weakenMatS bm)
            (_blPos bl)