Переделал скрипт TMBIKa под закупку NGP. Перед использованием удалить всю адену.
delphi Код:
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.