diff -r 4598c21bb421 -r a7e1dabc8fb7 hedgewars/uAI.pas
--- a/hedgewars/uAI.pas	Sat Feb 10 13:14:41 2007 +0000
+++ b/hedgewars/uAI.pas	Sat Feb 10 15:07:35 2007 +0000
@@ -163,7 +163,7 @@
            and ((steps mod 4) = 0) then
            begin
            TestAmmos(Actions, Me);
-           if SDL_GetTicks - AIThinkStart >= cTimerInterval then
+           if SDL_GetTicks - AIThinkStart >= Pred(cTimerInterval) then
               begin
               dec(Actions.Count, 3);
               Push(ticks, Actions, Me^, Me^.Message);