Скриптинг Форум посвещенный созданию скриптов для L2PacketHack
06.12.2009, 19:23
#21
Рыцарь
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
Djekc ,
пакета
1F=Action:d(ObjectID)d(OrigX)d(OrigY)d(OrigZ)c(Act ionID)
первым должен идти перед двумя другими
а зачем те нужен скрипт такой ?
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
Последний раз редактировалось TAMBIK, 06.12.2009 в 19:40 .
07.12.2009, 02:02
#22
Новичок
Регистрация: 15.11.2009
Сообщений: 17
Сказал Спасибо: 6
Имеет 1 спасибку в 1 сообщении
Всё дело в том что стоимость 1го Гигант кодекса 200 Col'ов или 22к ноблес билетов(раньше было 5.5к фикс видимо).Так вот,за 21 Col можно купить 28к ноблес билетов.Тобиш на 200 Col'ов 10 книг,экономия однако=)
Но вся проблема в том что покупка этих самых билетов оч проблематична.
Открываем ГМ шоп у кота->Нажимаем кнопку обменник->Выбираем Кол/Адена->Выбрать кол на адену->Ввести необходимое количество(Максимум 21 КоЛ=2.1ккк)->Нажать принять->Нажать подтвердить->Нажать в меню шопа обратно->Нажать на кнопку Шоп->Нажать на кнопку Аксесуары->Нажать на Остальные->Выбрать ноблес билеты->Ввести количество(28к=21КоЛ)->Нажать принять->Нажать подтвердить...
Короче вот такая вот процедура с клацаньем и вводом цыфер,все это как то тупо и геморно,с покупкой точек или еше чего та же трабла...
Если бы всё было попроще я бы не стал заморачиваться на щет создания скрипта
07.12.2009, 10:07
#23
Местный
Регистрация: 05.11.2008
Сообщений: 168
Сказал Спасибо: 35
Имеет 139 спасибок в 66 сообщенях
Выложи свои пакеты RequestBypassToSerever и MultisellChoose в зашифрованом и расшифрованом пакетхаком виде.
13.12.2009, 20:26
#24
Новичок
Регистрация: 15.11.2009
Сообщений: 17
Сказал Спасибо: 6
Имеет 1 спасибку в 1 сообщении
RequestBypassToSerever
Расшифрованный:
Код:
Тип: 0x23 (RequestBypassToServer)
Размер: 65+2
Время прихода: 18:19:54:761
0002 s Command: menu_select?ask=-11&reply=19001
Зашифрованный:
Код:
23 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 31 00 31 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 31 00 39 00 30 00 30 00 31 00 00 00
================================================== =====
MultisellChoose
Расшифрованный:
Код:
Тип: 0xB0 (MultiSellChoose)
Размер: 55+2
Время прихода: 18:23:42:779
0002 d ListID: 19001 (0x00004A39)
0006 d EntryID: 3 (0x00000003)
0010 d Amount: 20 (0x00000014)
0014 h Enchantment: 0 (0x0000)
Зашифрованный:
Код:
B0 39 4A 00 00 03 00 00 00 14 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
P.S:Извеняюсь что так затянул с ответом,оч много дел навалилось...
13.12.2009, 21:19
#25
Местный
Регистрация: 05.11.2008
Сообщений: 168
Сказал Спасибо: 35
Имеет 139 спасибок в 66 сообщенях
По твоим данным вот написал скрипт. Должен работать, я не проверял.
Впиши свой ник, поставь время задержки какое надо, по нпц торгашу 2 раза клацни.
Оффтоп
DELPHI Код:
//автоматизация закупки
const
//==========================================================================================
myname='xxx' ; //<<== пишем свой НИК
//==========================================================================================
var Timer : ttimer;
step:integer ; actionpck:string ;
//===================
procedure init;
begin
timer := ttimer.create ( nil ) ;
timer.interval := 1000 ; //vremya zaderzhki
timer.enabled := false ;
step:=0 ;
end ;
//=====================
procedure free;
begin
timer.free ;
end ;
//=====================
procedure MultisellBypass( cmd1,cmd2 : string ) ;
begin
buf:=#$23 ;
WriteS( 'menu_select?ask=' +cmd1+'&reply=' +cmd2) ;
SendToServerEx( myname) ;
end ;
//======================
Procedure BuyCOL( Sender:tobject ) ;
begin
inc ( step) ;
case step of
1 : begin
buf:=actionpck;
SendToServerEx( myname) ;
end ;
2 : begin
buf:=#$22 ;
WriteS( 'zzz_relax_cat1_960.htm' ) ;
SendToServerEx( myname) ;
end ;
3 :MultisellBypass( '-11' ,'19001' ) ; //list id magazina col'ov
4 : begin
buf:=#$B0;
WriteD( 19001 ) ;
WriteD( 3 ) ;//entryid
WriteD( 20 ) ; //Amount
buf:=buf+HStr( '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00' ) ;
SendToServerEx( myname) ;
timer.enabled :=false ;
end ;
end ;
end ;
//======================
Procedure BuyWhatever( Sender:tobject ) ;
begin
inc ( step) ;
case step of
1 : begin
buf:=actionpck;
SendToServerEx( myname) ;
end ;
2 : begin
buf:=#$22 ;
WriteS( 'zzz_relax_cat1_905.htm' ) ;
SendToServerEx( myname) ;
end ;
3 :MultisellBypass( '-9' ,'14001' ) ; //list id vtoroi pokypki
4 : begin
buf:=#$B0;
WriteD( 14001 ) ; //list id
WriteD( 37 ) ;//entryid
WriteD( 100 ) ; //kolichestvo
buf:=buf+HStr( '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00' ) ;
SendToServerEx( myname) ;
timer.enabled :=false ;
end ;
end ;
end ;
//******************
begin
//Hello
if FromClient and ( ConnectName=myname) and ( pck=HStr( '34 02 00 00 00' ) ) then
begin
step:=0 ;
timer.ontimer := @BuyCOL;
timer.enabled := true ;
pck:='' ;
end ;
//Victory
if FromClient and ( ConnectName=myname) and ( pck=HStr( '34 03 00 00 00' ) ) then
begin
step:=0 ;
timer.ontimer := @BuyWhatever;
timer.enabled := true ;
pck:='' ;
end ;
if FromClient and ( ConnectName=myname) and ( pck[1 ]=#$1F) then Actionpck:=pck;
end .
Если не поможет то тогда надо еще вставить двойной Action по нпц.
Последний раз редактировалось Fer123, 15.12.2009 в 12:07 .
За это сообщение Fer123 нажился 3 спасибками от:
14.12.2009, 02:03
#26
Новичок
Регистрация: 15.11.2009
Сообщений: 17
Сказал Спасибо: 6
Имеет 1 спасибку в 1 сообщении
Потестил скрипт,всё таже беда,после RequestBypassToSerever кикает с сервера,кот был в таргете шоп открыт...
14.12.2009, 11:45
#27
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
Цитата:
0002 d ListID: 19001 (0x00004A39)
Может быть он разный должен быть?
14.12.2009, 12:22
#28
Местный
Регистрация: 05.11.2008
Сообщений: 168
Сказал Спасибо: 35
Имеет 139 спасибок в 66 сообщенях
Цитата:
Может быть он разный должен быть?
Судя по 3 пакетам которые вылаживал джекс он одинаковый
Цитата:
Потестил скрипт,всё таже беда,после RequestBypassToSerever кикает с сервера,кот был в таргете шоп открыт...
Когда именно выкидывает после покупки колов или заточек?
Цитата:
Открываем ГМ шоп у кота->Нажимаем кнопку обменник->Выбираем Кол/Адена->Выбрать кол на адену->Ввести необходимое количество(Максимум 21 КоЛ=2.1ккк)->Нажать принять->Нажать подтвердить->Нажать в меню шопа обратно->Нажать на кнопку Шоп->Нажать на кнопку Аксесуары->Нажать на Остальные->Выбрать ноблес билеты->Ввести количество(28к=21КоЛ)->Нажать принять->Нажать подтвердить...
Я вот думаю мб тут какая то защита, что надо делать все по порядку как ты написал.
P.S Я добавил в скрипт два Action, попробуй и отпишись. Теперь надо выделять кота после того как ты включаешь скрипт чтоб запомнить OID кота.
14.12.2009, 15:52
#29
Рыцарь
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
одного хватит и кот в таргете должен находиться
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
14.12.2009, 17:36
#30
Местный
Регистрация: 05.11.2008
Сообщений: 168
Сказал Спасибо: 35
Имеет 139 спасибок в 66 сообщенях
Точно! Исправил.
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 03:22 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!