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
@@ -22,9 +22,8 @@ import Control.Lens
 {- |
 Sends out pulses that display walls.  -}
 clickDetector :: Detector -> Item
-clickDetector dt = defaultGun 
-    { _itConsumption = defaultAmmo
-    , _itUse = ruseRate 20 (detectorEffect dt) upHammer
+clickDetector dt = defaultWeapon 
+    { _itUse = ruseRate 20 (detectorEffect dt) upHammer
        [ ammoUseCheck
        ]
        & useAim . aimRange .~ 1