justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Simplify clouds

Browse Source
This commit is contained in:
justin
2025-06-24 09:42:51 +01:00
parent 366b998989
commit b1041d1eb0
12 changed files with 110 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Spark.hs
+4 -4
View File
@@ -36,11 +36,11 @@ updateSpark w sk
sparkDam :: Spark -> Either Creature Wall -> World -> World
sparkDam = damageCrWl . sparkToDamage
sparkToDamage :: Spark -> Damage
sparkToDamage :: Spark -> [Damage]
sparkToDamage sp = case _skType sp of
ElectricSpark -> Electrical 10
FireSpark -> Flaming 1
NormalSpark -> Sparking 10
ElectricSpark -> [Electrical 10]
FireSpark -> [Flaming 1]
NormalSpark -> [Sparking 10]
makeSpark :: SparkType -> Point2 -> Float -> World -> World
makeSpark st p d =