16 lines
300 B
Haskell
16 lines
300 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
|
|
SwarmCrit -> 2
|
|
AutoCrit -> 10
|
|
BarrelCrit{} -> 10
|
|
LampCrit {} -> 3
|