Welcome to MaxCheaters.com

Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads

Recommended Posts

  • Replies 783
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

The above script works for tutorial windows. For trade chats you would only need to change the packet ID, so search for that. You don't need to ask for a whole other script when you already have one that you just need to modify for it to work.

pto, plase share l2 adrenaline scripts or send to pm :)

Hi if you mean save npc dialog in to txt file so this help for you uses classes; begin with Tstringlist.create do try Text := Engine.DlgText; SaveToFile('C:\dlg.txt'); finally Free; end; end.

Posted Images

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

Share this post


Link to post
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)

Share this post


Link to post
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.

Share this post


Link to post
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

Share this post


Link to post
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

Share this post


Link to post
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!

Share this post


Link to post
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.