Автозакупка из ГМ шопа(Помогите создать)

[TAMBIK]

Djekc,
пакета
1F=Action:d(ObjectID)d(OrigX)d(OrigY)d(OrigZ)c(Act ionID)
первым должен идти перед двумя другими

а зачем те нужен скрипт такой ?

[Djekc]

Всё дело в том что стоимость 1го Гигант кодекса 200 Col'ов или 22к ноблес билетов(раньше было 5.5к фикс видимо).Так вот,за 21 Col можно купить 28к ноблес билетов.Тобиш на 200 Col'ов 10 книг,экономия однако=)
Но вся проблема в том что покупка этих самых билетов оч проблематична.
Открываем ГМ шоп у кота->Нажимаем кнопку обменник->Выбираем Кол/Адена->Выбрать кол на адену->Ввести необходимое количество(Максимум 21 КоЛ=2.1ккк)->Нажать принять->Нажать подтвердить->Нажать в меню шопа обратно->Нажать на кнопку Шоп->Нажать на кнопку Аксесуары->Нажать на Остальные->Выбрать ноблес билеты->Ввести количество(28к=21КоЛ)->Нажать принять->Нажать подтвердить...
Короче вот такая вот процедура с клацаньем и вводом цыфер,все это как то тупо и геморно,с покупкой точек или еше чего та же трабла...
Если бы всё было попроще я бы не стал заморачиваться на щет создания скрипта

[Fer123]

Выложи свои пакеты RequestBypassToSerever и MultisellChoose в зашифрованом и расшифрованом пакетхаком виде.

[Djekc]

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:Извеняюсь что так затянул с ответом,оч много дел навалилось...

[Fer123]

По твоим данным вот написал скрипт. Должен работать, я не проверял.
Впиши свой ник, поставь время задержки какое надо, по нпц торгашу 2 раза клацни.
Оффтоп

//автоматизация закупки
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 по нпц.

[Djekc]

Потестил скрипт,всё таже беда,после RequestBypassToSerever кикает с сервера,кот был в таргете шоп открыт...

[NLObP]

0002 d ListID: 19001 (0x00004A39)

Может быть он разный должен быть?

[Fer123]

Может быть он разный должен быть?

Судя по 3 пакетам которые вылаживал джекс он одинаковый

Потестил скрипт,всё таже беда,после RequestBypassToSerever кикает с сервера,кот был в таргете шоп открыт...

Когда именно выкидывает после покупки колов или заточек?

Открываем ГМ шоп у кота->Нажимаем кнопку обменник->Выбираем Кол/Адена->Выбрать кол на адену->Ввести необходимое количество(Максимум 21 КоЛ=2.1ккк)->Нажать принять->Нажать подтвердить->Нажать в меню шопа обратно->Нажать на кнопку Шоп->Нажать на кнопку Аксесуары->Нажать на Остальные->Выбрать ноблес билеты->Ввести количество(28к=21КоЛ)->Нажать принять->Нажать подтвердить...

Я вот думаю мб тут какая то защита, что надо делать все по порядку как ты написал.

P.S Я добавил в скрипт два Action, попробуй и отпишись. Теперь надо выделять кота после того как ты включаешь скрипт чтоб запомнить OID кота.

[TAMBIK]

одного хватит и кот в таргете должен находиться

[Fer123]

Точно! Исправил.