justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Make unequip event occur on equipped item drop

Browse Source
This commit is contained in:
justin
2022-05-25 23:20:14 +01:00
parent 34612822ae
commit 58427da0c4
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Inventory.hs
+6
View File
@@ -56,10 +56,16 @@ rmInvItem cid invid w = case w ^? creatures . ix cid . crInv . ix invid . itCons
& creatures . ix cid . crInvSel %~ g & creatures . ix cid . crInvSel %~ g
& creatures . ix cid . crLeftInvSel %~ g' & creatures . ix cid . crLeftInvSel %~ g'
& removeAnySlotEquipment & removeAnySlotEquipment
& dounequipfunction
& creatures . ix cid . crInvEquipped %~ IM.delete invid & creatures . ix cid . crInvEquipped %~ IM.delete invid
& creatures . ix cid . crInvEquipped %~ IM.mapKeys g & creatures . ix cid . crInvEquipped %~ IM.mapKeys g
-- TODO check whether this can be mapKeysMonotonic -- TODO check whether this can be mapKeysMonotonic
where where
cr = _creatures w IM.! cid
itm = _crInv cr IM.! invid
dounequipfunction = fromMaybe id $ do
rmf <- itm ^? itUse . eqOnRemove
return $ rmf itm cr
removeAnySlotEquipment = case w ^? creatures . ix cid . crInvEquipped . ix invid of removeAnySlotEquipment = case w ^? creatures . ix cid . crInvEquipped . ix invid of
Just epos -> creatures . ix cid . crEquipment . at epos .~ Nothing Just epos -> creatures . ix cid . crEquipment . at epos .~ Nothing
Nothing -> id Nothing -> id