hedgewars/uTeams.pas
changeset 7119 2737c488756b
parent 7048 0a4c88935902
child 7151 ec15d9e1a7e3
equal deleted inserted replaced
7118:dcdbb6fcc924 7119:2737c488756b
   578     inc(t);
   578     inc(t);
   579 if (t = cMaxTeams) or (TeamsArray[t] = nil) then
   579 if (t = cMaxTeams) or (TeamsArray[t] = nil) then
   580     exit;
   580     exit;
   581 
   581 
   582 with TeamsArray[t]^ do
   582 with TeamsArray[t]^ do
   583     begin
   583     if not hasGone then
   584     AddChatString('** '+ TeamName + ' is gone');
   584         begin
   585     hasGone:= true
   585         AddChatString('** '+ TeamName + ' is gone');
   586     end;
   586         hasGone:= true;
   587 
   587 
   588 RecountTeamHealth(TeamsArray[t])
   588         RecountTeamHealth(TeamsArray[t])
       
   589         end;
   589 end;
   590 end;
   590 
   591 
   591 
   592 
   592 procedure chFinish(var s:shortstring);
   593 procedure chFinish(var s:shortstring);
   593 var t: LongInt;
   594 var t: LongInt;