hedgewars/uTeams.pas
changeset 5818 d071162d550d
parent 5812 91d9de564ef5
child 5829 3ec95dc2b249
equal deleted inserted replaced
5816:ceb522b0f7d5 5818:d071162d550d
   527 if (t = cMaxTeams) or (TeamsArray[t] = nil) then exit;
   527 if (t = cMaxTeams) or (TeamsArray[t] = nil) then exit;
   528 
   528 
   529 with TeamsArray[t]^ do
   529 with TeamsArray[t]^ do
   530     begin
   530     begin
   531     AddChatString('** '+ TeamName + ' is gone');
   531     AddChatString('** '+ TeamName + ' is gone');
   532     for i:= 0 to cMaxHHIndex do
       
   533         if Hedgehogs[i].GearHidden <> nil then
       
   534             RestoreHog(@Hedgehogs[i]);
       
   535     hasGone:= true
   532     hasGone:= true
   536     end;
   533     end;
   537 
   534 
   538 RecountTeamHealth(TeamsArray[t])
   535 RecountTeamHealth(TeamsArray[t])
   539 end;
   536 end;