hedgewars/uAIAmmoTests.pas
changeset 5150 63ad8a648afd
parent 5024 1e332947147c
child 5151 cbadb9fa52fc
equal deleted inserted replaced
5148:73b3b4b8359c 5150:63ad8a648afd
   113 const BadTurn = Low(LongInt) div 4;
   113 const BadTurn = Low(LongInt) div 4;
   114 
   114 
   115 implementation
   115 implementation
   116 uses uAIMisc, uVariables, uUtils;
   116 uses uAIMisc, uVariables, uUtils;
   117 
   117 
   118 function Metric(x1, y1, x2, y2: LongInt): LongInt;
   118 function Metric(x1, y1, x2, y2: LongInt): LongInt; inline;
   119 begin
   119 begin
   120 Metric:= abs(x1 - x2) + abs(y1 - y2)
   120 Metric:= abs(x1 - x2) + abs(y1 - y2)
   121 end;
   121 end;
   122 
   122 
   123 function TestBazooka(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
   123 function TestBazooka(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;