Revert "Simplify clouds"

This reverts commit bd50262ca4.

src/Dodge/Cloud.hs

@@ -0,0 +1,20 @@
+module Dodge.Cloud (clAlt) where
+
+import Dodge.Data.Cloud
+
+clAlt :: Cloud -> Float
+clAlt cl = case _clType cl of
+    Smoke -> 90
+    RocketSmoke -> 30
+    CryoReleaseCloud -> 50
+    GasCloud -> 20
+
+--clRad :: Cloud -> Float
+--clRad cl = case _clType cl of
+--    SmokeCloud -> 15
+--    FlamerSmokeCloud -> 6
+--    RocketCloud -> 15
+--    StoneDust -> 15
+--    CryoReleaseCloud -> 10
+--    GasCloud -> 15
+--    BloodCloud -> 10