Add damage origins

2026-04-24 20:34:20 +01:00
parent 011286ccb5
commit e0e346aade
43 changed files with 535 additions and 449 deletions
@@ -39,9 +39,9 @@ sparkDam = damageCrWl . sparkToDamage

 sparkToDamage :: Spark -> [Damage]
 sparkToDamage sp = case _skType sp of
-    ElectricSpark -> [Electrical 10]
-    FireSpark -> [Flaming 1]
-    NormalSpark -> [Sparking 10]
+    ElectricSpark -> [Electrical 10 UnassignedO]
+    FireSpark -> [Flaming 1 UnassignedO]
+    NormalSpark -> [Sparking 10 UnassignedO]

 makeSpark :: SparkType -> Point2 -> Float -> World -> World
 makeSpark st p d =