Continue ai refactor

2021-05-06 14:07:51 +02:00
parent 75c36e2c95
commit 436043b169
12 changed files with 94 additions and 35 deletions
@@ -17,6 +17,7 @@ import Dodge.Creature.YourControl
 import Dodge.Creature.Inanimate
 import Dodge.Creature.State
 import Dodge.Creature.Picture
+import Dodge.Creature.Rationality
 import Dodge.Item
 import Dodge.Picture.Layer
 import Dodge.Creature.Picture
@@ -65,6 +66,17 @@ smallChaseCrit = defaultCreature
    }
 chaseCrit :: Creature
 chaseCrit = defaultCreature
+    { _crUpdate = stateUpdate $ impulsiveAI $ applyBasicImpulse
+    , _crHP = 300
+    , _crPict = basicCrPict green
+    , _crState = defaultState 
+        {_goals = [[Wait]]
+        ,_faction = ChaseCritters
+        }
+    , _crInv = IM.empty 
+    }
+chaseCrit' :: Creature
+chaseCrit' = defaultCreature
    { _crUpdate = stateUpdate chaseAI
    , _crHP = 300
    , _crPict = basicCrPict green