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

[vianox]

Переделал скрипт TMBIKa под закупку NGP. Перед использованием удалить всю адену.

5:begin // начать покупку свитков
   buf:=#$22;
   WriteS('zzz_relax_cat1_900.htm');
   SendToServerEx(myname);
   SendMsg2(' начать покупку свитков ');
   inc(x);
   end;
 6:begin
   buf:=#$22;
   WriteS('zzz_relax_cat1_907.htm'); //Аксессуары
   SendToServerEx(myname);
   inc(x);
   end;
 7:begin
   MultisellBypass('-9','15006'); //list id vtoroi pokypki
   inc(x);
   end;
 8:begin
   buf:=#$B0;
   WriteD(15006); //list id
   WriteD(11);//entryid 11
   WriteD(28000); // << === количество свитков
   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:=1; // если поставить  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.

[Likoms]

не знаю создать ли новую тему или лучше в этой, сервер другой, задача другая, но название темы подходит)) напишу здесь же чтобы не плодить.

нужен такой код: если у персонажа в инвентаре нету или меньше чем N определенного итема(бутылки маны/хилок), то купить этот итем. И чтобы количество этого итема проверялось время от времени.(нужно отправить бота в полностью автономное плавание)
На сервере гм-шоп в комьюнити, пакеты мультиселл проходят без всяких заморочек в любом месте без таргета.
помогите плз, я все еще только начинаю разбираться в скриптах

[Djekc]

Сообщение от nneett

Ловлю пакет колы-адена, ловлю пакет адена-точки, ставлю в посылку и то время которое нужно.

И как?Всё чётко срабатывает?Просто у меня чз отправку вроде тож всё работает но иногда при посылки МультиСелЧёйс тупо нет реакции пока не купиш то что посылаеш руками...Та же беда со скриптом

Добавлено через 31 минуту
Проснулся с утра ис новыми силами поштудировал не много инет на предмет оператора if then else и смог таки более мение ровно слепить 2 скрипта в 1

//автоматизация закупки
const
//==========================================================================================
   myname='xxx'; //<<== пишем свой НИК
//==========================================================================================   
begin
//начало условия                                              
  if FromClient and (ConnectName='myname') 
  and (pck=HStr('34 02 00 00 00 ')) //Соц.действие hello
  then 
   begin 
//=================================Обмен коинов==============================================   
    buf:=HStr(''); //пакет RequestBypassToServer обмена колов
    SendToServerEx('myname');
    pck:='';
//между этими 2мя пакетами хотел бы поставитбь задержку в 100 мс,но не знаю как...    
    buf:=HStr('');//пакет MultiSellChoose обмена колов
    SendToServerEx('myname');
    pck:='';
   end
//===========================================================================================   
  else 
//=============================Покупка необходимого============================================  
  if FromClient and (ConnectName='myname') 
  and (pck=HStr('34 03 00 00 00 '))//Соц.действие victory 
  then 
   begin 
    buf:=HStr(''); //пакет RequestBypassToServer покупаемой вещи
    SendToServerEx('myname');
    pck:='';
//между этими 2мя пакетами хотел бы поставитбь задержку в 100 мс,но не знаю как...    
    buf:=HStr('');////пакет MultiSellChoose покупаемой вещи
    SendToServerEx('myname');
    pck:='';
   end;
//============================================================================================   
//конец условия                                              
end.

Сей час нет возможности зайти в игру,но надеюсь будет работать.
P.S:Просьба к TAMBIK если не тяжело подскажи чз какие функции(или где можно об этом доступно почитать)можно сделать так что бы не приходилось ловит каждый раз по новой пакеты мультиселчёйс если захочиться сменить покупку блесов на чё нить еще или поменять колво обмениваемых коинов/покупаемых точек.