Add unsafe blink gun

2022-06-03 10:18:47 +01:00
parent 5ff2fb4910
commit 0c5eeb405f
10 changed files with 79 additions and 54 deletions
@@ -104,18 +104,17 @@ blinkGun = defaultGun
        , _reloadTime = 20
        }
    , _itUse = defaultlUse 
-        & lUse .~ hammerCheckL (shootL aSelfL)
+        & lUse .~ hammerCheckL (shootL $ const blinkAction)
        & useHammer .~ upHammer
        & eqSite .~ GoesOnWrist
 --    , _itFloorPict = const . noPic . colorSH chartreuse $ upperPrismPoly 2 $ square 2
    }

-
-aSelf :: Creature -> World -> World
-aSelf = blinkAction
-
-aSelfL :: Item -> Creature -> World -> World
-aSelfL _ = blinkAction
+unsafeBlinkGun :: Item
+unsafeBlinkGun = blinkGun
+    & itName .~ "BLINKER-UNSAFE"
+    & itType .~ BLINKERUNSAFE
+    & itUse . lUse .~ hammerCheckL (shootL $ const unsafeBlinkAction)

 effectGun :: String -> (Creature -> World -> World) -> Item
 effectGun name eff = defaultGun