Jump to content

L2 Adrenaline Scripts.


Recommended Posts

can any1 help me.. i got 2 noob question :P

 

1. command for repeat script.

2. if possible or what command for character do bsoe when  a specified location.

 

 

thx.

1. repeat

while true do begin

2.bsoe when specified location 

if user.inrange(123, 456, 789, 500) then begin //coordinates of loc
engine.useitem(121); //bsoe id
delay(5000); // 5seconds delay, when teleporting to town to avoid stuck
end;
Link to comment
Share on other sites

if user.inrange(82995, 148317, -3472)
engine.useitem(1538);
delay(5000);

end;

 

Dont work.. adrenalite made first lane in red color and tell me this  ("begin" expected but "if" found)

 

and about repeat macro.. also dont work.. or i dont know wher put the command.. for example

 

while true do begin

if user.inrange(82995, 148317, -3472)
engine.useitem(1538);
delay(5000);
end;

Link to comment
Share on other sites

if user.inrange(82995, 148317, -3472)

engine.useitem(1538);

delay(5000);

end;

 

Dont work.. adrenalite made first lane in red color and tell me this  ("begin" expected but "if" found)

 

and about repeat macro.. also dont work.. or i dont know wher put the command.. for example

 

while true do begin

if user.inrange(82995, 148317, -3472)

engine.useitem(1538);

delay(5000);

end;

begin
while true do begin
if user.inrange(82995, 148317, -3472, 500) // 500 needed while you checking
engine.useitem(1538);
delay(5000);
end;
end.
Link to comment
Share on other sites

Hello adr.bot if its easy i wanna one script for ayto buff in l2cartel  tnx for the other scripts !!!!!

more about that?

 

EDIT: i add example with rebuy from other thread, to avoid spam in my pm/skype for same example xd

var MP, Shot: TL2Item;
buff: TL2Buff;
function buffCheck: Boolean;
begin
    if (not User.Buffs.ByID(1062, buff) or (buff.endtime<300000)) then begin //1062 wich buff id checking
        Result:=true;
        Delay(1000);
        Engine.BypassToServer('_bbshome');    //buffer alt and b
        Delay(1000);
        Engine.BypassToServer('02');
        Delay(1000);
        Engine.BypassToServer('0b');
        Delay(1000);
        Engine.BypassToServer('0c');
        Delay(1000);
        Engine.BypassToServer('018');
        Delay(1000);
        Engine.BypassToServer('018');
        Delay(1000);
    end;
Result:=false;
end;

function BuyMP:boolean;
begin
if not Inventory.User.ByID(728, MP) or (MP.count<10) then begin //728 mp id ,10 or less then buy MP so probably change it for your count
result:=true;
        Delay(1000);
        Engine.BypassToServer('_bbshome'); // alt and b codes to buy mp
        Delay(1000);
        Engine.BypassToServer('02');
        Delay(1000);
        Engine.BypassToServer('0c');
        Delay(1000);
        Engine.BypassToServer('01f');
        Delay(1000);
        Engine.NpcExchange(728, 2);  //728 mp id, 2 is count how many buy it
        delay(1000);
        end;
        result:=false;
end;

function BuyShot:boolean;
begin
if not Inventory.User.ByID(1463, Shot) or (Shot.count<900) then begin //1463 is d grade shot id, change for your shot id, 900 or less then buy shots
result:=true;
        Delay(1000);
        Engine.BypassToServer('_bbshome');    //alt and b to shots
        Delay(1000);
        Engine.BypassToServer('02');
        Delay(1000);
        Engine.BypassToServer('0c');
        Delay(1000);
        Engine.BypassToServer('020');
        Delay(1000);
        Engine.NpcExchange(1463, 50);   //1463 id, 50 is count wich buy
        delay(1000);
        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);
                    //town coordinates     range                 //buff id wich check                        //shot id                              //mp id
    if user.inrange(-83064, 150600, -3104, 5000) and User.Buffs.ByID(1062, buffCheck) and Inventory.User.ByID(1463, BuyShot) and Inventory.User.ByID(728, BuyMP) then begin
        Print('Teleport.');
        delay(1000);
        Engine.BypassToServer('_bbshome'); //alt and b where teleport
        delay(1000);
        Engine.BypassToServer('02');
        delay(1000);
        Engine.BypassToServer('0a');
        delay(1000);
        Engine.BypassToServer('031');
        delay(1000);
        Engine.BypassToServer('0a');
        Delay(10000);
    end;                      
                             
    if user.inrange(-41555, 210012, -5064, 300) then begin  //coordinates after teleport
        Print('Moving');
        Engine.MoveTo(-41608, 210904, -5064);      //path to spot
        Engine.MoveTo(-41752, 210984, -5064);
        Engine.MoveTo(-42696, 210984, -5064);
        Print('ON!');
        Delay(500);
        Engine.FaceControl(0, true);  //turn on bot
        while not deadCheck do delay(1000); //while not dead, do nothing and wait.
    end;
end;
end.
Edited by adr.bot
Link to comment
Share on other sites

@adr, and how to bind a key for this script?

var action:tl2action;
    p1,p2:pointer;
begin
  while true do begin
    engine.waitaction([lakey], p1, p2);
    if cardinal(p1) = $11 then begin   //ctrl
    print('qqqqqq');
    end;
  end;
end.

or i bad understand question?

Link to comment
Share on other sites

hello....  Need Hadd Configuration For Default In My Adrenaline For Auto Accept Invitations... how i can make it???

 

Did you even look in Adr interface?

Hint: Party settings tab.

Link to comment
Share on other sites

Did you even look in Adr interface?

Hint: Party settings tab.

I know it... but I dont like always in every players look adr interface...

 

I like when i open adrenaline it have already interface active accept auto invite...

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...