hedgewars/uAIMisc.pas
changeset 6347 27931e3ceff8
parent 6081 537bbd5c1a62
child 6396 71dd6b8494e5
--- a/hedgewars/uAIMisc.pas	Sun Nov 13 09:51:01 2011 -0500
+++ b/hedgewars/uAIMisc.pas	Sun Nov 13 10:34:35 2011 -0500
@@ -147,6 +147,7 @@
                           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);
           gtSMine:    AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -30);
           gtDynamite: AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 150, -75);
           gtHedgehog: begin