Use constructed laser as targeting scope

src/Dodge/Item/Held/BatteryGuns.hs

@@ -1,7 +1,7 @@
 module Dodge.Item.Held.BatteryGuns 
     ( sparkGun
     , teslaGun
-    , lasGun
+    , laser
     , tractorGun
     ) where
 
@@ -37,14 +37,14 @@ teslaGun =
         & itUse . heldTriggerType .~ AutoTrigger
 
 -- previous phaseV parameters: 0.2, 1, 5
-lasGun :: Item
-lasGun =
+laser :: Item
+laser =
     defaultHeldItem
         & itUse . heldParams .~ BeamShooterParams (Just (tone440sawtoothquietS,2))
         & itAmmoSlots .~ singleAmmo ElectricalAmmo
         & itUse . heldDelay .~ NoDelay
         & itUse . heldTriggerType .~ AutoTrigger
-        & itUse . heldAim . aimMuzzles . ix 0 . mzPos .~ V2 30 0
+        & itUse . heldAim . aimMuzzles . ix 0 . mzPos .~ V2 4 0
         & itUse . heldAim . aimMuzzles . ix 0 . mzInaccuracy .~ 0
         & itUse . heldAim . aimMuzzles . ix 0 . mzFlareType .~ LasGunFlare
         & itUse . heldAim . aimMuzzles . ix 0 . mzEffect .~ MuzzleLaser
@@ -58,15 +58,27 @@ lasGun =
         & itUse . heldAim . aimWeight .~ 6
         & itUse . heldAim . aimRange .~ 1
         & itUse . heldAim . aimStance .~ TwoHandUnder
-        & itType .~ HELD LASGUN
+        & itType .~ HELD LASER
 
 -- previous attractionPower values: 1, -1, -10, 0
 tractorGun :: Item
 tractorGun =
-    lasGun
-        & itUse . heldDelay .~ NoDelay
+    defaultHeldItem
+        & itUse . heldParams .~ BeamShooterParams (Just (tone440sawtoothquietS,2))
+        & itAmmoSlots .~ singleAmmo ElectricalAmmo
+        & itUse . heldTriggerType .~ AutoTrigger
+        & itUse . heldAim . aimMuzzles . ix 0 . mzPos .~ V2 30 0
+        & itUse . heldAim . aimMuzzles . ix 0 . mzInaccuracy .~ 0
+        & itTargeting .~ ItTargeting
+            { _itTgPos = Nothing 
+            , _itTgID = Nothing 
+            , _itTgActive = False
+            }
+        & itDimension . dimRad .~ 10
+        & itDimension . dimCenter .~ V3 15 0 0
         & itUse . heldAim . aimWeight .~ 6
         & itUse . heldAim . aimRange .~ 1
+        & itUse . heldAim . aimStance .~ TwoHandUnder
         & itUse . heldAim . aimMuzzles . ix 0 . mzFlareType .~ DefaultFlareType
         & itUse . heldAim . aimMuzzles . ix 0 . mzEffect .~ MuzzleTractor
         & itType .~ HELD TRACTORGUN