Start to add basic gibbing

2022-06-03 18:00:07 +01:00
parent b50e53f400
commit dd985c6a49
7 changed files with 60 additions and 11 deletions
@@ -118,6 +118,13 @@ unsafeBlinkGun = blinkGun

 effectGun :: String -> (Creature -> World -> World) -> Item
 effectGun name eff = defaultGun
+    { _itName = name ++ "Gun"
+    , _itUse = defaultrUse
+        & rUse .~ const eff
+        & useMods .~ [hammerCheckI]
+    }
+effectGunCont :: String -> (Creature -> World -> World) -> Item
+effectGunCont name eff = defaultGun
    { _itName = name ++ "Gun"
    , _itUse = defaultrUse {_rUse = const eff}
    }