hedgewars/uAI.pas
changeset 3894 9abce5468583
parent 3836 833c0f32e326
child 4197 dad127904958
equal deleted inserted replaced
3892:60d9709f2d8e 3894:9abce5468583
   210 while (Stack.Count > 0) and (not StopThinking) and (GameFlags and gfArtillery = 0) do
   210 while (Stack.Count > 0) and (not StopThinking) and (GameFlags and gfArtillery = 0) do
   211     begin
   211     begin
   212     Pop(ticks, Actions, Me^);
   212     Pop(ticks, Actions, Me^);
   213 
   213 
   214     AddAction(Actions, Me^.Message, aim_push, 250, 0, 0);
   214     AddAction(Actions, Me^.Message, aim_push, 250, 0, 0);
   215     if (Me^.Message and gm_Left) <> 0 then AddAction(Actions, aia_WaitXL, hwRound(Me^.X), 0, 0, 0)
   215     if (Me^.Message and gmLeft) <> 0 then AddAction(Actions, aia_WaitXL, hwRound(Me^.X), 0, 0, 0)
   216                                       else AddAction(Actions, aia_WaitXR, hwRound(Me^.X), 0, 0, 0);
   216                                       else AddAction(Actions, aia_WaitXR, hwRound(Me^.X), 0, 0, 0);
   217     steps:= 0;
   217     steps:= 0;
   218 
   218 
   219     while (not StopThinking) and (not PosInThinkStack(Me)) do
   219     while (not StopThinking) and (not PosInThinkStack(Me)) do
   220        begin
   220        begin