Work on cleaning up item effects/attachments etc

2022-07-27 16:39:58 +01:00
parent 8d17ce66e9
commit b52adddd5d
39 changed files with 696 additions and 844 deletions
@@ -76,8 +76,8 @@ rmInvItem cid invid w = case w ^? cWorld . creatures . ix cid . crInv . ix invid
        rmf <- itm ^? itUse . eqEq . eqOnRemove
        return $ useE rmf itm cr
    doanyitemeffect = fromMaybe id $ do
-        rmf <- itm ^? itEffect . ieDrop
-        return $ doDropEffect rmf itm cr
+        rmf <- itm ^? itEffect . ieOnDrop
+        return $ doInvEffect rmf itm cr
    removeAnySlotEquipment = case w ^? cWorld . creatures . ix cid . crInvEquipped . ix invid of
        Just epos   -> cWorld . creatures . ix cid . crEquipment . at epos .~ Nothing
        Nothing     -> id