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
@@ -23,7 +23,13 @@ data CrInt = CrInt
  deriving (Eq,Ord,Show,Read)

 data ItemLocation
-    = InInv {_ilCrID :: Int, _ilInvID :: Int, _ilIsRoot :: Bool, _ilIsSelected :: Bool}
+    = InInv 
+        { _ilCrID :: Int
+        , _ilInvID :: Int
+        , _ilIsRoot :: Bool
+        , _ilIsSelected :: Bool
+        , _ilIsAttached :: Bool
+        }
    | OnTurret {_ilTuID :: Int}
    | OnFloor {_ilFlID :: NewInt FloorInt}
    | InVoid