module Dodge.Cloud 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