Jump to content

Recommended Posts

Posted

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

Posted

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

Posted (edited)

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
Posted (edited)

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
Posted (edited)

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
Posted

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.....

Posted (edited)

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



  • Posts

    • Only 3 days left and we'll start with some events, you can check our Discord for more info!
    • Tired of frantically switching between windows trying to find that specific Warlock who should be casting saves? Forgot which server you left your Warsmith on? This mod solves these problems! What it does: Turns the boring window title into an information panel: Server Name - Character Name [Class] Real-life examples: - ServerName - HardcoreFarm [Spoilerr] (who's been spoiling for 3 months already) - ServerName - ClericHelper [Buffer] (eternal buffer on standby) - ServerName - MainChar [Gladiator] (main character who's always AFK) Why you need this: For multiboxers - to avoid confusing where the DD is and where the healer is For the forgetful - if your memory is like a goldfish For streamers - viewers immediately see who's on screen For adults - when playing at work and need to quickly hide the window DLL only - no Interface files needed Installation (more complicated than making tea): 1. Download the DLL 2. Drop it into the System folder 3. Launch the client 4. Be amazed how you lived without this before! Purchase Conditions: Price: 100$ Payment Method: USDT. How to Buy: Contact me on Telegram: @kiselevwv for a quick response. I will answer all your questions and provide additional information if needed. I guarantee functionality at the moment of sale and prompt assistance with setup after purchase.
    • I agree, l2damage crap to compare to l2java which was the father of pvp servers and till this days people playing there for good time.
    • 📝 Registration — Account Registration Creating a new player account. Usually includes: login password password confirmation email Result: a new record is created in the accounts table (loginserver). 🔑 Change Password — Password Change The player changes the password knowing the current one. Required: current password new password new password confirmation Result: the password field is updated in the accounts table. ♻️ Password Recovery — Password Reset If the player forgot the password. Implementation only via email: the player enters their login, email the system sends an email with a link or code the player opens the link / enters the code sets a new password Result: the password is updated in the accounts table.   All fields are validated (required, format, length, uniqueness, security checks).   Price: 80$   and i can rewrite script for PTS server.   Contacts:   Telegram Discord
  • Topics

×
×
  • Create New...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..