Add damage origins

2026-04-24 20:34:20 +01:00
parent 011286ccb5
commit e0e346aade
43 changed files with 535 additions and 449 deletions
@@ -6,6 +6,7 @@ module Dodge.Data.EnergyBall (
    module Dodge.Data.EnergyBall.Type,
 ) where

+import Dodge.Data.Damage
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -17,6 +18,7 @@ data EnergyBall = EnergyBall
    , _ebPos :: Point3
    , _ebTimer :: Int
    , _ebType :: EnergyBallType
+    , _ebOrigin :: DamageOrigin
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)