Improve static bullets

2022-07-19 13:15:13 +01:00
parent 54ba0fbedc
commit 0a7922ec5e
19 changed files with 287 additions and 134 deletions
@@ -18,7 +18,7 @@ data Bullet = Bullet
    , _buTimer      :: Int
    , _buDamages    :: [Damage]
    }
-data EnergyBall = IncBall | TeslaBall | ConcBall
+data EnergyBallType = IncBall | TeslaBall | ConcBall
 data BulletState = NormalBulletState
    | DyingBulletState
    | DelayedBullet Float
@@ -28,7 +28,7 @@ data BulletEffect
    | BounceBullet
    | PenetrateBullet
  deriving (Eq,Ord,Show,Read,Enum,Bounded)
-data BulletSpawn = BulBall EnergyBall | BulSpark
+data BulletSpawn = BulBall EnergyBallType | BulSpark
 data BulletTrajectory
    = BasicBulletTrajectory
    | BezierTrajectory Point2 Point2 Point2