- Рег
- 5 Июл 2016
- Сообщения
- 11
- Реакции
- 0
Добрый день, уважаемы помогите, пишу скрипт, но возникла трудность, бот не хочет нажимать в последнем диалоге строку
procedure ttrec;
begin
while true do begin
delay(500);
engine.settarget(31521);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(1);
delay(1000);
Engine.DlgSel('Egg Delivery');
delay(1000);
engine.dlgsel(1);
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);
begin
while true do begin
delay(500);
engine.settarget(31521);
engine.movetotarget(-10);
engine.dlgopen;
engine.dlgsel(1);
delay(1000);
Engine.DlgSel('Egg Delivery');
delay(1000);
engine.dlgsel(1);
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);