Allow for left click to start and pause reloading when aiming

This commit is contained in:
2022-06-22 18:18:25 +01:00
parent 3609bdb4fd
commit 4d1b5d3ca8
6 changed files with 20 additions and 15 deletions
+1 -1
View File
@@ -133,7 +133,7 @@ ammoCheckI eff item cr w
-- hammer is down?
ammoHammerCheck :: ChainEffect
ammoHammerCheck eff it cr w
| _laLoaded ic <= 0 || _laPrimed ic == False = w -- fromMaybe w (startReloadingWeapon cr w)
| _laLoaded ic <= 0 || not (_laPrimed ic) = w -- fromMaybe w (startReloadingWeapon cr w)
& setHammerDown
| otherwise = case it ^? itUse . useHammer . hammerPosition of
Just HammerUp -> eff it cr $ setHammerDown w & creatures . ix (_crID cr) %~ crCancelReloading