Jump to content
The Best Lineage 2 Mods – Free & Custom
Get Free Banners - Giveaway MaxCheaters.com
We're Rebuilding – Join Our Staff Team

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

    • SocNet
      SOCNET | 最佳社交网络账号商店 (Telegram、TikTok、Twitter、Instagram)

      By SocNet · Posted

      新品上线！ 提供高级订阅账号，支持热门AI服务：Gemini Pro 和 Perplexity AI。 ➡ Gemini Pro 订阅 + 2TB 谷歌云存储（绑定您的 Google 账号，有效期1年）| 需要访问您的 Google 账号 | 价格：6美元起 ➡ Perplexity AI Pro 订阅（绑定您的账号，有效期1年）| 需要访问您的账号 | 价格：6美元起 欢迎通过我们的网站或 Telegram 机器人购买！ 有效链接： 数字商品商店（网站）：前往 商店 Telegram 机器人：前往 其他服务： 购买 Telegram Stars 的机器人：前往 SMM 面板：前往 – 推广您的社交媒体账号。 以下是我们平台最新的促销与特别优惠列表： 1. 促销码 OCTOBER2025（8% 折扣），适用于十月期间在我们的网站或机器人中购物！首次购买可使用促销码 SOCNET（15% 折扣）。 2. 获取1美元余额或10–20%折扣 —— 注册后在我们网站的论坛帖子中留言，格式为："SEND ME BONUS, MY USERNAME IS..."。 3. 首次试用 SMM 面板即可获得1美元奖励 —— 只需在我们网站（支持中心）提交主题为 “Get Trial Bonus” 的工单。 4. 每周在我们的 Telegram 频道和购买 Stars 的机器人中赠送 Telegram Stars！ 新闻： ➡ Telegram 频道：https://t.me/accsforyou_shop✅ ➡ WhatsApp 频道：https://chat.whatsapp.com/K8rBy500nA73z27PxgaJUw?mode=ems_copy_t✅ ➡ Discord 服务器：https://discord.gg/y9AStFFsrh✅ 联系方式与支持： ➡ Telegram：https://t.me/socnet_support✅ ➡ WhatsApp：https://wa.me/79051904467✅ ➡ Discord：socnet_support ✅ ➡ ✉ 邮箱：solomonbog@socnet.store ✅
    • SocNet
      SOCNET | 最佳社交网络账号商店 (Telegram、TikTok、Twitter、Instagram)

      By SocNet · Posted

      新品上线！ 提供高级订阅账号，支持热门AI服务：Gemini Pro 和 Perplexity AI。 ➡ Gemini Pro 订阅 + 2TB 谷歌云存储（绑定您的 Google 账号，有效期1年）| 需要访问您的 Google 账号 | 价格：6美元起 ➡ Perplexity AI Pro 订阅（绑定您的账号，有效期1年）| 需要访问您的账号 | 价格：6美元起 欢迎通过我们的网站或 Telegram 机器人购买！ 有效链接： 数字商品商店（网站）：前往 商店 Telegram 机器人：前往 其他服务： 购买 Telegram Stars 的机器人：前往 SMM 面板：前往 – 推广您的社交媒体账号。 以下是我们平台最新的促销与特别优惠列表： 1. 促销码 OCTOBER2025（8% 折扣），适用于十月期间在我们的网站或机器人中购物！首次购买可使用促销码 SOCNET（15% 折扣）。 2. 获取1美元余额或10–20%折扣 —— 注册后在我们网站的论坛帖子中留言，格式为："SEND ME BONUS, MY USERNAME IS..."。 3. 首次试用 SMM 面板即可获得1美元奖励 —— 只需在我们网站（支持中心）提交主题为 “Get Trial Bonus” 的工单。 4. 每周在我们的 Telegram 频道和购买 Stars 的机器人中赠送 Telegram Stars！ 新闻： ➡ Telegram 频道：https://t.me/accsforyou_shop✅ ➡ WhatsApp 频道：https://chat.whatsapp.com/K8rBy500nA73z27PxgaJUw?mode=ems_copy_t✅ ➡ Discord 服务器：https://discord.gg/y9AStFFsrh✅ 联系方式与支持： ➡ Telegram：https://t.me/socnet_support✅ ➡ WhatsApp：https://wa.me/79051904467✅ ➡ Discord：socnet_support ✅ ➡ ✉ 邮箱：solomonbog@socnet.store ✅
    • SocNet
      [SOCNET STORE] | Telegram, Facebook, Twitter, Discord etc.

      By SocNet · Posted

      New Products! Accounts with premium subscriptions for popular AI services Gemini Pro and Perplexity AI. ➡ Gemini Pro Subscription + 2TB Google Storage on your Google Account for 1 YEAR | Requires access to your Google account | Price from: $6 ➡ Perplexity AI Pro Subscription ON YOUR ACCOUNT for 1 YEAR | Requires access to your account | Price from: $6 Shop in our online store or through our Telegram bot! Active Links: Digital goods store (Website): Go Store Telegram bot: Go Other services: Telegram bot for purchasing Telegram Stars: Go SMM Panel: Go – promote your social media accounts. We would like to present you with the current list of promotions and special offers for purchasing products and services from our platform: 1. Promo code OCTOBER2025 (8% discount) for purchases in our store (Website or Bot) in October! You can also use the first-time promo code SOCNET (15% discount). 2. Get $1 credited to your store balance or a 10–20% discount — just post your username after registration on our website in the following format: "SEND ME BONUS, MY USERNAME IS..." – post it in our forum thread! 3. Get $1 for your first SMM Panel trial — just open a support ticket titled “Get Trial Bonus” on our website (Support). 4. Weekly giveaways of Telegram Stars in our Telegram channel and in our Telegram bot for Star purchases! News: ➡ Telegram channel: https://t.me/accsforyou_shop✅ ➡ WhatsApp channel: https://chat.whatsapp.com/K8rBy500nA73z27PxgaJUw?mode=ems_copy_t✅ ➡ Discord server: https://discord.gg/y9AStFFsrh✅ Contacts and Support: ➡ Telegram: https://t.me/socnet_support✅ ➡ WhatsApp: https://wa.me/79051904467✅ ➡ Discord: socnet_support ✅ ➡ ✉ Email: solomonbog@socnet.store ✅
    • SocNet
      [SOCNET STORE] | Telegram, Facebook, Twitter, Discord etc.

      By SocNet · Posted

      New Products! Accounts with premium subscriptions for popular AI services Gemini Pro and Perplexity AI. ➡ Gemini Pro Subscription + 2TB Google Storage on your Google Account for 1 YEAR | Requires access to your Google account | Price from: $6 ➡ Perplexity AI Pro Subscription ON YOUR ACCOUNT for 1 YEAR | Requires access to your account | Price from: $6 Shop in our online store or through our Telegram bot! Active Links: Digital goods store (Website): Go Store Telegram bot: Go Other services: Telegram bot for purchasing Telegram Stars: Go SMM Panel: Go – promote your social media accounts. We would like to present you with the current list of promotions and special offers for purchasing products and services from our platform: 1. Promo code OCTOBER2025 (8% discount) for purchases in our store (Website or Bot) in October! You can also use the first-time promo code SOCNET (15% discount). 2. Get $1 credited to your store balance or a 10–20% discount — just post your username after registration on our website in the following format: "SEND ME BONUS, MY USERNAME IS..." – post it in our forum thread! 3. Get $1 for your first SMM Panel trial — just open a support ticket titled “Get Trial Bonus” on our website (Support). 4. Weekly giveaways of Telegram Stars in our Telegram channel and in our Telegram bot for Star purchases! News: ➡ Telegram channel: https://t.me/accsforyou_shop✅ ➡ WhatsApp channel: https://chat.whatsapp.com/K8rBy500nA73z27PxgaJUw?mode=ems_copy_t✅ ➡ Discord server: https://discord.gg/y9AStFFsrh✅ Contacts and Support: ➡ Telegram: https://t.me/socnet_support✅ ➡ WhatsApp: https://wa.me/79051904467✅ ➡ Discord: socnet_support ✅ ➡ ✉ Email: solomonbog@socnet.store ✅
    • SkyLord
      (L2OFF) L2GOLD x45 - P656 | Scions of Destiny

      By SkyLord · Posted

      you can expose him here 🙂 let everyone see what kind of person he is and exactly what he is selling.  

  • Topics

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock