hedgewars-draft: comparison hedgewars/uAIAmmoTests.pas

equal deleted inserted replaced

-:dcd248e04f3d
+:ed789a7ef68d
 function TestBazooka(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 var Vx, Vy, r: hwFloat;
 rTime: LongInt;
 Score, EX, EY: LongInt;
-Result: LongInt;
+valueResult: LongInt;
 function CheckTrace: LongInt;
 var x, y, dX, dY: hwFloat;
 t: LongInt;
-Result: LongInt;
+value: LongInt;
 begin
 x:= Me^.X;
 y:= Me^.Y;
 dX:= Vx;
 dY:= -Vy;
 dY:= dY + cGravity;
 dec(t)
 until TestCollExcludingMe(Me, hwRound(x), hwRound(y), 5) or (t <= 0);
 EX:= hwRound(x);
 EY:= hwRound(y);
-Result:= RateExplosion(Me, EX, EY, 101);
+value:= RateExplosion(Me, EX, EY, 101);
-if Result = 0 then Result:= - Metric(Targ.X, Targ.Y, EX, EY) div 64;
+if value = 0 then value:= - Metric(Targ.X, Targ.Y, EX, EY) div 64;
-CheckTrace:= Result
+CheckTrace:= value;
 end;
 begin
 ap.Time:= 0;
 rTime:= 350;
 ap.ExplR:= 0;
-Result:= BadTurn;
+valueResult:= BadTurn;
 repeat
 rTime:= rTime + 300 + Level * 50 + random(300);
 Vx:= - cWindSpeed * rTime * _0_5 + (int2hwFloat(Targ.X + AIrndSign(2)) - Me^.X) / int2hwFloat(rTime);
 Vy:= cGravity * rTime * _0_5 - (int2hwFloat(Targ.Y) - Me^.Y) / int2hwFloat(rTime);
 r:= Distance(Vx, Vy);
 if not (r > _1) then
 begin
 Score:= CheckTrace;
-if Result <= Score then
+if valueResult <= Score then
 begin
 ap.Angle:= DxDy2AttackAngle(Vx, Vy) + AIrndSign(random((Level - 1) * 9));
 ap.Power:= hwRound(r * cMaxPower) - random((Level - 1) * 17 + 1);
 ap.ExplR:= 100;
 ap.ExplX:= EX;
 ap.ExplY:= EY;
-Result:= Score
+valueResult:= Score
 end;
 end
 until (rTime > 4250);
-TestBazooka:= Result
+TestBazooka:= valueResult
 end;
 function TestGrenade(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 const tDelta = 24;
 var Vx, Vy, r: hwFloat;
-Score, EX, EY, Result: LongInt;
+Score, EX, EY, valueResult: LongInt;
 TestTime: Longword;
 function CheckTrace: LongInt;
 var x, y, dY: hwFloat;
 t: LongInt;
 if t < 50 then CheckTrace:= RateExplosion(Me, EX, EY, 101)
 else CheckTrace:= BadTurn
 end;
 begin
-Result:= BadTurn;
+valueResult:= BadTurn;
 TestTime:= 0;
 ap.ExplR:= 0;
 repeat
 inc(TestTime, 1000);
 Vx:= (int2hwFloat(Targ.X) - Me^.X) / int2hwFloat(TestTime + tDelta);
 Vy:= cGravity * ((TestTime + tDelta) div 2) - (int2hwFloat(Targ.Y) - Me^.Y) / int2hwFloat(TestTime + tDelta);
 r:= Distance(Vx, Vy);
 if not (r > _1) then
 begin
 Score:= CheckTrace;
-if Result < Score then
+if valueResult < Score then
 begin
 ap.Angle:= DxDy2AttackAngle(Vx, Vy) + AIrndSign(random(Level));
 ap.Power:= hwRound(r * cMaxPower) + AIrndSign(random(Level) * 15);
 ap.Time:= TestTime;
 ap.ExplR:= 100;
 ap.ExplX:= EX;
 ap.ExplY:= EY;
-Result:= Score
+valueResult:= Score
 end;
 end
 until (TestTime = 4000);
-TestGrenade:= Result
+TestGrenade:= valueResult
 end;
 function TestMortar(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 const tDelta = 24;
 var Vx, Vy: hwFloat;
-Score, EX, EY, Result: LongInt;
+Score, EX, EY, valueResult: LongInt;
 TestTime: Longword;
 	function CheckTrace: LongInt;
 	var x, y, dY: hwFloat;
-		Result: LongInt;
+		value: LongInt;
 	begin
 		x:= Me^.X;
 		y:= Me^.Y;
 		dY:= -Vy;
 			EY:= hwRound(y);
 		until TestCollExcludingMe(Me, EX, EY, 5) or (EY > 1000);
 		if (EY < 1000) and not dY.isNegative then
 			begin
-			Result:= RateExplosion(Me, EX, EY, 91);
+			value:= RateExplosion(Me, EX, EY, 91);
-			if (Result = 0) then
+			if (value = 0) then
 				if (dY > _0_15) then
-					Result:= - abs(Targ.Y - EY) div 32
+					value:= - abs(Targ.Y - EY) div 32
 				else
-					Result:= BadTurn
+					value:= BadTurn
-			else if (Result < 0) then Result:= BadTurn
+			else if (value < 0) then value:= BadTurn
 			end
 		else
-			Result:= BadTurn;
+			value:= BadTurn;
-		CheckTrace:= Result
+		CheckTrace:= value;
 	end;
 	function Solve: LongWord;
 	var A, B, D, T: hwFloat;
 		C: LongInt;
 			Solve:= hwRound(T)
 			end else Solve:= 0
 	end;
 begin
-Result:= BadTurn;
+valueResult:= BadTurn;
 ap.ExplR:= 0;
 if (Level > 2) then exit(BadTurn);
 TestTime:= Solve;
 	Vx:= (int2hwFloat(Targ.X) - Me^.X) / int2hwFloat(TestTime);
 	Vy:= cGravity * (TestTime div 2) - (int2hwFloat(Targ.Y) - Me^.Y) / int2hwFloat(TestTime);
 	Score:= CheckTrace;
-	if Result < Score then
+	if valueResult < Score then
 		begin
 		ap.Angle:= DxDy2AttackAngle(Vx, Vy) + AIrndSign(random(Level));
 		ap.Power:= 1;
 		ap.ExplR:= 100;
 		ap.ExplX:= EX;
 		ap.ExplY:= EY;
-		Result:= Score
+		valueResult:= Score
 		end;
-TestMortar:= Result
+TestMortar:= valueResult;
 end;
 function TestShotgun(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 const
 MIN_RANGE =  80;
 MAX_RANGE = 400;
 var Vx, Vy, x, y: hwFloat;
-rx, ry, Result: LongInt;
+rx, ry, valueResult: LongInt;
 range: integer;
 begin
 ap.ExplR:= 0;
 ap.Time:= 0;
 ap.Power:= 1;
 ry:= hwRound(y);
 if TestCollExcludingMe(Me, rx, ry, 2) then
 begin
 x:= x + vX * 8;
 y:= y + vY * 8;
-Result:= RateShotgun(Me, rx, ry) * 2;
+valueResult:= RateShotgun(Me, rx, ry) * 2;
-if Result = 0 then Result:= - Metric(Targ.X, Targ.Y, rx, ry) div 64
+if valueResult = 0 then valueResult:= - Metric(Targ.X, Targ.Y, rx, ry) div 64
-else dec(Result, Level * 4000);
+else dec(valueResult, Level * 4000);
-exit(Result)
+exit(valueResult)
 end
 until (Abs(Targ.X - hwRound(x)) + Abs(Targ.Y - hwRound(y)) < 4) or (x.isNegative) or (y.isNegative) or (x.Round > LAND_WIDTH) or (y.Round > LAND_HEIGHT);
 TestShotgun:= BadTurn
 end;
 function TestDesertEagle(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 var Vx, Vy, x, y, t: hwFloat;
 d: Longword;
-Result: LongInt;
+valueResult: LongInt;
 begin
 ap.ExplR:= 0;
 ap.Time:= 0;
 ap.Power:= 1;
 if Abs(hwRound(Me^.X) - Targ.X) + Abs(hwRound(Me^.Y) - Targ.Y) < 80 then
 y:= y + vY;
 if ((hwRound(x) and LAND_WIDTH_MASK) = 0)and((hwRound(y) and LAND_HEIGHT_MASK) = 0)
 and (Land[hwRound(y), hwRound(x)] <> 0) then inc(d);
 until (Abs(Targ.X - hwRound(x)) + Abs(Targ.Y - hwRound(y)) < 4) or (x.isNegative) or (y.isNegative) or (x.Round > LAND_WIDTH) or (y.Round > LAND_HEIGHT) or (d > 200);
-if Abs(Targ.X - hwRound(x)) + Abs(Targ.Y - hwRound(y)) < 3 then Result:= max(0, (4 - d div 50) * 7 * 1024)
+if Abs(Targ.X - hwRound(x)) + Abs(Targ.Y - hwRound(y)) < 3 then valueResult:= max(0, (4 - d div 50) * 7 * 1024)
-else Result:= BadTurn;
+else valueResult:= BadTurn;
-TestDesertEagle:= Result
+TestDesertEagle:= valueResult
 end;
 function TestBaseballBat(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
-var Result: LongInt;
+var valueResult: LongInt;
 begin
 ap.ExplR:= 0;
 if (Level > 2) or (Abs(hwRound(Me^.X) - Targ.X) + Abs(hwRound(Me^.Y) - Targ.Y) > 25) then
 exit(BadTurn);
 ap.Time:= 0;
 ap.Power:= 1;
 if (Targ.X) - hwRound(Me^.X) >= 0 then ap.Angle:=   cMaxAngle div 4
 else ap.Angle:= - cMaxAngle div 4;
-Result:= RateShove(Me, hwRound(Me^.X) + 10 * hwSign(int2hwFloat(Targ.X) - Me^.X), hwRound(Me^.Y), 15, 30);
+valueResult:= RateShove(Me, hwRound(Me^.X) + 10 * hwSign(int2hwFloat(Targ.X) - Me^.X), hwRound(Me^.Y), 15, 30);
-if Result <= 0 then Result:= BadTurn else inc(Result);
+if valueResult <= 0 then valueResult:= BadTurn else inc(valueResult);
-TestBaseballBat:= Result
+TestBaseballBat:= valueResult;
 end;
 function TestFirePunch(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
-var i, Result: LongInt;
+var i, valueResult: LongInt;
 begin
 ap.ExplR:= 0;
 ap.Time:= 0;
 ap.Power:= 1;
 ap.Angle:= 0;
 if (Abs(hwRound(Me^.X) - Targ.X) > 25)
 or (Abs(hwRound(Me^.Y) - 50 - Targ.Y) > 50) then
 	begin
 	if TestColl(hwRound(Me^.Y), hwRound(Me^.Y) - 16, 6)
 	and (RateShove(Me, hwRound(Me^.X) + 10 * hwSign(Me^.dX), hwRound(Me^.Y) - 40, 30, 30) = 0) then
-		Result:= Succ(BadTurn)
+		valueResult:= Succ(BadTurn)
 	else
-		Result:= BadTurn;
+		valueResult:= BadTurn;
-	exit(Result)
+	exit(valueResult)
 	end;
-Result:= 0;
+valueResult:= 0;
 for i:= 0 to 4 do
-	Result:= Result + RateShove(Me, hwRound(Me^.X) + 10 * hwSign(int2hwFloat(Targ.X) - Me^.X),
+	valueResult:= valueResult + RateShove(Me, hwRound(Me^.X) + 10 * hwSign(int2hwFloat(Targ.X) - Me^.X),
 hwRound(Me^.Y) - 20 * i - 5, 10, 30);
-if Result <= 0 then
+if valueResult <= 0 then
-	Result:= BadTurn
+	valueResult:= BadTurn
 else
-	inc(Result);
+	inc(valueResult);
-TestFirePunch:= Result
+TestFirePunch:= valueResult;
 end;
 function TestAirAttack(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 const cShift = 4;
 var X, Y, dY: hwFloat;
 b: array[0..9] of boolean;
 dmg: array[0..9] of LongInt;
 fexit: boolean;
-i, t, Result: LongInt;
+i, t, valueResult: LongInt;
 begin
 ap.ExplR:= 0;
 ap.Time:= 0;
 if (Level > 3) then exit(BadTurn);
 for i:= 0 to 9 do
 begin
 b[i]:= true;
 dmg[i]:= 0
 end;
-Result:= 0;
+valueResult:= 0;
 repeat
 X:= X + cBombsSpeed;
 Y:= Y + dY;
 dY:= dY + cGravity;
 // 58 (instead of 60) for better prediction (hh moves after explosion of one of the rockets)
 end
 end;
 until fexit or (Y > _1024);
-for i:= 0 to 5 do inc(Result, dmg[i]);
+for i:= 0 to 5 do inc(valueResult, dmg[i]);
-t:= Result;
+t:= valueResult;
 ap.AttackPutX:= Targ.X - 60;
 for i:= 0 to 3 do
 begin
 dec(t, dmg[i]);
 inc(t, dmg[i + 6]);
-if t > Result then
+if t > valueResult then
 begin
-Result:= t;
+valueResult:= t;
 ap.AttackPutX:= Targ.X - 30 - cShift + i * 30
 end
 end;
-if Result <= 0 then Result:= BadTurn;
+if valueResult <= 0 then valueResult:= BadTurn;
-TestAirAttack:= Result
+TestAirAttack:= valueResult;
 end;
 end.

changeset 2695	ed789a7ef68d
parent 2630	079ef82eac75
child 2948	3f21a9dc93d0