//**********************************************
//    .
//**********************************************
var
Cvar: String;
i: Integer;
Channel : integer;
Message, Name: String;

procedure Init;
begin

end;

procedure Free;
begin

end;

begin
if FromServer and (pck[1]=#$4a) then
begin
  i:=10;
  Channel:=ReadD(6);
  if not (Channel=2) then
  if not (Channel=9) then
  begin
  name:=ReadS(i);
  message:=ReadS(i);
  if name='' then name:='';
  if not (Name=ConnectName) then
  begin
  buf:=#$38;
  WriteS({Name+': '+ }message);
  WriteD(Channel);
  SendToServer;
  end;
  end;

end;
end.
