Move towards a simplified creature update

2021-12-09 18:16:31 +00:00
parent e1a9327c06
commit bd94044445
14 changed files with 50 additions and 39 deletions
@@ -3,6 +3,7 @@ module Dodge.Creature.ChaseCrit
    ,chaseCrit
    ) where
 import Dodge.Data
+import Dodge.RemoveCreatureEndo
 import Dodge.Default
 import Dodge.Creature.Picture
 import Dodge.Creature.ReaderUpdate
@@ -33,7 +34,7 @@ smallChaseCrit = chaseCrit
    }
 chaseCrit :: Creature
 chaseCrit = defaultCreature
-    { _crUpdate = stateUpdate $ --dummyUpdate
+    { _crUpdate = toCrUpdate $ stateUpdate $ --dummyUpdate
        impulsiveAIR $ 
        doStrategyActionsR >=>
        performActionsR >=>