14 lines
238 B
Haskell
14 lines
238 B
Haskell
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
|
|
|