diff -r 3331b30e4ef1 -r 88fde28bbda6 hedgewars/uAILandMarks.pas --- 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);