22 lines
453 B
Haskell
22 lines
453 B
Haskell
module Dodge.Cloud (clAlt) where
|
|
|
|
import Dodge.Data.Cloud
|
|
|
|
clAlt :: Cloud -> Float
|
|
clAlt cl = case _clType cl of
|
|
FlamerSmokeCloud -> 90
|
|
RocketCloud -> 30
|
|
Dust _ -> 1
|
|
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
|