--- a/hedgewars/uAI.pas	Mon Jul 04 15:35:44 2011 +0200
+++ b/hedgewars/uAI.pas	Tue Jul 05 21:41:48 2011 +0400
@@ -262,6 +262,8 @@
           Push(ticks, Actions, Me^, Me^.Message xor 3); // aia_Left xor 3 = aia_Right
        end;
 
+    ThreadSwitch();
+
     if BestRate > BaseRate then exit
     end
 end;
@@ -279,7 +281,7 @@
       begin
       WalkMe:= BackMe;
       Walk(@WalkMe);
-      if (StartTicks > GameTicks - 1500) and not StopThinking then SDL_Delay(2000);
+      if (StartTicks > GameTicks - 1500) and not StopThinking then SDL_Delay(1000);
       if BestActions.Score < -1023 then
          begin
          addfilelog('AI: best score ' + inttostr(bestactions.score));