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

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;

Share this post


Link to post
Share on other sites
  • Replies 781
  • 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

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;

Share this post


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

Share this post


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

Share this post


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

Share this post


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

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.