Allow for bullet drag

src/Dodge/Default/Weapon.hs

@@ -82,11 +82,11 @@ defaultAimParams = AimParams
     }
 
 defaultGun :: Item
-defaultGun = Weapon 
+defaultGun = Item 
     { _itName = "default"
     , _itCombineType = NoCombineType
     , _itCurseStatus = Uncursed
-    , _itIdentity = Pistol
+--    , _itIdentity = Pistol
     , _itConsumption = defaultAmmo
     , _itUse = defaultrUse
     , _itFloorPict = const $ noPic $ colorSH green (prismPoly 
@@ -107,6 +107,32 @@ defaultGun = Weapon
     , _itDimension = defaultItemDimension
     , _itTweaks = NoTweaks
     }
+defaultCraftable :: Item
+defaultCraftable = Item 
+    { _itName = "default"
+    , _itCombineType = NoCombineType
+    , _itCurseStatus = Uncursed
+--    , _itIdentity = Generic
+    , _itConsumption = NoConsumption
+    , _itUse = NoUse
+    , _itFloorPict = const $ noPic $ colorSH green (prismPoly 
+        (map (addZ 3) $ rectNESW 3 3 (-3) (-3))
+        (map (addZ 0) $ rectNESW 5 3 (-5) (-7))
+        )
+--    , _itZoom    = ItZoom 20 0.2 1
+    , _itEquipPict = pictureWeaponOnAim
+    , _itScroll = \_ _ -> id
+    , _itAttachment = NoItAttachment
+    , _itID = Nothing
+    , _itEffect = NoItEffect
+    , _itInvDisplay = \it -> take (_itInvSize it) (_itName it : repeat "*")
+    , _itInvColor = green
+    , _itInvSize  = 1
+    , _itTargeting = Nothing
+    , _itParams = NoParams
+    , _itDimension = defaultItemDimension
+    , _itTweaks = NoTweaks
+    }
 defaultItemDimension :: ItemDimension
 defaultItemDimension = ItemDimension
     { _itDim = V3 4 4 4