teach AI about sticky mines
authornemo
Sat, 20 Aug 2011 14:00:51 -0400
changeset 5604 d81727c49617
parent 5602 c89b81817ee4
child 5606 75916086afa3
teach AI about sticky mines
hedgewars/uAIMisc.pas
--- a/hedgewars/uAIMisc.pas	Fri Aug 19 17:25:30 2011 +0400
+++ b/hedgewars/uAIMisc.pas	Sat Aug 20 14:00:51 2011 -0400
@@ -146,6 +146,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
+          gtSMine:    AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -30);
           gtDynamite: AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 150, -75);
           gtHedgehog: begin
                       if Gear^.Damage >= Gear^.Health then