Add more debug info for selected creatures

2023-04-30 13:55:54 +01:00
parent 5b1212e4f6
commit 08e71e5451
17 changed files with 116 additions and 50 deletions
@@ -197,8 +197,8 @@ targetYouWhenCognizant w cr = case cr ^? crPerception . cpAwareness . ix 0 of

 searchIfDamaged :: Creature -> Creature
 searchIfDamaged cr
-    | _crPastDamage cr > 0 = case _apStrategy (_crActionPlan cr) of
-        WatchAndWait ->
+    | _crPastDamage cr > 0 && 
+        _apStrategy (_crActionPlan cr) == WatchAndWait =
            cr & crPerception . cpVigilance .~ Vigilant
                & crActionPlan . apStrategy
                    .~ StrategyActions
@@ -206,7 +206,6 @@ searchIfDamaged cr
                        [ TurnToPoint (_crPos cr -.- unitVectorAtAngle (_crDir cr))
                            `DoActionThen` 40 `WaitThen` bfsThenReturn 500
                        ]
-        _ -> cr
    | otherwise = cr

 bfsThenReturn :: Int -> Action