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