hedgewars/uAI.pas
changeset 425 a7e1dabc8fb7
parent 393 db01cc79f278
child 433 9f8f22094c0e
equal deleted inserted replaced
424:4598c21bb421 425:a7e1dabc8fb7
   161 
   161 
   162        if ((Me^.State and gstAttacked) = 0)
   162        if ((Me^.State and gstAttacked) = 0)
   163            and ((steps mod 4) = 0) then
   163            and ((steps mod 4) = 0) then
   164            begin
   164            begin
   165            TestAmmos(Actions, Me);
   165            TestAmmos(Actions, Me);
   166            if SDL_GetTicks - AIThinkStart >= cTimerInterval then
   166            if SDL_GetTicks - AIThinkStart >= Pred(cTimerInterval) then
   167               begin
   167               begin
   168               dec(Actions.Count, 3);
   168               dec(Actions.Count, 3);
   169               Push(ticks, Actions, Me^, Me^.Message);
   169               Push(ticks, Actions, Me^, Me^.Message);
   170               exit
   170               exit
   171               end
   171               end