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