Allow for bullet drag

src/Dodge/Item/Weapon/BatteryGuns.hs

@@ -36,7 +36,8 @@ import qualified Data.IntMap.Strict as IM
 teslaGun :: Item
 teslaGun = defaultGun 
     { _itName = "TESLA"
-    , _itIdentity = TeslaGun
+    , _itCombineType = TESLAGUN
+--    , _itIdentity = TeslaGun
     , _itConsumption = defaultAmmo
         { _ammoMax = 200
         , _ammoLoaded = 200
@@ -63,7 +64,7 @@ teslaGunPic _ = noPic $ colorSH blue $
 lasGun :: Item
 lasGun = defaultAutoGun 
     { _itName = "LASGUN ////"
-    , _itIdentity = LasGun
+    , _itCombineType = LASGUN
     , _itConsumption = defaultAmmo
         { _ammoMax = 200
         , _ammoLoaded = 200
@@ -119,7 +120,7 @@ lasGunPic it =
 tractorGun :: Item
 tractorGun = defaultAutoGun 
     { _itName = "TRACTORGUN"
-    , _itIdentity = TractorGun
+    , _itCombineType = TRACTORGUN
     , _itConsumption = defaultAmmo
         { _ammoMax = 10000
         , _ammoLoaded = 10000