diff -r 4feced261c68 -r de822cd3df3a hedgewars/uAILandMarks.pas --- a/hedgewars/uAILandMarks.pas Tue Jan 21 22:38:13 2014 +0100 +++ b/hedgewars/uAILandMarks.pas Tue Jan 21 22:43:06 2014 +0100 @@ -1,7 +1,7 @@ unit uAILandMarks; interface -const +const markWalkedHere = $01; markHJumped = $02; markLJumped = $04; @@ -35,13 +35,13 @@ function checkMark(X, Y: LongInt; mark: byte) : boolean; begin - checkMark:= ((X and LAND_WIDTH_MASK) = 0) - and ((Y and LAND_HEIGHT_MASK) = 0) + checkMark:= ((X and LAND_WIDTH_MASK) = 0) + and ((Y and LAND_HEIGHT_MASK) = 0) and ((marks[Y shr gr, X shr gr] and mark) <> 0) end; procedure clearAllMarks; -var +var Y, X: Longword; begin for Y:= 0 to Pred(HEIGHT) do @@ -50,7 +50,7 @@ end; procedure clearMarks(mark: byte); -var +var Y, X: Longword; begin for Y:= 0 to Pred(HEIGHT) do @@ -62,7 +62,7 @@ begin WIDTH:= LAND_WIDTH shr gr; HEIGHT:= LAND_HEIGHT shr gr; - + SetLength(marks, HEIGHT, WIDTH); end;