516 if b = 0 then OutError(errmsgUnknownVariable + ' "' + id + '"', false)

   516 if b = 0 then OutError(errmsgUnknownVariable + ' "' + id + '"', false)

   517         else CurrentTeam^.Binds[b]:= s

   517         else CurrentTeam^.Binds[b]:= s

   518 end;

   518 end;

   519 

   519 

   520 procedure chTeamGone(var s:shortstring);

   520 procedure chTeamGone(var s:shortstring);

   522 begin

   522 begin

   523 t:= 0;

   523 t:= 0;

   524 while (t < cMaxTeams)

   524 while (t < cMaxTeams)

   525     and (TeamsArray[t] <> nil)

   525     and (TeamsArray[t] <> nil)

   526     and (TeamsArray[t]^.TeamName <> s) do inc(t);

   526     and (TeamsArray[t]^.TeamName <> s) do inc(t);

   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     hasGone:= true

   535     hasGone:= true

   533     end;

   536     end;

   534 

   537 

   535 RecountTeamHealth(TeamsArray[t])

   538 RecountTeamHealth(TeamsArray[t])

   536 end;

   539 end;