20 lines
430 B
Haskell
20 lines
430 B
Haskell
{-# 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
|