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.LauncherCrit
    )
    where
 import Dodge.Data
+import Dodge.RemoveCreatureEndo
 import Dodge.Default
 import Dodge.Creature.Picture
 import Dodge.Creature.Test
@@ -24,7 +25,7 @@ import Control.Monad.Reader
 launcherCrit :: Creature
 launcherCrit = defaultCreature
    { _crPict = basicCrPict red
-    , _crUpdate = stateUpdate $ impulsiveAIR $
+    , _crUpdate = toCrUpdate $ stateUpdate $ impulsiveAIR $
        performActionsR
        >=> watchUpdateStratR
            [ (crHasTargetLOS, \_ _ -> StrategyActions (ShootAt 0) [retreatFire])