17 lines
321 B
Haskell
17 lines
321 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
module Dodge.Creature.Radius (crRad)
|
|
where
|
|
|
|
import Dodge.Data.Creature.Misc
|
|
|
|
crRad :: CreatureType -> Float
|
|
{-# INLINE crRad #-}
|
|
crRad = \case
|
|
Avatar {} -> 10
|
|
AvatarDead -> 10
|
|
ChaseCrit {} -> 10
|
|
SwarmCrit -> 2
|
|
AutoCrit -> 10
|
|
BarrelCrit{} -> 10
|
|
LampCrit {} -> 3
|