AI is bazooka genius
authorunc0rr
Sun, 18 Nov 2018 16:57:43 +0100
changeset 14247 545b85c0f2e3
parent 14246 9c5ada6431eb
child 14248 1d678dee55d1
AI is bazooka genius
hedgewars/uAI.pas
hedgewars/uAIAmmoTests.pas
--- a/hedgewars/uAI.pas	Sun Nov 18 16:10:18 2018 +0100
+++ b/hedgewars/uAI.pas	Sun Nov 18 16:57:43 2018 +0100
@@ -254,7 +254,7 @@
 const FallPixForBranching = cHHRadius;
 var
     ticks, maxticks, oldticks, steps, tmp: Longword;
-    BaseRate, BestRate, Rate: integer;
+    BaseRate, BestRate, Rate: LongInt;
     GoInfo: TGoInfo;
     CanGo: boolean;
     AltMe: TGear;
--- a/hedgewars/uAIAmmoTests.pas	Sun Nov 18 16:10:18 2018 +0100
+++ b/hedgewars/uAIAmmoTests.pas	Sun Nov 18 16:57:43 2018 +0100
@@ -137,6 +137,7 @@
 end;
 
 function TestBazooka(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams): LongInt;
+const cExtraTime = 300;
 var Vx, Vy, r, mX, mY: real;
     rTime: LongInt;
     EX, EY: LongInt;
@@ -179,22 +180,25 @@
             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);
+               ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, trunc(x), trunc(y), 5))) or (t < -cExtraTime);
 
         EX:= trunc(x);
         EY:= trunc(y);
-        if (((Me = CurrentHedgehog^.Gear) and TestColl(EX, EY, 3)) or
-               ((Me <> CurrentHedgehog^.Gear) and TestCollExcludingMe(Me^.Hedgehog^.Gear, EX, EY, 3))) then
-			begin
-			if Level = 1 then
-				 value:= RateExplosion(Me, EX, EY, 101, afTrackFall or afErasesLand)
-			else value:= RateExplosion(Me, EX, EY, 101);
-			end;
+        if t >= -cExtraTime then
+            begin
+                if Level = 1 then
+                    value:= RateExplosion(Me, EX, EY, 101, afTrackFall or afErasesLand)
+                else
+                    value:= RateExplosion(Me, EX, EY, 101);
+            end else
+                value:= BadTurn;
+
         if (value = 0) and (Targ.Kind = gtHedgehog) and (Targ.Score > 0) then
             if GameFlags and gfSolidLand = 0 then
                  value := 1024 - Metric(Targ.Point.X, Targ.Point.Y, EX, EY) div 64
             else value := BadTurn;
-        if valueResult <= value then
+
+        if (valueResult < value) or (valueResult = value and Level < 3) then
             begin
             ap.Angle:= DxDy2AttackAnglef(Vx, Vy) + AIrndSign(random((Level - 1) * 9));
             ap.Power:= trunc(sqrt(r) * cMaxPower) - random((Level - 1) * 17 + 1);
@@ -204,7 +208,6 @@
             valueResult:= value
             end;
         end
-//until (value > 204800) or (rTime > 4250); not so useful since adding score to the drowning
 until rTime > 5050 - Level * 800;
 TestBazooka:= valueResult
 end;