Скрипт на тт рецы la2sweet.com

[Steko]

Здравствуйте, решил поделиться скриптом на тт рецепты la2sweet.com
Способа обхода капчи не нашёл\придумал, поэтому добавил уведомления и мигание окна, где вылезает капча.
Суть такова. Доходим до капчи, отменяем её, отменяем квесты на тт, запускаем скрипт. На ввод капчи есть 10 секунд.
Если помогло, от плюсика в репу не откажусь :з

procedure capt;
begin
while true do
begin
  delay(300);
  if Engine.Status = lsOnline then
  begin
    if pos('большей',engine.dlgtext)>0 then
    begin
      Engine.BlinkWindow;//Мигание окошка
      PlaySound(exepath + '\sounds\hp.wav', False);//Музычка
    end;
    delay(300);
  end;
end;
end;



procedure ttrec;
begin
while true do begin
delay(500);
        engine.settarget(31521);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(1);
delay(1000);
Engine.DlgSel('Доставка Ликера');
delay(1000);
engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31521-1.htm');
delay(10000);
engine.dlgopen;
engine.dlgsel(1);
delay(1000);
Engine.DlgSel('Доставка Ликера');
delay(1000);
engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31521-1.htm');
delay(1000);
engine.dlgopen;
engine.dlgsel(1);
delay(1000);
Engine.DlgSel('Доставка Яиц');
delay(1000);
Engine.bypasstoserver('Quest 621_EggDelivery 31521-1.htm');
delay(1000);
Engine.MoveTo(149224, -112488, -2064);
Engine.MoveTo(147896, -113176, -2128);
Engine.MoveTo(147528, -113288, -2112);
delay(1000);
            engine.settarget(31547);
engine.movetotarget(-10);
delay(1000);
engine.dlgopen;
engine.dlgsel(2);
delay(1000);
Engine.DlgSel('Доставка Ликера');
delay(1000);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31547-1.htm');
delay(1000);
engine.moveto(147448, -113029, -2112);
               engine.settarget(31543);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(2);
delay(1000);
Engine.DlgSel('Доставка Яиц');
delay(1000);
engine.bypasstoserver('Quest 621_EggDelivery 31543-1.htm');
delay(1000);
Engine.moveto(149410, -112316, -2064);
Engine.moveto(149569, -112237, -2088);
delay(1000);
               engine.settarget(31546);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(2);
delay(1000);
Engine.DlgSel('Доставка Ликера');
delay(1000);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31546-1.htm');
delay(1000);
Engine.moveto(149885, -112724, -2066);
delay(1000);
             engine.settarget(31544);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(2);
delay(1000);
Engine.DlgSel('Доставка Яиц');
delay(1000);
engine.bypasstoserver('Quest 621_EggDelivery 31544-1.htm');
delay(1000);
engine.moveto(149191, -112432, -2066);
engine.moveto(147733, -113385, -2112);
delay(1000);
        engine.settarget(31545);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(2);
delay(1000);
Engine.DlgSel('Доставка Ликера');
delay(1000);
engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31545-1.htm');
delay(1000);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(2);
delay(1000);
Engine.DlgSel('Доставка Яиц');
delay(1000);
engine.bypasstoserver('Quest 621_EggDelivery 31545-1.htm');
delay(1000);
engine.moveto(149214, -112488, -2066);
engine.moveto(149857, -112747, -2066);
delay(1000);
        engine.settarget(31544);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(2);
delay(1000);
Engine.DlgSel('Доставка Ликера');
delay(1000);
engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31544-1.htm');
delay(500);
engine.moveto(149600, -112285, -2066);
delay(1000);
        engine.settarget(31546);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(2);
delay(1000);
Engine.DlgSel('Доставка Яиц');
delay(1000);
engine.bypasstoserver('Quest 621_EggDelivery 31546-1.htm');
delay(1000);
engine.moveto(147481, -112977, -2104);
delay(1000);
        engine.settarget(31543);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(2);
delay(1000);
Engine.DlgSel('Доставка Ликера');
delay(1000);
engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31543-1.htm');
delay(1000);
engine.moveto(147523, -113290, -2114);
delay(1000);
        engine.settarget(31547);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(2);
delay(1000);
Engine.DlgSel('Доставка Яиц');
delay(1000);
engine.bypasstoserver('Quest 621_EggDelivery 31547-1.htm');
delay(1000);
engine.moveto(149158, -112443, -2064);
engine.moveto(149520, -112675, -2064);
delay(1000);
        engine.settarget(31521);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(1);
delay(1000);
Engine.DlgSel('Доставка Ликера');
delay(1000);
engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31521-3.htm');
delay(1000);
engine.dlgopen;
engine.dlgsel(1);
delay(1000);
Engine.DlgSel('Доставка Яиц');
delay(1000);
engine.bypasstoserver('Quest 621_EggDelivery 31521-3.htm');
delay(1000);
engine.moveto(149081, -112458, -2080);
engine.moveto(148006, -113217, -2144);
delay(1000);
        engine.settarget(31267);
engine.dlgopen;
engine.dlgsel(4);
delay(1000);
engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31267-2.htm');
delay(1000);
engine.moveto(147748, -112799, -2136);
delay(1000);
        engine.settarget(31584);
engine.dlgopen;
engine.dlgsel(1);
delay(1000);
engine.bypasstoserver('Quest 621_EggDelivery 31584-2.htm');
delay(1000);
Engine.MoveTo(149176, -112472, -2064);
Engine.MoveTo(149512, -112664, -2064);
end;
end;

begin
Script.NewThread(@capt);
Script.NewThread(@ttrec);
end.

 

[platemate]

спасибо, хорошая работа

 

[wilmor]

Супер, твой скрипт помог дописать мой.Никак непонимал почему он не жмет все строчки при диалоге.

 

[platemate]

Thank you