Add action to perform on pathing failure

2026-04-03 15:45:16 +01:00
parent 2d1cf4b371
commit d15fbc902c
4 changed files with 16 additions and 15 deletions
@@ -67,7 +67,7 @@ data Action
        { _targetID :: Int
        , _targetSeenAt :: Point2
        }
-    | PathTo { _pathToPoint :: Point2 }
+    | PathTo { _pathToPoint :: Point2, _pathFailAction :: Action }
    | TurnToPoint { _turnToPoint :: Point2 }
    | ImpulsesList { _impulsesListList :: [[Impulse]] }
    | DoImpulses { _doImpulsesList :: [Impulse] }
@@ -136,6 +136,7 @@ data Strategy
    | Investigate
    | WarningCry
    | LookAround
+    | Wander
    | CloseToMelee {_meleeTarget :: Int}
    | StrategyActions Strategy [Action]
    | GetTo Point2