hedgewars/uAI.pas
changeset 2605 a40a7c90ffd8
parent 2599 c7153d2348f3
child 2608 cebfea02f8b5
equal deleted inserted replaced
2604:ae5b19308e79 2605:a40a7c90ffd8
   196 
   196 
   197 if (Me^.State and gstAttacked) = 0 then TestAmmos(Actions, Me, false);
   197 if (Me^.State and gstAttacked) = 0 then TestAmmos(Actions, Me, false);
   198 BestRate:= RatePlace(Me);
   198 BestRate:= RatePlace(Me);
   199 BaseRate:= max(BestRate, 0);
   199 BaseRate:= max(BestRate, 0);
   200 
   200 
   201 while (Stack.Count > 0) and not StopThinking do
   201 while (Stack.Count > 0) and (not StopThinking) and (GameFlags and gfArtillery = 0) do
   202     begin
   202     begin
   203     Pop(ticks, Actions, Me^);
   203     Pop(ticks, Actions, Me^);
   204 
   204 
   205     AddAction(Actions, Me^.Message, aim_push, 250, 0, 0);
   205     AddAction(Actions, Me^.Message, aim_push, 250, 0, 0);
   206     if (Me^.Message and gm_Left) <> 0 then AddAction(Actions, aia_WaitXL, hwRound(Me^.X), 0, 0, 0)
   206     if (Me^.Message and gm_Left) <> 0 then AddAction(Actions, aia_WaitXL, hwRound(Me^.X), 0, 0, 0)