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
@@ -316,6 +316,7 @@ changeAugInvSel :: Int -> World -> World
 changeAugInvSel i w 
    | n == 0    = w
    | otherwise = w & creatures . ix (_yourID w) . crInvSel . iselPos %~ (`mod` n) . subtract i
+        & creatures . ix (_yourID w) . crInvSel . iselAction .~ NoInvSelAction
  where 
    n = length (yourInv w) + length (_closeObjects w)