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

[TAMBIK]

Fer123,
тогда сделай так
один раз произвел обмен птом закупку все запомнить
и таймером отсылать все пакеты
у те получится !!!!!

[Fer123]

TAMBIK, пусть сначала попробует это, потом что нибудь придумаем.

[Djekc]

Всё равно продолжает рвать соединение как только уходит к серву пакет RequestBypassToSerever.Решил что может помоч делу лог пакетов когда меняеш колы на адену и покупаеш без включенного скрипта и сделал второй лог пакетов при включенном скрипте.Записывал лог в элвин виледж что бы меньше всякого мусора в логе было
Опишу ряд действий для двух файлов логов
Закупка скрипт выкл:
-=Исходная,стою у кота,кот не в таргете,очищаю окно лога пакетов перехожу в окно игры=-
Выб.Кота в таргет->Еще раз нажимаю на коте что бы открыть шош->Выб. Вкладку обменник->Выб.КоЛ/Адена->Выб.Коины на Адену->Ввожу число 20->Нажимаю принять->Нажимаю подтвердить->Нажимаю вернуться(Возвращает в основное меню Шопа или на 1ну вкладку назат)->Выб.Шоп->Выб.Свитки->Выб.Заточки->Выб.EAS(точки)->Ввожу 800->Нажимаю принять->Нажимаю подтвердить.

Закупка скрипт ВКЛ:
Исходная,стою у кота,кот в таргете,ни каких окон не открыто.Скрипт включен.
Выб.Кота в таргет->Еще раз нажимаю на коте что бы открыть шош->Выб. Вкладку "обменник"->Выб."КоЛ/Адена"->Выб."Коины на Адену"->Ввожу число 20->Нажимаю "принять"->Нажимаю "подтвердить"->Нажимаю "вернуться"(Возвращает в основное меню Шопа или на 1ну вкладку назат)->Выб."Шоп"->Выб."Свитки"->Выб."Заточки"->Выб."EAS"(точки)->Ввожу 800->Нажимаю "принять"->Нажимаю "подтвердить".(Я так понял это нужно было сделать что бы скрипт запомнил что куда и как).Закрываю все окна и теперь нажимаю соц действи виктори,по идее должно закупиться опред. количество предметов ноо,как только пакет RequestBypassToSerever появляеться в логе L2ph сервер кикает(Поставил не закрывать диалог в л2пх что бы сохранить лог от начала и до разрыва)...

[SELLER]

Djekc
Забей на попытки создать скрипт на автозакупку с помощью l2phx
У меня все давно реализовано еще полгода назад и работает ;-) без использования l2phx
Реализация буквально занимает 5 мин... и все что надо покупает ... хоть заточки хоть билеты на книжки

Просто поднапрягись ;-)
Привет от DEDUIIIKO ;-)

[alexteam]

Единственное отличие которое есть - временные штампы точнее интервал между сультиселлчозами.

[TAMBIK]

ПОПРАВИЛ

открыть ШОП

22 7A 00 7A 00 7A 00 5F 00 72 00 65 00 6C 00 61 00 78 00 5F 00 63 00 61 00 74 00 31 00 5F 00 39 00 30 00 30 00 2E 00 68 00 74 00 6D 00 00 00

-----------------------------------------------------
выбор свитки

22 7A 00 7A 00 7A 00 5F 00 72 00 65 00 6C 00 61 00 78 00 5F 00 63 00 61 00 74 00 31 00 5F 00 39 00 30 00 35 00 2E 00 68 00 74 00 6D 00 00 00

-----------------------------------------------------
купил ......
------------------------------------------------------
вернуться

22 7A 00 7A 00 7A 00 5F 00 72 00 65 00 6C 00 61 00 78 00 5F 00 63 00 61 00 74 00 31 00 5F 00 30 00 30 00 31 00 2E 00 68 00 74 00 6D 00 00 00

=============================================
открыть обменик

22 7A 00 7A 00 7A 00 5F 00 72 00 65 00 6C 00 61 00 78 00 5F 00 63 00 61 00 74 00 31 00 5F 00 39 00 36 00 30 00 2E 00 68 00 74 00 6D 00 00 00

-------------------------------------------------------
обменял...
------------------------------------------------------
вернуться

22 7A 00 7A 00 7A 00 5F 00 72 00 65 00 6C 00 61 00 78 00 5F 00 63 00 61 00 74 00 31 00 5F 00 30 00 30 00 31 00 2E 00 68 00 74 00 6D 00 00 00

вернуться
0002 s Command: zzz_relax_cat1_001.htm

[Fer123]

Я так понял это нужно было сделать что бы скрипт запомнил что куда и как

Нужно только включить скрипт потом выделить кота, чтоб скрипт запомнил его ид.
P.S. Я добавил в скрипт пакет 0x22 RequestLinkHtml, как в твоем логе. Попробуй, если не будет работать увеличь timer.interval, мб в этом дело.

[Djekc]

Fer123, скрипт вроде заработал таймер выставил 500,но заработал на половину.Работает только обмен коинов)При нажатии на виктори кикает чз указанное в таймере время,еси 500 то чз 0.5 сек если 5000 то чз 5 сек)))

[KMAX]

У меня почти также обмен колов на адены работает а при покупке точек просто открываеться окно ГМ шопа и все ничего дальше не происходит! Но у меня не вылетает как у Djekc!

[TAMBIK]

//автоматизация закупки
const
//==========================================================================================
   myname='TAMBIK'; //<<== пишем свой НИК
//========================================================================================== 
//   должно быть открыто окно у кота 
// меняет кол а птом покупает свитки
var
timer:TTimer;
x,:integer;
//===================
procedure init;
begin
 timer:=TTimer.Create(nil);timer.OnTimer:=@OnTimer;
 timer.enabled:=false;timer.interval:=1000;//интервал 
  x:=0;
SendMsg2('  ****  ПРИВЕТ  ***** ');
SendMsg2('  * пуск -- Hello    * ');
SendMsg2('  * стоп -- Victory  * ');
end;
procedure SendMsg2(msg:string);
begin 
buf:=#$4A;WriteD(0);WriteD(10);WriteS('');WriteS(msg);
SendToClientEx(myname);
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 OnTimer(Sender:TObject);
begin
 case x of
 1:begin  // начать обмен COL
   buf:=#$22;
   WriteS('zzz_relax_cat1_960.htm');
   SendToServerEx(myname);
   SendMsg2(' начать обмен COL ');
   inc(x);
   end;
 2:begin
   MultisellBypass('-11','19001'); //list id magazina col'ov
   inc(x);
   end;
 3:begin
   buf:=#$B0;
   WriteD(19001);
   WriteD(3);//entryid
   WriteD(20); //  << === количество COL
   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);
   inc(x);
   end;
 4:begin
   buf:=#$22;
   WriteS('zzz_relax_cat1_001.htm');
   SendToServerEx(myname);//  закончили обмен COL 
   SendMsg2(' закончили обмен COL ');
   inc(x);
   end;
 5:begin // начать покупку свитков
   buf:=#$22;
   WriteS('zzz_relax_cat1_900.htm');
   SendToServerEx(myname);
   SendMsg2(' начать покупку свитков ');
   inc(x);
   end;
 6:begin
   buf:=#$22;
   WriteS('zzz_relax_cat1_905.htm');
   SendToServerEx(myname);
   inc(x);
   end;
 7:begin
   MultisellBypass('-9','14001'); //list id vtoroi pokypki
   inc(x);
   end;
 8:begin
   buf:=#$B0;
   WriteD(14001); //list id
   WriteD(37);//entryid 37
   WriteD(100); // << === количество свитков
   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);
   inc(x);
   end;
 9:begin
   buf:=#$22;
   WriteS('zzz_relax_cat1_001.htm');
   SendToServerEx(myname);// закончили покупку свитков
   SendMsg2(' закончили покупку свитков ');
   x:=0; // если поставить  1 
   timer.enabled:=false;//  и эту строку убрать то  - начнет сначало по новой
   end;
  end;
end;
//******************
begin
if FromClient and (ConnectName=myname)  and (pck[1]=#$34) then begin
 CASE ReadD(2) OF
 2:begin //Hello
   x:=1; // 
   timer.enabled:=true;
   SendMsg2(' П У С К ');
   pck:='';exit;
   end;
 3:begin //Victory
   x:=0;
   timer.enabled:=false;
   SendMsg2(' С Т О П  ');
   pck:='';exit;
   end;end;end;
end.