hedgewars/uAIAmmoTests.pas
changeset 1001 502508979713
parent 998 65792c4e6f01
child 1024 a6942122c31d
equal deleted inserted replaced
1000:e7b204880318 1001:502508979713
   190 TestGrenade:= Result
   190 TestGrenade:= Result
   191 end;
   191 end;
   192 
   192 
   193 function TestMortar(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
   193 function TestMortar(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
   194 const tDelta = 24;
   194 const tDelta = 24;
   195 var Vx, Vy, r: hwFloat;
   195 var Vx, Vy: hwFloat;
   196     Score, EX, EY, Result: LongInt;
   196     Score, EX, EY, Result: LongInt;
   197     TestTime: Longword;
   197     TestTime: Longword;
   198 
   198 
   199 	function CheckTrace: LongInt;
   199 	function CheckTrace: LongInt;
   200 	var x, y, dY: hwFloat;
   200 	var x, y, dY: hwFloat;