Move item effect functions

2022-07-20 22:43:30 +01:00
parent b36e7f8b78
commit 866196ab3e
16 changed files with 257 additions and 229 deletions
@@ -25,6 +25,7 @@ module Dodge.Inventory
    )
    where
 import Dodge.Data
+import Dodge.ItEffect
 import Dodge.Euse
 import Dodge.Inventory.CloseObject
 import Dodge.Inventory.CheckSlots
@@ -75,7 +76,7 @@ rmInvItem cid invid w = case w ^? creatures . ix cid . crInv . ix invid . itCons
        return $ useE rmf itm cr
    doanyitemeffect = fromMaybe id $ do
        rmf <- itm ^? itEffect . ieDrop
-        return $ rmf itm cr
+        return $ doDropEffect rmf itm cr
    removeAnySlotEquipment = case w ^? creatures . ix cid . crInvEquipped . ix invid of
        Just epos   -> creatures . ix cid . crEquipment . at epos .~ Nothing
        Nothing     -> id