Refactor items, suspect a leak

2022-07-21 00:50:50 +01:00
parent e2ccf7296a
commit 22787abf8f
5 changed files with 165 additions and 136 deletions
@@ -1,3 +1,84 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
 module Dodge.Data.Item.Params where
+import Dodge.Data.Beam
+import Dodge.Data.ArcStep
+import Geometry.Data
+import Color
+import Control.Lens

+data ItemParams
+    = NoParams
+    | ShellLauncher
+        { _shellSpinDrag    :: Int
+        , _shellSpinAmount  :: Int
+        , _shellThrustDelay :: Int
+        }
+    | Refracting    
+        { _phaseV :: Float
+        , _lasColor :: Color
+        , _lasColor2 :: Color
+        , _lasCycle :: Int
+        , _lasDamage :: Int
+        }
+    | DualBeam
+        { _phaseV :: Float
+        , _lasColor :: Color
+        , _lasColor2 :: Color
+        , _lasCycle :: Int
+        , _lasDamage :: Int
+        , _lasBeam :: BeamType
+        , _subParams :: Maybe ItemParams
+        , _dbGap    :: Float
+        }
+    | Attracting    {_attractionPower :: Point2}
+    | BulletShooter
+        { _muzVel   :: Float
+        , _rifling  :: Float
+        , _bore     :: Float
+        , _gunBarrels :: GunBarrels
+        , _recoil       :: Float
+        , _torqueAfter  :: Float
+        , _randomOffset :: Float
+        }
+    | Sprayer { _sprayNozzles :: [Nozzle] }
+    | AngleWalk
+        { _maxWalkAngle :: Float
+        , _currentWalkAngle :: Float
+        , _walkSpeed :: Float
+        }
+    | Arcing 
+        { _currentArc :: Maybe [ArcStep] 
+        , _arcSize :: Float
+        , _arcNumber :: Int
+        , _newArcStep :: NextArcStep --ItemParams -> World -> ArcStep -> State StdGen (Maybe ArcStep)
+        , _previousArcEffect :: PreviousArcEffect
+        }
+    | ParamMID {_paramMID :: Maybe Int}
+data PreviousArcEffect = NoPreviousArcEffect | PerturbTillBreakPreviousArc
+data GunBarrels
+    = MultiBarrel
+        { _brlSpread     :: BarrelSpread
+        , _brlNum        :: Int
+        , _brlInaccuracy :: Float
+        }
+    | RotBarrel
+        { _brlNum    :: Int
+        , _brlInaccuracy :: Float
+        }
+    | SingleBarrel  {_brlInaccuracy :: Float}
+data Nozzle = Nozzle
+    { _nzPressure :: Float
+    , _nzDir :: Float
+    , _nzMaxWalkAngle :: Float
+    , _nzCurrentWalkAngle :: Float
+    , _nzWalkSpeed  :: Float
+    , _nzLength     :: Float
+    }
+data BarrelSpread
+    = AlignedBarrels
+    | SpreadBarrels   {_spreadAngle :: Float}
+    | RotatingBarrels {_rotatingBarrelInaccuracy :: Float}

+makeLenses ''BarrelSpread
+makeLenses ''ItemParams