По твоим данным вот написал скрипт. Должен работать, я не проверял.
Впиши свой ник, поставь время задержки какое надо, по нпц торгашу 2 раза клацни.
Оффтоп
DELPHI Код:
//автоматизация закупки
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 по нпц.