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
@@ -10,8 +10,8 @@ updateTractorBeam w pj
    | _tbTime pj <= 0 = (w, Nothing)
    | otherwise =
        ( w
-            & cWorld . creatures %~ IM.map (tractCr pullVel pos outpos)
-            & cWorld . floorItems %~ IM.map (tractFlIt pullVel pos outpos)
+            & cWorld . lWorld . creatures %~ IM.map (tractCr pullVel pos outpos)
+            & cWorld . lWorld . floorItems %~ IM.map (tractFlIt pullVel pos outpos)
        , Just (pj & tbTime -~ 1)
        )
  where