Tweak clouds

2025-06-24 13:54:14 +01:00
parent 444be7b49c
commit 03bc733de9
7 changed files with 115 additions and 114 deletions
@@ -4,14 +4,11 @@ import Dodge.Data.Cloud

 clAlt :: Cloud -> Float
 clAlt cl = case _clType cl of
-    SmokeCloud -> 30
-    FlamerSmokeCloud -> 30
+    FlamerSmokeCloud -> 90
    RocketCloud -> 30
-    StoneDust -> 1
-    DirtDust -> 1
+    Dust _ -> 1
    CryoReleaseCloud -> 50
    GasCloud -> 20
-    BloodCloud -> 1

 --clRad :: Cloud -> Float
 --clRad cl = case _clType cl of