Jump to content
MaxCheaters Official Group on Discord
Top.MaxCheaters.com is now OPEN – Lineage 2 Top Listing

L2 Adrenaline Scripts.

hornas

By hornas
in Request Botting [English]

 Share

Recommended Posts

trojantrojan Newbie

trojantrojan

Posted
Posted

 

almost all servers use smartguard, so auto relog is useless, because smartguard block keys and mouse clicks, but if u mean only restart and start game again u can try 

engine.restart; //restart to char select screen;

engine.gamestart(0); //0 is char id

thx for the answer,,but here's another one XD,,,

is it posible to make script for open game client and write down the id and pass and login to the game?

adr.bot Rookie

adr.bot

Posted
Posted

thx for the answer,,but here's another one XD,,,

is it posible to make script for open game client and write down the id and pass and login to the game?

well, here is example, i found it on internet, just saying if server got smartguard it will not work

uses SysUtils;
 
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';
 
procedure disconnectMonitor;
const
  login = 'lgn';
  password = 'pwd';
  gamePath = 'F:\l2gf\system\l2.exe';
begin
  while Delay(3000) do begin  
    if Engine.Status = lsOffline then begin
      print('dc');
      Engine.FaceControl(0, false);
      Delay(1000);
      Engine.GameClose;
      Delay(1000);
      ShellExecuteW(0, 'open', PChar(gamePath), nil, nil, 0);
      Delay(10000);
      enterText(login);
      Engine.UseKey('Tab');
      Delay(300);
      enterText(password);
      Delay(300);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(10000);
      Engine.FaceControl(0, true);
    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(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
          Engine.UseKey(text[i]);
          delay(10);
          keybd_event(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
      end else
        Engine.UseKey(text[i]);
    end;
    Delay(50);
  end;
end;
 
function isDigit(ch: char): boolean;
const
  digits = '013456789';
var
  i: cardinal;
begin
  result:= false;
  for i:= 0 to length(digits) do
    if digits[i] = ch then begin
      result:= true;
      exit;
    end;
end;
                        
begin
  Script.NewThread(@disconnectMonitor);
end.
trojantrojan Newbie

trojantrojan

Posted
Posted

 

well, here is example, i found it on internet, just saying if server got smartguard it will not work

uses SysUtils;
 
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';
 
procedure disconnectMonitor;
const
  login = 'lgn';
  password = 'pwd';
  gamePath = 'F:\l2gf\system\l2.exe';
begin
  while Delay(3000) do begin  
    if Engine.Status = lsOffline then begin
      print('dc');
      Engine.FaceControl(0, false);
      Delay(1000);
      Engine.GameClose;
      Delay(1000);
      ShellExecuteW(0, 'open', PChar(gamePath), nil, nil, 0);
      Delay(10000);
      enterText(login);
      Engine.UseKey('Tab');
      Delay(300);
      enterText(password);
      Delay(300);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(10000);
      Engine.FaceControl(0, true);
    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(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
          Engine.UseKey(text[i]);
          delay(10);
          keybd_event(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
      end else
        Engine.UseKey(text[i]);
    end;
    Delay(50);
  end;
end;
 
function isDigit(ch: char): boolean;
const
  digits = '013456789';
var
  i: cardinal;
begin
  result:= false;
  for i:= 0 to length(digits) do
    if digits[i] = ch then begin
      result:= true;
      exit;
    end;
end;
                        
begin
  Script.NewThread(@disconnectMonitor);
end.

thx a lot sir,this is very helpful, i hope i can learn delhi language..

  • 4 weeks later...
adr.bot Rookie

adr.bot

Posted
Posted

well anyone if need with auto login, its not perfect but better than nothing

uses SysUtils;

const
buff_ID:integer = 7029;

var
loggedIn:boolean;
 
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';
 
procedure disconnectMonitor;
const
  login = 'qq';
  password = 'aa';
  gamePath = 'C:\Users\Pc\Desktop\server\Lineage II\system\l2.exe';
begin
  while engine.Delay(3000) do begin  
    if (Engine.Status = lsOffline) or (Engine.Status = lsOff) then begin
      loggedIn:=true;
      print('dc');
      Engine.FaceControl(0, false);
      Delay(1000);
      Engine.GameClose;
      Delay(1000);
      ShellExecuteW(0, 'open', PChar(gamePath), nil, nil, 0);
      Delay(15000);
      enterText(login);
      Engine.UseKey('Tab');
      Delay(300);
      enterText(password);
      Delay(300);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(10000);
      ShowWindow(engine.gamewindow, 6);
    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(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
          Engine.UseKey(text[i]);
          delay(10);
          keybd_event(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
      end else
        Engine.UseKey(text[i]);
    end;
    Delay(50);
  end;
end;
 
function isDigit(ch: char): boolean;
const
  digits = '013456789';
var
  i: cardinal;
begin
  result:= false;
  for i:= 0 to length(digits) do
    if digits[i] = ch then begin
      result:= true;
      exit;
    end;
end;

function buffCheck: Boolean;
var buff: TL2Buff;
begin
Result:=false;
    if not User.Buffs.ByID(buff_ID, buff) then begin
        Result:=true;
        Print('Buffs are needed...');
        if Engine.SetTarget(31692) then begin //NPC ID
           engine.useskill(7029);
           delay(1111);
           //buff part here
           Print('Buffed.');
        end else begin
           if (user.target.valid) and (user.target.attackable) then
           while not user.target.dead do delay(50);
           Engine.FaceControl(0, false);
           print('No buffer - doing soe...');
           if engine.entertext('/unstuck') and engine.delay(1111) then
           while user.cast.endtime <> 0 do delay(2222);
           delay(5555);
        end;
    end;
end;

function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Result := true;
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(5555);
    end;
end;

procedure farmAndBack;
begin
while true do begin
delay(1111);
if not loggedIn then begin
if engine.status = lsonline then begin
//---------------------------------------------------
// Goddard
//---------------------------------------------------
if user.inrange(146272, -58176, -2976, 250, 150) then begin
if User.InRange(146272, -58176, -2971, 300, 150) then Engine.MoveTo(145849, -57856, -2983);
if User.InRange(145849, -57856, -2983, 300, 150) then Engine.MoveTo(145708, -57656, -2983);
if User.InRange(145708, -57656, -2983, 300, 150) then Engine.MoveTo(145480, -56995, -2983);
if User.InRange(145480, -56995, -2983, 300, 150) then Engine.MoveTo(145600, -56820, -2979);
if User.InRange(145600, -56820, -2979, 300, 150) then Engine.MoveTo(145770, -56703, -2888);
if User.InRange(145770, -56703, -2888, 300, 150) then Engine.MoveTo(146136, -56468, -2783);
if User.InRange(146136, -56468, -2783, 300, 150) then Engine.MoveTo(147158, -56153, -2783);
if User.InRange(147158, -56153, -2783, 300, 150) then Engine.MoveTo(147523, -56004, -2775);
if User.InRange(147523, -56004, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(145264, -57680, -2976, 250, 150) then begin
if User.InRange(145264, -57680, -2971, 300, 150) then Engine.MoveTo(145484, -56907, -2983);
if User.InRange(145484, -56907, -2983, 300, 150) then Engine.MoveTo(145773, -56699, -2886);
if User.InRange(145773, -56699, -2886, 300, 150) then Engine.MoveTo(146107, -56480, -2784);
if User.InRange(146107, -56480, -2784, 300, 150) then Engine.MoveTo(147192, -56142, -2783);
if User.InRange(147192, -56142, -2783, 300, 150) then Engine.MoveTo(147520, -55983, -2775);
if User.InRange(147520, -55983, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(145696, -57696, -2976, 250, 150) then begin
if User.InRange(145696, -57696, -2971, 300, 150) then Engine.MoveTo(145500, -56937, -2983);
if User.InRange(145500, -56937, -2983, 300, 150) then Engine.MoveTo(145773, -56701, -2886);
if User.InRange(145773, -56701, -2886, 300, 150) then Engine.MoveTo(146121, -56472, -2783);
if User.InRange(146121, -56472, -2783, 300, 150) then Engine.MoveTo(147265, -56109, -2783);
if User.InRange(147265, -56109, -2783, 300, 150) then Engine.MoveTo(147500, -55930, -2767);
if User.InRange(147500, -55930, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(144944, -55392, -2976, 250, 150) then begin
if User.InRange(144944, -55392, -2971, 300, 150) then Engine.MoveTo(144913, -55647, -2983);
if User.InRange(144913, -55647, -2983, 300, 150) then Engine.MoveTo(145027, -56285, -2983);
if User.InRange(145027, -56285, -2983, 300, 150) then Engine.MoveTo(145092, -56489, -2983);
if User.InRange(145092, -56489, -2983, 300, 150) then Engine.MoveTo(145356, -56891, -2983);
if User.InRange(145356, -56891, -2983, 300, 150) then Engine.MoveTo(145539, -56846, -2983);
if User.InRange(145539, -56846, -2983, 300, 150) then Engine.MoveTo(145763, -56692, -2887);
if User.InRange(145763, -56692, -2887, 300, 150) then Engine.MoveTo(146103, -56477, -2784);
if User.InRange(146103, -56477, -2784, 300, 150) then Engine.MoveTo(147008, -56177, -2783);
if User.InRange(147008, -56177, -2783, 300, 150) then Engine.MoveTo(147497, -55998, -2775);
if User.InRange(147497, -55998, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(144752, -56752, -2976, 250, 150) then begin
if User.InRange(144752, -56752, -2971, 300, 150) then Engine.MoveTo(145283, -56881, -2983);
if User.InRange(145283, -56881, -2983, 300, 150) then Engine.MoveTo(145480, -56896, -2983);
if User.InRange(145480, -56896, -2983, 300, 150) then Engine.MoveTo(145769, -56691, -2885);
if User.InRange(145769, -56691, -2885, 300, 150) then Engine.MoveTo(146121, -56472, -2783);
if User.InRange(146121, -56472, -2783, 300, 150) then Engine.MoveTo(147223, -56110, -2783);
if User.InRange(147223, -56110, -2783, 300, 150) then Engine.MoveTo(147480, -55983, -2775);
if User.InRange(147480, -55983, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(149120, -58064, -2976, 250, 150) then begin
if User.InRange(149120, -58064, -2971, 300, 150) then Engine.MoveTo(149581, -57760, -2983);
if User.InRange(149581, -57760, -2983, 300, 150) then Engine.MoveTo(149689, -57638, -2983);
if User.InRange(149689, -57638, -2983, 300, 150) then Engine.MoveTo(149962, -57118, -2983);
if User.InRange(149962, -57118, -2983, 300, 150) then Engine.MoveTo(149948, -56913, -2983);
if User.InRange(149948, -56913, -2983, 300, 150) then Engine.MoveTo(149650, -56697, -2885);
if User.InRange(149650, -56697, -2885, 300, 150) then Engine.MoveTo(149265, -56443, -2783);
if User.InRange(149265, -56443, -2783, 300, 150) then Engine.MoveTo(148211, -56093, -2783);
if User.InRange(148211, -56093, -2783, 300, 150) then Engine.MoveTo(147914, -55957, -2774);
if User.InRange(147914, -55957, -2774, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(150400, -56752, -2976, 250, 150) then begin
if User.InRange(150400, -56752, -2971, 300, 150) then Engine.MoveTo(150019, -56918, -2983);
if User.InRange(150019, -56918, -2983, 300, 150) then Engine.MoveTo(149663, -56695, -2889);
if User.InRange(149663, -56695, -2889, 300, 150) then Engine.MoveTo(149320, -56465, -2783);
if User.InRange(149320, -56465, -2783, 300, 150) then Engine.MoveTo(149125, -56366, -2783);
if User.InRange(149125, -56366, -2783, 300, 150) then Engine.MoveTo(148213, -56122, -2783);
if User.InRange(148213, -56122, -2783, 300, 150) then Engine.MoveTo(147934, -55937, -2767);
if User.InRange(147934, -55937, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(150704, -55744, -2976, 250, 150) then begin
if User.InRange(150704, -55744, -2971, 300, 150) then Engine.MoveTo(150450, -56378, -2983);
if User.InRange(150450, -56378, -2983, 300, 150) then Engine.MoveTo(150249, -56735, -2983);
if User.InRange(150249, -56735, -2983, 300, 150) then Engine.MoveTo(150018, -56927, -2983);
if User.InRange(150018, -56927, -2983, 300, 150) then Engine.MoveTo(149657, -56697, -2888);
if User.InRange(149657, -56697, -2888, 300, 150) then Engine.MoveTo(149335, -56480, -2784);
if User.InRange(149335, -56480, -2784, 300, 150) then Engine.MoveTo(149183, -56379, -2783);
if User.InRange(149183, -56379, -2783, 300, 150) then Engine.MoveTo(148654, -56222, -2783);
if User.InRange(148654, -56222, -2783, 300, 150) then Engine.MoveTo(148065, -56072, -2783);
if User.InRange(148065, -56072, -2783, 300, 150) then Engine.MoveTo(147935, -55915, -2767);
if User.InRange(147935, -55915, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(147680, -58208, -2976, 250, 150) then begin
if User.InRange(147680, -58208, -2971, 300, 150) then Engine.MoveTo(147709, -57988, -2983);
if User.InRange(147709, -57988, -2983, 300, 150) then Engine.MoveTo(147712, -57707, -2886);
if User.InRange(147712, -57707, -2886, 300, 150) then Engine.MoveTo(147720, -57307, -2784);
if User.InRange(147720, -57307, -2784, 300, 150) then Engine.MoveTo(147744, -56149, -2783);
if User.InRange(147744, -56149, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(148288, -58304, -2976, 250, 150) then begin
if User.InRange(148288, -58304, -2971, 300, 150) then Engine.MoveTo(147728, -58113, -2983);
if User.InRange(147728, -58113, -2983, 300, 150) then Engine.MoveTo(147719, -57704, -2884);
if User.InRange(147719, -57704, -2884, 300, 150) then Engine.MoveTo(147723, -57327, -2784);
if User.InRange(147723, -57327, -2784, 300, 150) then Engine.MoveTo(147747, -56101, -2783);
if User.InRange(147747, -56101, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(147232, -58480, -2976, 250, 150) then begin
if User.InRange(147232, -58480, -2971, 300, 150) then Engine.MoveTo(147654, -58136, -2983);
if User.InRange(147654, -58136, -2983, 300, 150) then Engine.MoveTo(147710, -57978, -2983);
if User.InRange(147710, -57978, -2983, 300, 150) then Engine.MoveTo(147707, -57704, -2885);
if User.InRange(147707, -57704, -2885, 300, 150) then Engine.MoveTo(147709, -57313, -2784);
if User.InRange(147709, -57313, -2784, 300, 150) then Engine.MoveTo(147733, -56181, -2783);
if User.InRange(147733, -56181, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(149088, -56256, -2776, 250, 150) then begin
if User.InRange(149088, -56256, -2771, 300, 150) then Engine.MoveTo(148389, -56149, -2783);
if User.InRange(148389, -56149, -2783, 300, 150) then Engine.MoveTo(148043, -56064, -2783);
if User.InRange(148043, -56064, -2783, 300, 150) then Engine.MoveTo(147912, -55922, -2767);
if User.InRange(147912, -55922, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(146832, -55904, -2776, 250, 150) then begin
if User.InRange(146832, -55904, -2771, 300, 150) then Engine.MoveTo(147303, -56054, -2783);
if User.InRange(147303, -56054, -2783, 300, 150) then Engine.MoveTo(147490, -56005, -2775);
if User.InRange(147490, -56005, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(146368, -56256, -2776, 250, 150) then begin
if User.InRange(146368, -56256, -2771, 300, 150) then Engine.MoveTo(146968, -56156, -2783);
if User.InRange(146968, -56156, -2783, 300, 150) then Engine.MoveTo(147349, -56110, -2783);
if User.InRange(147349, -56110, -2783, 300, 150) then Engine.MoveTo(147498, -55988, -2775);
if User.InRange(147498, -55988, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(147664, -56464, -2776, 250, 150) then begin
if User.InRange(147664, -56464, -2771, 300, 150) then Engine.MoveTo(147701, -56046, -2775);
if User.InRange(147701, -56046, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(147680, -56928, -2776, 250, 150) then begin
if User.InRange(147680, -56928, -2771, 300, 150) then Engine.MoveTo(147707, -56086, -2783);
if User.InRange(147707, -56086, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(148560, -55904, -2776, 250, 150) then begin
if User.InRange(148560, -55904, -2771, 300, 150) then Engine.MoveTo(148213, -56048, -2783);
if User.InRange(148213, -56048, -2783, 300, 150) then Engine.MoveTo(147970, -56030, -2783);
if User.InRange(147970, -56030, -2783, 300, 150) then Engine.MoveTo(147927, -55934, -2767);
if User.InRange(147927, -55934, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(149872, -57424, -2976, 250, 150) then begin
if User.InRange(149872, -57424, -2971, 300, 150) then Engine.MoveTo(149954, -56966, -2983);
if User.InRange(149954, -56966, -2983, 300, 150) then Engine.MoveTo(149857, -56845, -2983);
if User.InRange(149857, -56845, -2983, 300, 150) then Engine.MoveTo(149650, -56703, -2887);
if User.InRange(149650, -56703, -2887, 300, 150) then Engine.MoveTo(149320, -56472, -2784);
if User.InRange(149320, -56472, -2784, 300, 150) then Engine.MoveTo(149157, -56414, -2783);
if User.InRange(149157, -56414, -2783, 300, 150) then Engine.MoveTo(148651, -56204, -2783);
if User.InRange(148651, -56204, -2783, 300, 150) then Engine.MoveTo(147991, -56027, -2783);
if User.InRange(147991, -56027, -2783, 300, 150) then Engine.MoveTo(147888, -55926, -2767);
if User.InRange(147888, -55926, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(144960, -56224, -2976, 250, 150) then begin
if User.InRange(144960, -56224, -2971, 300, 150) then Engine.MoveTo(145058, -56508, -2983);
if User.InRange(145058, -56508, -2983, 300, 150) then Engine.MoveTo(145266, -56844, -2983);
if User.InRange(145266, -56844, -2983, 300, 150) then Engine.MoveTo(145477, -56903, -2983);
if User.InRange(145477, -56903, -2983, 300, 150) then Engine.MoveTo(145776, -56696, -2884);
if User.InRange(145776, -56696, -2884, 300, 150) then Engine.MoveTo(146140, -56448, -2783);
if User.InRange(146140, -56448, -2783, 300, 150) then Engine.MoveTo(146776, -56191, -2783);
if User.InRange(146776, -56191, -2783, 300, 150) then Engine.MoveTo(147356, -56089, -2783);
if User.InRange(147356, -56089, -2783, 300, 150) then Engine.MoveTo(147516, -55930, -2767);
if User.InRange(147516, -55930, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;   
if user.inrange(144496, -55088, -2976, 250, 150) then begin
if User.InRange(144496, -55088, -2971, 300, 150) then Engine.MoveTo(144742, -55433, -2983);
if User.InRange(144742, -55433, -2983, 300, 150) then Engine.MoveTo(144847, -56003, -2983);
if User.InRange(144847, -56003, -2983, 300, 150) then Engine.MoveTo(145064, -56560, -2983);
if User.InRange(145064, -56560, -2983, 300, 150) then Engine.MoveTo(145339, -56939, -2983);
if User.InRange(145339, -56939, -2983, 300, 150) then Engine.MoveTo(145563, -56858, -2983);
if User.InRange(145563, -56858, -2983, 300, 150) then Engine.MoveTo(145799, -56680, -2884);
if User.InRange(145799, -56680, -2884, 300, 150) then Engine.MoveTo(146159, -56446, -2783);
if User.InRange(146159, -56446, -2783, 300, 150) then Engine.MoveTo(146788, -56217, -2783);
if User.InRange(146788, -56217, -2783, 300, 150) then Engine.MoveTo(147374, -56057, -2783);
if User.InRange(147374, -56057, -2783, 300, 150) then Engine.MoveTo(147521, -55936, -2767);
if User.InRange(147521, -55936, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(145392, -56960, -2976, 250, 150) then begin
if User.InRange(145392, -56960, -2971, 300, 150) then Engine.MoveTo(145577, -56837, -2983);
if User.InRange(145577, -56837, -2983, 300, 150) then Engine.MoveTo(145791, -56684, -2884);
if User.InRange(145791, -56684, -2884, 300, 150) then Engine.MoveTo(146151, -56432, -2783);
if User.InRange(146151, -56432, -2783, 300, 150) then Engine.MoveTo(146760, -56200, -2783);
if User.InRange(146760, -56200, -2783, 300, 150) then Engine.MoveTo(147179, -56107, -2783);
if User.InRange(147179, -56107, -2783, 300, 150) then Engine.MoveTo(147476, -56003, -2775);
if User.InRange(147476, -56003, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(147705, -58490, -2981, 500, 150) then begin
if User.InRange(147705, -58490, -2976, 300, 150) then Engine.MoveTo(147720, -57977, -2983);
if User.InRange(147720, -57977, -2983, 300, 150) then Engine.MoveTo(147713, -57704, -2885);
if User.InRange(147713, -57704, -2885, 300, 150) then Engine.MoveTo(147711, -57295, -2783);
if User.InRange(147711, -57295, -2783, 300, 150) then Engine.MoveTo(147723, -56053, -2783);
if User.InRange(147723, -56053, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(150257, -57162, -2981, 500, 150) then begin
if User.InRange(150257, -57162, -2976, 300, 150) then Engine.MoveTo(149917, -56883, -2983);
if User.InRange(149917, -56883, -2983, 300, 150) then Engine.MoveTo(149643, -56689, -2884);
if User.InRange(149643, -56689, -2884, 300, 150) then Engine.MoveTo(149271, -56442, -2783);
if User.InRange(149271, -56442, -2783, 300, 150) then Engine.MoveTo(148627, -56183, -2783);
if User.InRange(148627, -56183, -2783, 300, 150) then Engine.MoveTo(148028, -56075, -2783);
if User.InRange(148028, -56075, -2783, 300, 150) then Engine.MoveTo(147923, -55927, -2767);
if User.InRange(147923, -55927, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(145152, -57116, -2981, 500, 150) then begin
if User.InRange(145152, -57116, -2976, 300, 150) then Engine.MoveTo(145552, -56852, -2983);
if User.InRange(145552, -56852, -2983, 300, 150) then Engine.MoveTo(145797, -56682, -2884);
if User.InRange(145797, -56682, -2884, 300, 150) then Engine.MoveTo(146120, -56451, -2783);
if User.InRange(146120, -56451, -2783, 300, 150) then Engine.MoveTo(146788, -56201, -2783);
if User.InRange(146788, -56201, -2783, 300, 150) then Engine.MoveTo(147303, -56071, -2783);
if User.InRange(147303, -56071, -2783, 300, 150) then Engine.MoveTo(147508, -55967, -2775);
if User.InRange(147508, -55967, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;

    if user.inrange(147963, -55257, -2736, 500) then begin
        buffCheck;
    end;                                                
    
    if user.inrange(147963, -55257, -2736, 150) and User.Buffs.ByID(buff_ID, buffCheck) then begin
        //teleport
        engine.settarget(31275);
        delay(1111);
        engine.dlgopen;
        delay(1111);
        engine.dlgsel(1);
        delay(1111);
        engine.dlgsel(11);
        Delay(5000);
    end;    
                
    if user.inrange(149574, -112680, -2060, 500) then begin
        //coord to spot
        Engine.MoveTo(150009, -111081, -2236);
    
        Delay(500);
        engine.loadzone('hs');
        Engine.FaceControl(0, true);
        while (not (deadCheck or buffCheck)) and (engine.status = lsonline) do delay(2000);
    end;
end;
end else begin
if engine.status = lsonline then begin
if engine.entertext('/unstuck') and engine.delay(1111) then
while user.cast.endtime <> 0 do delay(2222);
delay(5555);
loggedIn:=false;
end;
end;
end;
end;
                        
begin
if engine.status <> lsonline then loggedIn:= true else loggedIn:= false;
  Script.NewThread(@disconnectMonitor);
  Script.NewThread(@farmAndBack);
end.
xive Newbie

xive

Posted
Posted

Hey is there a script which joins every 19 minutes buff warcryer buffs and leave and then join every 4 mins for chant of victory?

  • 5 weeks later...
shallette Newbie

shallette

Posted
Posted

Hey is there a script which joins every 19 minutes buff warcryer buffs and leave and then join every 4 mins for chant of victory?

you don't need script for that.. just tick> OOP on party buffs and tick> from my bot on the other where you want to receive buffs

 

 

 

well anyone if need with auto login, its not perfect but better than nothing

uses SysUtils;

const
buff_ID:integer = 7029;

var
loggedIn:boolean;
 
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';
 
procedure disconnectMonitor;
const
  login = 'qq';
  password = 'aa';
  gamePath = 'C:\Users\Pc\Desktop\server\Lineage II\system\l2.exe';
begin
  while engine.Delay(3000) do begin  
    if (Engine.Status = lsOffline) or (Engine.Status = lsOff) then begin
      loggedIn:=true;
      print('dc');
      Engine.FaceControl(0, false);
      Delay(1000);
      Engine.GameClose;
      Delay(1000);
      ShellExecuteW(0, 'open', PChar(gamePath), nil, nil, 0);
      Delay(15000);
      enterText(login);
      Engine.UseKey('Tab');
      Delay(300);
      enterText(password);
      Delay(300);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(10000);
      ShowWindow(engine.gamewindow, 6);
    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(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
          Engine.UseKey(text[i]);
          delay(10);
          keybd_event(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
      end else
        Engine.UseKey(text[i]);
    end;
    Delay(50);
  end;
end;
 
function isDigit(ch: char): boolean;
const
  digits = '013456789';
var
  i: cardinal;
begin
  result:= false;
  for i:= 0 to length(digits) do
    if digits[i] = ch then begin
      result:= true;
      exit;
    end;
end;

function buffCheck: Boolean;
var buff: TL2Buff;
begin
Result:=false;
    if not User.Buffs.ByID(buff_ID, buff) then begin
        Result:=true;
        Print('Buffs are needed...');
        if Engine.SetTarget(31692) then begin //NPC ID
           engine.useskill(7029);
           delay(1111);
           //buff part here
           Print('Buffed.');
        end else begin
           if (user.target.valid) and (user.target.attackable) then
           while not user.target.dead do delay(50);
           Engine.FaceControl(0, false);
           print('No buffer - doing soe...');
           if engine.entertext('/unstuck') and engine.delay(1111) then
           while user.cast.endtime <> 0 do delay(2222);
           delay(5555);
        end;
    end;
end;

function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Result := true;
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(5555);
    end;
end;

procedure farmAndBack;
begin
while true do begin
delay(1111);
if not loggedIn then begin
if engine.status = lsonline then begin
//---------------------------------------------------
// Goddard
//---------------------------------------------------
if user.inrange(146272, -58176, -2976, 250, 150) then begin
if User.InRange(146272, -58176, -2971, 300, 150) then Engine.MoveTo(145849, -57856, -2983);
if User.InRange(145849, -57856, -2983, 300, 150) then Engine.MoveTo(145708, -57656, -2983);
if User.InRange(145708, -57656, -2983, 300, 150) then Engine.MoveTo(145480, -56995, -2983);
if User.InRange(145480, -56995, -2983, 300, 150) then Engine.MoveTo(145600, -56820, -2979);
if User.InRange(145600, -56820, -2979, 300, 150) then Engine.MoveTo(145770, -56703, -2888);
if User.InRange(145770, -56703, -2888, 300, 150) then Engine.MoveTo(146136, -56468, -2783);
if User.InRange(146136, -56468, -2783, 300, 150) then Engine.MoveTo(147158, -56153, -2783);
if User.InRange(147158, -56153, -2783, 300, 150) then Engine.MoveTo(147523, -56004, -2775);
if User.InRange(147523, -56004, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(145264, -57680, -2976, 250, 150) then begin
if User.InRange(145264, -57680, -2971, 300, 150) then Engine.MoveTo(145484, -56907, -2983);
if User.InRange(145484, -56907, -2983, 300, 150) then Engine.MoveTo(145773, -56699, -2886);
if User.InRange(145773, -56699, -2886, 300, 150) then Engine.MoveTo(146107, -56480, -2784);
if User.InRange(146107, -56480, -2784, 300, 150) then Engine.MoveTo(147192, -56142, -2783);
if User.InRange(147192, -56142, -2783, 300, 150) then Engine.MoveTo(147520, -55983, -2775);
if User.InRange(147520, -55983, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(145696, -57696, -2976, 250, 150) then begin
if User.InRange(145696, -57696, -2971, 300, 150) then Engine.MoveTo(145500, -56937, -2983);
if User.InRange(145500, -56937, -2983, 300, 150) then Engine.MoveTo(145773, -56701, -2886);
if User.InRange(145773, -56701, -2886, 300, 150) then Engine.MoveTo(146121, -56472, -2783);
if User.InRange(146121, -56472, -2783, 300, 150) then Engine.MoveTo(147265, -56109, -2783);
if User.InRange(147265, -56109, -2783, 300, 150) then Engine.MoveTo(147500, -55930, -2767);
if User.InRange(147500, -55930, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(144944, -55392, -2976, 250, 150) then begin
if User.InRange(144944, -55392, -2971, 300, 150) then Engine.MoveTo(144913, -55647, -2983);
if User.InRange(144913, -55647, -2983, 300, 150) then Engine.MoveTo(145027, -56285, -2983);
if User.InRange(145027, -56285, -2983, 300, 150) then Engine.MoveTo(145092, -56489, -2983);
if User.InRange(145092, -56489, -2983, 300, 150) then Engine.MoveTo(145356, -56891, -2983);
if User.InRange(145356, -56891, -2983, 300, 150) then Engine.MoveTo(145539, -56846, -2983);
if User.InRange(145539, -56846, -2983, 300, 150) then Engine.MoveTo(145763, -56692, -2887);
if User.InRange(145763, -56692, -2887, 300, 150) then Engine.MoveTo(146103, -56477, -2784);
if User.InRange(146103, -56477, -2784, 300, 150) then Engine.MoveTo(147008, -56177, -2783);
if User.InRange(147008, -56177, -2783, 300, 150) then Engine.MoveTo(147497, -55998, -2775);
if User.InRange(147497, -55998, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(144752, -56752, -2976, 250, 150) then begin
if User.InRange(144752, -56752, -2971, 300, 150) then Engine.MoveTo(145283, -56881, -2983);
if User.InRange(145283, -56881, -2983, 300, 150) then Engine.MoveTo(145480, -56896, -2983);
if User.InRange(145480, -56896, -2983, 300, 150) then Engine.MoveTo(145769, -56691, -2885);
if User.InRange(145769, -56691, -2885, 300, 150) then Engine.MoveTo(146121, -56472, -2783);
if User.InRange(146121, -56472, -2783, 300, 150) then Engine.MoveTo(147223, -56110, -2783);
if User.InRange(147223, -56110, -2783, 300, 150) then Engine.MoveTo(147480, -55983, -2775);
if User.InRange(147480, -55983, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(149120, -58064, -2976, 250, 150) then begin
if User.InRange(149120, -58064, -2971, 300, 150) then Engine.MoveTo(149581, -57760, -2983);
if User.InRange(149581, -57760, -2983, 300, 150) then Engine.MoveTo(149689, -57638, -2983);
if User.InRange(149689, -57638, -2983, 300, 150) then Engine.MoveTo(149962, -57118, -2983);
if User.InRange(149962, -57118, -2983, 300, 150) then Engine.MoveTo(149948, -56913, -2983);
if User.InRange(149948, -56913, -2983, 300, 150) then Engine.MoveTo(149650, -56697, -2885);
if User.InRange(149650, -56697, -2885, 300, 150) then Engine.MoveTo(149265, -56443, -2783);
if User.InRange(149265, -56443, -2783, 300, 150) then Engine.MoveTo(148211, -56093, -2783);
if User.InRange(148211, -56093, -2783, 300, 150) then Engine.MoveTo(147914, -55957, -2774);
if User.InRange(147914, -55957, -2774, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(150400, -56752, -2976, 250, 150) then begin
if User.InRange(150400, -56752, -2971, 300, 150) then Engine.MoveTo(150019, -56918, -2983);
if User.InRange(150019, -56918, -2983, 300, 150) then Engine.MoveTo(149663, -56695, -2889);
if User.InRange(149663, -56695, -2889, 300, 150) then Engine.MoveTo(149320, -56465, -2783);
if User.InRange(149320, -56465, -2783, 300, 150) then Engine.MoveTo(149125, -56366, -2783);
if User.InRange(149125, -56366, -2783, 300, 150) then Engine.MoveTo(148213, -56122, -2783);
if User.InRange(148213, -56122, -2783, 300, 150) then Engine.MoveTo(147934, -55937, -2767);
if User.InRange(147934, -55937, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(150704, -55744, -2976, 250, 150) then begin
if User.InRange(150704, -55744, -2971, 300, 150) then Engine.MoveTo(150450, -56378, -2983);
if User.InRange(150450, -56378, -2983, 300, 150) then Engine.MoveTo(150249, -56735, -2983);
if User.InRange(150249, -56735, -2983, 300, 150) then Engine.MoveTo(150018, -56927, -2983);
if User.InRange(150018, -56927, -2983, 300, 150) then Engine.MoveTo(149657, -56697, -2888);
if User.InRange(149657, -56697, -2888, 300, 150) then Engine.MoveTo(149335, -56480, -2784);
if User.InRange(149335, -56480, -2784, 300, 150) then Engine.MoveTo(149183, -56379, -2783);
if User.InRange(149183, -56379, -2783, 300, 150) then Engine.MoveTo(148654, -56222, -2783);
if User.InRange(148654, -56222, -2783, 300, 150) then Engine.MoveTo(148065, -56072, -2783);
if User.InRange(148065, -56072, -2783, 300, 150) then Engine.MoveTo(147935, -55915, -2767);
if User.InRange(147935, -55915, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(147680, -58208, -2976, 250, 150) then begin
if User.InRange(147680, -58208, -2971, 300, 150) then Engine.MoveTo(147709, -57988, -2983);
if User.InRange(147709, -57988, -2983, 300, 150) then Engine.MoveTo(147712, -57707, -2886);
if User.InRange(147712, -57707, -2886, 300, 150) then Engine.MoveTo(147720, -57307, -2784);
if User.InRange(147720, -57307, -2784, 300, 150) then Engine.MoveTo(147744, -56149, -2783);
if User.InRange(147744, -56149, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(148288, -58304, -2976, 250, 150) then begin
if User.InRange(148288, -58304, -2971, 300, 150) then Engine.MoveTo(147728, -58113, -2983);
if User.InRange(147728, -58113, -2983, 300, 150) then Engine.MoveTo(147719, -57704, -2884);
if User.InRange(147719, -57704, -2884, 300, 150) then Engine.MoveTo(147723, -57327, -2784);
if User.InRange(147723, -57327, -2784, 300, 150) then Engine.MoveTo(147747, -56101, -2783);
if User.InRange(147747, -56101, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(147232, -58480, -2976, 250, 150) then begin
if User.InRange(147232, -58480, -2971, 300, 150) then Engine.MoveTo(147654, -58136, -2983);
if User.InRange(147654, -58136, -2983, 300, 150) then Engine.MoveTo(147710, -57978, -2983);
if User.InRange(147710, -57978, -2983, 300, 150) then Engine.MoveTo(147707, -57704, -2885);
if User.InRange(147707, -57704, -2885, 300, 150) then Engine.MoveTo(147709, -57313, -2784);
if User.InRange(147709, -57313, -2784, 300, 150) then Engine.MoveTo(147733, -56181, -2783);
if User.InRange(147733, -56181, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(149088, -56256, -2776, 250, 150) then begin
if User.InRange(149088, -56256, -2771, 300, 150) then Engine.MoveTo(148389, -56149, -2783);
if User.InRange(148389, -56149, -2783, 300, 150) then Engine.MoveTo(148043, -56064, -2783);
if User.InRange(148043, -56064, -2783, 300, 150) then Engine.MoveTo(147912, -55922, -2767);
if User.InRange(147912, -55922, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(146832, -55904, -2776, 250, 150) then begin
if User.InRange(146832, -55904, -2771, 300, 150) then Engine.MoveTo(147303, -56054, -2783);
if User.InRange(147303, -56054, -2783, 300, 150) then Engine.MoveTo(147490, -56005, -2775);
if User.InRange(147490, -56005, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(146368, -56256, -2776, 250, 150) then begin
if User.InRange(146368, -56256, -2771, 300, 150) then Engine.MoveTo(146968, -56156, -2783);
if User.InRange(146968, -56156, -2783, 300, 150) then Engine.MoveTo(147349, -56110, -2783);
if User.InRange(147349, -56110, -2783, 300, 150) then Engine.MoveTo(147498, -55988, -2775);
if User.InRange(147498, -55988, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(147664, -56464, -2776, 250, 150) then begin
if User.InRange(147664, -56464, -2771, 300, 150) then Engine.MoveTo(147701, -56046, -2775);
if User.InRange(147701, -56046, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(147680, -56928, -2776, 250, 150) then begin
if User.InRange(147680, -56928, -2771, 300, 150) then Engine.MoveTo(147707, -56086, -2783);
if User.InRange(147707, -56086, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(148560, -55904, -2776, 250, 150) then begin
if User.InRange(148560, -55904, -2771, 300, 150) then Engine.MoveTo(148213, -56048, -2783);
if User.InRange(148213, -56048, -2783, 300, 150) then Engine.MoveTo(147970, -56030, -2783);
if User.InRange(147970, -56030, -2783, 300, 150) then Engine.MoveTo(147927, -55934, -2767);
if User.InRange(147927, -55934, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(149872, -57424, -2976, 250, 150) then begin
if User.InRange(149872, -57424, -2971, 300, 150) then Engine.MoveTo(149954, -56966, -2983);
if User.InRange(149954, -56966, -2983, 300, 150) then Engine.MoveTo(149857, -56845, -2983);
if User.InRange(149857, -56845, -2983, 300, 150) then Engine.MoveTo(149650, -56703, -2887);
if User.InRange(149650, -56703, -2887, 300, 150) then Engine.MoveTo(149320, -56472, -2784);
if User.InRange(149320, -56472, -2784, 300, 150) then Engine.MoveTo(149157, -56414, -2783);
if User.InRange(149157, -56414, -2783, 300, 150) then Engine.MoveTo(148651, -56204, -2783);
if User.InRange(148651, -56204, -2783, 300, 150) then Engine.MoveTo(147991, -56027, -2783);
if User.InRange(147991, -56027, -2783, 300, 150) then Engine.MoveTo(147888, -55926, -2767);
if User.InRange(147888, -55926, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(144960, -56224, -2976, 250, 150) then begin
if User.InRange(144960, -56224, -2971, 300, 150) then Engine.MoveTo(145058, -56508, -2983);
if User.InRange(145058, -56508, -2983, 300, 150) then Engine.MoveTo(145266, -56844, -2983);
if User.InRange(145266, -56844, -2983, 300, 150) then Engine.MoveTo(145477, -56903, -2983);
if User.InRange(145477, -56903, -2983, 300, 150) then Engine.MoveTo(145776, -56696, -2884);
if User.InRange(145776, -56696, -2884, 300, 150) then Engine.MoveTo(146140, -56448, -2783);
if User.InRange(146140, -56448, -2783, 300, 150) then Engine.MoveTo(146776, -56191, -2783);
if User.InRange(146776, -56191, -2783, 300, 150) then Engine.MoveTo(147356, -56089, -2783);
if User.InRange(147356, -56089, -2783, 300, 150) then Engine.MoveTo(147516, -55930, -2767);
if User.InRange(147516, -55930, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;   
if user.inrange(144496, -55088, -2976, 250, 150) then begin
if User.InRange(144496, -55088, -2971, 300, 150) then Engine.MoveTo(144742, -55433, -2983);
if User.InRange(144742, -55433, -2983, 300, 150) then Engine.MoveTo(144847, -56003, -2983);
if User.InRange(144847, -56003, -2983, 300, 150) then Engine.MoveTo(145064, -56560, -2983);
if User.InRange(145064, -56560, -2983, 300, 150) then Engine.MoveTo(145339, -56939, -2983);
if User.InRange(145339, -56939, -2983, 300, 150) then Engine.MoveTo(145563, -56858, -2983);
if User.InRange(145563, -56858, -2983, 300, 150) then Engine.MoveTo(145799, -56680, -2884);
if User.InRange(145799, -56680, -2884, 300, 150) then Engine.MoveTo(146159, -56446, -2783);
if User.InRange(146159, -56446, -2783, 300, 150) then Engine.MoveTo(146788, -56217, -2783);
if User.InRange(146788, -56217, -2783, 300, 150) then Engine.MoveTo(147374, -56057, -2783);
if User.InRange(147374, -56057, -2783, 300, 150) then Engine.MoveTo(147521, -55936, -2767);
if User.InRange(147521, -55936, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(145392, -56960, -2976, 250, 150) then begin
if User.InRange(145392, -56960, -2971, 300, 150) then Engine.MoveTo(145577, -56837, -2983);
if User.InRange(145577, -56837, -2983, 300, 150) then Engine.MoveTo(145791, -56684, -2884);
if User.InRange(145791, -56684, -2884, 300, 150) then Engine.MoveTo(146151, -56432, -2783);
if User.InRange(146151, -56432, -2783, 300, 150) then Engine.MoveTo(146760, -56200, -2783);
if User.InRange(146760, -56200, -2783, 300, 150) then Engine.MoveTo(147179, -56107, -2783);
if User.InRange(147179, -56107, -2783, 300, 150) then Engine.MoveTo(147476, -56003, -2775);
if User.InRange(147476, -56003, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(147705, -58490, -2981, 500, 150) then begin
if User.InRange(147705, -58490, -2976, 300, 150) then Engine.MoveTo(147720, -57977, -2983);
if User.InRange(147720, -57977, -2983, 300, 150) then Engine.MoveTo(147713, -57704, -2885);
if User.InRange(147713, -57704, -2885, 300, 150) then Engine.MoveTo(147711, -57295, -2783);
if User.InRange(147711, -57295, -2783, 300, 150) then Engine.MoveTo(147723, -56053, -2783);
if User.InRange(147723, -56053, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(150257, -57162, -2981, 500, 150) then begin
if User.InRange(150257, -57162, -2976, 300, 150) then Engine.MoveTo(149917, -56883, -2983);
if User.InRange(149917, -56883, -2983, 300, 150) then Engine.MoveTo(149643, -56689, -2884);
if User.InRange(149643, -56689, -2884, 300, 150) then Engine.MoveTo(149271, -56442, -2783);
if User.InRange(149271, -56442, -2783, 300, 150) then Engine.MoveTo(148627, -56183, -2783);
if User.InRange(148627, -56183, -2783, 300, 150) then Engine.MoveTo(148028, -56075, -2783);
if User.InRange(148028, -56075, -2783, 300, 150) then Engine.MoveTo(147923, -55927, -2767);
if User.InRange(147923, -55927, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(145152, -57116, -2981, 500, 150) then begin
if User.InRange(145152, -57116, -2976, 300, 150) then Engine.MoveTo(145552, -56852, -2983);
if User.InRange(145552, -56852, -2983, 300, 150) then Engine.MoveTo(145797, -56682, -2884);
if User.InRange(145797, -56682, -2884, 300, 150) then Engine.MoveTo(146120, -56451, -2783);
if User.InRange(146120, -56451, -2783, 300, 150) then Engine.MoveTo(146788, -56201, -2783);
if User.InRange(146788, -56201, -2783, 300, 150) then Engine.MoveTo(147303, -56071, -2783);
if User.InRange(147303, -56071, -2783, 300, 150) then Engine.MoveTo(147508, -55967, -2775);
if User.InRange(147508, -55967, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;

    if user.inrange(147963, -55257, -2736, 500) then begin
        buffCheck;
    end;                                                
    
    if user.inrange(147963, -55257, -2736, 150) and User.Buffs.ByID(buff_ID, buffCheck) then begin
        //teleport
        engine.settarget(31275);
        delay(1111);
        engine.dlgopen;
        delay(1111);
        engine.dlgsel(1);
        delay(1111);
        engine.dlgsel(11);
        Delay(5000);
    end;    
                
    if user.inrange(149574, -112680, -2060, 500) then begin
        //coord to spot
        Engine.MoveTo(150009, -111081, -2236);
    
        Delay(500);
        engine.loadzone('hs');
        Engine.FaceControl(0, true);
        while (not (deadCheck or buffCheck)) and (engine.status = lsonline) do delay(2000);
    end;
end;
end else begin
if engine.status = lsonline then begin
if engine.entertext('/unstuck') and engine.delay(1111) then
while user.cast.endtime <> 0 do delay(2222);
delay(5555);
loggedIn:=false;
end;
end;
end;
end;
                        
begin
if engine.status <> lsonline then loggedIn:= true else loggedIn:= false;
  Script.NewThread(@disconnectMonitor);
  Script.NewThread(@farmAndBack);
end.

hey adr.bot can help me with auto log in.. got it working but problem is it stops working when I receive "Critical Error" if I close "Crit Error System Message" it will work again as intended. So is there a way to detect crit error and close system message? Thanks so much!!

adr.bot Rookie

adr.bot

Posted
Posted (edited)

you don't need script for that.. just tick> OOP on party buffs and tick> from my bot on the other where you want to receive buffs

 

 

hey adr.bot can help me with auto log in.. got it working but problem is it stops working when I receive "Critical Error" if I close "Crit Error System Message" it will work again as intended. So is there a way to detect crit error and close system message? Thanks so much!!

for close critical error i got this "program" dcbc46dec608411cb66c5a962868d70c.png download: http://rgho.st/7sVmlYkhd

https://www.virustotal.com/en/file/b621800bce1c603532aeaca599f89006bf7a300d1b4332ea1a8a10ee1ef273d1/analysis/1474415383/

Edited by adr.bot
manotavo Newbie

manotavo

Posted
Posted

So I tried to crystallize some items by selecting Delete/Crystallize option. Bot doesn't do anything after I buy item from the shop/pick up items from the ground.

Found script command in bot's .pdf, tried few times, but bot just doesn't crystallize items. All controls works perfectly, except crystallization (the most desired function for me).

Can anyone tell what to write in script? 

adr.bot Rookie

adr.bot

Posted
Posted

So I tried to crystallize some items by selecting Delete/Crystallize option. Bot doesn't do anything after I buy item from the shop/pick up items from the ground.

Found script command in bot's .pdf, tried few times, but bot just doesn't crystallize items. All controls works perfectly, except crystallization (the most desired function for me).

Can anyone tell what to write in script? 

first of all if u expecting help atleast post screenshots that how u setup delete/crystallize items, i guess u did wrong thats why it doesnt work

manotavo Newbie

manotavo

Posted
Posted (edited)

first of all if u expecting help atleast post screenshots that how u setup delete/crystallize items, i guess u did wrong thats why it doesnt work

post-194439-0-29258800-1474486470_thumb.jpg

Edited by manotavo
adr.bot Rookie

adr.bot

Posted
Posted

 

only stackable items can be more than 1 :D there is your problem with crystallize/delete items

any script for kick invite bd for dance

party buff/heal and use "out of party" it will invite and buff when buffs needed and leave

fahir1 Rookie

fahir1

Posted
Posted

 

well anyone if need with auto login, its not perfect but better than nothing

uses SysUtils;

const
buff_ID:integer = 7029;

var
loggedIn:boolean;
 
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';
 
procedure disconnectMonitor;
const
  login = 'qq';
  password = 'aa';
  gamePath = 'C:\Users\Pc\Desktop\server\Lineage II\system\l2.exe';
begin
  while engine.Delay(3000) do begin  
    if (Engine.Status = lsOffline) or (Engine.Status = lsOff) then begin
      loggedIn:=true;
      print('dc');
      Engine.FaceControl(0, false);
      Delay(1000);
      Engine.GameClose;
      Delay(1000);
      ShellExecuteW(0, 'open', PChar(gamePath), nil, nil, 0);
      Delay(15000);
      enterText(login);
      Engine.UseKey('Tab');
      Delay(300);
      enterText(password);
      Delay(300);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(10000);
      ShowWindow(engine.gamewindow, 6);
    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(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
          Engine.UseKey(text[i]);
          delay(10);
          keybd_event(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
      end else
        Engine.UseKey(text[i]);
    end;
    Delay(50);
  end;
end;
 
function isDigit(ch: char): boolean;
const
  digits = '013456789';
var
  i: cardinal;
begin
  result:= false;
  for i:= 0 to length(digits) do
    if digits[i] = ch then begin
      result:= true;
      exit;
    end;
end;

function buffCheck: Boolean;
var buff: TL2Buff;
begin
Result:=false;
    if not User.Buffs.ByID(buff_ID, buff) then begin
        Result:=true;
        Print('Buffs are needed...');
        if Engine.SetTarget(31692) then begin //NPC ID
           engine.useskill(7029);
           delay(1111);
           //buff part here
           Print('Buffed.');
        end else begin
           if (user.target.valid) and (user.target.attackable) then
           while not user.target.dead do delay(50);
           Engine.FaceControl(0, false);
           print('No buffer - doing soe...');
           if engine.entertext('/unstuck') and engine.delay(1111) then
           while user.cast.endtime <> 0 do delay(2222);
           delay(5555);
        end;
    end;
end;

function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Result := true;
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(5555);
    end;
end;

procedure farmAndBack;
begin
while true do begin
delay(1111);
if not loggedIn then begin
if engine.status = lsonline then begin
//---------------------------------------------------
// Goddard
//---------------------------------------------------
if user.inrange(146272, -58176, -2976, 250, 150) then begin
if User.InRange(146272, -58176, -2971, 300, 150) then Engine.MoveTo(145849, -57856, -2983);
if User.InRange(145849, -57856, -2983, 300, 150) then Engine.MoveTo(145708, -57656, -2983);
if User.InRange(145708, -57656, -2983, 300, 150) then Engine.MoveTo(145480, -56995, -2983);
if User.InRange(145480, -56995, -2983, 300, 150) then Engine.MoveTo(145600, -56820, -2979);
if User.InRange(145600, -56820, -2979, 300, 150) then Engine.MoveTo(145770, -56703, -2888);
if User.InRange(145770, -56703, -2888, 300, 150) then Engine.MoveTo(146136, -56468, -2783);
if User.InRange(146136, -56468, -2783, 300, 150) then Engine.MoveTo(147158, -56153, -2783);
if User.InRange(147158, -56153, -2783, 300, 150) then Engine.MoveTo(147523, -56004, -2775);
if User.InRange(147523, -56004, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(145264, -57680, -2976, 250, 150) then begin
if User.InRange(145264, -57680, -2971, 300, 150) then Engine.MoveTo(145484, -56907, -2983);
if User.InRange(145484, -56907, -2983, 300, 150) then Engine.MoveTo(145773, -56699, -2886);
if User.InRange(145773, -56699, -2886, 300, 150) then Engine.MoveTo(146107, -56480, -2784);
if User.InRange(146107, -56480, -2784, 300, 150) then Engine.MoveTo(147192, -56142, -2783);
if User.InRange(147192, -56142, -2783, 300, 150) then Engine.MoveTo(147520, -55983, -2775);
if User.InRange(147520, -55983, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(145696, -57696, -2976, 250, 150) then begin
if User.InRange(145696, -57696, -2971, 300, 150) then Engine.MoveTo(145500, -56937, -2983);
if User.InRange(145500, -56937, -2983, 300, 150) then Engine.MoveTo(145773, -56701, -2886);
if User.InRange(145773, -56701, -2886, 300, 150) then Engine.MoveTo(146121, -56472, -2783);
if User.InRange(146121, -56472, -2783, 300, 150) then Engine.MoveTo(147265, -56109, -2783);
if User.InRange(147265, -56109, -2783, 300, 150) then Engine.MoveTo(147500, -55930, -2767);
if User.InRange(147500, -55930, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(144944, -55392, -2976, 250, 150) then begin
if User.InRange(144944, -55392, -2971, 300, 150) then Engine.MoveTo(144913, -55647, -2983);
if User.InRange(144913, -55647, -2983, 300, 150) then Engine.MoveTo(145027, -56285, -2983);
if User.InRange(145027, -56285, -2983, 300, 150) then Engine.MoveTo(145092, -56489, -2983);
if User.InRange(145092, -56489, -2983, 300, 150) then Engine.MoveTo(145356, -56891, -2983);
if User.InRange(145356, -56891, -2983, 300, 150) then Engine.MoveTo(145539, -56846, -2983);
if User.InRange(145539, -56846, -2983, 300, 150) then Engine.MoveTo(145763, -56692, -2887);
if User.InRange(145763, -56692, -2887, 300, 150) then Engine.MoveTo(146103, -56477, -2784);
if User.InRange(146103, -56477, -2784, 300, 150) then Engine.MoveTo(147008, -56177, -2783);
if User.InRange(147008, -56177, -2783, 300, 150) then Engine.MoveTo(147497, -55998, -2775);
if User.InRange(147497, -55998, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(144752, -56752, -2976, 250, 150) then begin
if User.InRange(144752, -56752, -2971, 300, 150) then Engine.MoveTo(145283, -56881, -2983);
if User.InRange(145283, -56881, -2983, 300, 150) then Engine.MoveTo(145480, -56896, -2983);
if User.InRange(145480, -56896, -2983, 300, 150) then Engine.MoveTo(145769, -56691, -2885);
if User.InRange(145769, -56691, -2885, 300, 150) then Engine.MoveTo(146121, -56472, -2783);
if User.InRange(146121, -56472, -2783, 300, 150) then Engine.MoveTo(147223, -56110, -2783);
if User.InRange(147223, -56110, -2783, 300, 150) then Engine.MoveTo(147480, -55983, -2775);
if User.InRange(147480, -55983, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(149120, -58064, -2976, 250, 150) then begin
if User.InRange(149120, -58064, -2971, 300, 150) then Engine.MoveTo(149581, -57760, -2983);
if User.InRange(149581, -57760, -2983, 300, 150) then Engine.MoveTo(149689, -57638, -2983);
if User.InRange(149689, -57638, -2983, 300, 150) then Engine.MoveTo(149962, -57118, -2983);
if User.InRange(149962, -57118, -2983, 300, 150) then Engine.MoveTo(149948, -56913, -2983);
if User.InRange(149948, -56913, -2983, 300, 150) then Engine.MoveTo(149650, -56697, -2885);
if User.InRange(149650, -56697, -2885, 300, 150) then Engine.MoveTo(149265, -56443, -2783);
if User.InRange(149265, -56443, -2783, 300, 150) then Engine.MoveTo(148211, -56093, -2783);
if User.InRange(148211, -56093, -2783, 300, 150) then Engine.MoveTo(147914, -55957, -2774);
if User.InRange(147914, -55957, -2774, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(150400, -56752, -2976, 250, 150) then begin
if User.InRange(150400, -56752, -2971, 300, 150) then Engine.MoveTo(150019, -56918, -2983);
if User.InRange(150019, -56918, -2983, 300, 150) then Engine.MoveTo(149663, -56695, -2889);
if User.InRange(149663, -56695, -2889, 300, 150) then Engine.MoveTo(149320, -56465, -2783);
if User.InRange(149320, -56465, -2783, 300, 150) then Engine.MoveTo(149125, -56366, -2783);
if User.InRange(149125, -56366, -2783, 300, 150) then Engine.MoveTo(148213, -56122, -2783);
if User.InRange(148213, -56122, -2783, 300, 150) then Engine.MoveTo(147934, -55937, -2767);
if User.InRange(147934, -55937, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(150704, -55744, -2976, 250, 150) then begin
if User.InRange(150704, -55744, -2971, 300, 150) then Engine.MoveTo(150450, -56378, -2983);
if User.InRange(150450, -56378, -2983, 300, 150) then Engine.MoveTo(150249, -56735, -2983);
if User.InRange(150249, -56735, -2983, 300, 150) then Engine.MoveTo(150018, -56927, -2983);
if User.InRange(150018, -56927, -2983, 300, 150) then Engine.MoveTo(149657, -56697, -2888);
if User.InRange(149657, -56697, -2888, 300, 150) then Engine.MoveTo(149335, -56480, -2784);
if User.InRange(149335, -56480, -2784, 300, 150) then Engine.MoveTo(149183, -56379, -2783);
if User.InRange(149183, -56379, -2783, 300, 150) then Engine.MoveTo(148654, -56222, -2783);
if User.InRange(148654, -56222, -2783, 300, 150) then Engine.MoveTo(148065, -56072, -2783);
if User.InRange(148065, -56072, -2783, 300, 150) then Engine.MoveTo(147935, -55915, -2767);
if User.InRange(147935, -55915, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(147680, -58208, -2976, 250, 150) then begin
if User.InRange(147680, -58208, -2971, 300, 150) then Engine.MoveTo(147709, -57988, -2983);
if User.InRange(147709, -57988, -2983, 300, 150) then Engine.MoveTo(147712, -57707, -2886);
if User.InRange(147712, -57707, -2886, 300, 150) then Engine.MoveTo(147720, -57307, -2784);
if User.InRange(147720, -57307, -2784, 300, 150) then Engine.MoveTo(147744, -56149, -2783);
if User.InRange(147744, -56149, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(148288, -58304, -2976, 250, 150) then begin
if User.InRange(148288, -58304, -2971, 300, 150) then Engine.MoveTo(147728, -58113, -2983);
if User.InRange(147728, -58113, -2983, 300, 150) then Engine.MoveTo(147719, -57704, -2884);
if User.InRange(147719, -57704, -2884, 300, 150) then Engine.MoveTo(147723, -57327, -2784);
if User.InRange(147723, -57327, -2784, 300, 150) then Engine.MoveTo(147747, -56101, -2783);
if User.InRange(147747, -56101, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(147232, -58480, -2976, 250, 150) then begin
if User.InRange(147232, -58480, -2971, 300, 150) then Engine.MoveTo(147654, -58136, -2983);
if User.InRange(147654, -58136, -2983, 300, 150) then Engine.MoveTo(147710, -57978, -2983);
if User.InRange(147710, -57978, -2983, 300, 150) then Engine.MoveTo(147707, -57704, -2885);
if User.InRange(147707, -57704, -2885, 300, 150) then Engine.MoveTo(147709, -57313, -2784);
if User.InRange(147709, -57313, -2784, 300, 150) then Engine.MoveTo(147733, -56181, -2783);
if User.InRange(147733, -56181, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(149088, -56256, -2776, 250, 150) then begin
if User.InRange(149088, -56256, -2771, 300, 150) then Engine.MoveTo(148389, -56149, -2783);
if User.InRange(148389, -56149, -2783, 300, 150) then Engine.MoveTo(148043, -56064, -2783);
if User.InRange(148043, -56064, -2783, 300, 150) then Engine.MoveTo(147912, -55922, -2767);
if User.InRange(147912, -55922, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(146832, -55904, -2776, 250, 150) then begin
if User.InRange(146832, -55904, -2771, 300, 150) then Engine.MoveTo(147303, -56054, -2783);
if User.InRange(147303, -56054, -2783, 300, 150) then Engine.MoveTo(147490, -56005, -2775);
if User.InRange(147490, -56005, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(146368, -56256, -2776, 250, 150) then begin
if User.InRange(146368, -56256, -2771, 300, 150) then Engine.MoveTo(146968, -56156, -2783);
if User.InRange(146968, -56156, -2783, 300, 150) then Engine.MoveTo(147349, -56110, -2783);
if User.InRange(147349, -56110, -2783, 300, 150) then Engine.MoveTo(147498, -55988, -2775);
if User.InRange(147498, -55988, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(147664, -56464, -2776, 250, 150) then begin
if User.InRange(147664, -56464, -2771, 300, 150) then Engine.MoveTo(147701, -56046, -2775);
if User.InRange(147701, -56046, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(147680, -56928, -2776, 250, 150) then begin
if User.InRange(147680, -56928, -2771, 300, 150) then Engine.MoveTo(147707, -56086, -2783);
if User.InRange(147707, -56086, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(148560, -55904, -2776, 250, 150) then begin
if User.InRange(148560, -55904, -2771, 300, 150) then Engine.MoveTo(148213, -56048, -2783);
if User.InRange(148213, -56048, -2783, 300, 150) then Engine.MoveTo(147970, -56030, -2783);
if User.InRange(147970, -56030, -2783, 300, 150) then Engine.MoveTo(147927, -55934, -2767);
if User.InRange(147927, -55934, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(149872, -57424, -2976, 250, 150) then begin
if User.InRange(149872, -57424, -2971, 300, 150) then Engine.MoveTo(149954, -56966, -2983);
if User.InRange(149954, -56966, -2983, 300, 150) then Engine.MoveTo(149857, -56845, -2983);
if User.InRange(149857, -56845, -2983, 300, 150) then Engine.MoveTo(149650, -56703, -2887);
if User.InRange(149650, -56703, -2887, 300, 150) then Engine.MoveTo(149320, -56472, -2784);
if User.InRange(149320, -56472, -2784, 300, 150) then Engine.MoveTo(149157, -56414, -2783);
if User.InRange(149157, -56414, -2783, 300, 150) then Engine.MoveTo(148651, -56204, -2783);
if User.InRange(148651, -56204, -2783, 300, 150) then Engine.MoveTo(147991, -56027, -2783);
if User.InRange(147991, -56027, -2783, 300, 150) then Engine.MoveTo(147888, -55926, -2767);
if User.InRange(147888, -55926, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(144960, -56224, -2976, 250, 150) then begin
if User.InRange(144960, -56224, -2971, 300, 150) then Engine.MoveTo(145058, -56508, -2983);
if User.InRange(145058, -56508, -2983, 300, 150) then Engine.MoveTo(145266, -56844, -2983);
if User.InRange(145266, -56844, -2983, 300, 150) then Engine.MoveTo(145477, -56903, -2983);
if User.InRange(145477, -56903, -2983, 300, 150) then Engine.MoveTo(145776, -56696, -2884);
if User.InRange(145776, -56696, -2884, 300, 150) then Engine.MoveTo(146140, -56448, -2783);
if User.InRange(146140, -56448, -2783, 300, 150) then Engine.MoveTo(146776, -56191, -2783);
if User.InRange(146776, -56191, -2783, 300, 150) then Engine.MoveTo(147356, -56089, -2783);
if User.InRange(147356, -56089, -2783, 300, 150) then Engine.MoveTo(147516, -55930, -2767);
if User.InRange(147516, -55930, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;   
if user.inrange(144496, -55088, -2976, 250, 150) then begin
if User.InRange(144496, -55088, -2971, 300, 150) then Engine.MoveTo(144742, -55433, -2983);
if User.InRange(144742, -55433, -2983, 300, 150) then Engine.MoveTo(144847, -56003, -2983);
if User.InRange(144847, -56003, -2983, 300, 150) then Engine.MoveTo(145064, -56560, -2983);
if User.InRange(145064, -56560, -2983, 300, 150) then Engine.MoveTo(145339, -56939, -2983);
if User.InRange(145339, -56939, -2983, 300, 150) then Engine.MoveTo(145563, -56858, -2983);
if User.InRange(145563, -56858, -2983, 300, 150) then Engine.MoveTo(145799, -56680, -2884);
if User.InRange(145799, -56680, -2884, 300, 150) then Engine.MoveTo(146159, -56446, -2783);
if User.InRange(146159, -56446, -2783, 300, 150) then Engine.MoveTo(146788, -56217, -2783);
if User.InRange(146788, -56217, -2783, 300, 150) then Engine.MoveTo(147374, -56057, -2783);
if User.InRange(147374, -56057, -2783, 300, 150) then Engine.MoveTo(147521, -55936, -2767);
if User.InRange(147521, -55936, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(145392, -56960, -2976, 250, 150) then begin
if User.InRange(145392, -56960, -2971, 300, 150) then Engine.MoveTo(145577, -56837, -2983);
if User.InRange(145577, -56837, -2983, 300, 150) then Engine.MoveTo(145791, -56684, -2884);
if User.InRange(145791, -56684, -2884, 300, 150) then Engine.MoveTo(146151, -56432, -2783);
if User.InRange(146151, -56432, -2783, 300, 150) then Engine.MoveTo(146760, -56200, -2783);
if User.InRange(146760, -56200, -2783, 300, 150) then Engine.MoveTo(147179, -56107, -2783);
if User.InRange(147179, -56107, -2783, 300, 150) then Engine.MoveTo(147476, -56003, -2775);
if User.InRange(147476, -56003, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(147705, -58490, -2981, 500, 150) then begin
if User.InRange(147705, -58490, -2976, 300, 150) then Engine.MoveTo(147720, -57977, -2983);
if User.InRange(147720, -57977, -2983, 300, 150) then Engine.MoveTo(147713, -57704, -2885);
if User.InRange(147713, -57704, -2885, 300, 150) then Engine.MoveTo(147711, -57295, -2783);
if User.InRange(147711, -57295, -2783, 300, 150) then Engine.MoveTo(147723, -56053, -2783);
if User.InRange(147723, -56053, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(150257, -57162, -2981, 500, 150) then begin
if User.InRange(150257, -57162, -2976, 300, 150) then Engine.MoveTo(149917, -56883, -2983);
if User.InRange(149917, -56883, -2983, 300, 150) then Engine.MoveTo(149643, -56689, -2884);
if User.InRange(149643, -56689, -2884, 300, 150) then Engine.MoveTo(149271, -56442, -2783);
if User.InRange(149271, -56442, -2783, 300, 150) then Engine.MoveTo(148627, -56183, -2783);
if User.InRange(148627, -56183, -2783, 300, 150) then Engine.MoveTo(148028, -56075, -2783);
if User.InRange(148028, -56075, -2783, 300, 150) then Engine.MoveTo(147923, -55927, -2767);
if User.InRange(147923, -55927, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(145152, -57116, -2981, 500, 150) then begin
if User.InRange(145152, -57116, -2976, 300, 150) then Engine.MoveTo(145552, -56852, -2983);
if User.InRange(145552, -56852, -2983, 300, 150) then Engine.MoveTo(145797, -56682, -2884);
if User.InRange(145797, -56682, -2884, 300, 150) then Engine.MoveTo(146120, -56451, -2783);
if User.InRange(146120, -56451, -2783, 300, 150) then Engine.MoveTo(146788, -56201, -2783);
if User.InRange(146788, -56201, -2783, 300, 150) then Engine.MoveTo(147303, -56071, -2783);
if User.InRange(147303, -56071, -2783, 300, 150) then Engine.MoveTo(147508, -55967, -2775);
if User.InRange(147508, -55967, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;

    if user.inrange(147963, -55257, -2736, 500) then begin
        buffCheck;
    end;                                                
    
    if user.inrange(147963, -55257, -2736, 150) and User.Buffs.ByID(buff_ID, buffCheck) then begin
        //teleport
        engine.settarget(31275);
        delay(1111);
        engine.dlgopen;
        delay(1111);
        engine.dlgsel(1);
        delay(1111);
        engine.dlgsel(11);
        Delay(5000);
    end;    
                
    if user.inrange(149574, -112680, -2060, 500) then begin
        //coord to spot
        Engine.MoveTo(150009, -111081, -2236);
    
        Delay(500);
        engine.loadzone('hs');
        Engine.FaceControl(0, true);
        while (not (deadCheck or buffCheck)) and (engine.status = lsonline) do delay(2000);
    end;
end;
end else begin
if engine.status = lsonline then begin
if engine.entertext('/unstuck') and engine.delay(1111) then
while user.cast.endtime <> 0 do delay(2222);
delay(5555);
loggedIn:=false;
end;
end;
end;
end;
                        
begin
if engine.status <> lsonline then loggedIn:= true else loggedIn:= false;
  Script.NewThread(@disconnectMonitor);
  Script.NewThread(@farmAndBack);
end.

 

Nice dude! Very nice!

 

I managed to understand a bit how it works, but I tried to add it on my own auto level script and couldnt make it.

 

My auto level script is very similar to that one, can you help me which parts should I add in order to make autoreconnect work?

Thanks in advance.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing


  • Posts

    • Maxtor
      Lineage 2 Top.MaxCheaters.com Changelog updates **

      By Maxtor · Posted

      # Changelog - Public Updates   This changelog tracks user-facing updates and improvements to Top.MaxCheaters.com.   ---   ## [1.1.1] - 2026-01-XX   ### 🐛 Bug Fixes - **VIP Server Filter**: Fixed "VIP L2 Servers" filter to correctly show all premium tier servers (VIP, Gold VIP, and Pinned) - **Ad Pricing Display**: Fixed ad pricing on Premium Ads page to automatically update when changed in admin panel   ### 🔄 Improvements - Ad pricing now syncs automatically across all pages - More accurate server filtering by tier   ---   ## [1.1.0] - 2026-01-XX   ### ✨ New Features - **Complete Chronicle List**: All chronicle options are now available in server forms and filters, including the latest Lineage 2 chronicles - **Improved Chronicle Display**: Server rows now show cleaner, shorter chronicle names for better readability   ### 🐛 Bug Fixes - **Chronicle Filter**: Fixed issue where "Infinite Odyssey" chronicle filter was not working correctly - **Missing Chronicles**: Fixed missing chronicle options in server creation and editing forms   ### 🔄 Improvements - Chronicle filters and dropdowns now stay in sync with the latest available chronicles - Better chronicle name formatting in server listings for improved visual clarity   ---   ## [1.0.0] - Initial Release   ### Features - 🎮 Server listings with multiple tiers (Normal, VIP, Gold VIP, Pinned) - 📊 Click tracking and server statistics - 🌍 Multi-language support (English, Spanish, Portuguese, Greek, Russian) - 💳 Payment system for premium server features - 🔐 Secure authentication system - 👑 Admin panel for server management - 📱 Fully responsive design for all devices - 🔍 Advanced filtering system (by chronicle, rate, server type, date) - 📅 Server opening date tracking - 🎯 Two viewing modes: By Date and By Votes (coming soon for all users)   ---   ## About This Changelog   This changelog focuses on updates that directly impact the user experience. Internal development changes and technical improvements are not included here.   For questions or feedback, please contact support.
    • Ghost87
      [L2J] L2 Exay

      By Ghost87 · Posted

      Now Acc Registration open. Create your account and get ready 🙂
    • Morrison2102
      Morison Store Cheap Torrent Trackers/NZB Indexers

      By Morrison2102 · Posted

      General Trackers :   IPTorrents invite IPTorrents account 1 tb TorrentLeech invite Torrentleech account 1 tb buffer  InTheShaDow ( ITS ) account Acid-lounge invite Torrentday invite Crnaberza account Abn.Lol account Limit-of-eden account Norbits account Xspeeds account Xspeeds invite Bemaniso invite Wigornot account Bithumen invite Filelist account Funfile invite AvistaZ invite Potuk.net invite ResurrectThe.Net invite GrabThe.Info invite Greek-Team invite LinkoManija invite Fano.in account tracker.czech-server.com Speed.cd invite Arab-torrents.net account Arabscene.me account Scenetime account 4thd.xyz invite Btarg.com.ar account Dedbit invite Estone.cc account Speedapp invite Finvip invite Fluxzone account GigaTorrents account Gimmepeers account Haidan.video invite Mojblink account Mycarpathians invite Newinsane.info account Oscarworld.xyz account Peers.FM invite Pt.msg.vg account Ransackedcrew account Redemption invite Scene-rush account Seedfile.io invite Teracod invite Torrent.ai account Torrentmasters invite Ttsweb invite X-files invite X-ite invite Ncore account TorrentHR account Rptorrents account BwTorrents account Superbits invite Krazyzone account Immortalseed account Tntracker invite Pt.eastgame.org account Bitturk account Rstorrent account Tracker.btnext invite Torrent-turk.de account BeiTai.PT account Pt.keepfrds account 52pt.site account Pthome account Torrentseeds account Aystorrent account Blues-brothers.biz invite Divteam account Thesceneplace invite CinemaMovies.pl account Brasiltracker account Patiodebutacas account Newheaven.nl account  Swarmazon.club invite Bc-reloaded account Crazyspirits account Silentground invite Omg.wtftrackr invite Milkie.cc invite Breathetheword invite Madsrevolution account Chilebt account Yubraca account Uniongang.tv account Frboard account Exvagos account Diablotorrent account Microbit account Carp-hunter.hu account Majomparade.eu account Theshinning.me account Youiv.info account Dragonworld-reloaded account Sharewood.tv account Partis.si account Digitalcore.club invite Fuzer.me account R3vuk.wtf invite Ztracker account 1 tb buffer 3changtrai account Best-core.info account Bitsite.us account Eliteunitedcrew invite Exitorrent.org account Tophos invite Torrent.lt account Sktorrent.eu account Oshen account Blackhattorrent account Pirata.digital account Esharenet account Ohmenarikgi.la Pirate-share account Immortuos account Kiesbits account Cliente.amigos-share.club account Broadcity invite Ilovetorzz account Torrentbytes account Polishsource account Portugas invite Shareisland account ArabaFenice account Hudbt.hust.edu.cn account Audiences account Nanyangpt account Pt.sjtu.edu.cn account Pt.zhixing.bjtu.edu.cn account Byr.pt invite Ptfiles invite Red-bits account Pt.hdpost.top account Irrenhaus.dyndns.dk (NewPropaganda) account Mnvv2.info (MaxNewVision V2) account 1ptba.com account Spidertk.top account Film-paleis account Generation-free account Aftershock-tracker account Twilightsdreams account Back-ups.me invite Sor-next.tk ( Spirit Of Revolution ) account Tfa.tf ( The Falling Angels ) account Hdmayi account S-f-p.dyndns.dk ( Share Friends Projekt ) account Unlimitz.biz account Pttime account St-tracker.eu account New-retro.eu account Zbbit account Tigers-dl.net account Jptvts.us account Lat-team account Club.hares.top account Falkonvision-team account Concen account Drugari account T.ceskeforum account Peeratiko.org account Zamunda.se account Central-torrent.eu account h-o-d.org account Torrentleech.pl account Demonoid invite Lst.gg account Fakedoor.store account LaidBackManor account Vrbsharezone.co.uk invite Torrenteros account Arenaelite account Datascene account Tracker.0day.community Tapochek.net invite Ptchina invite Lesaloon account Exyusubs account Therebels.tv account Ubits.club invite Zmpt.cc account Turktorrent.us account Dasunerwarte account Hawke.uno account Monikadesign account Fearnopeer account Alpharatio account Wukongwendao.top account Chinapyg account Azusa.wiki account Yggtorrent.top account Torrentdd account Cyanbug.net invite Hhanclub.top account Wintersakura.net account Xthor account Tctg.pm account Finelite invite Agsvpt.com account Pt.0ff.cc invite Qingwapt.com account Xingtan.one account Ptcafe.club invite W-o-t.pro account Coastal-crew.bounceme.net account Darkpeers.org account Pianyuan.org account Seedpool.org  account Tempelbox account Pt.itzmx.com account Capybarabr.com account Itatorrents.xyz  account Letseed.org account The-new-fun.com  account Malayabits.cc account Trellas.me account Yu-scene.net account Futuretorrent.org account Bitpt.cn account Tocashare.biz  account Videoteka.org  account White-angel.hu account Xbytesv2.li account   Movies Trackers :   Anthelion account Pixelhd account Cinemageddon account DVDSeed account Cinemageddon account Cinemaz account Retroflix account Classix-unlimited - invite Movie-Torrentz (m2g.link) invite Punck-tracker.net account Tmghub account Tb-asian account Cathode-ray.tube account Greatposterwall account Telly account Arabicsource.net account Upload.cx account Crabpt.vip invite Onlyencodes.cc account Exyusubs account Hellashut.net invite Nordichd.sytes.net invite Locadora.cc account   HD Trackers :   Blutopia buffered account Hd-olimpo buffered account Hdf.world account Torrentland.li account HdSky account Hdchina account Chdbits account Totheglory account Hdroute account Hdhome account TorrentCCF aka et8.org account 3DTorrents invite HD-Torrents account Bit-HDTV account HDME.eu invite Hdarea.co account Asiancinema.me account JoyHD invite HDSpace invite CrazyHD invite Bluebird-hd invite Htpt.cc account Hdtime invite Ourbits.club account Hd4fans account Siambit account Privatehd account Springsunday account Tjupt account Hdcity.leniter invite Ccfbits account Discfan account Pt.btschool.club account Ptsbao.club invite Hdzone.me invite Danishbytes account Zonaq.pw account Tracker.tekno3d account Arabp2p account Hd-united account Reelflix.xyz account Hdatmos.club account Anasch.cc invite Tigris-t account Nethd.org account Hd.ai invite Hitpt.com account Hdmonkey account Dragonhd.xyz account Hdclub.eu account Forum.bluraycd.com account Carpt account Hdfun.me invite Pt.hdupt invite Puntotorrent account Ultrahd account Rousi.zip account Bearbit account Hdturk.club account Asiandvdclub account Star-space.net account Nordicq.org account Hdkyl.in account Utp.to account Hdzero account   Music Trackers :   Dicmusic account Music-Vid account Open.cd account LzTr account ProAudioTorrents invite Jpopsuki invite TranceTraffic invite Audionews invite Kraytracker invite Libble.me invite Losslessclub invite Indietorrents.com invite Dimeadozen account Funkytorrents invite Karaokedl account zombtracker.the-zomb account Concertos account Sugoimusic account Satclubbing.club invite Metal.iplay invite Psyreactor invite Panda.cd account Adamsfile account Freehardmusic account Tracker.hqmusic.vn accouunt Twilightzoom account 3 tb buffer Hiresmusic account Metalguru account Musictorrents.org account Musebootlegs.com invite Zappateers.com account Jungleland.dnsalias.com account Naftamusic account   E-Learning Trackers :   Thevault account BitSpyder invite Brsociety account Learnbits invite Myanonamouse account Libranet account 420Project account Learnflakes account Pt.soulvoice.club account P2pelite account Aaaaarg.fail invite Ebooks-shares.org account Abtorrents account Pt.tu88.men invite Docspedia.world invite   TV-Trackers :   Skipthecommericals Cryptichaven account TV-Vault invite Shazbat.TV account Myspleen account Tasmanit.es invite Tvstore.me account Tvchaosuk account Jptv.club account Tvroad.info   XXX - Porn Trackers :   FemdomCult account Pornbay account Pussytorrents account Adult-cinema-network account Bootytape account 1 Tb buffer Exoticaz account Bitporn account Kufirc account Gaytorrent.ru invite Nicept account Gay-torrents.org invite Ourgtn account Pt.hdbd.us account BitSexy account Happyfappy.org account Kamept.com account Lesbians4u.org account   Gaming Trackers :   Mteam.fr account BitGamer invite Retrowithin invite Gamegamept account   Cartoon/Anime/Comic Trackers :   Animeworld account Oldtoons.world account U2.dmhy account CartoonChaos invite Animetorrents account Mononoke account Totallykids.tv account Bakabt.me invite Revanime account Ansktracker account Tracker.shakaw.com.br invite Bt.mdan.org account Skyey2.com account Animetracker.cc Adbt.it.cx invite Tracker.uniotaku.com account Mousebits.com account   Sports Trackers :   MMA-Tracker invite T3nnis.tv invite AcrossTheTasman account RacingForMe invite Sportscult invite Ultimatewrestlingtorrents account Worldboxingvideoarchive invite CyclingTorrents account Xtremewrestlingtorrents account Tc-boxing invite Mma-torrents account Aussierul invite Xwt-classics account Racing4everyone account Talk.tenyardtracker account Stalker.societyglitch invite Extremebits invite Rgfootball.net account F1carreras.xyz account   Software/Apps Trackers :   Brokenstones account Appzuniverse invite Teamos.xyz account Macbb.org account   Graphics Trackers:   Forum.Cgpersia account Gfxpeers account Forum.gfxdomain account   Documentary Trackers:   Forums.mvgroup account   Others   Fora.snahp.eu account Board4all.biz account Filewarez.tv account Makingoff.org/forum account Xrel.to account Undergunz.su account Corebay account Endoftheinter.net ( EOTI ) account Thismight.be invite Skull.facefromouter.space account Avxhm.se (AvaxHome) account Ssdforum account Notfake.vip account Intotheinter.net account Tildes.net invite Thetoonz account Usinavirtual account Hdclasico invite HispaShare account Valentine.wtf account Adit-hd account Forum-andr.net account Warezforums account Justanothermusic.site account Forbiddenlibrary.moe account Senturion.to account Movieparadise account Militaryzone account Dcdnet.ru account Sftdevils.net account Heavy-r.com account New-team.org account Ddl.tv account Filewarez.club account Hispamula.org account Hubwarez.tv account   NZB :   Ninjacentral.co.za account Tabula-rasa.pw account Drunkenslug account Drunkenslug invite Usenet-4all account Brothers-of-Usenet account Dognzb.cr invite Kleverig account Nzb.cat account Nzbplanet.net invite Ng4you.com account Nzbsa.co.za account Bd25.eu account NZB.to account Samuraiplace account Abhdtv.net account Abook.link account Comix.pw account House-of-usenet Secretbinaries.net account Vnext.to account Stockboxx.top account Sky-of-use.net account Prices start from 3 $ to 100 $   Payment methods: Crypto, Neteller, Webmoney, Revolut   If you want to buy something send me a pm or contact me on:   Email: morrison2102@gmail.com   Discord: LFC4LIFE#4173   Telegram: https://t.me/LFC4LIFE4173   Skype: morrison2102@hotmail.com
    • Darafamboos
      Decryptor ActiveAnticheat files Lineage2

      By Darafamboos · Posted

      It removes the AA (Anti-Cheat) protection from the files, converting them from binary/encrypted formats into readable and editable ones. This is the first step for any client modification.
    • Huggo
      Decryptor ActiveAnticheat files Lineage2

      By Huggo · Posted

      What's a point have this?

  • Topics

×
×
  • Create New...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..