--- a/hedgewars/uAI.pas	Thu Jul 30 09:35:09 2009 +0000
+++ b/hedgewars/uAI.pas	Thu Jul 30 17:32:46 2009 +0000
@@ -48,10 +48,7 @@
 with CurrentHedgehog^ do
      if Gear <> nil then
         if BotLevel <> 0 then
-           begin
-           if (Gear^.Message and gm_Left) <> 0 then ParseCommand('-left', true);
-           if (Gear^.Message and gm_Right) <> 0 then ParseCommand('-right', true);
-           end;
+           StopMessages(Gear^.Message);
 
 BestActions.Count:= 0;
 BestActions.Pos:= 0