Work on mouse wheel scrolling

src/Dodge/Luse.hs

@@ -3,7 +3,7 @@ module Dodge.Luse where
 import Dodge.Base
 import Dodge.Creature.Action
 import Dodge.Data.World
-import MaybeHelp
+--import MaybeHelp
 import Dodge.Default.Creature
 import Dodge.Item.Weapon.TriggerType
 import Geometry
@@ -20,13 +20,14 @@ useL lu = case lu of
     LBoost -> boostSelfL 10
 
 useRewindGun :: Item -> Creature -> World -> World
-useRewindGun _ _ w = case w ^. cwTime . rewindWorlds of
-    [w'] -> w & cwTime . maybeWorld .~ Just' w'
-    (w' : ws) -> w
-            & cwTime . maybeWorld
-                .~ Just' w'
-            & cwTime . rewindWorlds .~ ws
-    _ -> w
+useRewindGun _ _ w = w
+--useRewindGun _ _ w = case w ^. cwTime . rewindWorlds of
+--    [w'] -> w & cwTime . maybeWorld .~ Just' w'
+--    (w' : ws) -> w
+--            & cwTime . maybeWorld
+--                .~ Just' w'
+--            & cwTime . rewindWorlds .~ ws
+--    _ -> w
 
 -- be careful changing this around; potential problems include updating the
 -- creature but using the old crInvSel value