Commit before modifying crEquipment for item locations
This commit is contained in:
@@ -96,9 +96,7 @@ rmInvItem cid invid w =
|
||||
itm = w ^?! cWorld . lWorld . items . ix itid
|
||||
dounequipfunction = effectOnRemove itm cr
|
||||
removeAnySlotEquipment = fromMaybe id $ do
|
||||
epos <-
|
||||
w ^? cWorld . lWorld . creatures . ix cid . crInv . ix invid
|
||||
>>= \k -> w ^? cWorld . lWorld . items . ix k
|
||||
epos <- w ^? cWorld . lWorld . items . ix itid
|
||||
. itLocation
|
||||
. ilEquipSite
|
||||
. _Just
|
||||
|
||||
Reference in New Issue
Block a user