Continue bullet refactor

2022-07-17 10:57:29 +01:00
parent 7d6407bebc
commit b860de70a7
12 changed files with 81 additions and 106 deletions
@@ -539,8 +539,14 @@ data Bullet = Bullet
    , _buOldPos :: Point2
    , _buWidth  :: Float 
    , _buTimer  :: Int
+--    , _buEffect :: BulletEffect
    , _buHitEff :: HitEffect'
    }
+data BulletEffect = BulletSpark
+    | BulletBounce
+    | BulletBall EnergyBall
+
+data EnergyBall = IncBall | TeslaBall | ConcBall

 {- Objects without ids.
 Update themselves, perhaps with side effects.  -}