equal
deleted
inserted
replaced
1 unit uAILandMarks; |
1 unit uAILandMarks; |
2 |
2 |
3 interface |
3 interface |
4 const markWasHere = $01; |
4 const |
|
5 markWalkedHere = $01; |
|
6 markHJumped = $02; |
|
7 markLJumped = $04; |
5 |
8 |
6 procedure addMark(X, Y: LongInt; mark: byte); |
9 procedure addMark(X, Y: LongInt; mark: byte); |
7 function checkMark(X, Y: LongInt; mark: byte) : boolean; |
10 function checkMark(X, Y: LongInt; mark: byte) : boolean; |
8 procedure clearAllMarks; |
11 procedure clearAllMarks; |
9 procedure clearMarks(mark: byte); |
12 procedure clearMarks(mark: byte); |