Request L2 Adrenaline Scripts.

vensia · September 6, 2015

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 September 6, 2015 by vensia

adr.bot · September 6, 2015

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

thanatos15 · September 7, 2015

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

adr.bot · September 7, 2015

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.

thanatos15 · September 7, 2015

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;

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 ?

cuppacoffee · September 8, 2015

I had some problems with detecting inventory and quest items as well. It seems if you OPEN your inventory it won't detect things. Strange as hell but that was my experience.

amaralpt · September 9, 2015

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

adr.bot · September 9, 2015

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

amaralpt · September 9, 2015

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

worked, ty so much!!!

Sebalicious · September 10, 2015

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 September 10, 2015 by Sebalicious

adr.bot · September 10, 2015

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

Sebalicious · September 10, 2015

Hey Adr.Bot,

the second one is from ur example 1.st side but it's not working.

adr.bot · September 10, 2015

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

AchYlek · September 10, 2015

adr.bot make me nub questl script, ty

muhehjabhurhauwe

adr.bot · September 10, 2015

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 September 10, 2015 by adr.bot

Request L2 Adrenaline Scripts.

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Posts

Topics