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

[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.

[NLObP]

Поищи получше, есть полностью рабочие скрипты. Естесттвенно в комплекте какого-то скрипта.

[Amorality]

http://coderx.ru/showpost.php?p=12328&postcount=33
Еще не пробовала , но должно работать

[Rity]

спасибо большое

[Amorality]

Панаму спасибку поставь , здесь нет моей заслуги

[PanAm]

а попробуйте так -

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

Var
  DismissTimer, AgreeTimer : TTimer;

procedure Init; //Вызывается при включении скрипта
begin
  AgreeTimer :=TTimer.Create(nil);
  AgreeTimer.OnTimer :=@AgreeJoinParty;
  AgreeTimer.enabled :=false;
  AgreeTimer.interval :=2000;
  DismissTimer :=TTimer.Create(nil);
  DismissTimer.OnTimer :=@DismissJoinParty;
  DismissTimer.enabled :=false;
  DismissTimer.interval :=10000;
end;

procedure Free; //Вызывается при выключении скрипта
begin
  AgreeTimer.Free;
  DismissTimer.Free;
end;

procedure AgreeJoinParty(Sender: TObject);
begin
  AgreeTimer.enabled :=false;
  buf:=hstr('2A 01 00 00 00');               //Создаем пакет "принять пати"
  SendToServerEx(Name);                              //Отправляем его на сервер
end;

procedure DismissJoinParty(Sender: TObject);
begin
  DismissTimer.enabled :=false;
  buf:=hstr('2A 00 00 00 00');               //Создаем пакет "Отказать в пати"
  SendToServerEx(Name);                              //Отправляем его на сервер
end;


//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
  if (ConnectName=Name) and FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 AskJoinParty
    if ReadS(2) = PLName then
      AgreeTimer.enabled :=true
    else
      DismissTimer.enabled :=true;
    pck :='';                                  //убиваем этот пакет
  end;
end.

[Rity]

спасибо
но, у меня на елсе ругается чета(

[PanAm]

Сообщение от Rity

спасибо
но, у меня на елсе ругается чета(

Поправил, просто когда постил (4 часа ночи) как-то проглядел, а потом форум перестал грузится.

[Rity]

большое спасибо

Добавлено через 48 минут
не работает(
клиент дисконектит

[PanAm]

а ники Патилидера и бота прописали?
А вообще скрипты работают?

Добавлено через 2 часа 53 минуты
Протестировал, пати принимает, откланяет, как задумывалось, клиент не дисконектит.