Allow for bullet drag

src/Dodge/Combine.hs

@@ -1,13 +1,23 @@
 {-# LANGUAGE TupleSections #-}
-module Dodge.Combine
-    ( 
-    ) where
---import Dodge.Data
+module Dodge.Combine where
+import Dodge.Data
 --import Dodge.Combine.Data
---import Dodge.Combine.Combinations
+import Dodge.Combine.Combinations
+import Dodge.Item.Weapon.BulletGuns
+import Dodge.Item.Craftable
 
---import Data.Bifunctor
+import Data.Bifunctor
 --import qualified Data.IntMap.Strict as IM
 --import qualified Data.IntSet as IS
---import qualified Data.Map.Strict as M
+import qualified Data.Map.Strict as M
 
+pureCombine :: [ (M.Map CombineType Int, Item) ]
+pureCombine = map (first toMultiset)
+    [ p [PIPE,HARDWARE] bangStick
+    , p [LONGPIPE,HARDWARE] bangCane
+    , p [VERYLONGPIPE,HARDWARE] bangRod
+    , p [PIPE,PIPE]     $ makeTypeCraft LONGPIPE
+    , p [LONGPIPE,PIPE] $ makeTypeCraft VERYLONGPIPE
+    ]
+  where
+    p = (,)