Implement combining of items

src/Dodge/Creature.hs

@@ -17,6 +17,7 @@ import Dodge.Item.Weapon.Grenade
 import Dodge.Item.Weapon.Booster
 import Dodge.Item.Weapon.Utility
 import Dodge.Item.Weapon.Drone
+import Dodge.Item.Craftable
 --import Dodge.Creature.ReaderUpdate
 --import Dodge.Creature.AlertLevel
 --import Dodge.Creature.SetTarget
@@ -171,6 +172,10 @@ startInventory = IM.fromList $ zip [0..] startInvList
 stackedInventory :: IM.IntMap Item
 stackedInventory = IM.fromList $ zip [0..] 
     [spreadGun
+    , pipe
+    , makeTypeCraft LONGPIPE
+    , makeTypeCraft VERYLONGPIPE
+    , makeTypeCraft HARDWARE
     ,rewindGun
     ,tractorGun
     ,longGun