Скрипт на квест ТТ рецепты с авторелогином при дисконекте + автобафф + телепорт через альт Б

[P5LD2SE 24]

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);
Engine.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('Enter');
Delay(3000);
Engine.UseKey('Enter');
Delay(3000);
Engine.UseKey('Enter');                         
Delay(10000);
Engine.UseKey('Enter');
Engine.FaceControl(0,true);
Delay(15000);//Время загрузки персонажа
///Проверка на дисконекта///
if (Engine.Status = lsOffline) or (Engine.Status = lsOff) then begin
loggedIn:= false;
Script.NewThread(@disconnectMonitor);
end;
end;
end;
procedure 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);
Engine.Useskill(4);
Engine.MoveTo(x,y,z);
end;

begin
    ///Телепорт Alt+B///
engine.bypasstoserver('_bbsloc');
delay(2000);
engine.bypasstoserver( '_bbstop;51');
delay(2000);
engine.bypasstoserver('_bbstop;517');
delay(2000);
engine.bypasstoserver('_bbsteleport;teleport; 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.User.ByID(57, adena1);
 if User.Dead then begin
  Engine.gohome;
  delay(30000);
    ///Телепорт Alt+B///
engine.bypasstoserver('_bbsloc');
delay(2000);
engine.bypasstoserver( '_bbstop;51');
delay(2000);
engine.bypasstoserver('_bbstop;517');
delay(2000);
engine.bypasstoserver('_bbsteleport;teleport; 147725 -56517 -2780 5000');
delay(10000);
 end;
if not User.Buffs.ById(1204, Buff) then  // Проверка есть ли на нас бафф ВВ по ID
begin
////БАФ Alt+B////
engine.bypasstoserver('_bbshome');
delay(2000);
engine.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();
delay(2000);
engine.dlgsel(1);
delay(2000);
engine.dlgsel(11);
delay(10000);                               // задержка тп с Гдд в ХС
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);
 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);
engine.bypasstoserver( '_bbstop;51');
delay(2000);
engine.bypasstoserver('_bbstop;517');
delay(2000);
engine.bypasstoserver('_bbsteleport;teleport; 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.