hedgewars/uAIMisc.pas
changeset 4365 4f2b1a152979
parent 4359 83ef50815535
child 4367 f4a0ec067601
equal deleted inserted replaced
4363:e944cc43f7a4 4365:4f2b1a152979
   148           gtHedgehog: begin
   148           gtHedgehog: begin
   149                       if Gear^.Damage >= Gear^.Health then
   149                       if Gear^.Damage >= Gear^.Health then
   150                           AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 60, -25)
   150                           AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 60, -25)
   151                       else
   151                       else
   152                           if isAfterAttack and (ThinkingHH^.Hedgehog <> Gear^.Hedgehog) then
   152                           if isAfterAttack and (ThinkingHH^.Hedgehog <> Gear^.Hedgehog) then
   153                               if (MyClan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan) then
   153                               if (MyClan = Gear^.Hedgehog^.Team^.Clan) then
   154                                   AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 150, -3) // hedgehog-friend
   154                                   AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 150, -3) // hedgehog-friend
   155                               else
   155                               else
   156                                   AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 100, 3)
   156                                   AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 100, 3)
   157                       end;
   157                       end;
   158           end;
   158           end;