Extend inv item location information to include "attached" items

2024-09-24 21:26:26 +01:00
parent fbb60bf358
commit fe00af0e73
17 changed files with 184 additions and 131 deletions
@@ -21,11 +21,11 @@ data ItInvEffect
    | ChargeIfEquipped
    | ChargeIfInInventory
    | SetCharge Int
-    | EffectIfHeld ItInvEffect ItInvEffect
+    | EffectRootNotroot ItInvEffect ItInvEffect
    | CreateHeldLight
    | CreateShieldWall
    | RemoveShieldWall
-    | EffectWhileHeld ItInvEffect
+    | EffectWhileRoot ItInvEffect
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data ItFloorEffect = NoFloorEffect