--- a/hedgewars/uAILandMarks.pas	Sun Oct 21 01:28:33 2012 +0400
+++ b/hedgewars/uAILandMarks.pas	Sat Nov 03 00:34:35 2012 +0400
@@ -1,12 +1,16 @@
 unit uAILandMarks;
 
 interface
-const markWasHere = $01;
+const 
+    markWalkedHere = $01;
+    markHJumped    = $02;
+    markLJumped    = $04;
 
 procedure addMark(X, Y: LongInt; mark: byte);
 function  checkMark(X, Y: LongInt; mark: byte) : boolean;
 procedure clearAllMarks;
 procedure clearMarks(mark: byte);
+procedure setAILandMarks;
 
 procedure initModule;
 procedure freeModule;
@@ -54,8 +58,7 @@
             marks[Y, X]:= marks[Y, X] and (not mark)
 end;
 
-
-procedure initModule;
+procedure setAILandMarks;
 begin
     WIDTH:= LAND_WIDTH shr gr;
     HEIGHT:= LAND_HEIGHT shr gr;
@@ -63,6 +66,10 @@
     SetLength(marks, HEIGHT, WIDTH);
 end;
 
+procedure initModule;
+begin
+end;
+
 procedure freeModule;
 begin
     SetLength(marks, 0, 0);