{-# LANGUAGE LambdaCase #-}
module Dodge.Creature.MaxHP (crMaxHP) where

import Dodge.Data.Creature.Misc

crMaxHP :: CreatureType -> Int
crMaxHP = \case
    Avatar {} -> 15000
    ChaseCrit {} -> 150
    CrabCrit {} -> 350
    HoverCrit {} -> 100
    SwarmCrit -> 50
    AutoCrit -> 100
    BarrelCrit{} -> 100
    LampCrit {} -> 50
    SlinkCrit {} -> 1000
    SlimeCrit {} -> 1000
    BeeCrit {} -> 100
    HiveCrit {} -> 10000