Partial removal of reloading

2024-09-08 10:21:35 +01:00
parent 581d2494dc
commit e03c8dd830
16 changed files with 256 additions and 187 deletions
@@ -148,7 +148,7 @@ ammoCheckI eff ams itm cr w = fromMaybe (failsound w) $ do
    matype <- ams ^? ix 0 . itUse . amagType
    iatype <- itm ^? itUse . heldConsumption . ix 0
    guard $ matype == iatype
-    return $ eff ams itm cr $ w & cWorld . lWorld . creatures . ix (_crID cr) %~ crCancelReloading
+    return $ eff ams itm cr $ w -- & cWorld . lWorld . creatures . ix (_crID cr) %~ crCancelReloading
  where
    failsound = case w ^? input . mouseButtons . ix SDL.ButtonLeft of
        Just 0 -> soundStart (CrReloadSound (_crID cr)) (_crPos cr) click1S Nothing