Request L2 Adrenaline Scripts.

sellis · June 2, 2015

i play an interlude server that adrenaline works! if anyone has script for tatteosian quest in hotsprings "egg delivery" please share it!! thanks a lot

criticalmaxi · June 3, 2015

hi, how i can make repeat one script?

adr.bot · June 3, 2015

hi, how i can make repeat one script?

while true do begin

sellis · June 4, 2015

any answer about tts quest script??

adr.bot · June 4, 2015

any answer about tts quest script??

http://www.maxcheaters.com/topic/191641-l2-adrenaline-script-problem/

sellis · June 4, 2015

thanks a lot my friend! but i have a problem i cant understand what exactly need to change

adr.bot · June 4, 2015

thanks a lot my friend! but i have a problem i cant understand what exactly need to change

if server use quest named at npc in english not russ then i think no need change

BouKipiKe · June 4, 2015

HI all

adr.bot i need ur help i have red error at the end of the script "end." is in red and scripte doesn't start :/

ty for ur help :)

HI all

adr.bot i need ur help i have red error at the end of the script "end." is in red and scripte doesn't start :/

var
item: TL2Item;

function buffCheck: Boolean;
var buff: TL2Buff;
begin
    if not User.Buffs.ByID(1204, buff) then begin
        Result:=true;
        Print('sa rebuff poto');
        Engine.MoveTo(87181,-143445,-1288);
        Delay(500);
        Engine.SetTarget(35650); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('buff');
        Delay(500);
        Engine.bypasstoserver('custom_dobuff MakeBuffs WindWalk231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs Shield231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs Might231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs MagicBarrier231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs BerserkerSpirit231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs VampiricRage231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs BlessedBody231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff Chat 1');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs Haste231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs Focus231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs DeathWhisper231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs Guidance231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs ResistShock231');
        Delay(1000);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('Songs');
        Delay(500);
        Engine.bypasstoserver('custom_dobuff MakeBuffs SongofEarth231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs SongofWarding231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs SongofWind231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs SongofVitality231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs SongofHunter231');
        Delay(1000);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('Dances');
        Delay(500);
        Engine.bypasstoserver('custom_dobuff MakeBuffs DanceofWarior231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs DanceofFire231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs DanceofFury231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs DanceoftheVampire231');
        Delay(1000);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('Etc Buff');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs ChantofVictory231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs GreaterMight231');
        Delay(1000);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('HP/MP/CP');
        Delay(1000);        
        Print('ok chui paré.');
        Engine.MoveTo(87130,-143446,-1319);        
    end;
Result:=false;
end;

function deadCheck: Boolean;
function GoHome(ResType: TRestartType = rtClanHoll): 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(86574,-141897,-1323, 250, 150) then begin    // ch
        Engine.MoveTo(86780,-142217,-1320);
        Engine.MoveTo(87103,-142760,-1320);
        Engine.MoveTo(87164,-143449,-1288);
    end;
    if user.inrange(87164,-143449,-1288, 500) then begin
        buffCheck;
    end;    
    
    if user.inrange(87164,-143449,-1288, 150) and User.Buffs.ByID(1204, buffCheck) then begin
        Engine.SetTarget(31964);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('teleport');
        Delay(500);
        Engine.DlgSel('Town of Goddard');
        Delay(10000);
        Engine.SetTarget(31275);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('teleport');
        Delay(500);
        Engine.DlgSel('Hot Springs');
        Delay(1000);
    end;    
                          
    if user.inrange(149575,-112710,-2060, 500) then begin
        Print('cest parti');
      Engine.MoveTo(149606,-110577,-2298);
      Engine.MoveTo(149161,-109035,-2529);
      Engine.MoveTo(147956,-108811,-2836);
      Engine.MoveTo(145523,-109075,-3449);
      Engine.MoveTo(143923,-110626,-3597);
        Print('Yatta');
        Delay(500);
        Engine.FaceControl(0, true);
        while not deadCheck do delay(1000); //while not dead, do nothing and wait.
    end;
end;
end.

ty for ur help :)

Edited June 15, 2015 by BouKipiKe

adr.bot · June 4, 2015

you need to try, now no red line

var
item: TL2Item;

function buffCheck: Boolean;
var buff: TL2Buff;
begin
    if not User.Buffs.ByID(1204, buff) then begin
        Result:=true;
        Print('sa rebuff poto');
        Engine.MoveTo(87181,-143445,-1288);
        Delay(500);
        Engine.SetTarget(35650); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('buff');
        Delay(500);
        Engine.bypasstoserver('custom_dobuff MakeBuffs WindWalk231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs Shield231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs Might231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs MagicBarrier231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs BerserkerSpirit231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs VampiricRage231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs BlessedBody231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff Chat 1');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs Haste231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs Focus231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs DeathWhisper231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs Guidance231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs ResistShock231');
        Delay(1000);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('Songs');
        Delay(500);
        Engine.bypasstoserver('custom_dobuff MakeBuffs SongofEarth231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs SongofWarding231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs SongofWind231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs SongofVitality231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs SongofHunter231');
        Delay(1000);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('Dances');
        Delay(500);
        Engine.bypasstoserver('custom_dobuff MakeBuffs DanceofWarior231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs DanceofFire231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs DanceofFury231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs DanceoftheVampire231');
        Delay(1000);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('Etc Buff');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs ChantofVictory231');
        Delay(1000);
        Engine.bypasstoserver('custom_dobuff MakeBuffs GreaterMight231');
        Delay(1000);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('HP/MP/CP');
        Delay(1000);        
        Print('ok chui paré.');
        Engine.MoveTo(87130,-143446,-1319);        
    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(rtTown);  ///here change to town or other
        Delay(10000);
    end;
end;

begin
while true do begin
delay(150);

if User.inrange(86574,-141897,-1323, 250, 150) then begin    // ch
        Engine.MoveTo(86780,-142217,-1320);
        Engine.MoveTo(87103,-142760,-1320);
        Engine.MoveTo(87164,-143449,-1288);
    end;
    if user.inrange(87164,-143449,-1288, 500) then begin
        buffCheck;
    end;    
    
    if user.inrange(87164,-143449,-1288, 150) and User.Buffs.ByID(1204, buffCheck) then begin
        Engine.SetTarget(31964);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('teleport');
        Delay(500);
        Engine.DlgSel('Town of Goddard');
        Delay(10000);
        Engine.SetTarget(31275);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('teleport');
        Delay(500);
        Engine.DlgSel('Hot Springs');
        Delay(1000);
    end;    
                          
    if user.inrange(149575,-112710,-2060, 500) then begin
        Print('cest parti');
      Engine.MoveTo(149606,-110577,-2298);
      Engine.MoveTo(149161,-109035,-2529);
      Engine.MoveTo(147956,-108811,-2836);
      Engine.MoveTo(145523,-109075,-3449);
      Engine.MoveTo(143923,-110626,-3597);
        Print('Yatta');
        Delay(500);
        Engine.FaceControl(0, true);
        while not deadCheck do delay(1000); //while not dead, do nothing and wait.
    end;
end;
end.

Edited June 4, 2015 by adr.bot

mitssten · June 5, 2015

i open the dialog viewer but dont work why?

adr.bot · June 5, 2015

i open the dialog viewer but dont work why?

if server l2redemption then dont work

BouKipiKe · June 5, 2015

Thx Again Adr.bot U so pro all work perfect :)

Ty vm for ur help :good sir:

mariuda · June 5, 2015

if server l2redemption then dont work

A cannot use any bot/walker/sniffer on this server (here is the patch) is H5 oficial files. with cliext shield 1.0.0.9.

Any idea for this server?

PD: patch is .exe if you dont want it i can upload my system in .rar

Pd2: for problem with antivirus, firewall, pin use, the GM disable the anticheat for 2 days for make a loging in 101 guide.

Edited June 5, 2015 by mariuda

adr.bot · June 5, 2015

Thx Again Adr.bot U so pro all work perfect :)

Ty vm for ur help :good sir:

np

A cannot use any bot/walker/sniffer on this server (here is the patch) is H5 oficial files. with cliext shield 1.0.0.9.

Any idea for this server?

PD: patch is .exe if you dont want it i can upload my system in .rar

Pd2: for problem with antivirus, firewall, pin use, the GM disable the anticheat for 2 days for make a loging in 101 guide.

give test account or something, becouse your server language.....

marcin1987 · June 7, 2015

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...');

        Delay(500);
        Engine.SetTarget(35650); // NPC ID
        Engine.MoveToTarget(-20);
        Delay(500);
        Engine.DlgOpen;
        Delay(1000);
        Engine.BypassToServer('custom_dobuff Chat 99');
        Delay(1000);
        Engine.BypassToServer('custom_dobuff ProfBuffs th');
        delay(1000);
        Engine.DlgOpen;
        Engine.BypassToServer('custom_dobuff RestoreAll');
        delay(1000);
        Print('Buffed.');
        Engine.MoveTo(147970, -55256, -2759);
    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(1);
    end;
end;

begin
while true do begin
delay(150);

   if user.inrange(146272, -58176, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(147593, -58103, -3007);
       Engine.MoveTo(147727, -57141, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
       if user.inrange(145264, -57680, -2976, 250, 150) then begin
       Engine.FaceControl(0,false);
       Engine.MoveTo(145588, -56926, -3007);
       Engine.MoveTo(146673, -56095, -2807);
       Engine.MoveTo(147543, -56054, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(145696, -57696, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(145510, -56930, -3007);
       Engine.MoveTo(146499, -56202, -2807);
       Engine.MoveTo(147481, -56031, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(144944, -55392, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(145153, -56813, -3007);
       Engine.MoveTo(145569, -56855, -3007);
       Engine.MoveTo(146467, -56271, -2807);
       Engine.MoveTo(147566, -56034, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(144752, -56752, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(145534, -56884, -3007);
       Engine.MoveTo(146265, -56418, -2807);
       Engine.MoveTo(147407, -56063, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(149120, -58064, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(147706, -58107, -3007);
       Engine.MoveTo(147751, -56737, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(150400, -56752, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(149935, -56870, -3007);
       Engine.MoveTo(149139, -56390, -2807);
       Engine.MoveTo(147929, -56063, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(150704, -55744, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(149935, -56870, -3007);
       Engine.MoveTo(149139, -56390, -2807);
       Engine.MoveTo(147929, -56063, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(147680, -58208, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(147727, -57141, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(148288, -58304, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(147738, -58050, -3007);
       Engine.MoveTo(147727, -57141, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(147232, -58480, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(147677, -58063, -3007);
       Engine.MoveTo(147727, -57141, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(149088, -56256, -2776, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(147854, -56054, -2807);
       Engine.MoveTo(147934, -55354, -2760);
    end;
   if user.inrange(146832, -55904, -2776, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(147529, -56046, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(146368, -56256, -2776, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(147529, -56046, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(147664, -56464, -2776, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(147680, -56928, -2776, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(147810, -56110, -2807);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(148560, -55904, -2776, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(147936, -55368, -2760);
    end;
    if user.inrange(149872, -57424, -2976, 250, 150) then begin
    Engine.FaceControl(0,false);
       Engine.MoveTo(149897, -56910, -2979);
       Engine.MoveTo(149230, -56412, -2779);
       Engine.MoveTo(147939, -55999, -2772);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(144960, -56224, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(145458, -56853, -2979);
       Engine.MoveTo(146343, -56326, -2779);
       Engine.MoveTo(147625, -55995, -2772);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(144496, -55088, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(145327, -56873, -2979);
       Engine.MoveTo(146337, -56445, -2779);
       Engine.MoveTo(147533, -55963, -2766);
       Engine.MoveTo(147936, -55368, -2760);
    end;
   if user.inrange(145392, -56960, -2976, 250, 150) then begin
   Engine.FaceControl(0,false);
       Engine.MoveTo(146347, -56305, -2779);
       Engine.MoveTo(147514, -56003, -2772);
       Engine.MoveTo(147936, -55368, -2760);
    end;
    if user.inrange(147917, -55358, -2759, 250) then begin
    Engine.FaceControl(0,false);
        buffCheck;

    end;

    if user.inrange(147936, -55368, -2760, 150) and User.Buffs.ByID(1204, buffCheck) then begin
        Print('Teleport to Apostate.');
        Engine.SetTarget(31275);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Engine.DlgSel(9);
        Delay(5000);
    end;

    if user.inrange(125537, -40961, -3748, 150) then begin
        Print('Apostate. Moving to spot');
   Engine.MoveTo(125737, -41087, -3749);
    Engine.MoveTo(125000, -41957, -3573);
    Engine.MoveTo(124310, -42993, -3379);
    Engine.MoveTo(123386, -44432, -3273);
    Engine.MoveTo(122475, -45692, -3012);
    Engine.MoveTo(120522, -46382, -2888);
        Print('AA farm: ON!');
        Delay(500);
        Engine.FaceControl(0, true);
        while not deadCheck do delay(1); //while not dead, do nothing and wait.
    end;
end;
end.

(rewrite for back to varka)

its mine script for back to location
why when i run it bot got pause in fight 5-6 sec
target mobs,kiling pause 5,6sec and target next mobs

Edited June 7, 2015 by marcin1987

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