Allow for equipment items to set a minimum view distance

src/Dodge/Item/Weapon/Utility.hs

@@ -32,7 +32,7 @@ rewindGun = defaultGun
     , _itEffect = ItRewindEffect rewindEffect []
     , _itUse = defaultlUse 
         & lUse .~ useRewindGun
-        & eqSite .~ GoesOnChest
+        & eqEq . eqSite .~ GoesOnChest
     }
 rewindEffect :: Item -> Creature -> World -> World
 rewindEffect itm cr w 
@@ -106,7 +106,7 @@ blinkGun = defaultGun
     , _itUse = defaultlUse 
         & lUse .~ hammerCheckL (shootL $ const blinkAction)
         & useHammer .~ upHammer
-        & eqSite .~ GoesOnWrist
+        & eqEq . eqSite .~ GoesOnWrist
 --    , _itFloorPict = const . noPic . colorSH chartreuse $ upperPrismPoly 2 $ square 2
     }
 
@@ -115,6 +115,7 @@ unsafeBlinkGun = blinkGun
     & itName .~ "BLINKER-UNSAFE"
     & itType .~ BLINKERUNSAFE
     & itUse . lUse .~ hammerCheckL (shootL $ const unsafeBlinkAction)
+    & itUse . eqEq . eqViewDist ?~ 400
 
 effectGun :: String -> (Creature -> World -> World) -> Item
 effectGun name eff = defaultGun