Add various item info

src/Dodge/Combine/Combinations.hs

@@ -19,9 +19,19 @@ watchCombinations =
     po xs it = (map o xs, it)
     o = (1,)
 
+backpackCombinations :: [([(ItAmount,ItemBaseType)],Item)]
+backpackCombinations = 
+    [ po [CRAFT HOSE, CRAFT STEELDRUM] fuelPack
+    ]
+  where
+    po xs it = (map o xs, it)
+    o = (1,)
+
+
 itemCombinations :: [([(ItAmount, ItemBaseType)], Item)]
 itemCombinations =
     watchCombinations ++
+    backpackCombinations ++
     [ po [CRAFT PIPE, CRAFT HARDWARE] (bangStick 1)
     , po [HELD (BANGSTICK 1), CRAFT TIN] pistol
     , po [HELD PISTOL, CRAFT SPRING] autoPistol
@@ -31,7 +41,7 @@ itemCombinations =
     , po [HELD REVOLVER, cr SPRING] $ revolverX 1
     , po [cr CAN, cr HARDWARE] bangCone
     , po [HELD BANGCONE, cr PLANK] blunderbuss
-    , po [HELD BLUNDERBUSS, cr DRUM] (grapeCannon 1)
+    , po [HELD BLUNDERBUSS, cr STEELDRUM] (grapeCannon 1)
     , po [HELD (BANGSTICK 1), cr PLANK] rifle
     , po [HELD (BANGSTICK 1), HELD (BANGSTICK 1), HELD (BANGSTICK 1)] (volleyGun 3)
     , po [HELD RIFLE, cr TIN] repeater
@@ -50,8 +60,8 @@ itemCombinations =
         ++ [p [p 2 $ cr TUBE, o $ HELD (LAUNCHERX i)] (launcherX (i + 1)) | i <- [2 .. 9]]
         ++ [ po [cr LIGHTER, cr PUMP, cr CAN] flameSpitter
            , po [HELD FLAMESPITTER, cr CAN, cr PUMP] blowTorch
-           , po [HELD FLAMESPITTER, cr DRUM] flameThrower
-           , po [HELD FLAMETHROWER, cr DRUM] flameWall
+           , po [HELD FLAMESPITTER, cr STEELDRUM] flameThrower
+           , po [HELD FLAMETHROWER, cr STEELDRUM] flameWall
            , po [HELD FLAMETHROWER, cr PUMP] flameTorrent
            , p [o $ cr PRISM, o $ cr TRANSFORMER, o $ cr PIPE] lasGun
            , po [HELD LASGUN, HELD LASGUN, cr HARDWARE] dualBeam
@@ -65,10 +75,10 @@ itemCombinations =
            , p [p 2 $ cr PIPE, o $ cr PLATE, o $ cr MOTOR] powerLegs
            , p [p 4 $ cr CAN] plateCraft
            , p [p 3 $ cr TIN] plateCraft
-           , p [p 2 $ cr DRUM] plateCraft
+           , p [p 2 $ cr STEELDRUM] plateCraft
            , p [p 2 $ cr PLATE] flatShield
            , po [cr MICROCHIP, cr PRISM] (makeTypeCraft LIGHTSENSOR)
-           , po [cr MICROCHIP, cr MAGNET] (makeTypeCraft SOUNDSENSOR)
+           , po [cr MICROCHIP, cr MICROPHONE] (makeTypeCraft SOUNDSENSOR)
            , po [cr MICROCHIP, cr THERMOMETER] (makeTypeCraft HEATSENSOR)
            , po [cr MICROCHIP, cr TRANSMITTER, cr LIGHTSENSOR] (autoDetector ITEMDETECTOR)
            , po [cr MICROCHIP, cr TRANSMITTER, cr SOUNDSENSOR] (autoDetector WALLDETECTOR)
@@ -83,7 +93,7 @@ itemCombinations =
         ++ map (\i -> po [hd (REVOLVERX i), cr CAN] $ revolverX (i + 1)) [1 .. 5]
         ++ map (\i -> po [hd (VOLLEYGUN i), HELD (BANGSTICK 1)] $ volleyGun (i + 1)) [3 .. 5]
         ++ map (\i -> po [hd (MINIGUNX i), HELD (BANGSTICK 1)] $ miniGunX (i + 1)) [3 .. 15]
-        ++ map (\i -> po [hd (GRAPECANNON i), cr DRUM] $ grapeCannon (i + 1)) [1, 2, 3]
+        ++ map (\i -> po [hd (GRAPECANNON i), cr STEELDRUM] $ grapeCannon (i + 1)) [1, 2, 3]
         ++ [ po (_iyBase (_itType it) : mtype) $ it & itType . iyModules . ix modtype .~ m
            | (modtype, is, ms) <- moduleCombinations
            , it <- is
@@ -110,7 +120,7 @@ moduleCombinations =
             , burstRifle
             ]
         ,
-            [ amod [cr DRUM, cr HARDWARE] DRUMMAG
+            [ amod [cr STEELDRUM, cr HARDWARE] DRUMMAG
             , amod [cr MOTOR, cr HARDWARE] BELTMAG
             ]
         )
@@ -122,7 +132,7 @@ moduleCombinations =
             , burstRifle
             ]
         ,
-            [ amod [cr DUCTTAPE, HELD TORCH] ATTACHTORCH
+            [ amod [cr TAPE, HELD TORCH] ATTACHTORCH
             ]
         )
     ,