Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
only rate subs if significant. still very much need correct fall+damage esp given different knocks.
authornemo
Fri, 03 May 2013 07:52:57 -0400
changeset 8951 95dd846caf5d
parent 8950 3bf81ed1f984
child 8952 a6ee1e7310fb
only rate subs if significant. still very much need correct fall+damage esp given different knocks.
hedgewars/uAIMisc.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/uAIMisc.pas	Fri May 03 07:28:08 2013 -0400
+++ b/hedgewars/uAIMisc.pas	Fri May 03 07:52:57 2013 -0400
@@ -428,7 +428,7 @@
 end;
 
 function RealRateExplosion(Me: PGear; x, y, r: LongInt; Flags: LongWord): LongInt;
-var i, fallDmg, dmg, dmgBase, rate, erasure: LongInt;
+var i, fallDmg, dmg, dmgBase, rate, subrate, erasure: LongInt;
     pX, pY, dX, dY: real;
     hadSkips: boolean;
 begin
@@ -488,7 +488,10 @@
                         dead:= true;
                         Targets.reset:= true;
                         if dX < 0.035 then
-                            inc(Rate,RealRateExplosion(Me, round(pX), round(pY), 61, afErasesLand or (Flags and afTrackFall)));
+                            begin
+                            subrate:= RealRateExplosion(Me, round(pX), round(pY), 61, afErasesLand or (Flags and afTrackFall));
+                            if abs(subrate) > 2000 then inc(Rate,subrate)
+                            end;
                         if Score > 0 then
                              inc(rate, KillScore * 1024 + (dmg + fallDmg)) // tiny bonus for dealing more damage than needed to kill
                         else dec(rate, KillScore * friendlyfactor div 100 * 1024)
@@ -506,8 +509,9 @@
                     dead:= true;
                     Targets.reset:= true;
                     if Kind = gtExplosives then
-                         inc(Rate,RealRateExplosion(Me, round(pX), round(pY), 151, afErasesLand or (Flags and afTrackFall)))
-                    else inc(Rate,RealRateExplosion(Me, round(pX), round(pY), 101, afErasesLand or (Flags and afTrackFall)))
+                         subrate:= RealRateExplosion(Me, round(pX), round(pY), 151, afErasesLand or (Flags and afTrackFall))
+                    else subrate:= RealRateExplosion(Me, round(pX), round(pY), 101, afErasesLand or (Flags and afTrackFall));
+                    if abs(subrate) > 2000 then inc(Rate,subrate);
                     end
                 end
             end;
@@ -519,7 +523,7 @@
 end;
 
 function RateShove(Me: PGear; x, y, r, power, kick: LongInt; gdX, gdY: real; Flags: LongWord): LongInt;
-var i, fallDmg, dmg, rate: LongInt;
+var i, fallDmg, dmg, rate, subrate: LongInt;
     dX, dY, pX, pY: real;
 begin
 fallDmg:= 0;
@@ -557,7 +561,10 @@
                     dead:= true;
                     Targets.reset:= true;
                     if dX < 0.035 then
-                        inc(Rate,RealRateExplosion(Me, round(pX), round(pY), 61, afErasesLand or (Flags and afTrackFall)) div 1024);
+                        begin
+                        subrate:= RealRateExplosion(Me, round(pX), round(pY), 61, afErasesLand or afTrackFall);
+                        if abs(subrate) > 2000 then inc(Rate,subrate div 1024)
+                        end;
                     if Score > 0 then
                         inc(rate, KillScore)
                     else
@@ -577,8 +584,9 @@
                 dead:= true;
                 Targets.reset:= true;
                 if Kind = gtExplosives then
-                     inc(Rate,RealRateExplosion(Me, round(pX), round(pY), 151, afErasesLand or (Flags and afTrackFall)) div 1024)
-                else inc(Rate,RealRateExplosion(Me, round(pX), round(pY), 101, afErasesLand or (Flags and afTrackFall)) div 1024)
+                     subrate:= RealRateExplosion(Me, round(pX), round(pY), 151, afErasesLand or (Flags and afTrackFall))
+                else subrate:= RealRateExplosion(Me, round(pX), round(pY), 101, afErasesLand or (Flags and afTrackFall));
+                if abs(subrate) > 2000 then inc(Rate,subrate div 1024);
                 end
             end
         end;
@@ -586,7 +594,7 @@
 end;
 
 function RateShotgun(Me: PGear; gdX, gdY: real; x, y: LongInt): LongInt;
-var i, dmg, fallDmg, baseDmg, rate, erasure: LongInt;
+var i, dmg, fallDmg, baseDmg, rate, subrate, erasure: LongInt;
     pX, pY, dX, dY: real;
     hadSkips: boolean;
 begin
@@ -648,7 +656,10 @@
                         dead:= true;
                         Targets.reset:= true;
                         if dX < 0.035 then
-                            inc(Rate,RealRateExplosion(Me, round(pX), round(pY), 61, afErasesLand or afTrackFall) div 1024);
+                            begin
+                            subrate:= RealRateExplosion(Me, round(pX), round(pY), 61, afErasesLand or afTrackFall);
+                            if abs(subrate) > 2000 then inc(Rate,subrate div 1024)
+                            end;
                         if Score > 0 then
                             inc(rate, KillScore)
                         else
@@ -664,8 +675,9 @@
                     dead:= true;
                     Targets.reset:= true;
                     if Kind = gtExplosives then
-                         inc(Rate,RealRateExplosion(Me, round(pX), round(pY), 151, afErasesLand or afTrackFall) div 1024)
-                    else inc(Rate,RealRateExplosion(Me, round(pX), round(pY), 101, afErasesLand or afTrackFall) div 1024)
+                         subrate:= RealRateExplosion(Me, round(pX), round(pY), 151, afErasesLand or afTrackFall)
+                    else subrate:= RealRateExplosion(Me, round(pX), round(pY), 101, afErasesLand or afTrackFall);
+                    if abs(subrate) > 2000 then inc(Rate,subrate div 1024);
                     end
                 end
             end;
hedgewars