Reorganise weapons, start work on drones

src/Dodge/Item/Craftable.hs

@@ -0,0 +1,23 @@
+module Dodge.Item.Craftable where
+import Dodge.Data
+import Dodge.Default.Weapon
+import Dodge.Picture.Layer
+import Picture
+import Geometry
+
+pipe :: Item
+pipe = Craftable
+    { _itIdentity = Generic
+    , _itDimension = defaultItemDimension
+    , _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
+    , _itAimStance = LeaveHolstered
+    }