Просмотр полной версии : скрипт на прием пати
подскажите пожалуйста скрип на автоматическое вхождение в пати
нашел вот этот, но он не работает, окно о приглашении появляется но не принимается автоматически
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.
Поищи получше, есть полностью рабочие скрипты. Естесттвенно в комплекте какого-то скрипта.
Amorality
30.07.2008, 04:45
http://coderx.ru/showpost.php?p=12328&postcount=33
Еще не пробовала , но должно работать :)
Amorality
30.07.2008, 04:54
Панаму спасибку поставь , здесь нет моей заслуги :)
а попробуйте так -
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.
спасибо
но, у меня на елсе ругается чета(
спасибо
но, у меня на елсе ругается чета(Поправил, просто когда постил (4 часа ночи) как-то проглядел, а потом форум перестал грузится. ;)
большое спасибо
Добавлено через 48 минут
не работает(
клиент дисконектит
а ники Патилидера и бота прописали?
А вообще скрипты работают?
Добавлено через 2 часа 53 минуты
Протестировал, пати принимает, откланяет, как задумывалось, клиент не дисконектит.
а ники Патилидера и бота прописали?
А вообще скрипты работают?
Добавлено через 2 часа 53 минуты
Протестировал, пати принимает, откланяет, как задумывалось, клиент не дисконектит.
ники прописывал
работают но не этот
у меня дисконектит:confused:
Попробуйте тогда пока без задеожек...
Ники - Регистрозависимие.
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.
тоже не получается
клинт котромоу кидаем пати пишет что-то про пати рум, и дисконект
а попробуйте отловить пакет
без скрипта кидайте пати боту и смотрите что приходит, примите/ откажите в пати -посмтрите что от клиента ушло, хз может у вас что на сервере не так?
metalFan
31.07.2008, 23:09
наверно там шифрация и скрипты просто не работают;)
врятли шифрация
еслиб делали шифрацию то первым делом бы на ХП )
вместо 2А килент шлет
97
19
13
и другие
может ли быть такое?
сервер lineage.ru
что-то не то
на мелке пакетный уровень стандартный С4 вроде, на 1-4 серверах изменена шифрация, без дороботки ПХ работать не будет, на 5 должно.
ясн(
значит на мелке никак не сделать авто прием пати
можно
без дороботки ПХ работать не будет
Мужики, подсобите :)
Работает авто прием пати.
Может кто связать это вот с этим скриптом http://coderx.ru/showpost.php?p=1284&postcount=127
Что бы БД бегал за Командиром, в нужный момент принимал пати, танцевал и выходил. Чет у меня не получается связять их.
Буду очень благодарен.
Добавлено через 1 минуту
Или хотя не обязательно что бы бегал, что бы принимал пати, танцевал и выходил из пати.
можно
PacketHacka?
ну эт не нам((
Или хотя не обязательно что бы бегал, что бы принимал пати, танцевал и выходил из пати.Используйте 2 скрипта одновременно. и ручками кикайте БД.
Используйте 2 скрипта одновременно. и ручками кикайте БД.
Ага, это четко так под ребаф угадывать, да )
Вопрос, а зачем усложнять себе жизнь???....зачем подгадывать..пусть пляшет после получения пати. Мало ли ты далеко отбежал...а чар стоит на месте...и пляшет по таймеру, до тебя бафф не достает......
Мой автоматом берет брошенное вручную пати (макрос в клиенте).... это же и является командой на ребаф
А выход с пати реализован в таймере....3 действия...2 пакета на денсы и последний пакет на выход из пати)
А что бы ходил за тобой - тут куча рабочих скриптов где это реализовано, можно прикрутить любой.....
Я помогу :)
но чуть позже....
vBulletin® v3.6.11, Copyright ©2000-2024, Jelsoft Enterprises Ltd. Перевод: zCarot