Fix blinking bug, shrinker and shield broken

src/Dodge/Item/Weapon/Utility.hs

@@ -48,9 +48,9 @@ useRewindGun _ _ w = case _rewindWorlds w of
 --        & creatures . ix (_crID cr) .~ cr
         & upbuts
         & rewindWorlds .~ ws
-        & lClickHammer .~ HammerUp
     upbuts = (keys .~ _keys w) .  (mouseButtons .~ _mouseButtons w)
 
+-- needs to shift this item to the current inventory slot
 shrinkGun :: Item
 shrinkGun = defaultGun
     { _itName = "SHRINKER"
@@ -60,7 +60,8 @@ shrinkGun = defaultGun
         , _wpLoadedAmmo = 100
         , _wpReloadTime = 20
         }
-    , _itUse = defaultlUse {_lUse = \cr invid -> useShrinkGun (_crInv cr IM.! invid) cr}
+    , _itUse = defaultlUse {_lUse = hammerCheckL $ \cr invid -> useShrinkGun (_crInv cr IM.! invid) cr}
+            & useHammer .~ upHammer
     , _wpSpread = 0.05
     , _wpRange = 20
     , _itFloorPict = shrinkGunPic
@@ -90,10 +91,12 @@ blinkGun = defaultGun
         , _wpLoadedAmmo = 100
         , _wpReloadTime = 20
         }
-    , _itUse = defaultlUse {_lUse = hammerCheckL $ shootL aSelfL}
+    , _itUse = defaultlUse 
+        {_lUse = hammerCheckL $ shootL aSelfL
+        } & useHammer .~ upHammer
     , _wpSpread = 0.05
     , _wpRange = 20
-    , _itFloorPict = \_ -> (,) emptySH $ onLayer FlItLayer $ polygon $ map toV2[(-2,-2),(-2,2),(2,2),(2,0),(0,0),(0,-2)]
+    , _itFloorPict = const . noPic . colorSH chartreuse $ upperPrismPoly 2 $ square 2
     }