Add file

2025-06-06 08:46:52 +01:00
parent 4ae7c6ebd6
commit aa219acf8d
1 changed files with 16 additions and 0 deletions
@@ -0,0 +1,16 @@
+{-# LANGUAGE LambdaCase #-}
+
+module Dodge.Creature.Shape (crShape) where
+
+import Color
+import Dodge.Data.Creature.Misc
+
+crShape :: CreatureType -> CreatureShape
+crShape = \case
+    Avatar{} -> Humanoid (greyN 0.9) (lightx4 black) (greyN 0.3) InanimateAI
+    ChaseCrit -> Humanoid (greyN 0.9) (lightx4 green) (greyN 0.3) ChaseAI
+    SwarmCrit -> Humanoid (greyN 0.9) (lightx4 yellow) (greyN 0.3) SwarmAI
+    AutoCrit -> Humanoid (greyN 0.9) (lightx4 red) (greyN 0.3) AutoAI
+    AvatarDead -> Humanoid (greyN 0.9) (lightx4 black) (greyN 0.3) InanimateAI
+    BarrelCrit {} -> Barreloid
+    LampCrit {} -> NonDrawnCreature