changeset 3928 | 2560731c860d |
parent 3847 | 771562124b16 |
child 3963 | 6090d2a2472e |
3926:668b71f31e51 | 3928:2560731c860d |
---|---|
104 ); |
104 ); |
105 |
105 |
106 const BadTurn = Low(LongInt) div 4; |
106 const BadTurn = Low(LongInt) div 4; |
107 |
107 |
108 implementation |
108 implementation |
109 uses uMisc, uAIMisc, uLand, uTeams; |
109 uses uMisc, uAIMisc, uLand; |
110 |
110 |
111 function Metric(x1, y1, x2, y2: LongInt): LongInt; |
111 function Metric(x1, y1, x2, y2: LongInt): LongInt; |
112 begin |
112 begin |
113 Metric:= abs(x1 - x2) + abs(y1 - y2) |
113 Metric:= abs(x1 - x2) + abs(y1 - y2) |
114 end; |
114 end; |