--- a/hedgewars/uAI.pas	Fri May 04 19:59:51 2007 +0000
+++ b/hedgewars/uAI.pas	Sat May 05 16:04:55 2007 +0000
@@ -25,7 +25,7 @@
 
 implementation
 uses uTeams, uConsts, SDLh, uAIMisc, uGears, uAIAmmoTests, uAIActions, uMisc,
-     uAmmos, uConsole{$IFDEF UNIX}, cthreads{$ENDIF};
+     uAmmos, uConsole, uCollisions{$IFDEF UNIX}, cthreads{$ENDIF};
 
 var BestActions: TActions;
     ThinkThread: THandle = 0;
@@ -277,6 +277,8 @@
 begin
 if ((Me^.State and (gstAttacking or gstHHJumping or gstFalling or gstMoving)) <> 0)
    or isInMultiShoot then exit;
+
+DeleteCI(Me); // don't let collision info in Land to confuse AI
 Me^.State:= Me^.State or gstHHThinking;
 Me^.Message:= 0;
 StopThinking:= false;