Add bullet damages field, move bullet data into own file

2022-07-17 21:45:26 +01:00
parent 6c6fe43bc0
commit bf023a61ce
11 changed files with 137 additions and 180 deletions
@@ -0,0 +1,38 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Bullet where
+import Dodge.Data.DamageType
+import Geometry.Data
+import Control.Lens
+data Bullet = Bullet
+    { _buState      :: BulletState
+    , _buEffect     :: BulletEffect
+    , _buSpawn      :: BulletSpawn
+    , _buUpdateMod  :: BulletUpdateMod
+    , _buTrajectory :: BulletTrajectory
+    , _buVel        :: Point2
+    , _buDrag       :: Float
+    , _buPos        :: Point2
+    , _buOldPos     :: Point2
+    , _buWidth      :: Float 
+    , _buTimer      :: Int
+    , _buDamages    :: [Damage]
+    }
+data EnergyBall = IncBall | TeslaBall | ConcBall
+data BulletState = NormalBulletState
+    | DyingBulletState
+    | DelayedBullet Float
+data BulletUpdateMod = NoBulletUpdateMod
+
+data BulletEffect = DestroyBullet
+    | BounceBullet
+    | PenetrateBullet
+data BulletSpawn = BulBall EnergyBall | BulSpark
+
+data BulletTrajectory
+    = BasicBulletTrajectory
+    | BezierTrajectory Point2 Point2 Point2
+    | FlechetteTrajectory Point2
+    | MagnetTrajectory Point2
+
+makeLenses ''Bullet