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
@@ -19,7 +19,7 @@ doHeldScroll hs = case hs of
    HeldScrollTime -> doScrollTime
    HeldScrollInt{} -> undefined
  where
-    overYourItem f x cr w = w & cWorld . creatures . ix 0 . crInv . ix (crSel $ you w) %~ f x cr
+    overYourItem f x cr w = w & cWorld . lWorld . creatures . ix 0 . crInv . ix (crSel $ you w) %~ f x cr

 doScrollTime :: Float -> Creature -> World -> World
 doScrollTime _ _ w = w