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
@@ -6,4 +6,4 @@ import Dodge.Data.World
 useC :: Cuse -> Item -> Creature -> World -> World
 useC cu = case cu of
    CDoNothing -> const $ const id
-    CHeal x -> const $ \cr -> cWorld . creatures . ix (_crID cr) . crHP +~ x
+    CHeal x -> const $ \cr -> cWorld . lWorld . creatures . ix (_crID cr) . crHP +~ x