Separate incendiary ebs and flamelets

2025-06-09 11:41:11 +01:00
parent 5d8b493636
commit 5286485d62
7 changed files with 223 additions and 213 deletions
@@ -10,8 +10,9 @@ import Data.Aeson
 import Data.Aeson.TH

 data EnergyBallType
-    = FlameletBall {_fbSize :: Float, _fbRot :: Float}
-    | ElectricalBall
+    = IncendiaryBall
+    | FlameletBall {_fbSize :: Float, _fbRot :: Float}
+    | ElectricalBall {_ebID :: Int}
    | ExplosiveBall
    | FlashBall
    deriving (Eq, Ord, Show, Read) --Generic, Flat)