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,16 @@
+{-# LANGUAGE LambdaCase #-}
+
+module Dodge.Creature.Material (crMaterial) where
+
+import Dodge.Data.Creature.Misc
+import Dodge.Data.Material
+
+crMaterial :: CreatureType -> Material
+crMaterial = \case
+    Avatar{_avatarMaterial = mt} -> mt
+    AvatarDead -> Flesh
+    ChaseCrit {} -> Flesh
+    SwarmCrit -> Flesh
+    AutoCrit -> Flesh
+    BarrelCrit{} -> Metal
+    LampCrit{} -> Glass