Jump to content

L2 Adrenaline Scripts.


Recommended Posts

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.

Link to comment
Share on other sites

  • 3 weeks later...
  • 1 month later...

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 !! :) 

Link to comment
Share on other sites

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)

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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 by Beloves
Link to comment
Share on other sites

  • 2 weeks later...
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!

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.




×
×
  • Create New...