hedgewars/uTeams.pas
changeset 14528 6446ddf0c0ba
parent 14511 3e6b12d23957
child 14536 181509fe1ae8
equal deleted inserted replaced
14527:0fc9560be9cc 14528:6446ddf0c0ba
   920         for i:= 0 to Pred(TeamsCount) do
   920         for i:= 0 to Pred(TeamsCount) do
   921             with TeamsArray[i]^ do
   921             with TeamsArray[i]^ do
   922                 begin
   922                 begin
   923                 if (not hasGone) and isGoneFlagPendingToBeSet then
   923                 if (not hasGone) and isGoneFlagPendingToBeSet then
   924                     begin
   924                     begin
   925                     AddChatString(#7 + Format('* '+shortstring(trmsg[sidTeamGone]), TeamName));
   925                     if (not TeamsGameOver) then
       
   926                         AddChatString(#7 + Format('* '+shortstring(trmsg[sidTeamGone]), TeamName));
   926                     if not CurrentTeam^.ExtDriven then SendIPC(_S'f' + s);
   927                     if not CurrentTeam^.ExtDriven then SendIPC(_S'f' + s);
   927                     hasGone:= true;
   928                     hasGone:= true;
   928                     skippedTurns:= 0;
   929                     skippedTurns:= 0;
   929                     isGoneFlagPendingToBeSet:= false;
   930                     isGoneFlagPendingToBeSet:= false;
   930                     RecountTeamHealth(TeamsArray[i])
   931                     RecountTeamHealth(TeamsArray[i])