Add in "linear" lWorld to separate time reversable worlds

2022-10-28 12:24:51 +01:00
parent 5f6bd43599
commit 7e790b7153
130 changed files with 827 additions and 980 deletions
@@ -68,7 +68,7 @@ glassWallDamage dm wl w =
  where
    mbl = do
        blid <- wl ^? wlStructure . wsBlock
-        w ^? cWorld . blocks . ix blid
+        w ^? cWorld . lWorld . blocks . ix blid
    d :: Int
    d = max 1 $ maybe 1 (subtract 1 . _blHP) mbl
    a :: Int -> (World -> World) -> World -> (World, Damage)