[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.