Add stopWatch

src/Dodge/Item/Weapon/Utility.hs

@@ -14,8 +14,25 @@ import Picture
 import Shape
 import ShapePicture
 
-timeScrollGun :: Item
-timeScrollGun =
+stopWatch :: Item
+stopWatch =
+    defaultLeftItem
+        & itUse
+            .~ ( defaultLeftUse
+                    & leftUse .~ LTimePause
+                    & equipEffect . eeSite .~ GoesOnWrist
+               )
+        & itInvColor .~ cyan
+        & itEffect . ieInv .~ ChargeIfInInventory
+        & itType . iyBase .~ LEFT STOPWATCH
+        & itUse . leftConsumption
+            .~ ChargeableAmmo
+                { _wpMaxCharge = 100
+                , _wpCharge = 0
+                }
+
+scrollWatch :: Item
+scrollWatch =
     defaultLeftItem
         & itUse
             .~ ( defaultLeftUse
@@ -24,15 +41,15 @@ timeScrollGun =
                )
         & itInvColor .~ cyan
         & itEffect . ieInv .~ ChargeIfInInventory
-        & itType . iyBase .~ LEFT TIMESCROLLER
+        & itType . iyBase .~ LEFT SCROLLWATCH
         & itUse . leftConsumption
             .~ ChargeableAmmo
                 { _wpMaxCharge = 100
                 , _wpCharge = 0
                 }
 
-rewindGun :: Item
-rewindGun =
+rewindWatch :: Item
+rewindWatch =
     defaultLeftItem
         & itUse
             .~ ( defaultLeftUse
@@ -41,7 +58,7 @@ rewindGun =
                )
         & itInvColor .~ cyan
         & itEffect . ieInv .~ ChargeIfEquipped
-        & itType . iyBase .~ LEFT REWINDER
+        & itType . iyBase .~ LEFT REWINDWATCH
         & itUse . leftConsumption
             .~ ChargeableAmmo
                 { _wpMaxCharge = 100