Jump to content

L2 Adrenaline Scripts.


Recommended Posts

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 by BouKipiKe
Link to comment
Share on other sites

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 by adr.bot
Link to comment
Share on other sites

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.

 

Hvusvoa.png

Edited by mariuda
Link to comment
Share on other sites

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.

 

Hvusvoa.png

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

Link to comment
Share on other sites

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 by marcin1987
Link to comment
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.
Note: Your post will require moderator approval before it will be visible.

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.




  • Posts

    • I think its offline. They deleted all channels in Discord. Maybe because had to give the $500 contest reward 😄
    • amigo como eu coloco pra mostra os icone enchant no inventory  vc pode da essa ajuda @ShooterLineage2 ?
    • 📢 𝐖𝐞 𝐚𝐫𝐞 𝐢𝐧 𝐛𝐞𝐭𝐚 𝐭𝐞𝐬𝐭, 𝐰𝐞 𝐰𝐢𝐥𝐥 𝐬𝐭𝐚𝐫𝐭 𝐨𝐧 𝐉𝐮𝐧𝐞 𝟐𝟎 𝐚𝐭 𝟏𝟖:𝟎𝟎 𝐦𝐨𝐫𝐞 𝐢𝐧𝐟𝐨𝐬 𝐢𝐧 https://l2bless.online/infos.html ⚔️ 𝗥𝗮𝘁𝗲𝘀: 𝗫𝗣 𝟐𝟎𝐗, 𝗔𝗱𝗲𝗻𝗮 𝟐𝟎𝐗, 𝗦𝗽𝗼𝗶𝗹 𝟐𝟎𝐗, 𝗗𝗿𝗼𝗽 𝟐𝟎𝐗, 💬 𝗠𝗮𝘅 𝗲𝗻𝗰𝗵𝗮𝗻𝘁 +𝟭𝟲 𝘄𝗶𝘁𝗵 𝟲𝟱% 𝗻𝗼𝗿𝗺𝗮𝗹 𝗮𝗻𝗱 𝟳𝟬% 𝗯𝗹𝗲𝘀𝘀𝗲𝗱, 👉 𝟳𝟬+ 𝗔𝘂𝘁𝗼 𝗲𝘃𝗲𝗻𝘁𝘀, 𝗖𝘂𝘀𝘁𝗼𝗺 𝗥𝗮𝗶𝗱𝘀, 𝟱𝟱 𝗻𝗲𝘄𝘀 𝗖𝗹𝗼𝗮𝗸𝘀, 🌍 𝗪𝗲𝗯𝗦𝗶𝘁𝗲: https://l2bless.online/
    • What unique features ? 
    • Welcome to SmurfsZone   Buy League of Legends accounts across all servers and jump straight into Ranked Games with amazing quality and support.   Why Choose SmurfsZone? 24/7 Instant Delivery: Get your full access LoL smurf account immediately. 100% Hand-Leveled: High-quality accounts leveled by hand. Versatile MMR Options: High MMR, Standard MMR, Fresh MMR (ARAMs), and Ranked accounts available. Valorant Accounts: Expand your gaming experience. Our Commitment to You: Unopened Loot: Customize your champion pool. Lifetime Warranty: Valid if you change the email, username, and password upon purchase. Password Changeable: Ensure your account's security. Full Recovery Information: Complete access to account recovery details. Unverified and Changeable Email: Easy to personalize and secure your account. Completely Unranked: Fresh start with no ranked history in any season. Responsive Customer Support: Our dedicated team is available to assist you 24/7.   Experience the best place to buy League of Legends accounts with exceptional quality and dedicated support. We're here for YOU!
  • Topics

×
×
  • Create New...