hedgewars/uAIAmmoTests.pas
changeset 4359 83ef50815535
parent 4357 a1fcfc341a52
child 4367 f4a0ec067601
equal deleted inserted replaced
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;