| changeset 4367 | f4a0ec067601 |
| parent 4359 | 83ef50815535 |
| child 4374 | bcefeeabaa33 |
| 4365:4f2b1a152979 | 4367:f4a0ec067601 |
|---|---|
106 ); |
106 ); |
107 |
107 |
108 const BadTurn = Low(LongInt) div 4; |
108 const BadTurn = Low(LongInt) div 4; |
109 |
109 |
110 implementation |
110 implementation |
111 uses uMisc, uAIMisc, uLand, uVariables; |
111 uses uMisc, uAIMisc, uVariables; |
112 |
112 |
113 function Metric(x1, y1, x2, y2: LongInt): LongInt; |
113 function Metric(x1, y1, x2, y2: LongInt): LongInt; |
114 begin |
114 begin |
115 Metric:= abs(x1 - x2) + abs(y1 - y2) |
115 Metric:= abs(x1 - x2) + abs(y1 - y2) |
116 end; |
116 end; |