Request L2 Adrenaline Scripts.

ginji · March 14, 2017

well as i said, somewhere i see it, that means i just see, but i dont have it, if good remember i see it ~2year ago at l2bot.eu (now lineage2bot.com)

Thanks for your info! i'll try search deeper.

ginji · March 15, 2017

hello, how do i declare string array ? Sth like this

String[] array = {'x';'y';'z'}

adr.bot · March 15, 2017

hello, how do i declare string array ? Sth like this

String[] array = {'x';'y';'z'}

a:array of string = ['x', 'y', 'z'];

ginji · March 16, 2017

a:array of string = ['x', 'y', 'z'];

Thanks, one more question, where can I learn the script syntax ?

adr.bot · March 16, 2017

Thanks, one more question, where can I learn the script syntax ?

http://www.delphibasics.co.uk/ for me very helped other examples when i started

ginji · March 17, 2017

http://www.delphibasics.co.uk/ for me very helped other examples when i started

Thanks !

Babaloo · April 3, 2017

Hello, I am looking for working script for augmentation on interlude server

tisonakos · May 4, 2017

Good morning people

i have paid version of adrenaline i am playing at la2dreams at the moment. ( Interlude)

I woulk like to know if there is any script for mass sweep in interlude.

thank you in advance

P.S Show me love please no hate !! :)

adr.bot · May 4, 2017

Good morning people

i have paid version of adrenaline i am playing at la2dreams at the moment. ( Interlude)

I woulk like to know if there is any script for mass sweep in interlude.

thank you in advance

P.S Show me love please no hate !! :)

var
int: integer;
mob: tl2npc;
sweep: tl2skill;

begin
while true do begin
    for int:=0 to npclist.count-1 do begin
        mob := npclist.items(int);
        if mob.valid and mob.dead and mob.sweepable and (skilllist.byid(42,sweep) and (sweep.endtime = 0)) then
            if (user.distto(mob) < 300) then //max range of sweeping
                if engine.settarget(mob) then engine.useskill(sweep);
    end;
delay(100);
end;
end.

author krn (if im not wrong)

kose · May 6, 2017

I'm having a hard time dropping the Sage's Stone that can help me.

thank you so much



function keybd_event(bVk,bScan:byte;dwFlags,dwExtraInfo: integer): integer;  stdcall; external 'user32.dll';

function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll';

function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll';


procedure pressKey(hexCode: BYTE);

begin

  keybd_event(hexCode, 45, 1, 0 );

  delay(200);

end;


procedure mouseClick(x, y, _delay : integer);

begin

  SetCursorPos(x, y);

  mouse_event($2, 0, 0, 0, 0);

  delay(_delay);

  mouse_event($4, 0, 0, 0, 0);

end;



var Figth_Flag:boolean;

     Item: TL2Item;

     Npc: TL2Npc;

     Obj: TL2Buff;

     IdBuff: integer;

     Buffs:TL2Buff;

var L2Skill: TL2Skill;

       var

	QuestItem: TL2Item;


begin

     Delay(1000);

     Engine.UseItem(7130);

     Delay(30000);

     Engine.SetTarget('Karin'); 

     Delay(1500);

     Engine.DlgOpen; 

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(4);

     Delay(3000);

     Engine.SetTarget('Ladd'); 

     Delay(1500);

     Engine.DlgOpen; 

     Delay(1500);

     Engine.DlgSel(4);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(1);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(3000);

     Engine.SetTarget('Merian'); 

     Delay(1500);

     Engine.DlgOpen; 

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(3000);

     Engine.MoveTo(84972,16390,-4296);

     Delay(500);

     Engine.MoveTo(85622,16722,-4296);

     Delay(500);

     Engine.SetTarget('Wesley'); 

     Delay(1500);

     Engine.DlgOpen; 

     Delay(1500);

     Engine.DlgSel(5);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.MoveTo(85541,16213,-4280);

     Delay(500);

     Engine.SetTarget('Alchemist''s Mixing Urn'); 

     Delay(1500);

     Engine.DlgOpen; 

     Delay(1500);

     Engine.DlgSel(2);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(14);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(3);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.MoveTo(85475,15797,-4272);

     Delay(500);

     Engine.MoveTo(84856,15882,-4296);

     Delay(500);

     Engine.SetTarget('Karin'); 

     Delay(1500);

     Engine.DlgOpen; 

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(4);

     Delay(3000);

     Engine.SetTarget('Ladd'); 

     Delay(1500);

     Engine.DlgOpen; 

     Delay(1500);

     Engine.DlgSel(4);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(3000);

     Engine.SetTarget('Merian'); 

     Delay(1500);

     Engine.DlgOpen; 

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(4);

     Delay(3000);

     Engine.SetTarget('Joan'); 

     Delay(1500);

     Engine.DlgOpen; 

     Delay(1500);

     Engine.DlgSel(5);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(1);

     Delay(3000);

     Engine.SetTarget('Mariell'); 

     Delay(1500);

     Engine.DlgOpen; 

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(2);

     Delay(3000);

     Engine.SetTarget('Verona'); 

     Delay(1500);

     Engine.DlgOpen; 

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(3);

     Delay(4);

     Engine.SetTarget('Elisa'); 

     Delay(1500);

     Engine.DlgOpen; 

     Delay(1500);

     Engine.DlgSel(1);

     Delay(1500);

     Engine.DlgSel(17);

     Delay(3000);

     Engine.MoveTo(171939,56504,-5280);

     Delay(500);

     Engine.MoveTo(173247,56470,-5840);

     Delay(500);

     Engine.CancelTarget;

		if not (Inventory.Quest.ByID(6322, QuestItem) = true) then begin

		    Engine.FaceControl(0,true);

		end;

		Engine.FaceControl(0,false);

		end.

end.

paulosbk · May 6, 2017

i need script for l2 warland for quest TT recipes anyone can be help me?!

tisonakos · May 7, 2017

var
int: integer;
mob: tl2npc;
sweep: tl2skill;

begin
while true do begin
    for int:=0 to npclist.count-1 do begin
        mob := npclist.items(int);
        if mob.valid and mob.dead and mob.sweepable and (skilllist.byid(42,sweep) and (sweep.endtime = 0)) then
            if (user.distto(mob) < 300) then //max range of sweeping
                if engine.settarget(mob) then engine.useskill(sweep);
    end;
delay(100);
end;
end.

author krn (if im not wrong)

Thank you for the answer bro i will test it

7eleven · May 10, 2017

Thank you for the answer bro i will test it

works.

Beloves · May 11, 2017

Hi all,

I'm playing on Gracia Final and I need your help for a part of Antharas Quest that I'd like to script.

In Windy Hill, I need to kill Abyssal Jewel (ID: 27165 ) to obtain 1st Fragment of Abyss Jewel (ID:3859 ). Once it's dead, many Jewel Guardian Mara (ID: 27168 ) appear and will drop Mara Fang (Id:3862).

Here is what I need:

- Get The 2 quest Items

- Kill all the mobs in zone (especialy Jewel Guardian Mara)

- Use SOE

On the script I wrote here, bot stop hitting mobs when he got the 2 quest items. Consequence: the non-killed mobs break my SOE and I can't go away.

Var

Item: TL2Item;

begin

engine.moveto( -81233 , 75608, -3360);

delay(500);

engine.FaceControl(0,true);

delay(500);

Engine.AutoTarget(600, 200) ;

delay (15000);



if Inventory.Quest.ByID(3862, Item) and Inventory.Quest.ByID(3859, Item) and (Item.count > 0) and not user.incombat then begin



Engine.MoveTo( -81363 , 76025,-3376 ) ;

delay (500) ;

Engine.FaceControl(0,false);

delay (2000);

Engine.UseItem (736) ;

delay (20000);

end;

end.

Thx for your upcoming replies.

Beloves.

Edited May 11, 2017 by Beloves

thalestvn · May 21, 2017

Hello everyone!

I'm playing on a pvp server, and the farm area is in Field of Silence, I have only one problem: when my char dies, he goes back to town, but I can not rebuff because of Heine's random respawn.

What I need: a script for the char to go near the normal gk, because the npcs buffer and global gk are very close, so I can rebuff and teleport to the farm zone.

Please help me, already tried to edit with Engine.MoveTo but it is kind of complicated because it always hangs somewhere.

Thanks in advance!

Request L2 Adrenaline Scripts.

Recommended Posts

ginji

ginji

adr.bot

ginji

adr.bot

ginji

Babaloo

tisonakos

adr.bot

kose

paulosbk

tisonakos

7eleven

Beloves

thalestvn

Create an account or sign in to comment

Create an account

Sign in

darknesscrysis

hornas

adr.bot

Posts

Topics

Browse

Activity

Store

Important Information