hedgewars/uAIMisc.pas
changeset 5604 d81727c49617
parent 5425 862c194a1a1c
child 5642 0ce9e01bae56
equal deleted inserted replaced
5602:c89b81817ee4 5604:d81727c49617
   144                       (((cMineDudPercent < 90) and (Gear^.Health <> 0)) or
   144                       (((cMineDudPercent < 90) and (Gear^.Health <> 0)) or
   145                        ((Gear^.Health = 0) and (Gear^.Damage > 30))) then
   145                        ((Gear^.Health = 0) and (Gear^.Damage > 30))) then
   146                           AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -50)
   146                           AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -50)
   147                       else if (Gear^.State and gstAttacking) <> 0 then
   147                       else if (Gear^.State and gstAttacking) <> 0 then
   148                           AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 100, -50); // mine is on
   148                           AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 100, -50); // mine is on
       
   149           gtSMine:    AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -30);
   149           gtDynamite: AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 150, -75);
   150           gtDynamite: AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 150, -75);
   150           gtHedgehog: begin
   151           gtHedgehog: begin
   151                       if Gear^.Damage >= Gear^.Health then
   152                       if Gear^.Damage >= Gear^.Health then
   152                           AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 60, -25)
   153                           AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 60, -25)
   153                       else
   154                       else