Work on time scrolling

src/Dodge/Data/Item/Combine.hs

@@ -110,6 +110,7 @@ data EquipItemType
 data LeftItemType
     = BOOSTER
     | REWINDER
+    | TIMESCROLLER
     | BLINKER
     | BLINKERUNSAFE
     | SHRINKER

src/Dodge/Data/Item/Effect.hs

@@ -19,8 +19,8 @@ data ItEffect = ItEffect
 
 data ItInvEffect
     = NoInvEffect
-    | RewindEffect
-    | TimeScrollEffect
+    | ChargeIfEquipped
+    | ChargeIfInInventory
     | EffectIfHeld ItInvEffect ItInvEffect
     | CreateHeldLight
     | CreateShieldWall

src/Dodge/Data/Item/HeldUse.hs

@@ -47,6 +47,7 @@ data Euse
 data Luse
     = LDoNothing
     | LRewind
+    | LTimeScroll
     | LShrink
     | LBlink
     | LUnsafeBlink

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
     }