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
@@ -7,8 +7,8 @@ import Control.Lens

 updateLinearShockwave :: LinearShockwave -> World -> World
 updateLinearShockwave lw w
-    | t < 1 = w & cWorld . linearShockwaves %~ IM.delete lwid
-    | otherwise = w & cWorld . linearShockwaves . ix lwid . lwTimer -~ 1
+    | t < 1 = w & cWorld . lWorld . linearShockwaves %~ IM.delete lwid
+    | otherwise = w & cWorld . lWorld . linearShockwaves . ix lwid . lwTimer -~ 1
  where
    lwid = _lwID lw
    t = _lwTimer lw