Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -64,7 +64,7 @@ windowWallDamage dm wl w = w & case _dmType dm of
  where
    mbl = do 
        blid <- wl ^? wlStructure . wsBlock
-        w ^? blocks . ix blid
+        w ^? cWorld . blocks . ix blid
    d :: Int
    d = max 1 $ maybe 1 (subtract 1 . _blHP) mbl
    a :: Int -> (World -> World) -> World -> (World,Int)