PDA

Просмотр полной версии : скрипт на прием пати


Rity
30.07.2008, 00:48
подскажите пожалуйста скрип на автоматическое вхождение в пати

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

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
30.07.2008, 01:01
Поищи получше, есть полностью рабочие скрипты. Естесттвенно в комплекте какого-то скрипта.

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

Rity
30.07.2008, 04:50
спасибо большое

Amorality
30.07.2008, 04:54
Панаму спасибку поставь , здесь нет моей заслуги :)

PanAm
30.07.2008, 05:22
а попробуйте так -
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
30.07.2008, 15:28
спасибо
но, у меня на елсе ругается чета(

PanAm
30.07.2008, 16:13
спасибо
но, у меня на елсе ругается чета(Поправил, просто когда постил (4 часа ночи) как-то проглядел, а потом форум перестал грузится. ;)

Rity
30.07.2008, 23:12
большое спасибо

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

PanAm
31.07.2008, 02:39
а ники Патилидера и бота прописали?
А вообще скрипты работают?

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

Rity
31.07.2008, 06:49
а ники Патилидера и бота прописали?
А вообще скрипты работают?

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

ники прописывал
работают но не этот

у меня дисконектит:confused:

PanAm
31.07.2008, 15:10
Попробуйте тогда пока без задеожек...
Ники - Регистрозависимие.
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.

Rity
31.07.2008, 19:47
тоже не получается

клинт котромоу кидаем пати пишет что-то про пати рум, и дисконект

PanAm
31.07.2008, 21:13
а попробуйте отловить пакет
без скрипта кидайте пати боту и смотрите что приходит, примите/ откажите в пати -посмтрите что от клиента ушло, хз может у вас что на сервере не так?

metalFan
31.07.2008, 23:09
наверно там шифрация и скрипты просто не работают;)

Rity
31.07.2008, 23:40
врятли шифрация
еслиб делали шифрацию то первым делом бы на ХП )

Rity
02.08.2008, 12:27
вместо 2А килент шлет
97
19
13

и другие

может ли быть такое?

сервер lineage.ru

PanAm
02.08.2008, 15:42
что-то не то
на мелке пакетный уровень стандартный С4 вроде, на 1-4 серверах изменена шифрация, без дороботки ПХ работать не будет, на 5 должно.

Rity
02.08.2008, 17:29
ясн(
значит на мелке никак не сделать авто прием пати

PanAm
02.08.2008, 20:36
можно
без дороботки ПХ работать не будет

FEAR88
03.08.2008, 10:41
Мужики, подсобите :)
Работает авто прием пати.
Может кто связать это вот с этим скриптом http://coderx.ru/showpost.php?p=1284&postcount=127
Что бы БД бегал за Командиром, в нужный момент принимал пати, танцевал и выходил. Чет у меня не получается связять их.
Буду очень благодарен.

Добавлено через 1 минуту
Или хотя не обязательно что бы бегал, что бы принимал пати, танцевал и выходил из пати.

Rity
03.08.2008, 18:55
можно
PacketHacka?
ну эт не нам((

PanAm
03.08.2008, 18:59
Или хотя не обязательно что бы бегал, что бы принимал пати, танцевал и выходил из пати.Используйте 2 скрипта одновременно. и ручками кикайте БД.

FEAR88
03.08.2008, 20:04
Используйте 2 скрипта одновременно. и ручками кикайте БД.

Ага, это четко так под ребаф угадывать, да )

jew
04.08.2008, 03:29
Вопрос, а зачем усложнять себе жизнь???....зачем подгадывать..пусть пляшет после получения пати. Мало ли ты далеко отбежал...а чар стоит на месте...и пляшет по таймеру, до тебя бафф не достает......
Мой автоматом берет брошенное вручную пати (макрос в клиенте).... это же и является командой на ребаф
А выход с пати реализован в таймере....3 действия...2 пакета на денсы и последний пакет на выход из пати)
А что бы ходил за тобой - тут куча рабочих скриптов где это реализовано, можно прикрутить любой.....

FEAR88
07.08.2008, 21:03
Ни кто не помогет?

PanAm
07.08.2008, 21:34
Я помогу :)
но чуть позже....