Make all items have an id an associated location

2022-08-01 23:50:26 +01:00
parent 237cd3e020
commit 82aedc3830
11 changed files with 123 additions and 84 deletions
@@ -35,8 +35,9 @@ data ItemValueType = MundaneItem | ArtefactItem

 data ItemLocation
    = InInv {_ipCrID :: Int, _ipInvID :: Int}
+    | OnTurret {_ipTuID :: Int}
    | OnFloor {_ipFlID :: Int}
-    | VoidItm
+    | InVoid
    deriving (Eq, Show, Read)

 makeLenses ''ItemDimension