Commit mid add time scroll

src/Dodge/Data/World.hs

@@ -23,6 +23,7 @@ import Dodge.Data.SoundOrigin
 import Geometry.Data
 import SDL (MouseButton, Scancode)
 import Sound.Data
+import MaybeHelp
 import System.Random
 
 data World = World
@@ -44,12 +45,14 @@ data World = World
     , _backspaceTimer :: Int
     , _timeFlow :: TimeFlowStatus
     , _rbOptions :: RightButtonOptions
+    , _cwTime :: CWTime
     }
 
 data TimeFlowStatus
     = RewindingNow
     | RewindingLastFrame
     | NormalTimeFlow
+    | ScrollTimeFlow
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data WorldHammer
@@ -57,4 +60,13 @@ data WorldHammer
     | DoubleMouseHam
     deriving (Eq, Ord, Show, Read, Enum, Bounded)
 
+data CWTime = CWTime
+    { _maybeWorld :: Maybe' CWorld
+    , _rewindWorlds :: [CWorld]
+    , _futureWorlds :: [CWorld]
+    , _worldClock :: Int
+    , _deathDelay :: Maybe Int
+    }
+
 makeLenses ''World
+makeLenses ''CWTime