{-# 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} -> r