Tweak tesla gun

src/Dodge/Data.hs

@@ -442,6 +442,8 @@ data ModuleSlot
     | ModBulletTrajectory
     | ModLauncherHoming
     | ModBattery
+    | ModTeleport
+    | ModDualBeam
   deriving (Eq,Ord)
 
 data ItemModule
@@ -655,7 +657,6 @@ data GunBarrels
         , _brlInaccuracy :: Float
         }
     | SingleBarrel  {_brlInaccuracy :: Float}
-    
 data ItemParams
     = NoParams
     | ShellLauncher
@@ -670,8 +671,16 @@ data ItemParams
         , _lasCycle :: Int
         , _lasDamage :: Int
         }
+    | DualBeam
+        { _phaseV :: Float
+        , _lasColor :: Color
+        , _lasColor2 :: Color
+        , _lasCycle :: Int
+        , _lasDamage :: Int
+        , _lasBeam :: BeamType
+        }
     | Attracting    {_attractionPower :: Point2}
-    | BulletShooter -- this should possibly be moved into ammo type
+    | BulletShooter
         { _muzVel   :: Float
         , _rifling  :: Float
         , _bore     :: Float
@@ -687,14 +696,19 @@ data ItemParams
         , _walkSpeed :: Float
         }
     | Arcing 
-        { _currentArc :: Maybe [(Point2,Float,Maybe (Either Creature Wall))] 
+        { _currentArc :: Maybe [ArcStep] 
         , _arcSize :: Float
         , _arcNumber :: Int
         , _newArcStep :: ItemParams -> World 
-            -> (Point2,Float,Maybe (Either Creature Wall))
-            -> State StdGen (Maybe (Point2,Float,Maybe (Either Creature Wall)))
+            -> ArcStep
+            -> State StdGen (Maybe ArcStep)
         , _previousArcEffect :: PreviousArcEffect
         }
+data ArcStep = ArcStep
+    { _asPos :: Point2
+    , _asDir :: Float
+    , _asObject :: Maybe (Either Creature Wall)
+    }
 data PreviousArcEffect = NoPreviousArcEffect | PerturbTillBreakPreviousArc
 data Modification
     = ModIDTimerPoint3Bool
@@ -1169,3 +1183,4 @@ makeLenses ''Sensor
 makeLenses ''Beam
 makeLenses ''BeamType
 makeLenses ''WorldBeams
+makeLenses ''ArcStep