Work on connecting pathfinding grid

2022-07-09 12:36:17 +01:00
parent 9c352e4a83
commit fb66a45495
11 changed files with 16 additions and 32 deletions
@@ -181,7 +181,7 @@ searchIfDamaged cr
    | _crPastDamage cr > 0 = case _apStrategy (_crActionPlan cr) of
        WatchAndWait -> cr & crPerception . cpVigilance .~ Vigilant
            & crActionPlan . apStrategy .~ StrategyActions LookAround 
-                [(TurnToPoint (_crPos cr -.- unitVectorAtAngle (_crDir cr)))
+                [TurnToPoint (_crPos cr -.- unitVectorAtAngle (_crDir cr))
                `DoActionThen` 40 `WaitThen` bfsThenReturn 500
                ]
        _ -> cr