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