Continue refactor of reloading

2022-06-20 11:12:24 +01:00
parent 2f4b381484
commit a85cf4d1fb
27 changed files with 243 additions and 299 deletions
@@ -27,9 +27,8 @@ import LensHelp
 import qualified Data.IntMap.Strict as IM

 shatterGun :: Item
-shatterGun = defaultGun
+shatterGun = defaultWeapon
    & itType . iyBase .~ SHATTERGUN
-    & itConsumption .~ defaultAmmo
    & itUse .~ ruseRate 10 shootShatter upHammer
        [ ammoHammerCheck
        , useTimeCheck