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
@@ -5,6 +5,7 @@

 module Dodge.Data.Item.Use.Consumption.LoadAction where

+import qualified Data.IntSet as IS
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -30,7 +31,11 @@ data NearbyManipulation

 data InventoryManipulation
    = SortInventory
-    | SelectedItem { _imSelectedItem :: Int, _imRootItem :: Int}
+    | SelectedItem 
+        { _imSelectedItem :: Int
+        , _imRootItem :: Int
+        , _imAttachedItems :: IS.IntSet
+        }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data InvSelAction