Make crytal walls destructible by shatterGun

2022-06-18 01:14:47 +01:00
parent 6a095d3de6
commit 5f68b512dd
10 changed files with 145 additions and 68 deletions
@@ -36,6 +36,6 @@ damageBlockWith dm = case _dmType dm of
    dam = _dmAmount dm

 damageBlocksBy :: Int -> Wall -> World -> World
-damageBlocksBy x wl = case wl ^? wlStructure . wlStBlock of
+damageBlocksBy x wl = case wl ^? wlStructure . wsBlock of
    Just blid -> blocks . ix blid . blHP -~ x
    Nothing   -> id