hedgewars: comparison hedgewars/uAIAmmoTests.pas

equal deleted inserted replaced

-:31ca6451056a
+:975232e840c7
 amtest_NoTrackFall     = $00000008; // skip fall tracing.
 amtest_LaserSight      = $00000010; // supports laser sighting
 amtest_NoVampiric      = $00000020; // don't use vampirism with this ammo
 amtest_NoInvulnerable  = $00000040; // don't use invulnerable with this with ammo
-var windSpeed: real;
+var aiWindSpeed: real;
 aiLaserSighting: boolean;
 type TAttackParams = record
 Time, Bounce, AttacksNum: Longword;
 Angle, Power: LongInt;
 else targXWrap:= Targ.Point.X - (RightX-LeftX);
 valueResult:= BadTurn;
 repeat
 rTime:= rTime + 300 + Level * 50 + random(300);
 if (WorldEdge = weWrap) and (random(2)=0) then
-Vx:= - windSpeed * rTime * 0.5 + (targXWrap + AIrndSign(2) + AIrndOffset(Targ, Level) - mX) / rTime
+Vx:= - aiWindSpeed * rTime * 0.5 + (targXWrap + AIrndSign(2) + AIrndOffset(Targ, Level) - mX) / rTime
-else Vx:= - windSpeed * rTime * 0.5 + (Targ.Point.X + AIrndSign(2) + AIrndOffset(Targ, Level) - mX) / rTime;
+else Vx:= - aiWindSpeed * rTime * 0.5 + (Targ.Point.X + AIrndSign(2) + AIrndOffset(Targ, Level) - mX) / rTime;
 Vy:= cGravityf * rTime * 0.5 - (Targ.Point.Y + 1 - mY) / rTime;
 r:= sqr(Vx) + sqr(Vy);
 if not (r > 1) then
 begin
 x:= mX;
 repeat
 x:= CheckWrap(x);
 x:= x + dX;
 y:= y + dY;
-dX:= dX + windSpeed;
+dX:= dX + aiWindSpeed;
 //dX:= CheckBounce(x,dX);
 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 < -cExtraTime);
 else targXWrap:= Targ.Point.X - (RightX-LeftX);
 timer:= 0;
 repeat
 rTime:= rTime + 300 + Level * 50 + random(300);
 if (WorldEdge = weWrap) and (random(2)=0) then
-Vx:= - windSpeed * rTime * 0.5 + (targXWrap + AIrndSign(2) - mX) / rTime
+Vx:= - aiWindSpeed * rTime * 0.5 + (targXWrap + AIrndSign(2) - mX) / rTime
-else Vx:= - windSpeed * rTime * 0.5 + (Targ.Point.X + AIrndSign(2) - mX) / rTime;
+else Vx:= - aiWindSpeed * rTime * 0.5 + (Targ.Point.X + AIrndSign(2) - mX) / rTime;
 Vy:= cGravityf * rTime * 0.5 - (Targ.Point.Y - 35 - mY) / rTime;
 r:= sqr(Vx) + sqr(Vy);
 if not (r > 1) then
 begin
 x:= mX;
 t:= rTime;
 repeat
 x:= CheckWrap(x);
 x:= x + dX;
 y:= y + dY;
-dX:= dX + windSpeed;
+dX:= dX + aiWindSpeed;
 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);
 exit(BadTurn);
 // If impact location is close, above us and wind blows in our direction,
 // there's a risk of fire flying towards us, so fail in this case.
 if (Level < 3) and (range <= 600) and (meY >= ry) and
-(((ap.Angle < 0) and (windSpeed > 0)) or ((ap.Angle > 0) and (windSpeed < 0))) then
+(((ap.Angle < 0) and (aiWindSpeed > 0)) or ((ap.Angle > 0) and (aiWindSpeed < 0))) then
 exit(BadTurn);
 // Apply inaccuracy
 if (not aiLaserSighting) then
 inc(ap.Angle, AIrndSign(random((Level - 1) * 9)));
 targXWrap:= Targ.Point.X + (RightX-LeftX)
 else targXWrap:= Targ.Point.X - (RightX-LeftX);
 repeat
 rTime:= rTime + 300 + Level * 50 + random(1000);
 if (WorldEdge = weWrap) and (random(2)=0) then
-Vx:= - windSpeed * rTime * 0.5 + ((targXWrap + AIrndSign(2)) - meX) / rTime
+Vx:= - aiWindSpeed * rTime * 0.5 + ((targXWrap + AIrndSign(2)) - meX) / rTime
-else Vx:= - windSpeed * rTime * 0.5 + ((Targ.Point.X + AIrndSign(2)) - meX) / rTime;
+else Vx:= - aiWindSpeed * rTime * 0.5 + ((Targ.Point.X + AIrndSign(2)) - meX) / rTime;
 Vy:= cGravityf * rTime * 0.5 - (Targ.Point.Y - meY) / rTime;
 r:= sqr(Vx) + sqr(Vy);
 if not (r > 1) then
 begin
 x:= meX;
 t:= rTime;
 repeat
 x:= CheckWrap(x);
 x:= x + dX;
 y:= y + dY;
-dX:= dX + windSpeed;
+dX:= dX + aiWindSpeed;
 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);
 if (WorldEdge = weWrap) and (random(2)=0) then
 Vx:= (targXWrap + AIrndSign(2) + AIrndOffset(Targ, Level) - meX) / rTime
 else
 Vx:= (Targ.Point.X + AIrndSign(2) + AIrndOffset(Targ, Level) - meX) / rTime;
 if (GameFlags and gfMoreWind) <> 0 then
-Vx:= -(windSpeed / Density) * rTime * 0.5 + Vx;
+Vx:= -(aiWindSpeed / Density) * rTime * 0.5 + Vx;
 Vy:= cGravityf * rTime * 0.5 - (Targ.Point.Y + 1 - meY) / rTime;
 r:= sqr(Vx) + sqr(Vy);
 if not (r > 1) then
 begin
 t:= rTime;
 repeat
 x:= CheckWrap(x);
 x:= x + dX;
 if (GameFlags and gfMoreWind) <> 0 then
-dX:= dX + windSpeed / Density;
+dX:= dX + aiWindSpeed / Density;
 y:= y + dY;
 dY:= dY + cGravityf;
 dec(t)
 until (((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 5)) or
 exit(BadTurn);
 // Sanity check 2: If impact location is close, above us and wind blows
 // towards us, there's a risk of fire flying towards us, so fail in this case.
 if (Level < 3) and (range <= 600) and (trunc(meY) >= EX) and
-(((ap.Angle < 0) and (windSpeed > 0)) or ((ap.Angle > 0) and (windSpeed < 0))) then
+(((ap.Angle < 0) and (aiWindSpeed > 0)) or ((ap.Angle > 0) and (aiWindSpeed < 0))) then
 exit(BadTurn);
 if t >= -timeLimit then
 value:= RateExplosion(Me, EX, EY, 97) // average of 17 attempts, most good, but some failing spectacularly
 else
 if (WorldEdge = weWrap) and (random(2)=0) then
 Vx:= (targXWrap + AIrndOffset(Targ, Level) - meX) / (TestTime + tDelta)
 else
 Vx:= (Targ.Point.X + AIrndOffset(Targ, Level) - meX) / (TestTime + tDelta);
 if (GameFlags and gfMoreWind) <> 0 then
-Vx:= -(windSpeed / Density) * (TestTime + tDelta) * 0.5 + Vx;
+Vx:= -(aiWindSpeed / Density) * (TestTime + tDelta) * 0.5 + Vx;
 Vy:= cGravityf * ((TestTime + tDelta) div 2) - (Targ.Point.Y - meY) / (TestTime + tDelta);
 r:= sqr(Vx) + sqr(Vy);
 if not (r > 1) then
 begin
 x:= meX;
 t:= TestTime;
 repeat
 x:= CheckWrap(x);
 x:= x + dX;
 if (GameFlags and gfMoreWind) <> 0 then
-dX:= dX + windSpeed / Density;
+dX:= dX + aiWindSpeed / Density;
 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);
 meX:= hwFloat2Float(Me^.X);
 meY:= hwFloat2Float(Me^.Y);
 repeat
 inc(TestTime, 900);
 if (GameFlags and gfMoreWind) <> 0 then
-Vx:= (-(windSpeed / Density) * (TestTime + tDelta) * 0.5) + ((Targ.Point.X - meX) / (TestTime + tDelta))
+Vx:= (-(aiWindSpeed / Density) * (TestTime + tDelta) * 0.5) + ((Targ.Point.X - meX) / (TestTime + tDelta))
 // Try to overshoot slightly, seems to pay slightly better dividends in terms of hitting cluster
 else if meX<Targ.Point.X then
 Vx:= ((Targ.Point.X+10) - meX) / (TestTime + tDelta)
 else
 Vx:= ((Targ.Point.X-10) - meX) / (TestTime + tDelta);
 dY:= -Vy;
 t:= TestTime;
 repeat
 x:= x + dX;
 if (GameFlags and gfMoreWind) <> 0 then
-dX:= dX + windSpeed / Density;
+dX:= dX + aiWindSpeed / Density;
 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);
 if (WorldEdge = weWrap) and (random(2)=0) then
 Vx:= (targXWrap - meX) / (TestTime + tDelta)
 else
 Vx:= (Targ.Point.X - meX) / (TestTime + tDelta);
 if (GameFlags and gfMoreWind) <> 0 then
-Vx:= -(windSpeed / Density) * (TestTime + tDelta) * 0.5 + Vx;
+Vx:= -(aiWindSpeed / Density) * (TestTime + tDelta) * 0.5 + Vx;
 Vy:= cGravityf * ((TestTime + tDelta) div 2) - ((Targ.Point.Y-50) - meY) / (TestTime + tDelta);
 r:= sqr(Vx)+sqr(Vy);
 if not (r > 1) then
 begin
 t:= TestTime;
 repeat
 x:= CheckWrap(x);
 x:= x + dX;
 if (GameFlags and gfMoreWind) <> 0 then
-dX:= dX + windSpeed / Density;
+dX:= dX + aiWindSpeed / Density;
 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);
 if TestTime = 0 then
 exit(BadTurn);
 Vx:= (Targ.Point.X - meX) / TestTime;
 if (GameFlags and gfMoreWind) <> 0 then
-Vx:= -(windSpeed / Density) * TestTime * 0.5 + Vx;
+Vx:= -(aiWindSpeed / Density) * TestTime * 0.5 + Vx;
 Vy:= cGravityf * (TestTime div 2) - (Targ.Point.Y - meY) / TestTime;
 x:= meX;
 dX:= Vx;
 y:= meY;
 dY:= -Vy;
 repeat
 x:= x + dX;
 if (GameFlags and gfMoreWind) <> 0 then
-dX:= dX + windSpeed / Density;
+dX:= dX + aiWindSpeed / Density;
 y:= y + dY;
 dY:= dY + cGravityf;
 EX:= trunc(x);
 EY:= trunc(y);
 until (((Me = CurrentHedgehog^.Gear) and TestColl(EX, EY, 4)) or
 firstHit:= false;
 repeat
 X:= X + dX;
 if (GameFlags and gfMoreWind) <> 0 then
-dX:= dX + windSpeed / Density;
+dX:= dX + aiWindSpeed / Density;
 Y:= Y + dY;
 dY:= dY + cGravityf;
 fexit:= true;
 for i:= 0 to 9 do
 repeat
 // Simulate in-air movement
 drillX:= drillX + dX;
 drillY:= drillY + dY;
 if (GameFlags and gfMoreWind) <> 0 then
-dX:= dX + windSpeed / Density;
+dX:= dX + aiWindSpeed / Density;
 dY:= dY + cGravityf;
 if timerRuns then
 dec(drillTimer);
 firstHit:= false;
 repeat
 X:= X + dX;
 if (GameFlags and (gfMoreWind or gfInfAttack)) <> 0 then
-dX:= dX + windSpeed / Density;
+dX:= dX + aiWindSpeed / Density;
 Y:= Y + dY;
 dY:= dY + cGravityf;
 fexit:= true;
 for i:= 0 to 9 do
 if (WorldEdge = weWrap) and (random(2)=0) then
 Vx:= (targXWrap + AIrndSign(2) + AIrndOffset(Targ, Level) - meX) / rTime
 else
 Vx:= (Targ.Point.X + AIrndSign(2) + AIrndOffset(Targ, Level) - meX) / rTime;
 if (GameFlags and gfMoreWind) <> 0 then
-Vx:= -(windSpeed / Density) * rTime * 0.5 + Vx;
+Vx:= -(aiWindSpeed / Density) * rTime * 0.5 + Vx;
 Vy:= cGravityf * rTime * 0.5 - (Targ.Point.Y + 1 - meY) / rTime;
 r:= sqr(Vx) + sqr(Vy);
 if not (r > 1) then
 begin
 t:= rTime;
 repeat
 x:= CheckWrap(x);
 x:= x + dX;
 if (GameFlags and gfMoreWind) <> 0 then
-dX:= dX + windSpeed / Density;
+dX:= dX + aiWindSpeed / Density;
 y:= y + dY;
 dY:= dY + cGravityf;
 dec(t)
 until (((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 2)) or
 x:= hwFloat2Float(Me^.X) + hwSign(Me^.dX) * 7;
 y:= hwFloat2Float(Me^.Y);
 dx:= hwSign(Me^.dX) * 0.03;
 if (GameFlags and gfMoreWind) <> 0 then
-dx:= -(windSpeed / Density) + dx;
+dx:= -(aiWindSpeed / Density) + dx;
 dy:= 0;
 t:= 5000;
 repeat
 dec(t);
 if (GameFlags and gfMoreWind) <> 0 then
-dx:= dx + windSpeed / Density;
+dx:= dx + aiWindSpeed / Density;
 x:= x + dx;
 dy:= dy + cGravityf;
 y:= y + dy;
 if TestColl(trunc(x), trunc(y), 3) then
 x:= hwFloat2Float(Me^.X) + hwSign(Me^.dX) * 7;
 y:= hwFloat2Float(Me^.Y);
 dx:= hwSign(Me^.dX) * 0.02;
 if (GameFlags and gfMoreWind) <> 0 then
-dx:= -(windSpeed / Density) + dx;
+dx:= -(aiWindSpeed / Density) + dx;
 dy:= 0;
 t:= 10000;
 repeat
 dec(t);
 if (GameFlags and gfMoreWind) <> 0 then
-dx:= dx + windSpeed / Density;
+dx:= dx + aiWindSpeed / Density;
 x:= x + dx;
 dy:= dy + cGravityf;
 y:= y + dy;
 if ((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 2)) or
 ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, trunc(x), trunc(y), 2)) then
 if (WorldEdge = weWrap) and (random(2)=0) then
 Vx:= (targXWrap - meX) / rTime
 else
 Vx:= (Targ.Point.X - meX) / rTime;
 if (GameFlags and gfMoreWind) <> 0 then
-Vx:= -(windSpeed / Density) * rTime * 0.5 + Vx;
+Vx:= -(aiWindSpeed / Density) * rTime * 0.5 + Vx;
 Vy:= cGravityf * rTime * 0.5 - (Targ.Point.Y + 1 - meY) / rTime;
 r:= sqr(Vx) + sqr(Vy);
 if not (r > 1) then
 begin
 t:= rTime;
 repeat
 x:= CheckWrap(x);
 x:= x + dX;
 if (GameFlags and gfMoreWind) <> 0 then
-dX:= dX + windSpeed / Density;
+dX:= dX + aiWindSpeed / Density;
 y:= y + dY;
 dY:= dY + cGravityf;
 dec(t)
 until (((Me = CurrentHedgehog^.Gear) and TestColl(trunc(x), trunc(y), 7)) or

changeset 15689	975232e840c7
parent 15687	326b024a24e3
child 15690	c4d7eb75fd8a