hedgewars/uAIMisc.pas
branchhedgeroid
changeset 5644 4ad07103cfae
parent 5604 d81727c49617
child 5642 0ce9e01bae56
equal deleted inserted replaced
5641:06558ee35f51 5644:4ad07103cfae
   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