Request L2 Adrenaline Scripts.

the_martines · January 8, 2018

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

Vinter · January 8, 2018

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 · January 8, 2018

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

Plz help me

Vinter · January 9, 2018

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 · January 10, 2018

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 · January 10, 2018

13 hours ago, MrAnGel_700 said:

thx you for info bro chek AntiBot Captcha

4Photo ELF HUMAN LINEAGE DARK ELF

MrAnGel_700 · January 10, 2018

4 hours ago, fAkeN said:

Thx you bro for help me :)

iperiwn · January 25, 2018

Hi

Any1 got script for auto sell seed at manor manager?

Manowar81 · February 1, 2018

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 · February 2, 2018

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 · February 21, 2018

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 · February 27, 2018

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 · March 2, 2018

¿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 · March 8, 2018

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 · March 8, 2018

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?

Request L2 Adrenaline Scripts.

Recommended Posts

the_martines

Vinter

MrAnGel_700

Vinter

MrAnGel_700

fAkeN

MrAnGel_700

iperiwn

Manowar81

Manowar81

doumbe

catamen

Recess

siriys_blek

camenomat0

Create an account or sign in to comment

Create an account

Sign in

darknesscrysis

hornas

adr.bot

Posts

Topics

Browse

Activity

Store