Адреналин: квест ТТ с авторелог, автобаф и тп алт б

Поиск в этой теме
Опции темы
Адреналин: квест ТТ с авторелог, автобаф и тп алт б
Warhangel
Опубликовано 06-04-2026 04:15
Супер Администратор
Сообщений: 2718
Вас поблагодарили: 32
раз(а) в 27 сообщениях
Зарегистрирован: 24.03.10
Со дня регистрации: 5861
Откуда: Россия
Скрыть награды
header=[Награда №1] body=[Медаль Создателя]
Скрипт на квест ТТ рецепты с авторелогином при дисконекте + автобафф + телепорт через альт Б
Код выделить всё


 uses sysutils;

var obj: TL2NPC; obj21: TL2Effect;

i:Integer;

x, y : integer;

buff:TL2Buff;

loggedIn:boolean;

adena1: TL2Item;

adena2: TL2Item;

function ShellExecuteW(hwnd: integer; lpOperation, lpFile, lpParameters, lpDirectory: PChar;  nShowCmd: integer): integer; stdcall;

external 'Shell32.dll';

function keybd_event(bVk, bScan: byte; dwFlags, dwExtraInfo: integer): integer; stdcall;

external 'user32.dll';

function ShowWindow(hwnd:cardinal; action:integer):boolean; stdcall;

external 'user32.dll';

const

login = 'LOGIN';//логин    

password = 'PASS';//пароль

namePath = 'C:\Games\L2Intrelude\ACC-Pain-x5\Original.BAT' ;//ссылка BAT файл для изменения названия окна л2

gamePath = 'c:\Games\L2-cat-x5-pain\system\l2.exe';//ссылк а на клиент

///Проверка дисконекта///

procedure disconnectMonitor;

begin

if loggedIn=false then begin

loggedIn:=true;

Engine.FaceControl(0,false);

Delay(1000);

Eng ine.GameClose;

Delay(2000); // тут для каждого окна нужны разные данные c шагом 20000, что бы бот успевал вводить логин и пароль в своё окно

ShellExecuteW(0, 'open', PChar(namePath), nil, nil, 0);

Delay(2000); // тут для каждого окна нужны разные данные c шагом 20000, что бы бот успевал вводить логин и пароль в своё окно

ShellExecuteW(0, 'open', PChar(gamePath), nil, nil, 0);

Delay(30000); // Время загрузки клиента   

enterText(login);

Engine.UseKey('Tab');                       

Delay(500);

enterText(password);

Delay(500);

Engine.UseKey(& #39;Enter');

Delay(3000);

Engine.UseKey('Enter');

Delay( 3000);

Engine.UseKey('Enter');                         

Delay(10000);

Engine.UseKey('Enter');

Engine.FaceCont rol(0,true);

Delay(15000);//Время загрузки персонажа

///Проверка на дисконекта///

if (Engine.Status = lsOffline) or (Engine.Status = lsOff) then begin

loggedIn:= false;

Script.NewThread(@disconnectMonitor);

end;

end;

end;

proced ure enterText(const text: string);

var

i: cardinal;

upperCase: boolean;

begin

for i:= 1 to length(text) do begin

if isDigit(text[i]) then

Engine.UseKey(text[i])

else begin

upperCase:= text[i] = UpCase(text[i]);      

if upperCase then begin

keybd_event($A0, 0, 0, 0);          

end;

delay(20);      

Engine.UseKey(text[i]);      

end;

delay(20);

keybd_event($A0, 0, 2, 0);

delay(50);

end;

end;

function isDigit(ch: char): boolean;

const digits = '0123456789';

var i: cardinal;

begin

result:= true;

for i:= 0 to length(digits)-1 do

if digits[i] = ch then 

exit;

result:= false;

end;

procedure MoveToCheckStealth(x,y,z:integer);

begin

Engine.Useskill(411);

Engin e.Useskill(4);

Engine.MoveTo(x,y,z);

end;





begin

    ///Телепорт Alt+B///

engine.bypasstoserver('_bbsloc');

delay(2000);

engi ne.bypasstoserver( '_bbstop;51');

delay(2000);

engine.bypasstoserver('_bbsto p;517');

delay(2000);

engine.bypasstoserver('_bbsteleport;tel eport; 147725 -56517 -2780 5000');

delay(10000);



for i:=1 to 1000 do

begin

while true do begin



///Проверка на дисконекта///

if (Engine.Status = lsOffline) or (Engine.Status = lsOff) then begin

loggedIn:= false;

Script.NewThread(@disconnectMonitor);

end;

 inventory.Us er.ByID(57, adena1);

 if User.Dead then begin

  Engine.gohome;

  delay(30000);

    ///Телепорт Alt+B///

engine.bypasstoserver('_bbsloc');

delay(2000);

engi ne.bypasstoserver( '_bbstop;51');

delay(2000);

engine.bypasstoserver('_bbsto p;517');

delay(2000);

engine.bypasstoserver('_bbsteleport;tel eport; 147725 -56517 -2780 5000');

delay(10000);

 end;

if not User.Buffs.ById(1204, Buff) then  // Проверка есть ли на нас бафф ВВ по ID

begin

////БАФ Alt+B////

engine.bypasstoserver('_bbshome');

delay(2000);

en gine.bypasstoserver('_bbsbuff;');          

delay(2000);

engine.bypasstoserver( '_bbsbuff;restore;kach');

end;

X:=X+1;

Engine.MoveTo(147960,  -55272, -2728);

engine.settarget(31275);

delay(2000);

engine.dlgOPen();

del ay(2000);

engine.dlgsel(1);

delay(2000);

engine.dlgsel(11);

delay(1 0000);                               // задержка тп с Гдд в ХС

MoveToCheckStealth(145976, -112696, -2384);

MoveToCheckStealth(148920, -112568, -2080);

MoveToCheckStealth(149176, -112472, -2048);

MoveToCheckStealth(149528, -112680, -2048);

engine.SetTarget(31521);

delay(2000);        

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(1);          

 delay(2000);

 engine.dlgsel(1);           

 delay(2000);

 engine.bypasstoserver('Quest _621_EggDelivery jeremy_q0621_0104.htm');          

 delay(2000);

engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(1);          

 delay(2000);

 engine.dlgsel(2);           

 delay(2000);

 engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor jeremy_q0622_0104.htm');          

MoveToCheckStealth(149100, -112430, -2072);

MoveToCheckStealth(148169, -112663, -2164);

MoveToCheckStealth(147912, -113048, -2144);

MoveToCheckStealth(147528, -113304, -2112);

MoveToCheckStealth(147528, -113304, -2112);

engine.SetTarget(31547);

delay(2000);        

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(2);          

 delay(2000);

 engine.dlgsel(2);           

 delay(2000);

 engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor beolin_q0622_0201.htm');          

 MoveToCheckStealth(148637, -111871, -2159);

 MoveToCheckStealth(149627, -110822, -2273);

 MoveToCheckStealth(148967, -108781, -2569);

 MoveToCheckStealth(145763, -108986, -3402);

 MoveToCheckStealth(143215, -108754, -3526);

 MoveToCheckStealth(141682, -109407, -3594);

  MoveToCheckStealth(141682, -109407, -3594);

 engine.SetTarget(31546);

delay(2000);        

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(2);          

 delay(2000);

 engine.dlgsel(2);           

 delay(2000);

 engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor kuber_q0622_0301.htm');          

MoveToCheckStealth(141763, -107971, -3552);

MoveToCheckStealth(140663, -106423, -3634);

MoveToCheckStealth(140668, -105535, -3635);

MoveToCheckStealth(140668, -105535, -3635);

engine.SetTarget(31545);

delay(2000);        

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(2);          

 delay(2000);

 engine.dlgsel(2);           

 delay(2000);

 engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor crocus_q0622_0401.htm');   

MoveToCheckStealth(142225, -104436, -3632);

MoveToCheckStealth(143084, -104068, -3599);

MoveToCheckStealth(143630, -103422, -3595);

MoveToCheckStealth(143701, -102734, -3518);

MoveToCheckStealth(144408, -102045, -3505);

MoveToCheckStealth(144797, -100712, -3283);

MoveToCheckStealth(146350, -101089, -3173);

MoveToCheckStealth(149050, -100855, -2929);

MoveToCheckStealth(151284, -101495, -2900);

MoveToCheckStealth(153809, -101009, -2933);

MoveToCheckStealth(154831, -104208, -2810);

MoveToCheckStealth(155733, -104693, -2748);

MoveToCheckStealth(155813, -105614, -2756);

MoveToCheckStealth(155654, -105680, -2757);

  MoveToCheckStealth(155654, -105680, -2757);

engine.SetTarget(31544);

delay(2000);        

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(2);          

 delay(2000);

 engine.dlgsel(2);           

 delay(2000);

 engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor naff_q0622_0501.htm');          

MoveToCheckStealth(155448, -106680, -2704);

MoveToCheckStealth(156472, -106888, -2656);

MoveToCheckStealth(159512, -106904, -2400);

MoveToCheckStealth(161480, -107640, -2224);

MoveToCheckStealth(162664, -108904, -2232);

MoveToCheckStealth(162296, -111432, -2088);

MoveToCheckStealth(162504, -113080, -2512);

MoveToCheckStealth(161704, -116232, -2128);

MoveToCheckStealth(159656, -115928, -1744);

MoveToCheckStealth(158136, -115784, -1864);

MoveToCheckStealth(157720, -115512, -1888);

MoveToCheckStealth(157640, -115368, -1888);

MoveToCheckStealth(157640, -115368, -1888);

engine.SetTarget(31543);

delay(2000);        

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(2);          

 delay(2000);

 engine.dlgsel(2);           

 delay(2000);

 engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor pulin_q0622_0601.htm');          

 delay(2000);

 engine.dlgOpen();

 delay(2000);

&nbs p;engine.dlgsel(2);          

 delay(2000);

 engine.dlgsel(1);           

 delay(2000);

 engine.bypasstoserver('Quest _621_EggDelivery pulin_q0621_0201.htm');          

MoveToCheckStealth(156536, -113928, -1712);

MoveToCheckStealth(156328, -112392, -1824);

MoveToCheckStealth(156648, -110952, -2560);

MoveToCheckStealth(156760, -110328, -2656);

MoveToCheckStealth(156360, -109128, -2656);

MoveToCheckStealth(155944, -106168, -2720);

MoveToCheckStealth(155656, -105736, -2736);

MoveToCheckStealth(155656, -105736, -2736);

engine.SetTarget(31544);

delay(2000);        

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(2);          

 delay(2000);

 engine.dlgsel(1);           

 delay(2000);

 engine.bypasstoserver('Quest _621_EggDelivery naff_q0621_0301.htm');          

 MoveToCheckStealth(155624, -105624, -2736);

 MoveToCheckStealth(154184, -103608, -2912);

 MoveToCheckStealth(153224, -101848, -2720);

 MoveToCheckStealth(152120, -101432, -2896);

 MoveToCheckStealth(150392, -101272, -2880);

 MoveToCheckStealth(148296, -101000, -2960);

 MoveToCheckStealth(144776, -100808, -3296);

 MoveToCheckStealth(144248, -102824, -3536);

 MoveToCheckStealth(140760, -105416, -3616);

  MoveToCheckStealth(140760, -105416, -3616);



engine.SetTarget(31545);

delay(2000);        

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(2);          

 delay(2000);

 engine.dlgsel(1);           

 delay(2000);

 engine.bypasstoserver('Quest _621_EggDelivery crocus_q0621_0401.htm');          

MoveToCheckStealth(141080, -107528, -3600);

MoveToCheckStealth(141720, -107912, -3536);

MoveToCheckStealth(141624, -109400, -3568);

MoveToCheckStealth(141624, -109400, -3568);

engine.SetTarget(31546);

delay(2000);        

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(2);          

 delay(2000);

 engine.dlgsel(1);           

 delay(2000);

 engine.bypasstoserver('Quest _621_EggDelivery kuber_q0621_0501.htm');          

MoveToCheckStealth(143144, -108936, -3520);

MoveToCheckStealth(144696, -108936, -3472);

MoveToCheckStealth(146488, -108936, -3208);

MoveToCheckStealth(148248, -108888, -2720);

MoveToCheckStealth(149032, -108904, -2544);

MoveToCheckStealth(149576, -110168, -2368);

MoveToCheckStealth(149464, -111016, -2256);

MoveToCheckStealth(148712, -111880, -2160);

MoveToCheckStealth(147928, -112776, -2128);

MoveToCheckStealth(147528, -113272, -2096);

MoveToCheckStealth(147528, -113272, -2096);

engine.SetTarget(31547);

delay(2000);        

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(2);          

 delay(2000);

 engine.dlgsel(1);           

 delay(2000);

 engine.bypasstoserver('Quest _621_EggDelivery beolin_q0621_0601.htm');          

MoveToCheckStealth(148984, -112552, -2080);

MoveToCheckStealth(149240, -112472, -2048);

MoveToCheckStealth(149512, -112680, -2048);

MoveToCheckStealth(149512, -112680, -2048);

engine.SetTarget(31521);

delay(2000);        

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(1);          

 delay(2000);

 engine.dlgsel(1);           

 delay(2000);

 engine.bypasstoserver('Quest _621_EggDelivery jeremy_q0621_0701.htm');          

 delay(2000);

engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(1);          

 delay(2000);

 engine.dlgsel(2);           

 delay(2000);

 engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor jeremy_q0622_0701.htm');          

 delay(2000);

  ///Телепорт Alt+B///

engine.bypasstoserver('_bbsloc');

delay(2000);

engi ne.bypasstoserver( '_bbstop;51');

delay(2000);

engine.bypasstoserver('_bbsto p;517');

delay(2000);

engine.bypasstoserver('_bbsteleport;tel eport; 147725 -56517 -2780 5000');

delay(10000);



Engine.MoveTo(147688, -57240, -2776);

Engine.MoveTo(147624, -58232, -2976);

Engine.MoveTo(146520, -58120, -2976);

Engine.MoveTo(146200, -57928, -2976);

Engine.MoveTo(146408, -57544, -2960);



engine.SetTarget(31267);

delay(2000);        

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(4);          

 delay(2000);

 engine.bypasstoserver('Quest _622_DeliveryofSpecialLiquor warehouse_keeper_lietta_q0622_0801.htm');           





 Engine.MoveTo(146184, -57960, -2976);

 Engine.MoveTo(146664, -58168, -2976);

 Engine.MoveTo(147704, -58104, -2976);

 Engine.MoveTo(148616, -58040, -2976);

 Engine.MoveTo(149176, -57896, -2976);

 Engine.MoveTo(149144, -57640, -2968);

 Engine.MoveTo(149320, -57464, -2968);

 



 

 engine.SetTarget(31584);

delay(2000);         

 engine.dlgOpen();           

 delay(2000);

 engine.dlgsel(1);          

 delay(2000);

 engine.bypasstoserver('Quest _621_EggDelivery brewer_valentine_q0621_0801.htm');           

Engine.MoveTo(149144, -57656, -2968);

Engine.MoveTo(149160, -57928, -2976);

Engine.MoveTo(148248, -58072, -2976);

 Engine.MoveTo(147720, -58072, -2976);

 Engine.MoveTo(147720, -57208, -2784);

 Engine.MoveTo(147928, -55544, -2728);

 Engine.MoveTo(147960, -55272, -2728);

 inventory.User.ByID(57, adena2);

if (adena1.count = adena2.count) then begin

loggedIn:=false; 

disconnectMonitor;

end;



end;

end;

end.
найден на просторах интернета
Game новости

Game сервисы

Инфо сервисы
