Allow for custom reloading sounds

2022-06-21 22:21:18 +01:00
parent 53c8be0679
commit 029b6daf8e
25 changed files with 339 additions and 219 deletions
@@ -231,7 +231,8 @@ doItemTargeting invid cr w = case cr ^? crInv . ix invid . itTargeting of

 weaponReloadSounds :: Creature -> World -> World
 weaponReloadSounds cr w = case cr ^? crInvSel . iselAction of
-    Just ReloadAction{} -> soundContinue (CrReloadSound cid) (_crPos cr) reloadS (Just 1) w
+    Just ReloadAction{_reloadAction = la} -> soundContinue 
+        (CrReloadSound cid) (_crPos cr) (_actionSound la) (Just 1) w
    _ -> w
 --        PassiveReload stype | Just (_laReloadTime am) == am ^? laTransfer . transferTime
 --                                        -> soundContinue (CrReloadSound 0) (_crPos cr) stype Nothing w