Add fields to determine an item's inventory position/whether it is held

src/Dodge/Creature.hs

@@ -174,21 +174,21 @@ inventoryA = IM.fromList $ zip [0..]
 testInventory :: IM.IntMap Item
 testInventory = IM.fromList $ zip [0..] 
     [ makeTypeCraftNum 9 PIPE
-    , makeModule INCENDIARYMODULE
-    , makeModule STATICMODULE
-    , bounceModule
+--    , makeModule INCENDIARYMODULE
+--    , makeModule STATICMODULE
+--    , bounceModule
     , medkit 50 & itConsumption . itAmount .~ 3
     , teleportModule
-    , makeTypeCraftNum 1 LIGHTER
---    , makeTypeCraftNum 15 TUBE
-    , makeTypeCraftNum 9 TRANSFORMER
---    , makeTypeCraftNum 5 CREATURESENSOR
-    , makeTypeCraftNum 9 PRISM
+--    , makeTypeCraftNum 1 LIGHTER
+    , makeTypeCraftNum 15 TUBE
+--    , makeTypeCraftNum 9 TRANSFORMER
+    , makeTypeCraftNum 5 CREATURESENSOR
+--    , makeTypeCraftNum 9 PRISM
 --    , makeTypeCraftNum 3 DRUM
 --    , makeTypeCraftNum 3 PUMP
-    , makeTypeCraftNum 3 BATTERY
+--    , makeTypeCraftNum 3 BATTERY
 --    , makeTypeCraftNum 1 MAGNET
---    , makeTypeCraftNum 1 TRANSMITTER
+    , makeTypeCraftNum 1 TRANSMITTER
     , makeTypeCraftNum 10 HARDWARE
     , makeTypeCraftNum 3 SPRING
     , makeTypeCraftNum 10 CAN