Zone creatures

2022-06-28 11:20:20 +01:00
parent f0a1e0685a
commit 61ad58c04a
10 changed files with 75 additions and 106 deletions
@@ -32,7 +32,7 @@ unshadowBlock wlid w = case w ^? walls . ix wlid of
        & walls . ix wlid . wlDraw .~ True
        & wallsZone . znObjects . ix x . ix y . ix wlid . wlDraw .~ True
      where
-        V2 x y = wallZoneOfPoint $ uncurry midPoint (_wlLine wl)
+        V2 x y = wlZoneOfPoint $ uncurry midPoint (_wlLine wl)
    Nothing -> w

 checkBlockHP :: Block -> World -> World