hedgewars: comparison hedgewars/uAIAmmoTests.pas

equal deleted inserted replaced

-:803b277e4894
+:3f21a9dc93d0
 interface
 uses SDLh, uGears, uConsts, uFloat;
 const amtest_OnTurn = $00000001;
 type TAttackParams = record
-			Time: Longword;
+Time: Longword;
-			Angle, Power: LongInt;
+Angle, Power: LongInt;
-			ExplX, ExplY, ExplR: LongInt;
+ExplX, ExplY, ExplR: LongInt;
-			AttackPutX, AttackPutY: LongInt;
+AttackPutX, AttackPutY: LongInt;
-			end;
+end;
 function TestBazooka(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 function TestGrenade(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 function TestMortar(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 function TestShotgun(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 function TestBaseballBat(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 function TestFirePunch(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 function TestAirAttack(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 type TAmmoTestProc = function (Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
-	TAmmoTest = record
+TAmmoTest = record
-			proc: TAmmoTestProc;
+proc: TAmmoTestProc;
-			flags: Longword;
+flags: Longword;
-			end;
+end;
 const AmmoTests: array[TAmmoType] of TAmmoTest =
-			(
+(
-			(proc: nil;              flags: 0), // amNothing
+(proc: nil;              flags: 0), // amNothing
-			(proc: @TestGrenade;     flags: 0), // amGrenade
+(proc: @TestGrenade;     flags: 0), // amGrenade
-			(proc: nil;              flags: 0), // amClusterBomb
+(proc: nil;              flags: 0), // amClusterBomb
-			(proc: @TestBazooka;     flags: 0), // amBazooka
+(proc: @TestBazooka;     flags: 0), // amBazooka
-			(proc: nil;              flags: 0), // amUFO
+(proc: nil;              flags: 0), // amUFO
-			(proc: @TestShotgun;     flags: 0), // amShotgun
+(proc: @TestShotgun;     flags: 0), // amShotgun
-			(proc: nil;              flags: 0), // amPickHammer
+(proc: nil;              flags: 0), // amPickHammer
-			(proc: nil;              flags: 0), // amSkip
+(proc: nil;              flags: 0), // amSkip
-			(proc: nil;              flags: 0), // amRope
+(proc: nil;              flags: 0), // amRope
-			(proc: nil;              flags: 0), // amMine
+(proc: nil;              flags: 0), // amMine
-			(proc: @TestDesertEagle; flags: 0), // amDEagle
+(proc: @TestDesertEagle; flags: 0), // amDEagle
-			(proc: nil;              flags: 0), // amDynamite
+(proc: nil;              flags: 0), // amDynamite
-			(proc: @TestFirePunch;   flags: 0), // amFirePunch
+(proc: @TestFirePunch;   flags: 0), // amFirePunch
-			(proc: nil;              flags: 0), // amWhip
+(proc: nil;              flags: 0), // amWhip
-			(proc: @TestBaseballBat; flags: 0), // amBaseballBat
+(proc: @TestBaseballBat; flags: 0), // amBaseballBat
-			(proc: nil;              flags: 0), // amParachute
+(proc: nil;              flags: 0), // amParachute
-			(proc: @TestAirAttack;   flags: amtest_OnTurn), // amAirAttack
+(proc: @TestAirAttack;   flags: amtest_OnTurn), // amAirAttack
-			(proc: nil;              flags: 0), // amMineStrike
+(proc: nil;              flags: 0), // amMineStrike
-			(proc: nil;              flags: 0), // amBlowTorch
+(proc: nil;              flags: 0), // amBlowTorch
-			(proc: nil;              flags: 0), // amGirder
+(proc: nil;              flags: 0), // amGirder
-			(proc: nil;              flags: amtest_OnTurn), // amTeleport
+(proc: nil;              flags: amtest_OnTurn), // amTeleport
-			(proc: nil;              flags: 0), // amSwitch
+(proc: nil;              flags: 0), // amSwitch
-			(proc: @TestMortar;      flags: 0), // amMortar
+(proc: @TestMortar;      flags: 0), // amMortar
-			(proc: nil;              flags: 0), // amKamikaze
+(proc: nil;              flags: 0), // amKamikaze
-			(proc: nil;              flags: 0), // amCake
+(proc: nil;              flags: 0), // amCake
-			(proc: nil;              flags: 0), // amSeduction
+(proc: nil;              flags: 0), // amSeduction
-			(proc: nil;              flags: 0), // amBanana
+(proc: nil;              flags: 0), // amBanana
-			(proc: nil;              flags: 0), // amHellishBomb
+(proc: nil;              flags: 0), // amHellishBomb
-			(proc: nil;              flags: 0), // amNapalm
+(proc: nil;              flags: 0), // amNapalm
-			(proc: nil;              flags: 0), // amDrill
+(proc: nil;              flags: 0), // amDrill
-			(proc: nil;              flags: 0), // amBallgun
+(proc: nil;              flags: 0), // amBallgun
-			(proc: nil;              flags: 0), // amRCPlane
+(proc: nil;              flags: 0), // amRCPlane
-			(proc: nil;              flags: 0), // amLowGravity
+(proc: nil;              flags: 0), // amLowGravity
-			(proc: nil;              flags: 0), // amExtraDamage
+(proc: nil;              flags: 0), // amExtraDamage
-			(proc: nil;              flags: 0), // amInvulnerable
+(proc: nil;              flags: 0), // amInvulnerable
-			(proc: nil;              flags: 0), // amExtraTime
+(proc: nil;              flags: 0), // amExtraTime
-			(proc: nil;              flags: 0), // amLaserSight
+(proc: nil;              flags: 0), // amLaserSight
-			(proc: nil;              flags: 0), // amVampiric
+(proc: nil;              flags: 0), // amVampiric
-			(proc: nil;              flags: 0), // amSniperRifle
+(proc: nil;              flags: 0), // amSniperRifle
-			(proc: nil;              flags: 0),  // amJetpack
+(proc: nil;              flags: 0),  // amJetpack
-			(proc: nil;              flags: 0)  // amMolotov
+(proc: nil;              flags: 0)  // amMolotov
-			);
+);
 const BadTurn = Low(LongInt) div 4;
 implementation
 uses uMisc, uAIMisc, uLand;
 const tDelta = 24;
 var Vx, Vy: hwFloat;
 Score, EX, EY, valueResult: LongInt;
 TestTime: Longword;
-	function CheckTrace: LongInt;
+function CheckTrace: LongInt;
-	var x, y, dY: hwFloat;
+var x, y, dY: hwFloat;
-		value: LongInt;
+value: LongInt;
-	begin
+begin
-		x:= Me^.X;
+x:= Me^.X;
-		y:= Me^.Y;
+y:= Me^.Y;
-		dY:= -Vy;
+dY:= -Vy;
-		repeat
+repeat
-			x:= x + Vx;
+x:= x + Vx;
-			y:= y + dY;
+y:= y + dY;
-			dY:= dY + cGravity;
+dY:= dY + cGravity;
-			EX:= hwRound(x);
+EX:= hwRound(x);
-			EY:= hwRound(y);
+EY:= hwRound(y);
-		until TestCollExcludingMe(Me, EX, EY, 5) or (EY > 1000);
+until TestCollExcludingMe(Me, EX, EY, 5) or (EY > 1000);
-		if (EY < 1000) and not dY.isNegative then
+if (EY < 1000) and not dY.isNegative then
-			begin
+begin
-			value:= RateExplosion(Me, EX, EY, 91);
+value:= RateExplosion(Me, EX, EY, 91);
-			if (value = 0) then
+if (value = 0) then
-				if (dY > _0_15) then
+if (dY > _0_15) then
-					value:= - abs(Targ.Y - EY) div 32
+value:= - abs(Targ.Y - EY) div 32
-				else
+else
-					value:= BadTurn
+value:= BadTurn
-			else if (value < 0) then value:= BadTurn
+else if (value < 0) then value:= BadTurn
-			end
+end
-		else
+else
-			value:= BadTurn;
+value:= BadTurn;
-		CheckTrace:= value;
+CheckTrace:= value;
-	end;
+end;
-	function Solve: LongWord;
+function Solve: LongWord;
-	var A, B, D, T: hwFloat;
+var A, B, D, T: hwFloat;
-		C: LongInt;
+C: LongInt;
-	begin
+begin
-		A:= hwSqr(cGravity) * _0_25;
+A:= hwSqr(cGravity) * _0_25;
-		B:= - cGravity * (Targ.Y - hwRound(Me^.Y)) - _1;
+B:= - cGravity * (Targ.Y - hwRound(Me^.Y)) - _1;
-		C:= sqr(Targ.Y - hwRound(Me^.Y)) + sqr(Targ.X - hwRound(Me^.X));
+C:= sqr(Targ.Y - hwRound(Me^.Y)) + sqr(Targ.X - hwRound(Me^.X));
-		D:= hwSqr(B) - (A * C * 4);
+D:= hwSqr(B) - (A * C * 4);
-		if D.isNegative = false then
+if D.isNegative = false then
-			begin
+begin
-			D:= ( - B + hwSqrt(D)) * _0_5 / A;
+D:= ( - B + hwSqrt(D)) * _0_5 / A;
-			if D.isNegative = false then
+if D.isNegative = false then
-				T:= hwSqrt(D)
+T:= hwSqrt(D)
-			else
+else
-				T:= _0;
+T:= _0;
-			Solve:= hwRound(T)
+Solve:= hwRound(T)
-			end else Solve:= 0
+end else Solve:= 0
-	end;
+end;
 begin
 valueResult:= BadTurn;
 ap.ExplR:= 0;
 TestTime:= Solve;
 if TestTime = 0 then exit(BadTurn);
-	Vx:= (int2hwFloat(Targ.X) - Me^.X) / int2hwFloat(TestTime);
+Vx:= (int2hwFloat(Targ.X) - Me^.X) / int2hwFloat(TestTime);
-	Vy:= cGravity * (TestTime div 2) - (int2hwFloat(Targ.Y) - Me^.Y) / int2hwFloat(TestTime);
+Vy:= cGravity * (TestTime div 2) - (int2hwFloat(Targ.Y) - Me^.Y) / int2hwFloat(TestTime);
-	Score:= CheckTrace;
+Score:= CheckTrace;
-	if valueResult < Score then
+if valueResult < Score then
-		begin
+begin
-		ap.Angle:= DxDy2AttackAngle(Vx, Vy) + AIrndSign(random(Level));
+ap.Angle:= DxDy2AttackAngle(Vx, Vy) + AIrndSign(random(Level));
-		ap.Power:= 1;
+ap.Power:= 1;
-		ap.ExplR:= 100;
+ap.ExplR:= 100;
-		ap.ExplX:= EX;
+ap.ExplX:= EX;
-		ap.ExplY:= EY;
+ap.ExplY:= EY;
-		valueResult:= Score
+valueResult:= Score
-		end;
+end;
 TestMortar:= valueResult;
 end;
 function TestShotgun(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 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
+begin
-	if TestColl(hwRound(Me^.Y), hwRound(Me^.Y) - 16, 6)
+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
+and (RateShove(Me, hwRound(Me^.X) + 10 * hwSign(Me^.dX), hwRound(Me^.Y) - 40, 30, 30) = 0) then
-		valueResult:= Succ(BadTurn)
+valueResult:= Succ(BadTurn)
-	else
+else
-		valueResult:= BadTurn;
+valueResult:= BadTurn;
-	exit(valueResult)
+exit(valueResult)
-	end;
+end;
 valueResult:= 0;
 for i:= 0 to 4 do
-	valueResult:= valueResult + 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 valueResult <= 0 then
-	valueResult:= BadTurn
+valueResult:= BadTurn
 else
-	inc(valueResult);
+inc(valueResult);
 TestFirePunch:= valueResult;
 end;
 function TestAirAttack(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;

changeset 2948	3f21a9dc93d0
parent 2695	ed789a7ef68d
child 2973	b51a0f57cd43