Request L2 Adrenaline Scripts.

[ginji 0]

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 0]

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

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

[adr.bot 17]

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

 

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

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

[ginji 0]

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

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

[adr.bot 17]

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 0]

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

Thanks !

[Babaloo 0]

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

[tisonakos 0]

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 17]

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 0]

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 0]

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

[tisonakos 0]

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 0]

Thank you for the answer bro i will test it

works.

[Beloves 1]

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 0]

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!