Add damage origins

2026-04-24 20:34:20 +01:00
parent 011286ccb5
commit e0e346aade
43 changed files with 535 additions and 449 deletions
@@ -3,6 +3,7 @@

 module Dodge.Data.Laser where

+import Dodge.Data.Damage
 import NewInt
 import Dodge.Data.Item.Location
 --import Color
@@ -21,6 +22,7 @@ data Laser = Laser
    , _lpPos :: Point2
    , _lpDir :: Float
    , _lpType :: LaserType
+    , _lpOrigin :: DamageOrigin
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)