Cleanup

src/Dodge/HeldUse.hs

@@ -7,6 +7,7 @@ module Dodge.HeldUse (
     mcUseHeld,
 ) where
 
+import NewInt
 import Dodge.Luse
 import Dodge.Creature.Action.Blink
 import Dodge.RadarSweep
@@ -565,3 +566,40 @@ createProjectile magtree muz itmtree cr = fromMaybe failsound $ do
 --    ps' = replicateM 4 randOnUnitSphere & evalState $ _randGen w
 --    pos = addZ 10 $ _crPos cr + rotateV (_crDir cr) (_mzPos mz + aimingWeaponZeroPos cr itm)
 ----        , withSmoke 1 black 20 200 5
+
+useStopWatch :: Item -> Creature -> World -> World
+useStopWatch itm _ =
+    timeFlow
+        .~ PausedTimeFlow
+            { _timeFlowCharge = 100
+            , _scrollItemID = _itID itm
+            }
+
+useTimeScrollGun :: Item -> Creature -> World -> World
+useTimeScrollGun itm _ =
+    timeFlow
+        .~ ItemScrollTimeFlow
+            { _scrollSmoothing = 0
+            --, _reverseAmount = itm ^?! itUse . leftConsumption . wpCharge
+            , _reverseAmount = 100
+            , _futureWorlds = []
+            , _scrollItemID = _itID itm
+            }
+
+useRewindGun :: NewInt ItmInt -> World -> World
+useRewindGun i =
+    timeFlow
+        .~ RewindLeftClick
+--            { _reverseAmount = itm ^?! itUse . leftConsumption . wpCharge
+            { _reverseAmount = 100
+            , _scrollItemID = i
+            }
+
+--useRewindGun _ _ w = case w ^. cwTime . rewindWorlds of
+--    [w'] -> w & cwTime . maybeWorld .~ Just' w'
+--    (w' : ws) -> w
+--            & cwTime . maybeWorld
+--                .~ Just' w'
+--            & cwTime . rewindWorlds .~ ws
+--    _ -> w
+