Work on time scrolling

2022-10-27 10:23:52 +01:00
parent 4ffd361f11
commit 35f2992fe4
12 changed files with 127 additions and 83 deletions
@@ -110,6 +110,7 @@ data EquipItemType
 data LeftItemType
    = BOOSTER
    | REWINDER
+    | TIMESCROLLER
    | BLINKER
    | BLINKERUNSAFE
    | SHRINKER
@@ -19,8 +19,8 @@ data ItEffect = ItEffect

 data ItInvEffect
    = NoInvEffect
-    | RewindEffect
-    | TimeScrollEffect
+    | ChargeIfEquipped
+    | ChargeIfInInventory
    | EffectIfHeld ItInvEffect ItInvEffect
    | CreateHeldLight
    | CreateShieldWall
@@ -47,6 +47,7 @@ data Euse
 data Luse
    = LDoNothing
    | LRewind
+    | LTimeScroll
    | LShrink
    | LBlink
    | LUnsafeBlink