Request L2 Adrenaline Scripts.

[sellis]

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]

hi, how i can make repeat one script?

[adr.bot]

hi, how i can make repeat one script?

while true do begin

[sellis]

any answer about tts quest script??

[adr.bot]

any answer about tts quest script??

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

[sellis]

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

[adr.bot]

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]

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]

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]

i open the dialog viewer but dont work why?

[adr.bot]

i open the dialog viewer but dont work why?

if server l2redemption then dont work

[BouKipiKe]

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

Ty vm for ur help :good sir:

[mariuda]

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]

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]

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