Request L2 Adrenaline Scripts.

[the_martines]

Thanks a lot @Vinter! I've almost lost hope this is possible at all. 

[Vinter]

11 minutes ago, the_martines said:

Thanks a lot @Vinter! I've almost lost hope this is possible at all. 

Yeah np if you have any problems hit me up on PMs. I tested this on protocol 152 so it might not work on your version depending if the packets have changed or not. I also didn't make a buy store script cause I usually find myself doing it manually, but it can be easily modified to add buy store aswell.

Again make sure you have the items in your inventory and that you have the amount or you're gonna send a bad packet to the server which might do nothing or straight up ban you right there and then.  

Also because the packet uses objectId instead of itemId, if you have 2 items that are not stackable (ex a +16 B grade bow and a +0 B grade bow) the script will pick the first one it finds in your inventory, so be careful about that too. I know pretty shoddy code but that's how I roll.

[MrAnGel_700]

Script for L2Reality.com  Auto Captcha (Captcha Anti Bot with photo.. ) 
 

Plz help me 

[Vinter]

4 hours ago, MrAnGel_700 said:

Script for L2Reality.com  Auto Captcha (Captcha Anti Bot with photo.. ) 
 

Plz help me 

 

A little tip for next time, if you want someone to actually help you, provide actual information. There are dozens of catpchas going around, and most use "photos." What you need to do in this case is post a screenshot of your captcha, and if possible the full HTML window code. (please, with proper CODE tags, it's the symbol "<>" avobe the text body when you post.) If we don't have this information, unless we download whatever system your server runs and create a character ourselves (which guess what I'm not gonna do) people can't help you. Do that and the people that would help you, will.

[MrAnGel_700]

On 1/9/2018 at 2:12 AM, Vinter said:

 

A little tip for next time, if you want someone to actually help you, provide actual information. There are dozens of catpchas going around, and most use "photos." What you need to do in this case is post a screenshot of your captcha, and if possible the full HTML window code. (please, with proper CODE tags, it's the symbol "<>" avobe the text body when you post.) If we don't have this information, unless we download whatever system your server runs and create a character ourselves (which guess what I'm not gonna do) people can't help you. Do that and the people that would help you, will.

thx you for info bro chek  AntiBot  Captcha
 

4Photo ELF  HUMAN  LINEAGE  DARK ELF 

[fAkeN]

13 hours ago, MrAnGel_700 said:

thx you for info bro chek  AntiBot  Captcha
 

4Photo ELF  HUMAN  LINEAGE  DARK ELF 

 

[MrAnGel_700]

4 hours ago, fAkeN said:

 

Thx you bro for help me :) 

[iperiwn]

Hi

 

Any1 got script for auto sell seed at manor manager?

[Manowar81]

I've been trying to make a script to automatically farm this quest. Basically, I need my char to farm mobs until 300 items (quest goes to stage 2), then he has to turn quest in and reopen it and restart the farming.

Here's what I've done this far:

       var
item: TL2Item;

function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Print('Dead. Pressing to clanhall.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome(rtClanHall);
        Delay(10000);
   end;
end;
procedure script1;
begin
engine.settarget('Tunatun');
delay(1000);
engine.dlgopen;
delay(1000);
engine.dlgsel('Quest');
delay(1000);
engine.dlgsel('Home Security');
delay(1000);
engine.dlgsel('Listen to his concern');
delay(1000);
engine.dlgsel('Offer to help');
delay(5000);
end;
procedure script2;
begin
while true do begin
delay(150);

  if User.Dead then begin
    deadCheck;
    end;

      Engine.MoveTo(53131,-84124,-2720);
        Delay(500);
        Engine.MoveTo(53736,-87114,-2456);
        Delay(500);
    if Engine.QuestStatus(278, 1) then begin
        Engine.FaceControl(0,true);
        Engine.LoadZone('BeastFarm');
    end;
    if Engine.QuestStatus(278, 2) then begin
    script3
    end;
    end;
end;

procedure script3;
begin
while true do begin
delay(150);

  if User.Dead then begin
    deadCheck;
    end;
    if Engine.QuestStatus(278, 2) then begin
    Engine.FaceControl(0,false);
        Engine.MoveTo(53736,-87114,-2456);
        Delay(500);
        Engine.MoveTo(53131,-84124,-2720);
        Delay(500);
        Engine.MoveTo(53658, -83826, -2720);
        Delay(500);
        engine.settarget('Tunatun');
        delay(500);
        engine.dlgopen;
        delay(500);
        engine.dlgsel('Quest');
        delay(500);
        engine.dlgsel('Home Security');
        delay(500);
        engine.dlgsel('Accept Reward');
        delay(1000);
        if Engine.QuestStatus(278, 0) then begin
    script1
    end;
    end;
     end;
end;
begin
Script.NewThread(@script1);
Script.NewThread(@script2);
Script.NewThread(@script3);
end.

I'm encountering 2 issues with this: first, while farming mobs sometimes my char seems to try to go to the next point, then he resumes kiling mobs, he goes a little batshit crazy, so I gues it's an indicator of something going wrong. 

The main issue though, is that it seems I can't make the procedures go into a loop, after he turns the quest in he doesn't restart from the beginning. I'm really not good at programmin, I've just been using the guide found on this forum and went for trial and errors, but at this point it seems I can't make it right.

Any help, pleaaaase?

[Manowar81]

In addition to the above post, I'm willing to pay anyone who can help me make it work, just pm me and we can find a deal.

[doumbe]

hello to all!! any1 know how can i take buffs with .buffer ? i mean in the server i am playing i must type .buffer and i open the dialogue.. my problem is how to stop attacking and type .buffer

[catamen]

On 1/2/2018 at 7:31 PM, Manowar81 said:

I've been trying to make a script to automatically farm this quest. Basically, I need my char to farm mobs until 300 items (quest goes to stage 2), then he has to turn quest in and reopen it and restart the farming.

Here's what I've done this far:

 

       var
item: TL2Item;

function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Print('Dead. Pressing to clanhall.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome(rtClanHall);
        Delay(10000);
   end;
end;
procedure script1;
begin
engine.settarget('Tunatun');
delay(1000);
engine.dlgopen;
delay(1000);
engine.dlgsel('Quest');
delay(1000);
engine.dlgsel('Home Security');
delay(1000);
engine.dlgsel('Listen to his concern');
delay(1000);
engine.dlgsel('Offer to help');
delay(5000);
end;
procedure script2;
begin
while true do begin
delay(150);

  if User.Dead then begin
    deadCheck;
    end;

      Engine.MoveTo(53131,-84124,-2720);
        Delay(500);
        Engine.MoveTo(53736,-87114,-2456);
        Delay(500);
    if Engine.QuestStatus(278, 1) then begin
        Engine.FaceControl(0,true);
        Engine.LoadZone('BeastFarm');
    end;
    if Engine.QuestStatus(278, 2) then begin
    script3
    end;
    end;
end;

procedure script3;
begin
while true do begin
delay(150);

  if User.Dead then begin
    deadCheck;
    end;
    if Engine.QuestStatus(278, 2) then begin
    Engine.FaceControl(0,false);
        Engine.MoveTo(53736,-87114,-2456);
        Delay(500);
        Engine.MoveTo(53131,-84124,-2720);
        Delay(500);
        Engine.MoveTo(53658, -83826, -2720);
        Delay(500);
        engine.settarget('Tunatun');
        delay(500);
        engine.dlgopen;
        delay(500);
        engine.dlgsel('Quest');
        delay(500);
        engine.dlgsel('Home Security');
        delay(500);
        engine.dlgsel('Accept Reward');
        delay(1000);
        if Engine.QuestStatus(278, 0) then begin
    script1
    end;
    end;
     end;
end;
begin
Script.NewThread(@script1);
Script.NewThread(@script2);
Script.NewThread(@script3);
end.

 

I'm encountering 2 issues with this: first, while farming mobs sometimes my char seems to try to go to the next point, then he resumes kiling mobs, he goes a little batshit crazy, so I gues it's an indicator of something going wrong. 

The main issue though, is that it seems I can't make the procedures go into a loop, after he turns the quest in he doesn't restart from the beginning. I'm really not good at programmin, I've just been using the guide found on this forum and went for trial and errors, but at this point it seems I can't make it right.

Any help, pleaaaase?

 

here u have test it:

 

item: TL2Item;
procedure checkDeath;
begin
  if (User.Dead) then
  begin
    Print('Dead. Pressing to clanhall.');
    Delay(1000);
    Engine.FaceControl(0,false);
    Engine.GoHome(rtClanHall);
    Delay(10000);
  end;
end;
procedure tunatun;
begin
  Engine.SetTarget('Tunatun');
  Delay(1000);
  Engine.DlgOpen;
  Delay(1000);
  Engine.DlgSel('Quest');
  Delay(1000);
  Engine.DlgSel('Home Security');
  Delay(1000);
  Engine.DlgSel('Listen to his concern');
  Delay(1000);
  Engine.DlgSel('Offer to help');
  Delay(1000);
if (not Engine.QuestStatus(278, 1)) then
  tunatun;
end;
procedure moveToSpot;
begin
  Engine.MoveTo(53131,-84124,-2720);
  Delay(500);
  Engine.MoveTo(53736,-87114,-2456);
  Delay(500);
end;
procedure itemSelMahumManeQuest;
begin
  Engine.LoadConfig(script.path+'BeastFarm');
  Engine.CancelTarget;
  Engine.FaceControl(0, true);
  repeat
    Delay(100);
    checkDeath;
  until ((Inventory.Quest.ById(15531, item)) and (item.Count >= 300));
  if (not Engine.QuestStatus(278, 1)) then
  itemSelMahumManeQuest;
  Engine.FaceControl(0, false);
  Delay(1000);
end;
procedure moveToReward;
begin
  Engine.MoveTo(53736,-87114,-2456);
  Delay(500);
  Engine.MoveTo(53131,-84124,-2720);
  Delay(500);
  Engine.MoveTo(53658, -83826, -2720);
  Delay(500);
  Engine.SetTarget('Tunatun');
  Delay(500);
  Engine.DlgOpen;
  Delay(500);
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Home Security');
  Delay(500);
  Engine.dlgSel('Accept Reward');
  Delay(1000);
end;
begin
  while true do
  begin
  Delay(100);
  tunatun;
  moveToSpot;
  itemSelMahumManeQuest;
  moveToReward;
  end;
end.

 

Edited February 27, 2018 by catamen

[Recess]

¿Hola chicos, cómo están? ¿Alguien me ayuda con un comando (Script) para el bot de adrenalina, que resuelve este Captcha solo?

 

 

 

 

1.

[siriys_blek]

Hello guys , i am new in botting , just got my first adrenaline. 

I came with an ask .. i need a script for farming Ancient Adena for example , does some1 has it to share it ? 

Thanks !

[camenomat0]

1 minute ago, siriys_blek said:

I came with an ask .. i need a script for farming Ancient Adena for example , does some1 has it to share it ?

 

just let a char farm on catas for seal stones,why u need scrip?