Move creature mass out of record

2025-06-06 09:10:03 +01:00
parent aa219acf8d
commit 73c79f2f4d
12 changed files with 76 additions and 67 deletions
@@ -0,0 +1,13 @@
+{-# LANGUAGE LambdaCase #-}
+module Dodge.Creature.Mass (crMass) where
+import Dodge.Data.Creature.Misc
+
+crMass :: CreatureType -> Float
+crMass = \case
+    Avatar {} -> 10
+    AvatarDead -> 10
+    ChaseCrit -> 10
+    SwarmCrit -> 2
+    AutoCrit -> 10
+    BarrelCrit{} -> 10
+    LampCrit {} -> 3