Request L2 Adrenaline Scripts.

[adr.bot]

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.

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';

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
      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;


                        
begin

  Script.NewThread(@disconnectMonitor);

end. 

[m44ti]

wtf 

how to buy smth from vendor i mean private store :X

 

Engine.OpenPrivateStore([17, 1, 1000], 10, 'test');

its for setting a store but how the fuck i can buy from any store :>

Edited October 9, 2016 by m44ti

[@SND]

Hello guys can i ask for any script for TTS quest? Thanks 

[Anitah]

Hello guys can i ask for any script for TTS quest? Thanks 

 

pls you have this script in 2030230302 posts, just search pls xd

Edited October 9, 2016 by Anitah

[@SND]

pls you have this script in 2030230302 posts, just search pls xd

xddddddd

[diomidis000]

Any script for farm , take buffs when bot get killed and return to same spot? Thanks

Edited October 11, 2016 by diomidis000

[Emi]

Hey guys,

 

anyone can make me a script for hit my own kookaburra for recharge me?

 

I dont know how it works, or i can set it on Adrenalin?

 

greets

[fontaler]

im sure all is posible, but i dont know how do this

 

Hi, im with the same problem but with private store of players.

 

In the server that im playing, the players can sell buff in private store.

 

i try with /attack, and dlgsel(1) (shield) , everything.

 

Also i put "engine.bypasstoserver ('X') and the players dont touch the buff.

 

U know about one help for this? thanks a lot.

[dmzdh11]

https://postimg.org/image/61my77cd9/

 

Does anyone know the language to be displayed in Korean language?

 

other display is good at korean.

 

but in MAP char name is not korean

[ssmikis]

Hello. How can I set up individual  targets to buff for a prophet script?

engine.settarget ( xx);    ?

[nhaka]

Hello,

 

My question is very simple, I made myself a script to auto buy things from NPC and it works 100% on HIGH FIVE, but now I tried using on GF and it does everything ok, but when it tries to finish buying, it does nothing.

 

It seems this command isnt working on GF:

 

 

Engine.NPCTrade(false,[1060, 50]);

 

 

Can someone help me? I tried with other items and NPC's and it doesnt work.

 

Do anyone knows a similar command or help me how to make it work on GF?

[zadil]

Hello guys, can you give me script to sell crops at manor with adrenaline @ 11:06 current time?

Edited November 28, 2016 by zadil

[Anitah]

Hello guys, can you give me script to sell crops at manor with adrenaline @ 11:06 current time?

 

hmm not sure if do it is posible, cuz buy/sell in manor dont work with engine.npctrade

[zadil]

May i need another bot program like walker?

[PraetorFTW]

Question: How can i detect the tutorial window in Adrenaline? What class is the Tutorial window ? If someone knows please pm me! Preety Please!