Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uAIMisc.pas
changeset 6396 71dd6b8494e5
parent 6347 27931e3ceff8
child 6474 42e9773eedfd 
--- a/hedgewars/uAIMisc.pas	Fri Nov 18 15:05:32 2011 +0400
+++ b/hedgewars/uAIMisc.pas	Fri Nov 18 12:47:40 2011 -0500
@@ -143,11 +143,11 @@
 // avoid mines unless they are very likely to be duds, or are duds. also avoid if they are about to blow 
           gtMine:  if ((Gear^.State and gstAttacking) = 0) and 
                       (((cMineDudPercent < 90) and (Gear^.Health <> 0)) or
-                       ((Gear^.Health = 0) and (Gear^.Damage > 30))) then
+                       (isAfterAttack and (Gear^.Health = 0) and (Gear^.Damage > 30))) then
                           AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -50)
                       else if (Gear^.State and gstAttacking) <> 0 then
                           AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 100, -50); // mine is on
-          gtExplosives: AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 75, -60+Gear^.Health);
+          gtExplosives: if isAfterAttack then AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 75, -60+Gear^.Health);
           gtSMine:    AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -30);
           gtDynamite: AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 150, -75);
           gtHedgehog: begin
hedgewars