Tweak walk cycle parameters

src/Dodge/Item/Weapon/ExtraEffect.hs

@@ -13,6 +13,7 @@ import Dodge.Item.Weapon.UseEffect
 import Dodge.WorldEvent.Flash
 import Dodge.WorldEvent.ThingsHit
 import Dodge.Picture.Layer
+import Dodge.Creature.Test
 import Picture
 import Geometry.Vector
 
@@ -58,7 +59,7 @@ itemLaserScopeEffect
     moveHammerUp !HammerDown = HammerReleased
     moveHammerUp !_          = HammerUp
     f _ cr invid w 
-        | invid == _crInvSel cr = w 
+        | invid == _crInvSel cr && crIsAiming' cr = w 
             & particles %~ (:) (makeLaserScope sp ep reloadFrac)
             & creatures . ix (_crID cr) . crInv . ix invid . itHammer %~ moveHammerUp
             & laserScopeTargetGlow col glowPoint