Fix bugs in item locations

2024-09-23 13:12:09 +01:00
parent 4f6431968c
commit 5262355368
10 changed files with 133 additions and 175 deletions
@@ -367,7 +367,6 @@ useAmmoAmount amAmount eff item cr = fromMaybe id $ do
    leftitms <- item ^? ldtLeft
    mag <- lookup (AmmoInLink 0 atype) leftitms
    magid <- mag ^? ldtValue . itLocation . ilInvID
--    invid <- ams ^? ix 0 . itLocation . ipInvID
    return $ eff item cr
        . (cWorld . lWorld . creatures . ix (_crID cr) . crInv . ix magid . itUse . amagLoadStatus . iaLoaded -~ amAmount)