| changeset 4359 | 83ef50815535 |
| parent 4357 | a1fcfc341a52 |
| child 4367 | f4a0ec067601 |
| 4357:a1fcfc341a52 | 4359:83ef50815535 |
|---|---|
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; |
111 uses uMisc, uAIMisc, uLand, 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; |