From 6e901d30862e405751a4b7354d235109870bdf84 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Wed, 20 Jul 2022 01:28:26 +0100
Subject: [PATCH] Correctly set your control

---
 src/Dodge/Creature.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Dodge/Creature.hs b/src/Dodge/Creature.hs
index 796d176f6..c5ab66d13 100644
--- a/src/Dodge/Creature.hs
+++ b/src/Dodge/Creature.hs
@@ -110,6 +110,7 @@ startCr = defaultCreature
     , _crMvType = MvWalking yourDefaultSpeed
     }
     & crType . skinUpper .~ light4 black
+    & crType . humanoidAI .~ YourAI
 {- | Items you start with.  -}
 startInvList :: [Item]
 startInvList = [ ]