Request L2 Adrenaline Scripts.

[adr.bot]

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;

[lobezno4]

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;

[adr.bot]

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.

[bernadi7]

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

[adr.bot]

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 October 9, 2015 by adr.bot

[abbadon]

Anybody knows how to target a certain class? Like healer or dominator?

[adr.bot]

Anybody knows how to target a certain class? Like healer or dominator?

if charlist.items(i).ClassID = 12 then begin //12 class id
  engine.settarget(charlist.items(i));
  end;

[arturo134]

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

[adr.bot]

@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?

[juliopecador]

 

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

 

[kenvin]

anyone for chamber ^^ ?

[cuppacoffee]

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.

[juliopecador]

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

[adr.bot]

i remember that have 1.61, when example log in and dont need change anything it auto accept party, with 1.71 need mark "accept from own bot"

[juliopecador]

i remember that have 1.61, when example log in and dont need change anything it auto accept party, with 1.71 need mark "accept from own bot"

:(