Allow rewinding after combining items

2022-02-19 11:04:52 +00:00
parent 9923897fe2
commit 3f20398ed0
7 changed files with 25 additions and 19 deletions
@@ -125,13 +125,19 @@ data World = World
    , _gameRooms            :: [GameRoom] -- consider using and IntMap
    , _maybeWorld           :: Maybe' World
    , _rewindWorlds         :: [World]
-    , _rewinding            :: Bool
+    , _rewinding            :: RewindingStatus
    , _worldClock           :: Int
    , _lSelHammerPosition   :: HammerPosition
    , _worldTerminal        :: Maybe' WorldTerminal
    }
 data WorldTerminal = WorldTerminal Int [(Int,String)]

+data RewindingStatus
+    = RewindingNow
+    | RewindingLastFrame
+    | NotRewinding
+  deriving (Eq,Ord)
+
 data SaveSlot = QuicksaveSlot | LevelStartSlot
  deriving (Eq,Ord)