Cleanup

src/Dodge/Luse.hs

@@ -14,7 +14,7 @@ useL :: Luse -> Item -> Creature -> World -> World
 useL lu = case lu of
     LDoNothing -> const $ const id
     LRewind -> useRewindGun
-    LTimeScroll -> useTimeScrollGun
+    LTimeScroll -> hammerCheckL useTimeScrollGun
     LShrink -> hammerCheckL useShrinkGun
     LBlink -> hammerCheckL (shootL $ const blinkActionMousePos)
     LUnsafeBlink -> hammerCheckL (shootL $ const unsafeBlinkAction)
@@ -30,7 +30,10 @@ useTimeScrollGun itm _ w = w & cWorld . timeFlow .~ ScrollTimeFlow
 
 useRewindGun :: Item -> Creature -> World -> World
 useRewindGun itm _ w = w 
-    & cWorld . timeFlow .~ RewindLeftClick (itm ^?! itUse . leftConsumption . wpCharge)
+    & cWorld . timeFlow .~ RewindLeftClick 
+        { _reverseAmount = itm ^?! itUse . leftConsumption . wpCharge
+        , _scrollItemLocation = _itID itm
+        }
 
 --useRewindGun _ _ w = case w ^. cwTime . rewindWorlds of
 --    [w'] -> w & cwTime . maybeWorld .~ Just' w'