[Pinko]

автор не я

// Kamael-Hellbound
   const
   Name = 'ххх';  // Имя 
procedure Init; 
begin
end;
procedure Free; 
begin
end;
// пати сам с собой
// чара кто будит приглашать в пати и предлогать трейд .можно грузить без l2phx
// кидаешь чару ххх  пати - скрипт принимает пати - 1раз
// кидаешь чару ххх трейд - скрипт принимает пати - не больше
// положеного колличества членов пати 
// передаешь чару ххх лидера пати
// выходишь из пати .итог = >> чар ххх с собой в пати
begin
if FromServer and (pck[1]=#$39) then begin  // вам приглашение в пати 
  buf:=#$43;
  WriteD(1); // принять пати
  SendToServerEx(Name);
  pck:='';
  exit;
  end;
begin
 if FromServer and (pck[1]=#$70) then begin//  вам трейд 
  buf:=#$55;
  WriteD(1); // принять пати
  SendToServerEx(Name);
  pck:='';
  exit;
  end;
 end;
end.