Refactor clouds

2025-06-24 13:28:17 +01:00
parent b1041d1eb0
commit 444be7b49c
12 changed files with 80 additions and 140 deletions
@@ -1,13 +1,24 @@
-module Dodge.Cloud where
+module Dodge.Cloud (clAlt) where

 import Dodge.Data.Cloud

-cRad :: Cloud -> Float
-cRad cl = case _clType cl of
-    SmokeCloud -> 0
-    FlamerSmokeCloud -> 6
-    RocketCloud -> 15
-    StoneDust -> 15
-    CryoReleaseCloud -> 10
-    GasCloud -> 15
+clAlt :: Cloud -> Float
+clAlt cl = case _clType cl of
+    SmokeCloud -> 30
+    FlamerSmokeCloud -> 30
+    RocketCloud -> 30
+    StoneDust -> 1
+    DirtDust -> 1
+    CryoReleaseCloud -> 50
+    GasCloud -> 20
+    BloodCloud -> 1

+--clRad :: Cloud -> Float
+--clRad cl = case _clType cl of
+--    SmokeCloud -> 15
+--    FlamerSmokeCloud -> 6
+--    RocketCloud -> 15
+--    StoneDust -> 15
+--    CryoReleaseCloud -> 10
+--    GasCloud -> 15
+--    BloodCloud -> 10