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
@@ -1,8 +1,8 @@
 module Dodge.Creature.ArmourChase
    ( armourChaseCrit
-    )
-    where
+    ) where
 import Dodge.Data
+import Dodge.RemoveCreatureEndo
 import Dodge.Default
 import Dodge.Creature.State
 import Dodge.Creature.ReaderUpdate
@@ -20,7 +20,7 @@ import Control.Monad.Reader

 armourChaseCrit :: Creature
 armourChaseCrit = defaultCreature
-    { _crUpdate = stateUpdate $ impulsiveAIR $ 
+    { _crUpdate = toCrUpdate $ stateUpdate $ impulsiveAIR $ 
        watchUpdateStratR [] >=>
        doStrategyActionsR >=>
        performActionsR >=>