[Script]L2 Adrenaline

['Baggos']

Hello guys. 

I want to ask something..

I use adrenaline for over 3 months, but I can't find a way to make my bot to do teleport in a position.

For example: When my bot dies, I want to take re-buffs and teleport in a zone. After this, to walk arround in another locations. 

 

Sorry for my bad english.. 

[GhostBuster-*]

 

Hello guys. 

I want to ask something..

I use adrenaline for over 3 months, but I can't find a way to make my bot to do teleport in a position.

For example: When my bot dies, I want to take re-buffs and teleport in a zone. After this, to walk arround in another locations. 

 

Sorry for my bad english.. 

 

I think these options and script exist in the latest version,but you have to pay for those services.Idk if there is a way for free version to do this.

[adr.bot]

you can use script for that, example here http://www.maxcheaters.com/topic/189997-l2-adrenaline-scripts/page-1

['Baggos']

I think these options and script exist in the latest version,but you have to pay for those services.Idk if there is a way for free version to do this.

I've the latest version. 

No as free version!

 

I can do the bot to move arround, it's not this the problem.

All I want, it's to do buffs/teleport. Nothing else.

Maybe I will try to re-write a ready script. I don't think I will help here..

 

 

 

 

you can use script for that, example here http://www.maxcheaters.com/topic/189997-l2-adrenaline-scripts/page-1

 

Hey adr.bot!

Yes, I think this one can be help me. 

 

Thank you!

 

 

var
item: TL2Item;

function buffCheck: Boolean;
var buff: TL2Buff;
begin
if not User.Buffs.ByID(1204, buff) then begin
Result:=true;
Print('Buffs are needed. Buffing...');
Engine.MoveTo(82968, 53240, -1488);
Delay(500);
Engine.SetTarget(30176); // NPC ID
Delay(500);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel(1);
Delay(500);
Print('Buffed.');
Engine.MoveTo(82968, 53208, -1488); 
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);

if User.inrange(80334,54400,-1552, 250, 150) then begin
        Engine.MoveTo(80334,54400,-1552);
        Engine.MoveTo(80969,53698,-1558);
        Engine.MoveTo(81540,53454,-1494);
        Engine.MoveTo(82480,53340,-1494);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(82323,55466,-1520, 250, 150) then begin
        Engine.MoveTo(82323,55466,-1520);
        Engine.MoveTo(82403,54498,-1523);
        Engine.MoveTo(82589,53861,-1486);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(82123,53535,-1488, 250, 150) then begin
        Engine.MoveTo(82123,53535,-1488);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(80304,56241,-1552, 250, 150) then begin
        Engine.MoveTo(80304,56241,-1552);
        Engine.MoveTo(81470,55682,-1523);
        Engine.MoveTo(82256,55294,-1523);
        Engine.MoveTo(82510,54035,-1494);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(82445,56012,-1520, 250, 150) then begin
        Engine.MoveTo(82445,56012,-1520);
        Engine.MoveTo(82341,54950,-1523);
        Engine.MoveTo(82574,53833,-1486);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(80054,53209,-1552, 250, 150) then begin
        Engine.MoveTo(80054,53209,-1552);
        Engine.MoveTo(80624,53611,-1558);
        Engine.MoveTo(81772,53468,-1494);
        Engine.MoveTo(82289,53472,-1494);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(80513,52980,-1552, 250, 150) then begin
        Engine.MoveTo(80513,52980,-1552);
        Engine.MoveTo(80165,53065,-1558);
        Engine.MoveTo(80630,53610,-1558);
        Engine.MoveTo(81688,53447,-1494);
        Engine.MoveTo(82303,53338,-1494);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(80267,55497,-1552, 250, 150) then begin
        Engine.MoveTo(80267,55497,-1552);
        Engine.MoveTo(80359,54536,-1558);
        Engine.MoveTo(80792,53785,-1558);
        Engine.MoveTo(81495,53421,-1494);
        Engine.MoveTo(82323,53362,-1494);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(79933,55752,-1552, 250, 150) then begin
        Engine.MoveTo(79933,55752,-1552);
        Engine.MoveTo(80349,55208,-1558);
        Engine.MoveTo(80470,54217,-1558);
        Engine.MoveTo(81053,53602,-1558);
        Engine.MoveTo(81974,53465,-1494);
        Engine.MoveTo(82950,53186,-1494);
end;
    if User.inrange(80594,55837,-1552, 250, 150) then begin
        Engine.MoveTo(80594,55837,-1552);
        Engine.MoveTo(81899,55492,-1523);
        Engine.MoveTo(82240,55142,-1523);
        Engine.MoveTo(82531,53946,-1494);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(82213,53964,-1488, 250, 150) then begin
        Engine.MoveTo(82213,53964,-1488);
        Engine.MoveTo(82668,53709,-1486);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(83327,55410,-1520, 250, 150) then begin
        Engine.MoveTo(83327,55410,-1520);
        Engine.MoveTo(82607,55592,-1523);
        Engine.MoveTo(82184,54809,-1523);
        Engine.MoveTo(82563,53882,-1488);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(79706,52986,-1552, 250, 150) then begin
        Engine.MoveTo(79706,52986,-1552);
        Engine.MoveTo(80427,53549,-1558);
        Engine.MoveTo(80812,53655,-1558);
        Engine.MoveTo(81979,53439,-1494);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(82880,55390,-1520, 250, 150) then begin
        Engine.MoveTo(82880,55390,-1520);
        Engine.MoveTo(82375,55524,-1523);
        Engine.MoveTo(82367,54313,-1493);
        Engine.MoveTo(82651,53734,-1486);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(82552,53447,-1488, 250, 150) then begin
        Engine.MoveTo(82552,53447,-1488);
        Engine.MoveTo(82950,53186,-1494);
end;
if User.inrange(82638,53885,-1488, 250, 150) then begin
        Engine.MoveTo(82638,53885,-1488);
        Engine.MoveTo(82950,53186,-1494);
end;
if user.inrange(82888, 53240, -1488, 500) then begin
buffCheck;
end; 

if user.inrange(82968, 53208, -1488, 150) and User.Buffs.ByID(1204, buffCheck) then begin
Print('Teleport to Apostate.');
Engine.SetTarget(30832);
Engine.DlgOpen;
Delay(500);
Engine.DlgSel('Catacomb');
Delay(500);
Engine.DlgSel('Apostate');
Delay(5000);
end; 

if user.inrange(-20237, -250797, -8163, 500) then begin
Print('Apostate. Moving to spot');
    Engine.MoveTo(-20168,-250744,-8160);
    Engine.MoveTo(-19304,-250728,-8160);
    Engine.MoveTo(-18968,-250504,-8160);
    Engine.MoveTo(-18456,-250504,-8160);
    Engine.MoveTo(-16792,-250536,-8160);
    Engine.MoveTo(-16424,-250760,-8160);
    Engine.MoveTo(-14888,-250776,-8160);
    Engine.MoveTo(-14536,-250424,-8160);
    Engine.MoveTo(-14408,-249160,-8160);
    Engine.MoveTo(-13768,-249064,-8160);
    Engine.MoveTo(-13736,-247848,-8160);
Print('AA farm: ON!');
Delay(500);
Engine.FaceControl(0, true);
while not deadCheck do delay(1000); //while not dead, do nothing and wait.
end;
end;
end.

Edited October 31, 2015 by 'Baggos'

[cuppacoffee]

pseudo code:

 

begin

while true do begin

if user dead then begin

go to village

check position and act accordingly (ei. if in point A move to point F then move to G then to H and if in point B move to point I then J then H)

rebuff at point H

port to zone

end;

end.

 

this is what you are looking for?

['Baggos']

pseudo code:

 

begin

while true do begin

if user dead then begin

go to village

check position and act accordingly (ei. if in point A move to point F then move to G then to H and if in point B move to point I then J then H)

rebuff at point H

port to zone

end;

end.

 

this is what you are looking for?

Yes. I was looking for this.

[cuppacoffee]

Well, good.. there you have it then :P

Edited October 31, 2015 by cuppacoffee

[testir2]

Anyone have the script for imperial tomb?