Work on mouse wheel scrolling

2022-10-25 22:59:01 +01:00
parent 86a9ab7582
commit 4ffd361f11
15 changed files with 143 additions and 57 deletions
@@ -17,16 +17,17 @@ import ShapePicture
 timeScrollGun :: Item
 timeScrollGun =
    defaultHeldItem
+        & itEffect . ieWhileAiming .~ TimeScrollEffect

 rewindGun :: Item
 rewindGun =
    defaultLeftItem
-        { _itInvColor = cyan
-        , _itUse =
-            defaultLeftUse
+        & itUse .~
+            (defaultLeftUse
                & leftUse .~ LRewind --useRewindGun
                & equipEffect . eeSite .~ GoesOnWrist
-        }
+            )
+        & itInvColor .~ cyan
        & itEffect . ieInv .~ RewindEffect
        & itType . iyBase .~ LEFT REWINDER
        & itUse . leftConsumption