Allow for bullet drag

src/Dodge/Item/Craftable.hs

@@ -1,23 +1,17 @@
 module Dodge.Item.Craftable where
 import Dodge.Data
 import Dodge.Default.Weapon
-import Dodge.Picture.Layer
-import Picture
-import Geometry
+--import Dodge.Picture.Layer
+--import Picture
+--import Geometry
 
-pipe :: Item
-pipe = Craftable
-    { _itIdentity = Generic
-    , _itInvSize = 1
-    , _itDimension = defaultItemDimension
+makeTypeCraft :: CombineType -> Item
+makeTypeCraft ct = defaultCraftable
+    { _itInvSize = 1
     , _itCurseStatus = Uncursed
-    , _itName = "PIPE"
-    , _itMaxStack = 3
-    , _itAmount = 3
-    , _itFloorPict = \_ -> (,) mempty 
-        $ onLayer FlItLayer $ polygon $ map toV2 [(-3,-3),(-3,3),(3,3),(3,-3)]
-    , _itEquipPict = \_ _ -> mempty
-    , _itID = Nothing
-    , _itInvDisplay = (:[]) . _itName
-    , _itInvColor = green
+    , _itName = show ct
+    , _itCombineType = ct
+    , _itConsumption = ItemItselfConsumable 3 3 
     }
+pipe :: Item
+pipe = makeTypeCraft PIPE