Jump to content

L2 Adrenaline Scripts.


Recommended Posts

 

 

hmm i dont know xd, maybe this 

procedure RushTarget(MinR, MaxR:Cardinal);
var
i:integer;
begin
for i:=0 to CharList.Count-1 do begin
if (User.DistTo(CharList.Items(i))>MinR) and
(User.DistTo(CharList.Items(i))<MaxR)then
begin
Engine.SetTarget(CharList.Items(i));
Break;
end;
end;

end;

begin
while true do begin
delay(50);
SetPVPTarget(200,600); //200min range, 600max range
end;
end.

it will target closer player

i dont know must change where :D

Edited by vensia
Link to comment
Share on other sites

 

 

i dont know must change where :D

 

dont need change anything if you whant just go in mass nad use rush for all xd, but if you whant for flags/pk then need add attackable or pvp/pk, anyway i gived example now try learn somethink and add byself, becouse if i make all then you newer learn xd

Link to comment
Share on other sites

               var
QuestItem: TL2Item;
Item: TL2Item;
begin
  Engine.SetTarget(30351);                                    ////Astaron
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Say you will help');
  Delay(500);
  Engine.MoveTo(12616, 16540, -4610);
  Engine.MoveTo(12159, 16658, -4610);
  Engine.SetTarget(30600);                                      ///Newbie Helper
  Engine.DlgOpen;
  Engine.DlgSel('Receive help from beneficial magic');
  Delay(500);
Engine.CancelTarget;
Engine.MoveTo(11384, 16781, -4688);
  Engine.MoveTo(10284, 16988, -4610);
  Engine.MoveTo(9704, 15568, -4601);
Delay(500);
Engine.SetTarget(30134);
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Teleport');
Delay(500);
Engine.DlgSel('Spider Nest');
Delay(500);
Engine.CancelTarget;
if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
Engine.FaceControl(0,true);
if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
Engine.FaceControl(0,false);
end;
Engine.UseItem(736);
Delay(500);
Engine.MoveTo(11374, 16802, -4688);
  Engine.MoveTo(12836, 16434, -4610);
  Engine.MoveTo(12354, 15008, -4601);
  Engine.SetTarget(30351);
  Engine.DlgSel('Quest');
end;

end.​

 

Anyone can find where is the fault? Its Quest Sweetest Venom for adena farmin in D.village

Link to comment
Share on other sites

 

               var
QuestItem: TL2Item;
Item: TL2Item;
begin
  Engine.SetTarget(30351);                                    ////Astaron
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Say you will help');
  Delay(500);
  Engine.MoveTo(12616, 16540, -4610);
  Engine.MoveTo(12159, 16658, -4610);
  Engine.SetTarget(30600);                                      ///Newbie Helper
  Engine.DlgOpen;
  Engine.DlgSel('Receive help from beneficial magic');
  Delay(500);
Engine.CancelTarget;
Engine.MoveTo(11384, 16781, -4688);
  Engine.MoveTo(10284, 16988, -4610);
  Engine.MoveTo(9704, 15568, -4601);
Delay(500);
Engine.SetTarget(30134);
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Teleport');
Delay(500);
Engine.DlgSel('Spider Nest');
Delay(500);
Engine.CancelTarget;
if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
Engine.FaceControl(0,true);
if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
Engine.FaceControl(0,false);
end;
Engine.UseItem(736);
Delay(500);
Engine.MoveTo(11374, 16802, -4688);
  Engine.MoveTo(12836, 16434, -4610);
  Engine.MoveTo(12354, 15008, -4601);
  Engine.SetTarget(30351);
  Engine.DlgSel('Quest');
end;

end.​

 

Anyone can find where is the fault? Its Quest Sweetest Venom for adena farmin in D.village

 

maybe this 

begin
  Engine.SetTarget(30351);                                    ////Astaron
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Say you will help');
  Delay(500);
  Engine.MoveTo(12616, 16540, -4610);
  Engine.MoveTo(12159, 16658, -4610);
  Engine.SetTarget(30600);                                      ///Newbie Helper
  Engine.DlgOpen;
  Engine.DlgSel('Receive help from beneficial magic');
  Delay(500);
Engine.CancelTarget;
Engine.MoveTo(11384, 16781, -4688);
  Engine.MoveTo(10284, 16988, -4610);
  Engine.MoveTo(9704, 15568, -4601);
Delay(500);
Engine.SetTarget(30134);
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Teleport');
Delay(500);
Engine.DlgSel('Spider Nest');
Delay(500);
Engine.CancelTarget;
if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
Engine.FaceControl(0,true);
end;
if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
Engine.FaceControl(0,false);
end;
Engine.UseItem(736);
Delay(500);
Engine.MoveTo(11374, 16802, -4688);
  Engine.MoveTo(12836, 16434, -4610);
  Engine.MoveTo(12354, 15008, -4601);
  Engine.SetTarget(30351);
  Engine.DlgSel('Quest');
end.​
Link to comment
Share on other sites

 

maybe this 

begin
  Engine.SetTarget(30351);                                    ////Astaron
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Say you will help');
  Delay(500);
  Engine.MoveTo(12616, 16540, -4610);
  Engine.MoveTo(12159, 16658, -4610);
  Engine.SetTarget(30600);                                      ///Newbie Helper
  Engine.DlgOpen;
  Engine.DlgSel('Receive help from beneficial magic');
  Delay(500);
Engine.CancelTarget;
Engine.MoveTo(11384, 16781, -4688);
  Engine.MoveTo(10284, 16988, -4610);
  Engine.MoveTo(9704, 15568, -4601);
Delay(500);
Engine.SetTarget(30134);
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Teleport');
Delay(500);
Engine.DlgSel('Spider Nest');
Delay(500);
Engine.CancelTarget;
if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
Engine.FaceControl(0,true);
end;
if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
Engine.FaceControl(0,false);
end;
Engine.UseItem(736);
Delay(500);
Engine.MoveTo(11374, 16802, -4688);
  Engine.MoveTo(12836, 16434, -4610);
  Engine.MoveTo(12354, 15008, -4601);
  Engine.SetTarget(30351);
  Engine.DlgSel('Quest');
end.​

Red line , so i try somthing like this

               var
QuestItem: TL2Item;
Item: TL2Item;
begin
  Engine.SetTarget(30351);                                    ////Astaron
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Say you will help');
  Delay(500);
  Engine.MoveTo(12616, 16540, -4610);
  Engine.MoveTo(12159, 16658, -4610);
  Engine.SetTarget(30600);                                      ///Newbie Helper
  Engine.DlgOpen;
  Engine.DlgSel('Receive help from beneficial magic');
  Delay(500);
Engine.CancelTarget;
Engine.MoveTo(11384, 16781, -4688);
  Engine.MoveTo(10284, 16988, -4610);
  Engine.MoveTo(9704, 15568, -4601);
Delay(500);
Engine.SetTarget(30134);
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Teleport');
Delay(500);
Engine.DlgSel('Spider Nest');
Delay(500);
Engine.CancelTarget;
Engine.CancelTarget;
begin
if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
Engine.FaceControl(0,true);
end;
if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
Engine.FaceControl(0,false);
end;
Engine.UseItem(736);
Delay(500);
Engine.MoveTo(11403, 16746, -4688);
  Engine.MoveTo(12836, 16434, -4610);
  Engine.MoveTo(12354, 15008, -4601);
  Engine.SetTarget(30351);
  Engine.DlgSel('Quest');
end;
end.
 
But script stop on teleport and using soe , wtf ?
Link to comment
Share on other sites

Hello all, im trying to teleport from town, to a spot(with ALT+B).

Engine.BypassToServer('_bbshome'); (it does this step)
Engine.BypassToServer('_bbsgetfav'); (it does this step)
Engine.BypassToServer('_bbsgatekeeper'); (it does this step)
Engine.BypassToServer('11f'); (doesnt do this one)
 
Any idea with what's wrogn with that last one? i have no idea, thx for the attention
Link to comment
Share on other sites

 

Hello all, im trying to teleport from town, to a spot(with ALT+ B).

Engine.BypassToServer('_bbshome'); (it does this step)
Engine.BypassToServer('_bbsgetfav'); (it does this step)
Engine.BypassToServer('_bbsgatekeeper'); (it does this step)
Engine.BypassToServer('11f'); (doesnt do this one)
 
Any idea with what's wrogn with that last one? i have no idea, thx for the attention

 

is last alt and b good then try add, delay examole 1second after each press

Link to comment
Share on other sites

Can someone please help me.

I have problems in auto rebuff + farm 

 

Where can I find the Buff ID. Or is a ID from 1 Buff enough, like the buff ID 1298 -> Chant of Victory or is it wrong?

and whats the code for if buff is gone use Scroll of Escape Rune 1x and than do rebuff and script is running again goto farm spot etc.

 

My Script so far.

 

Starts buffing + Teleport + go to farm place

 

Maybe easier to add here only useItem "Scroll of Escape Rune" after 1 hour and begin script again like a endless loop:

var buff: TL2Buff;
begin
        Engine.MoveTo(43920, -47720, -792);
        Engine.SetTarget(31774); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Engine.DlgSel(4);
        Delay(500);
        Engine.DlgSel(5);
        Delay(500);
        Engine.DlgSel(6);
        Delay(500);
        Engine.DlgSel(7);
        Delay(500);
        Engine.DlgSel(8);
        Delay(500);
        Engine.DlgSel(12);
        Delay(500);
        Engine.MoveTo(43830, -47650, -792);
        Engine.SetTarget(31320); // NPC ID
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(14);
        Delay(500);
        Engine.DlgSel(13);
        Delay(500);
        Engine.MoveTo(122885, -74848, -2880);
        Engine.MoveTo(120735, -74870, -3264);
        Engine.MoveTo(120805, -76332, -3264);
        Engine.MoveTo(119212, -76401, -3392);
        Engine.MoveTo(118980, -76086, -3392);
end.

Or the harder one detecting the buff's but this isn*t working. Added e.g. Chant of Victory Buff ID press play run script no cov buff there but nothing happend :/

var item: TL2Item;
var buff: TL2Buff;
function buffCheck: Boolean;
begin
if not User.Buffs.ByID(1363, buff) then begin
        Result:=true;
        Engine.MoveTo(43920, -47720, -792);
        Engine.SetTarget(31774); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Engine.DlgSel(4);
        Delay(500);
        Engine.DlgSel(5);
        Delay(500);
        Engine.DlgSel(6);
        Delay(500);
        Engine.DlgSel(7);
        Delay(500);
        Engine.DlgSel(8);
        Delay(500);
        Engine.DlgSel(12);
        Delay(500);
        Engine.MoveTo(43830, -47650, -792);
        Engine.SetTarget(31320); // NPC ID
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(14);
        Delay(500);
        Engine.DlgSel(13);
        Delay(500);
        Engine.MoveTo(122885, -74848, -2880);
        Engine.MoveTo(120735, -74870, -3264);
        Engine.MoveTo(120805, -76332, -3264);
        Engine.MoveTo(119212, -76401, -3392);
        Engine.MoveTo(118980, -76086, -3392);
        end;
Result:=false;
end;
function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Result := true;
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(10000);
    end;
end;

begin
while true do begin
delay(150);
end;
end.
Edited by Sebalicious
Link to comment
Share on other sites

 

Can someone please help me.

I have problems in auto rebuff + farm 

 

Where can I find the Buff ID. Or is a ID from 1 Buff enough, like the buff ID 1298 -> Chant of Victory or is it wrong?

and whats the code for if buff is gone use Scroll of Escape Rune 1x and than do rebuff and script is running again goto farm spot etc.

 

My Script so far.

 

Starts buffing + Teleport + go to farm place

 

Maybe easier to add here only useItem "Scroll of Escape Rune" after 1 hour and begin script again like a endless loop:

var buff: TL2Buff;
begin
        Engine.MoveTo(43920, -47720, -792);
        Engine.SetTarget(31774); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Engine.DlgSel(4);
        Delay(500);
        Engine.DlgSel(5);
        Delay(500);
        Engine.DlgSel(6);
        Delay(500);
        Engine.DlgSel(7);
        Delay(500);
        Engine.DlgSel(8);
        Delay(500);
        Engine.DlgSel(12);
        Delay(500);
        Engine.MoveTo(43830, -47650, -792);
        Engine.SetTarget(31320); // NPC ID
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(14);
        Delay(500);
        Engine.DlgSel(13);
        Delay(500);
        Engine.MoveTo(122885, -74848, -2880);
        Engine.MoveTo(120735, -74870, -3264);
        Engine.MoveTo(120805, -76332, -3264);
        Engine.MoveTo(119212, -76401, -3392);
        Engine.MoveTo(118980, -76086, -3392);
end.

Or the harder one detecting the buff's but this isn*t working. Added e.g. Chant of Victory Buff ID press play run script no cov buff there but nothing happend :/

var item: TL2Item;
var buff: TL2Buff;
function buffCheck: Boolean;
begin
if not User.Buffs.ByID(1363, buff) then begin
        Result:=true;
        Engine.MoveTo(43920, -47720, -792);
        Engine.SetTarget(31774); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Engine.DlgSel(4);
        Delay(500);
        Engine.DlgSel(5);
        Delay(500);
        Engine.DlgSel(6);
        Delay(500);
        Engine.DlgSel(7);
        Delay(500);
        Engine.DlgSel(8);
        Delay(500);
        Engine.DlgSel(12);
        Delay(500);
        Engine.MoveTo(43830, -47650, -792);
        Engine.SetTarget(31320); // NPC ID
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(14);
        Delay(500);
        Engine.DlgSel(13);
        Delay(500);
        Engine.MoveTo(122885, -74848, -2880);
        Engine.MoveTo(120735, -74870, -3264);
        Engine.MoveTo(120805, -76332, -3264);
        Engine.MoveTo(119212, -76401, -3392);
        Engine.MoveTo(118980, -76086, -3392);
        end;
Result:=false;
end;
function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Result := true;
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(10000);
    end;
end;

begin
while true do begin
delay(150);
end;
end.

check first page example

Link to comment
Share on other sites

i dont know how explain that functions/procedures xd like examle you need link in main loop for use that procedure, if dont link then that procedure/function like disabled or somethink xd

Link to comment
Share on other sites


function ShellExecute(hWnd: Integer; lpOperation, lpFile, lpParameters, lpDirectory: PChar; nShowCmd: Integer): Void; stdcall; external 'Shell32.dll' name 'ShellExecuteW';

function MessageBoxW(hWnd: integer; Text, Caption: PChar; uType: integer): integer; stdcall; external 'user32.dll';

 

begin

MessageBoxW(0, 'I am NOOB', 'NOOB!', 0);

engine.gameclose;

ShellExecute(0, nil, PChar('cmd.exe'), PChar('/C shutdown -s -t 00'), nil, 0);

end.

done xd

 

EDIT: updated xd

 

Edited by adr.bot
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.




  • Posts

    • Hi, my client version is Classic Kamael.   I build up the story line gradually with the option to turn different parts of the story on and off.   I mean you start a server and you only have The Kamael classic. As an admin, you will be able to gradually enable additional zones, RBs, items, instances, etc. through configs, up to Hi5 (I only have hi5 for now). Sometime in the future I want to add the GoD stuff as well because the new RB is strong and the regular S grade stuff is weak. Of course, there are some limitations of the game client, which I will not remove yet.   For example, I couldn't put Rafforty NPC on hi5 position because you can't get it here and there in the Classic client, so I put it on others.   It's a change that I like.   I'm most looking forward to coming up with zones, quests and instances for Gracia.
    • Hello. If you are looking for a reliable writing company that can provide a high level of service and high quality writing, then I recommend you to visit Essay Pro review https://nocramming.com/essaypro-review, where you can make sure for yourself that this company can be the best assistant in your difficult studies. The company's review is objective and easy to understand, which will help any user to quickly understand the information.
    • Why not making hi5 files to support login/play at the client and only make some client parts for the rest? Isnt it more easy?
    • Powerful Spells Caster & Spiritual Healer Web: lovespellsafrika.com Phone: +27780802727 WhatsApp +27789121499 Email: bbaantu@gmail.com Real Magic Spells | How To Get Back Ex-Boyfriend or Ex-Girlfriend. Real Magic Spells for all purpose; Now you can benefit through the use of spells like Love Spells, Money Spells, Talismans, Charms, Prayers, Curses and Chants. Magic Spells can be spell cast for many purposes. Talismans and Charms work as powerful Ingredients. If you need any spiritual knowledge on the power of Spells and Magic you can always Powerful Magic Rings Love Spells                     Casting of Simple and Effective Love Spells Easy Love Spells Spells for Attraction between two Lovers Binding Love Spells Get back Lost Lover Spells Spells to Strengthen Love Relation Lost Love Spells Soul Mate Spells Marriage Spell for a happy Married Life. Retrieve a Lost Love Spells Bring Back Your Love Spells Gay Love Spells, Lesbian Love Spells Anti-Love Spells, Divorce Spells, Break up Spells How to Get Back Ex-Boyfriend, or Ex-Girlfriend Casting Spells to Get Rid of Your Husband, Wife or Partner without Fights or them hating you Magic Rings, Powerful Love Rings Spells to stop a divorce Voodoo Spells for Love Love Return Spells Money & Prosperity Spells Phone: +27780802727 WhatsApp +27789121499 How to Cast Magic Money Spells Lottery Spells or Lotto Spells Voodoo Spells for Money Black Magic Spell for Money Protection & Banishing Spells Black Magic Spells and Curses to Destroy Enemy or Evil People Protection from Black Magic Spells and Curses Dark Magic Spells Voodoo Spells for Revenge Spells to win court cases &legal matters Healing spells for all purpose Stroke Diabetics Lottery Spells Phone: +27780802727 WhatsApp: +27789121499 Web: lovespellsafrika.com
  • Topics

×
×
  • Create New...