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
@@ -26,7 +26,7 @@ makeShockwaveAt ::
    World ->
    World
 makeShockwaveAt is p rad dam push col =
-    cWorld . shockwaves
+    cWorld . lWorld . shockwaves
        .:~ Shockwave
            { _swInvulnerableCrs = is
            , _swDirection = OutwardShockwave
@@ -48,7 +48,7 @@ inverseShockwaveAt ::
    World ->
    World
 inverseShockwaveAt p rad dam push =
-    cWorld . shockwaves
+    cWorld . lWorld . shockwaves
        .:~ Shockwave
            { _swDirection = InwardShockwave
            , _swInvulnerableCrs = []