скрипт на прием пати

[PanAm]

Попробуйте тогда пока без задеожек...
Ники - Регистрозависимие.

const
PLName = 'НикНейм';
Name = 'НикНейм';

begin
  if (ConnectName=Name) and FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 AskJoinParty
    if ReadS(2) = PLName then
      buf:=hstr('2A 01 00 00 00')
    else
      buf:=hstr('2A 00 00 00 00');
    pck :='';                                  //убиваем "Окно приглашения"
    SendToServerEx(Name); 
  end;
end.