Add modules to items, upgrades the can persist through combinations

2022-02-20 14:13:12 +00:00
parent 3f20398ed0
commit 7afc367abc
16 changed files with 108 additions and 32 deletions
@@ -83,8 +83,8 @@ functionalUpdate cfig w = checkEndGame

 doRewind :: World -> World
 doRewind w = case _maybeWorld w of
-    Just' w' -> w' & rewinding .~ RewindingLastFrame
-    Nothing' -> w  & rewinding .~ NotRewinding
+    Just' w' -> w' & timeFlow .~ RewindingLastFrame
+    Nothing' -> w  & timeFlow .~ NormalTimeFlow

 zoneCreatures :: World -> World
 zoneCreatures w = w