Partially implement separate blocks

2021-10-26 22:53:49 +01:00
parent d136fd910c
commit 12d43f9cf0
15 changed files with 145 additions and 115 deletions
@@ -65,7 +65,7 @@ penWalls crEff wlEff ffEff pt hitThings w = case hitThings of
        []              -> (              w, mvPt)
        ((p,E3x1 cr):_)  -> (crEff pt p cr w, destroyAt p)
        ((p,E3x3 ff):_)  -> (ffEff pt p ff w, destroyAt p)
-        ((p,E3x2 wl):hs) | isJust (wl ^? blHP) 
+        ((p,E3x2 wl):hs) | isJust (wl ^? wlBlockID) 
                                     -> first (wlEff pt p wl) $ penWalls crEff wlEff ffEff pt hs w
        ((p,E3x2 wl):_)  | otherwise -> (wlEff pt p wl w, destroyAt p)
  where