Move some item datatypes into dedicated module

src/Dodge/Item/Weapon/BatteryGuns.hs

@@ -10,7 +10,7 @@ import Dodge.Particle.TeslaArc
 import Dodge.SoundLogic.LoadSound
 import Dodge.WorldEvent
 import Dodge.WorldEvent.Damage
-import Dodge.Default
+--import Dodge.Default
 import Dodge.Item.Weapon.InventoryDisplay
 import Dodge.Item.Weapon.TriggerType
 import Dodge.Item.Weapon.AmmoParams
@@ -50,11 +50,9 @@ teslaGun = defaultGun
         ]
         & useAim . aimSpeed .~ 0.4
         & useAim . aimStance .~ TwoHandFlat
-    , _wpSpread = 0.001
-    , _wpRange = 20
     , _itFloorPict = teslaGunPic
-    , _itZoom = defaultItZoom
-    }
+--    , _itZoom = defaultItZoom
+    } & itType . wpSpread .~ 0.001
 teslaGunPic :: Item -> SPic
 teslaGunPic _ = noPic $ colorSH blue $
         upperPrismPoly 5 (rectNESW xb    y xa    (-y))
@@ -81,8 +79,6 @@ lasGun = defaultAutoGun
         & useAim . aimSpeed .~ 0.4
         & useAim . aimRange .~ 1
         & useAim . aimStance .~ TwoHandTwist
-    , _wpSpread = 0.001
-    , _wpRange = 20
     , _itFloorPict = lasGunPic
     , _itAttachment = ItCharMode $ Seq.fromList "/VZ"
     , _itScroll   = scrollCharMode
@@ -116,8 +112,6 @@ tractorGun = defaultAutoGun
         & useAim . aimSpeed .~ 0.4
         & useAim . aimRange .~ 1
         & useAim . aimStance .~ TwoHandTwist
-    , _wpSpread = 0.00001
-    , _wpRange = 20
     , _itFloorPict = tractorGunSPic
     }
 -- TODO own picture for tractor gun