hedgewars: comparison hedgewars/uAIAmmoTests.pas

equal deleted inserted replaced

-:f52c6f9800ca
+:19be64b0f36e
 {$INCLUDE "options.inc"}
 unit uAIAmmoTests;
 interface
 uses SDLh, uConsts, uFloat, uTypes;
 const
 amtest_Rare     = $00000001; // check only several positions
 amtest_NoTarget = $00000002; // each pos, but no targetting
 var windSpeed: real;
 x:= x + dX;
 y:= y + dY;
 dX:= dX + windSpeed;
 dY:= dY + cGravityf;
 dec(t)
 until (((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 5)) or
 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, trunc(x), trunc(y), 5))) or (t <= 0);
 EX:= trunc(x);
 EY:= trunc(y);
 if Level = 1 then
 value:= RateExplosion(Me, EX, EY, 101, afTrackFall or afErasesLand)
 else value:= RateExplosion(Me, EX, EY, 101);
 x:= x + dX;
 y:= y + dY;
 dX:= dX + windSpeed;
 dY:= dY + cGravityf;
 dec(t)
 until (((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 5)) or
 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, trunc(x), trunc(y), 5))) or (y > cWaterLine);
 if TestCollExcludingObjects(trunc(x), trunc(y), 5) and (Abs(Targ.X - trunc(x)) + Abs(Targ.Y - trunc(y)) > 21) then
 begin
 timer := 500;
 x:= x + dX;
 y:= y + dY;
 dX:= dX + windSpeed;
 dY:= dY + cGravityf;
 dec(t)
 until (((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 5)) or
 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, trunc(x), trunc(y), 5))) or (t <= 0);
 EX:= trunc(x);
 EY:= trunc(y);
 value:= RateShove(trunc(x), trunc(y), 5, 1, trunc((abs(dX)+abs(dY))*20), -dX, -dY, afTrackFall);
 repeat
 x:= x + Vx;
 y:= y + dY;
 dY:= dY + cGravityf;
 dec(t)
 until (((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 6)) or
 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, trunc(x), trunc(y), 6))) or (t = 0);
 EX:= trunc(x);
 EY:= trunc(y);
 if t < 50 then
 Score:= RateExplosion(Me, EX, EY, 97)  // average of 17 attempts, most good, but some failing spectacularly
 else
 Score:= BadTurn;
 if valueResult < Score then
 begin
 ap.Angle:= DxDy2AttackAnglef(Vx, Vy) + AIrndSign(random(Level));
 ap.Power:= trunc(sqrt(r) * cMaxPower) + AIrndSign(random(Level) * 15);
 ap.ExplR:= 100;
 Vy:= cGravityf * ((TestTime + tDelta) div 2) - (Targ.Y - meY) / (TestTime + tDelta);
 r:= sqr(Vx) + sqr(Vy);
 if not (r > 1) then
 begin
 x:= meX;
 y:= meY;
 dY:= -Vy;
 t:= TestTime;
 repeat
 x:= x + Vx;
 y:= y + dY;
 dY:= dY + cGravityf;
 dec(t)
 until (((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 5)) or
 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, trunc(x), trunc(y), 5))) or (t = 0);
 EX:= trunc(x);
 EY:= trunc(y);
 if t < 50 then
 if Level = 1 then
 Score:= RateExplosion(Me, EX, EY, 101, afTrackFall or afErasesLand)
 else Score:= RateExplosion(Me, EX, EY, 101)
 else
 Score:= BadTurn;
 if (valueResult < Score) and (Score > 0) then
 begin
 ap.Angle:= DxDy2AttackAnglef(Vx, Vy) + AIrndSign(random(Level * 3));
 repeat
 x:= x + Vx;
 y:= y + dY;
 dY:= dY + cGravityf;
 dec(t)
 until (((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 5)) or
 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, trunc(x), trunc(y), 5))) or (t = 0);
 EX:= trunc(x);
 EY:= trunc(y);
 if t < 50 then
 Score:= RateExplosion(Me, EX, EY, 41)
 else
 Score:= BadTurn;
 if valueResult < Score then
 begin
 ap.Angle:= DxDy2AttackAnglef(Vx, Vy) + AIrndSign(random(Level * 2));
 repeat
 x:= x + Vx;
 y:= y + dY;
 dY:= dY + cGravityf;
 dec(t)
 until (((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 6)) or
 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, trunc(x), trunc(y), 6))) or (t = 0);
 EX:= trunc(x);
 EY:= trunc(y);
 if t < 50 then
 Score:= RateExplosion(Me, EX, EY, 200) + RateExplosion(Me, EX, EY + 120, 200)
 else
 Score:= BadTurn;
 if valueResult < Score then
 begin
 ap.Angle:= DxDy2AttackAnglef(Vx, Vy) + AIrndSign(random(Level));
 ap.Power:= trunc(sqrt(r) * cMaxPower) + AIrndSign(random(Level) * 15);
 ap.Time:= TestTime div 1000 * 1000;
 Solve:= trunc(T)
 end
 else
 Solve:= 0
 end;
 function TestMortar(Me: PGear; Targ: TPoint; Level: LongInt; var ap: TAttackParams): LongInt;
 //const tDelta = 24;
 var Vx, Vy: real;
 Score, EX, EY: LongInt;
 TestTime: Longword;
 x:= x + Vx;
 y:= y + dY;
 dY:= dY + cGravityf;
 EX:= trunc(x);
 EY:= trunc(y);
 until (((Me = CurrentHedgehog^.Gear) and TestColl(EX, EY, 4)) or
 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, EX, EY, 4))) or (EY > cWaterLine);
 if (EY < cWaterLine) and (dY >= 0) then
 begin
 Score:= RateExplosion(Me, EX, EY, 91);
 repeat
 x:= x + vX;
 y:= y + vY;
 rx:= trunc(x);
 ry:= trunc(y);
 if ((Me = CurrentHedgehog^.Gear) and TestColl(rx, ry, 2)) or
 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, rx, ry, 2)) then
 begin
 x:= x + vX * 8;
 y:= y + vY * 8;
 valueResult:= RateShotgun(Me, vX, vY, rx, ry);
 if valueResult = 0 then
 valueResult:= 1024 - Metric(Targ.X, Targ.Y, rx, ry) div 64
 else
 dec(valueResult, Level * 4000);
 // 27/20 is reuse bonus
 exit(valueResult * 27 div 20)
 end
 until (Abs(Targ.X - trunc(x)) + Abs(Targ.Y - trunc(y)) < 4)
 if Abs(Targ.X - trunc(x)) + Abs(Targ.Y - trunc(y)) < 4 then
 begin
 fallDmg:= TraceShoveFall(Targ.X, Targ.Y, vX * 0.00166 * dmg, vY * 0.00166 * dmg);
 if fallDmg < 0 then
 TestSniperRifle:= BadTurn
 else
 TestSniperRifle:= Max(0, trunc((dmg + fallDmg) * dmgMod) * 1024)
 end
 else
 TestSniperRifle:= BadTurn
 end;
 , -dx, -dy, trackFall);
 v2:= RateShove(x + 10, y + 2
 , 32, 30, 115
 , dx, -dy, trackFall);
 if (v1 > valueResult) or (v2 > valueResult) then
 if (v2 > v1)
 or {don't encourage turning for no gain}((v2 = v1) and (not Me^.dX.isNegative)) then
 begin
 ap.Angle:= a;
 valueResult:= v2
 end
 else
 begin
 ap.Angle:= -a;
 valueResult:= v1
 end;
 a:= a - 15 - random(cMaxAngle div 16)
 end;
 if valueResult <= 0 then
 valueResult:= BadTurn;
 TestBaseballBat:= valueResult;
 end;
 end;
 v2:= v2 + RateShove(x + 5, y - 90
 , 19, 30, 40
 , 0.45, -0.9, trackFall);
 if (v2 > v1)
 or {don't encourage turning for no gain}((v2 = v1) and (not Me^.dX.isNegative)) then
 begin
 ap.Angle:= 1;
 valueResult:= v2
 end
 else
 begin
 ap.Angle:= -1;
 valueResult:= v1
 end;
 if valueResult <= 0 then
 valueResult:= BadTurn;
 TestFirePunch:= valueResult;
 end;
 ap.Power:= 1;
 x:= hwRound(Me^.X);
 y:= hwRound(Me^.Y);
 // check left direction
 {first RateShove checks farthermost of two whip's AmmoShove attacks
 to encourage distant attacks (damaged hog is excluded from view of second
 RateShove call)}
 v1:= RateShove(x - 13, y
 , 30, 30, 25
 , -1, -0.8, trackFall or afSetSkip);
 v1:= v1 +
 v2:= v2 +
 RateShove(x + 2, y
 , 30, 30, 25
 , 1, -0.8, trackFall);
 if (v2 > v1)
 or {don't encourage turning for no gain}((v2 = v1) and (not Me^.dX.isNegative)) then
 begin
 ap.Angle:= 1;
 valueResult:= v2
 end
 else
 begin
 ap.Angle:= -1;
 valueResult:= v1
 end;
 if valueResult <= 0 then
 valueResult:= BadTurn
 else
 inc(valueResult);
 begin
 ap.ExplR:= 0;
 ap.Time:= 0;
 ap.Power:= 1;
 if Level = 1 then
 trackFall:= afTrackFall
 else if Level = 2 then
 trackFall:= 0
 else
 exit(BadTurn);
 valueResult:= 0;
 v:= 0;
 x:= hwFloat2Float(Me^.X);
 y:= hwFloat2Float(Me^.Y);
 dx:= (Targ.X - x) * t;
 dy:= (Targ.Y - y) * t;
 ap.Angle:= DxDy2AttackAnglef(dx, -dy)
 end;
 if dx >= 0 then cx:= 0.45 else cx:= -0.45;
 for i:= 0 to 512 div step - 2 do
 begin
 valueResult:= valueResult +
 RateShove(trunc(x), trunc(y)
 , 30, 30, 25
 , cx, -0.9, trackFall or afSetSkip);
 x:= x + dx;
 y:= y + dy;
 end;
 if dx = 0 then
 begin
 , 30, 30, 25
 , -cx, -0.9, trackFall);
 for i:= 1 to 512 div step - 2 do
 begin
 y:= y + dy;
 v:= v +
 RateShove(tx, trunc(y)
 , 30, 30, 25
 , -cx, -0.9, trackFall or afSetSkip);
 end
 end;
 ap.ExplR:= 0;
 ap.Time:= 0;
 ap.Power:= 1;
 ap.Angle:= 0;
 rate:= RateHammer(Me);
 if rate = 0 then
 rate:= BadTurn;
 TestHammer:= rate;
 end;
 if bonuses.Count = 0 then
 begin
 if Me^.Health <= 100  then
 begin
 maxTop := Targ.Y - cHHRadius * 2;
 while not TestColl(Targ.X, maxTop, cHHRadius) and (maxTop > topY + cHHRadius * 2 + 1) do
 dec(maxTop, cHHRadius*2);
 if not TestColl(Targ.X, maxTop + cHHRadius, cHHRadius) then
 begin
 ap.AttackPutX := Targ.X;
 repeat
 i := random(bonuses.Count);
 inc(failNum);
 until not TestColl(bonuses.ar[i].X, bonuses.ar[i].Y - cHHRadius - bonuses.ar[i].Radius, cHHRadius)
 or (failNum = bonuses.Count*2);
 if failNum < bonuses.Count*2 then
 begin
 ap.AttackPutX := bonuses.ar[i].X;
 ap.AttackPutY := bonuses.ar[i].Y - cHHRadius - bonuses.ar[i].Radius;
 TestTeleport := 0;
 for i:= 0 to 2040 do
 begin
 cakeStep(Gear);
 v:= RateExplosion(Me, hwRound(Gear^.X), hwRound(Gear^.Y), cakeDmg * 2, afTrackFall);
 if v > ap.Power then
 begin
 ap.ExplX:= hwRound(Gear^.X);
 ap.ExplY:= hwRound(Gear^.Y);
 ap.Power:= v
 end

changeset 8933	19be64b0f36e
parent 8924	13ac59499066
child 8950	3bf81ed1f984