hedgewars/uTeams.pas
changeset 10398 d9cf9ef08ba7
parent 10397 314164a9c912
child 10443 42dadeb6e8ae
equal deleted inserted replaced
10397:314164a9c912 10398:d9cf9ef08ba7
   675     end
   675     end
   676     else
   676     else
   677     begin
   677     begin
   678         TeamsArray[t]^.isGoneFlagPendingToBeSet:= true;
   678         TeamsArray[t]^.isGoneFlagPendingToBeSet:= true;
   679 
   679 
   680         if (not CurrentTeam^.ExtDriven) or (CurrentTeam^.TeamName = s) then
   680         if (not CurrentTeam^.ExtDriven) or (CurrentTeam^.TeamName = s) or (CurrentTeam^.hasGone) then
   681             ParseCommand('/teamgone s' + s, true);
   681             ParseCommand('/teamgone s' + s, true);
   682     end;
   682     end;
   683 end;
   683 end;
   684 
   684 
   685 procedure chTeamBack(var s:shortstring);
   685 procedure chTeamBack(var s:shortstring);