Improve possible manipulation of equipment

2022-05-23 10:18:36 +01:00
parent 295c50f0d9
commit 46123de69c
9 changed files with 88 additions and 40 deletions
@@ -382,8 +382,10 @@ data ItemUse
        { _cUse :: Item -> Creature -> World -> World
        }
    | EquipUse
-        { _eqUse :: Creature -> Int -> World -> World
-        , _eqSite :: EquipSite
+        { _eqUse        :: Creature -> Int -> World -> World
+        , _eqOnEquip    :: Creature -> Int -> World -> World
+        , _eqOnRemove   :: Creature -> Int -> World -> World
+        , _eqSite       :: EquipSite
        }
    | NoUse
 data EquipSite