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 3018 13ceaad4767e
parent 2948 3f21a9dc93d0
child 3038 4e48c276a468 
--- a/hedgewars/uAIMisc.pas	Thu Mar 18 02:27:46 2010 +0000
+++ b/hedgewars/uAIMisc.pas	Thu Mar 18 02:55:42 2010 +0000
@@ -136,6 +136,8 @@
     begin
     case Gear^.Kind of
         gtCase: AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 33, 25);
+        gtFlame: if (Gear^.State and gsttmpFlag) <> 0 then
+                AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 20, -50);
         gtMine: if (Gear^.State and gstAttacking) = 0 then
                 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -50)
             else
hedgewars