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

[Rity]

подскажите пожалуйста скрип на автоматическое вхождение в пати

нашел вот этот, но он не работает, окно о приглашении появляется но не принимается автоматически

const
  Name='НикНейм';
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен

begin
begin
 if (ConnectName=Name) and FromServer and (pck[1]=#$39) then begin
//  ReadS(2) - ник того кто кинул пати.
  buf:=#$2A;
  WriteD(1); // 0 - отказ от пати
  SendToServerEx(Name);
 end;
end;
end.