20 lines
407 B
Haskell
20 lines
407 B
Haskell
module Dodge.Cloud (clAlt) where
|
|
|
|
import Dodge.Data.Cloud
|
|
|
|
clAlt :: Cloud -> Float
|
|
clAlt cl = case _clType cl of
|
|
Smoke -> 90
|
|
RocketSmoke -> 30
|
|
CryoReleaseCloud -> 50
|
|
|
|
--clRad :: Cloud -> Float
|
|
--clRad cl = case _clType cl of
|
|
-- SmokeCloud -> 15
|
|
-- FlamerSmokeCloud -> 6
|
|
-- RocketCloud -> 15
|
|
-- StoneDust -> 15
|
|
-- CryoReleaseCloud -> 10
|
|
-- GasCloud -> 15
|
|
-- BloodCloud -> 10
|