From aa219acf8da98616c1cc533b2d5f4d8b46b73bed Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Fri, 6 Jun 2025 08:46:52 +0100
Subject: [PATCH] Add file

---
 src/Dodge/Creature/Shape.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/Dodge/Creature/Shape.hs

diff --git a/src/Dodge/Creature/Shape.hs b/src/Dodge/Creature/Shape.hs
new file mode 100644
index 000000000..2d779c68b
--- /dev/null
+++ b/src/Dodge/Creature/Shape.hs
@@ -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