Work on time scrolling

src/Dodge/Data/World.hs

@@ -55,8 +55,12 @@ data TimeFlowStatus
     | RewindingLastFrame
     | NormalTimeFlow
     | ScrollTimeFlow
-        { _scrollSmoothing :: Int }
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+        { _scrollSmoothing :: Int 
+        , _reverseAmount :: Int
+        , _futureWorlds :: [CWorld]
+        , _scrollItemLocation :: Int
+        }
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data WorldHammer
     = SubInvHam
@@ -67,7 +71,6 @@ data CWTime = CWTime
     { _maybeWorld :: Maybe' CWorld
     , _pastWorlds :: [CWorld]
     , _pastWorldsNum :: Int
-    , _futureWorlds :: [CWorld]
     , _worldClock :: Int
     , _deathDelay :: Maybe Int
     }