Make block damages slightly more logical

2022-06-19 16:11:54 +01:00
parent a7e6d6f3cc
commit 4924aa0a57
9 changed files with 148 additions and 117 deletions
@@ -44,6 +44,11 @@ matSplintSound mat = case mat of
    Wood  -> originIDsAt (BlockDegradeSound 1) [impact1S,impact2S,impact3S]
    Metal -> originIDsAt (BlockDegradeSound 1) [impact2S,impact3S]

+checkBlockHP :: Block -> World -> World
+checkBlockHP bl
+    | _blHP bl < 1 = destroyBlock bl
+    | otherwise = id
+
 destroyBlock :: Block -> World -> World
 destroyBlock bl w = w
    & flip (foldr unshadowBlock) (_blShadows bl)