Destroying mounted lights flashes, move equipment datatype

src/Dodge/Combine/Data.hs

@@ -73,19 +73,22 @@ data ItemBaseType
     | AUTOEFFGUN String
     -- Weapons
     | HELD {_ibtHeld :: HeldItemType}
+    | LEFT {_ibtLeft :: LeftItemType}
+    | EQUIP {_ibtEquip :: EquipItemType}
 --    | GRENADE
 --    | REMOTEBOMB
     -- Utility items
-    | BOOSTER
-    | REWINDER
-    | BLINKER
-    | BLINKERUNSAFE
-    | SHRINKER
-    | SPAWNER
     -- Equipment
-    | CLICKDETECTOR Detector
-    | AUTODETECTOR Detector
-    | MAGSHIELD
+    --
+    | KEYCARD Int
+    --
+    | MEDKIT Int
+    | CRAFT CraftType
+    --
+  deriving (Eq,Ord,Show,Read)
+
+data EquipItemType
+    = MAGSHIELD
     | FLAMESHIELD
     | FRONTARMOUR
     | WRISTARMOUR
@@ -98,12 +101,15 @@ data ItemBaseType
     | JUMPLEGS
     | FLATSHIELD
     | JETPACK
-    --
-    | KEYCARD Int
-    --
-    | MEDKIT Int
-    | CRAFT CraftType
-    --
+    | AUTODETECTOR Detector
+  deriving (Eq,Ord,Show,Read)
+data LeftItemType
+    = BOOSTER
+    | REWINDER
+    | BLINKER
+    | BLINKERUNSAFE
+    | SHRINKER
+    | SPAWNER
   deriving (Eq,Ord,Show,Read)
 
 data HeldItemType
@@ -163,6 +169,8 @@ data HeldItemType
     | SHATTERGUN
 
     | FORCEFIELDGUN
+
+    | HELDDETECTOR Detector
   deriving (Eq,Ord,Show,Read)
 
 data ItemModuleType