Add file

2025-06-06 13:36:38 +01:00
parent 0f55257bff
commit 05f250f928
3 changed files with 47 additions and 0 deletions
@@ -0,0 +1,15 @@
+{-# LANGUAGE LambdaCase #-}
+module Dodge.Creature.MaxHP (crMaxHP) where
+
+import Dodge.Data.Creature.Misc
+
+crMaxHP :: CreatureType -> Int
+crMaxHP = \case
+    Avatar {} -> 15000
+    AvatarDead -> 0
+    ChaseCrit {} -> 150
+    SwarmCrit -> 50
+    AutoCrit -> 100
+    BarrelCrit{} -> 100
+    LampCrit {} -> 50
+