Refactor tractor beam

src/Dodge/Item/Weapon.hs

@@ -251,18 +251,20 @@ tractorGun = defaultAutoGun
     , _wpReloadState = 0
     , _itUseRate = 0
     , _itUseTime = 0
-    , _itUse = \_ -> aTractorBeam 0
+    , _itUse = aTractorBeam
     , _itUseModifiers =
         [ ammoUseCheckI
         ]
     , _wpSpread = 0.00001
     , _wpRange = 20
-    , _itFloorPict = (,) emptySH $ onLayer FlItLayer $ color blue $ pictures [polygon $ rectNESW 1.5 6 (-1.5) 0 ]
+    , _itFloorPict = tractorGunSPic
     , _itAimingSpeed = 0.4
     , _itAimingRange = 0.5
-    , _itEquipPict = pictureWeaponOnAim $ (,) emptySH $ color blue $ pictures [polygon $ rectNESW 1.5 6 (-1.5) 0 ]
+    , _itEquipPict = pictureWeaponOnAim tractorGunSPic
     }
-
+-- TODO own picture for tractor gun
+tractorGunSPic :: SPic
+tractorGunSPic = lasGunPic
 
 removeItAttachment :: Int -> Int -> World -> World
 removeItAttachment i _ w = w & creatures . ix i . crInv . ix itRef . itAttachment .~ NoItAttachment