Implement dual laser tesla

2022-04-07 10:06:39 +01:00
parent 6c1bf92082
commit 7ca9afeb5f
6 changed files with 62 additions and 58 deletions
@@ -520,15 +520,12 @@ data Beam = Beam
    , _bmFirstPoints :: [Point2]
    , _bmRange  :: Float
    , _bmPhaseV :: Float
+    , _bmOrigin :: Maybe Int
    , _bmType   :: BeamType
    }
 data BeamType 
    = BeamCombine 
        {_beamCombine :: (Point2 , (Point2,Point2,Beam) , (Point2,Point2,Beam)) -> World -> World}
-    | BeamItemParamsCombine 
-        {_beamCombine   :: (Point2 , (Point2,Point2,Beam) , (Point2,Point2,Beam)) -> World -> World
-        ,_beamItemParams :: ItemParams
-        }
    | BeamSimple

 {- Objects without ids.
@@ -682,6 +679,7 @@ data ItemParams
        , _lasCycle :: Int
        , _lasDamage :: Int
        , _lasBeam :: BeamType
+        , _subParams :: Maybe ItemParams
        }
    | Attracting    {_attractionPower :: Point2}
    | BulletShooter