20 lines
426 B
Haskell
20 lines
426 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
module Dodge.Creature.Radius (crRad)
|
|
where
|
|
|
|
import Dodge.Data.Creature.Misc
|
|
|
|
crRad :: CreatureType -> Float
|
|
{-# INLINE crRad #-}
|
|
crRad = \case
|
|
Avatar {} -> 10
|
|
ChaseCrit {} -> 10
|
|
CrabCrit {} -> 10
|
|
HoverCrit {} -> 8
|
|
SwarmCrit -> 2
|
|
AutoCrit -> 10
|
|
BarrelCrit{} -> 10
|
|
LampCrit {} -> 3
|
|
SlinkCrit {} -> 10
|
|
SlimeCrit {_slimeRad = r,_slimeRadWobble = x} -> r - x
|