sheepy-clone: comparison hedgewars/uAIAmmoTests.pas

equal deleted inserted replaced

-:d24257910f8d
+:aaefa587e277
 {$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;
 (proc: @TestHammer;      flags: amtest_NoTarget), // amHammer
 (proc: nil;              flags: 0), // amResurrector
 (proc: nil;              flags: 0), // amDrillStrike
 (proc: nil;              flags: 0), // amSnowball
 (proc: nil;              flags: 0), // amTardis
-(proc: nil;              flags: 0), // amStructure
+//(proc: nil;              flags: 0), // amStructure
 (proc: nil;              flags: 0), // amLandGun
 (proc: nil;              flags: 0), // amIceGun
 (proc: nil;              flags: 0)  // amKnife
 );
 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, 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, trunc(x), trunc(y), 5))) or (y > cWaterLine);
 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, 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, 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, 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));
 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, 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));
 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, 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, 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, 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

branch	webgl
changeset 8330	aaefa587e277
parent 8096	453917e94e55
parent 8161	0b8beacff8a5
child 8444	75db7bb8dce8