--- a/hedgewars/uAILandMarks.pas	Sun Oct 28 04:00:07 2012 +0100
+++ b/hedgewars/uAILandMarks.pas	Sun Oct 28 04:28:39 2012 +0100
@@ -10,6 +10,7 @@
 function  checkMark(X, Y: LongInt; mark: byte) : boolean;
 procedure clearAllMarks;
 procedure clearMarks(mark: byte);
+procedure setAILandMarks;
 
 procedure initModule;
 procedure freeModule;
@@ -57,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;
@@ -66,6 +66,10 @@
     SetLength(marks, HEIGHT, WIDTH);
 end;
 
+procedure initModule;
+begin
+end;
+
 procedure freeModule;
 begin
     SetLength(marks, 0, 0);