Welcome to MaxCheaters.com

Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads

Recommended Posts

  • Replies 781
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

The above script works for tutorial windows. For trade chats you would only need to change the packet ID, so search for that. You don't need to ask for a whole other script when you already have one that you just need to modify for it to work.

pto, plase share l2 adrenaline scripts or send to pm :)

Hi if you mean save npc dialog in to txt file so this help for you uses classes; begin with Tstringlist.create do try Text := Engine.DlgText; SaveToFile('C:\dlg.txt'); finally Free; end; end.

Posted Images

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

Share this post


Link to post
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

Share this post


Link to post
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

Share this post


Link to post
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.....

Share this post


Link to post
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

Share this post


Link to post
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.

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.