Cleanup combination accessing code

src/Dodge/Combine/Combinations.hs

@@ -0,0 +1,40 @@
+module Dodge.Combine.Combinations where
+import Dodge.Data
+import Dodge.Item.Weapon.BulletGuns
+import Dodge.Item.Weapon.Launcher
+itemCombinations :: [([CombineType],Item)]
+itemCombinations =
+    [ p [PIPE,HARDWARE] (bangStick 1)
+    , p [BANGSTICK 1,TIN] pistol
+    , p [PISTOL, SPRING, HARDWARE] autoPistol
+    , p [AUTOPISTOL, PLANK, HARDWARE] smg
+    , p [AUTOPISTOL, HARDWARE] machinePistol
+    , p [BANGSTICK 1,CAN] revolver
+    , p [REVOLVER, SPRING, HARDWARE] $ revolverX 1
+
+    , p [PIPE,TUBE,HARDWARE] bangCone
+    , p [BANGCONE,PLANK] blunderbuss
+    , p [BLUNDERBUSS,TUBE] grapeShotCannon
+    , p [BANGCONE,PUMP,HARDWARE] $ grenadeLauncher 1
+    , p [GRENADELAUNCHER 1,MOTOR,DRUM] $ grenadeLauncher 2
+
+    , p [PIPE,PIPE,HARDWARE] bangCane
+    , p [BANGCANE,PIPE,PIPE] (bangCaneX 2)
+    , p [BANGCANE,TIN] rifle
+    , p [RIFLE,SPRING,HARDWARE] autoRifle
+    , p [RIFLE,SPRING,CAN] assaultRifle
+    , p [BANGCANE,BANGCANE] miniGun
+
+    , p [PIPE,PIPE,PIPE,HARDWARE] bangRod
+    , p [BANGROD,PLANK,HARDWARE]  elephantGun
+    , p [ELEPHANTGUN,HARDWARE,TIN] amr
+    , p [ELEPHANTGUN,HARDWARE,CAN] sniperRifle
+    , p [BANGROD,PLATE,DRUM,MOTOR] machineGun
+
+    , p [TUBE,TUBE,TUBE,HARDWARE] launcher
+    ] 
+    ++ map (\i -> ([PIPE,BANGSTICK i],bangStick (i+1))) [1..8]
+    ++ map (\i -> ([REVOLVERX i,CAN] ,revolverX (i+1))) [1..5]
+    ++ map (\i -> ([BANGCANEX i,PIPE,PIPE] ,bangCaneX (i+1))) [1..5]
+  where
+    p = (,)

src/Dodge/Combine/Data.hs

@@ -1,7 +1,7 @@
 module Dodge.Combine.Data
     (CombineType (..)
-    )
-    where
+    ) where
+-- TODO make this an enum somehow...?
 data CombineType
     = NOTDEFINED
     -- Weapons