Request L2 Adrenaline Scripts.

[mausca]

HI

 

Im looking for script for low lvl Quests.  (im playing on c1-c2 server)

Elf
Collector’s Dream  -  I super need this one

Dark Elf
Trade with the Ivory Tower     -  I super need this one

Sweetest Venom  (i found this one here already)
Scent of Death 

Bones Tell the Future 

Dwarf
Dreaming of the Skies
Tarantula’s Spider Silk

Orc
Skirmish with the Werewolves
Wrath of Ancestors
Dark Winged Spies
Totem of the Hestui

Human
Rancher's Plea
Collect Arrowheads

[cookie19]

Hi

i need help with FindPath (function FindPath(StartX, StartY, EndX, EndY: integer; PathList: TList): boolean;
StartX, StartY - start point coordinates
EndX, EndY - end point coordinates
PathList - list where path will be written

 

I want my char to go to specyfic location (x,y) using combat zone map to avoid obstacles.

the script should check current loc using getloc put startx and starty from it, endx endy are constant

Any help ?

[Dawhol]

Is there any way to send text to server without using Engine.EnterText('Text') ?? Because I want to send periodical manual commands like #Text (for party) or /nick blabla or something like that. If i am sending Engine.EnterText('Text') each second, if i press alt for other task, game change to full screen, and all client start doing weird things.

 

 

[Dawhol]

On 1/19/2023 at 11:59 AM, Dawhol said:

Is there any way to send text to server without using Engine.EnterText('Text') ?? Because I want to send periodical manual commands like #Text (for party) or /nick blabla or something like that. If i am sending Engine.EnterText('Text') each second, if i press alt for other task, game change to full screen, and all client start doing weird things.

 

 

I have find the packet, for example, to send /nick text. The problem is engine.SendToServer('Packet') is not working for me.

It gives me an error. "Undeclared identifier "SendToServer" I have seen a lot of examples using SendToServer but i dont know what's the problem.

 

Code is:

And i have tried with SendToServer, sendtoserver, trying to check if it is CAP problems.

 

uses SysUtils;

begin
  engine.sendtoserver('32 48 36 . . . . more packet. ');
end.

 

[thomasthekiler]

is there any way to auto quest ? its a custom quest on this server though

[AdrenalineBot]

On 1/7/2023 at 4:22 PM, cookie19 said:

i need help with FindPath (function FindPath(StartX, StartY, EndX, EndY: integer; PathList: TList): boolean;

but there is code example on site, why not use it?) https://adrenalinebot.com/en/api/adrenaline/Classes/TL2Control#FindPath
 

uses Classes;
var
  Path: TList;
  i: integer;
  
begin
  Path:= TList.Create;
  Engine.FindPath(User.X, User.Y, User.Target.X, User.Target.Y, Path);
  print(Path.count);
  for i:= 0 to Path.count - 1 do
  begin
    Engine.MoveTo(Integer(Path(i)), Integer(Path(i + 1)), User.Z);  
    inc(i, 1);
  end;
  Path.Free;
end.

 

 

On 1/20/2023 at 2:41 PM, Dawhol said:

I have find the packet, for example, to send /nick text. The problem is engine.SendToServer('Packet') is not working for me.

Probably you try to use this method on cracked "very old" version of adrenaline bot. You will need to use actual version for work with packets. Also you can try Packet Scanner plugin for analyze packets

 

 

On 2/2/2023 at 12:00 PM, thomasthekiler said:

is there any way to auto quest ? its a custom quest on this server though

Only using scripts, you can try to make script order on our site 

Edited March 3, 2023 by AdrenalineBot

[z3renity]

On 12/20/2015 at 10:06 AM, 0tavi0 said:

  var obj: TL2NPC;

 

obj2: TL2Effect; 

 

 

begin

 

 

if user.inrange(111021, 219010, -3547, 500)  then begin

 

 

        Engine.SetTarget('zSnow');

 

 

        Engine.DlgOpen;

 

 

        Delay(500);

 

 

        Engine.BypassToServer('4');

 

 

        Delay(1000);  

 

 

      end; 

 

 

 

 

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

my SO THIS.

 

what the mean 4? in Engine.BypassToServer('4');

On 4/8/2015 at 4:53 AM, adr.bot said:

just use dialog viewer and you see all codes

How I get dialog viewer?

On 10/15/2018 at 8:26 PM, AchYlek said:

if you need for h5  destiny / liona files, then yea

 

http://www.mediafire.com/file/w9bs6pcbg1l8znn/Auto_Nobless_dragon.rar

Engine.bypasstoserver('_bbshome'); delay(1000);
Engine.bypasstoserver('_bbsgetfav'); delay(1000);
Engine.bypasstoserver('00'); delay(1000);
Engine.bypasstoserver('01a'); delay(1000);
Engine.bypasstoserver('03'); delay(1000);
end;

 

 

How u get by passtoserver number "00" "01a" and "03" ??

On 6/17/2018 at 11:32 PM, adr.bot said:

procedure OnPacket(ID, ID2: Cardinal; Data: Pointer; Size: Word);
begin
 print(ID);
 print(MemToHex(Data^, Size));
end;
begin
  delay(-1);
end.

this receive packets from server to client if i not wrong, "OnCliPacket" from client to server

to send packet

engine.sendtoserver('');

engine.sendtoclient('');

 

why ur script is stopping i have no idea

Engine.bypasstoserver('_bbshome'); delay(1000);
Engine.bypasstoserver('_bbsgetfav'); delay(1000);
Engine.bypasstoserver('00'); delay(1000);
Engine.bypasstoserver('01a'); delay(1000);
Engine.bypasstoserver('03'); delay(1000);
end;

 

How i get number "00", "01a" and "03" ?

[AdrenalineBot]

9 hours ago, z3renity said:

How I get dialog viewer?

https://adrenalinebot.com/en/script/script-recorder/

[z3renity]

On 4/10/2019 at 12:05 AM, xCarroza said:

Hi @adr.bot can u help me? Or some 1

 

I'm making a script to autofarm but when I die I can sometimes respawn in giran and another 1 in gludio, how can I make it move to one place or another depending on the city where i respawn?

 

Im trying with this:

 

 

 

    if not User.Buffs.ByID(1413, buff) and user.inrange(81153, 148677, -3464, 3500) then begin
	            Engine.MoveTo(82015, 147986, -3495);
	                    delay(1000);
	    Engine.MoveTo(83176, 148352, -3432); //buffer giran
	   if not User.Buffs.ByID(1413, buff) and user.inrange(-14404, 123473, -3112, 4000) then begin
	   Engine.MoveTo(-14210, 123813, -3112);     //buffer gludio				

 

 

But it does not move in either of the two cities.
Sorry if it's something obvious I'm starting and I'm saturated in some things with so much information of scripts and such.

 

Thanks.

 

I alrdy fixed it, thanks anywais

Can u tell me how to solved script?

[cookie19]

Im making simple cap script. Its working only with bypass but doesn’t close cap window. Is there any posibility to close dlgtext window ? Sending key esc doesnt work either

[AdrenalineBot]

On 3/18/2023 at 1:44 PM, z3renity said:

Can u tell me how to solved script?

There are ready solution, script called Hunter (https://adrenalinebot.com/en/script/hunter/)
It uses GPS maps for movements, so u can once make all needed routes between towns (there are many ready for different chronicles) and bot will be able to return to spot from any town

 

On 4/15/2023 at 1:25 AM, cookie19 said:

Im making simple cap script. Its working only with bypass but doesn’t close cap window. Is there any posibility to close dlgtext window ? Sending key esc doesnt work either

Adrenaline have no built in methods for that, only if u make ur own solution (packets will not help, need to call game client methods)

[pacifista]

somebody could please check why this script is not working? Thanks:

uses Base;

begin
print(Engine.QuestStatus(419));
Engine.LoadConfig('Leveller-lvl25.xml');
//print(Engine.DlgText);

// <html><head><body>Question:<br>Which of the following do <font color="LEVEL">not</font> describe the life of a wolf?<br><fstring>1110058</fstring><fstring>1110057</fstring><fstring>1110056</fstring><fstring>1110059</fstring><fstring>1110060</fstring></body></html>

[rtag01]

hello,

i need help for creating a simple script for stopping attack and go out of combat when my buffs going down to 120sec

anyone?

[TSS]

Hi all, i need script for 2 SK/BD chars that hit each other non stop with /attackforce to can charge Pain of Shilen. I use Adrenaline but can't set it to fight each other. I can set them to use Pain of Shilen in 60 sek non stop and when its charged on 3 to use SOS but i have problem to make them to hit themselfs... pls help

[Monkas]

const
 BUFF_ID = 28015; //COV
 SCROLL_OF_SCAPE = 736; //SOE
 TPDelay = 30 * 1000; // Time to wait after teleporting, change according to your computer
 debug = false;

type
    TCity = (DWARVEN = 0, ORC = 1, DARK_ELVEN = 2, ELVEN = 3, KAMAEL = 4,
        TALKING_ISLAND = 5, HEINE = 6, DION = 7, GIRAN = 8, ADEN = 9, GODDARD = 10,
        GLUDIO = 11, GLUDIN = 12, SHTUTTGART = 13, RUNE = 14, OREN = 15, HUNTER = 16,
        NON_CITY = 17, PRIMEVAL_ISLE = 18);

procedure ToGk;
begin
    if User.InRange(110912,219584,-3664, 250, 150) then begin
      Engine.MoveTo(110912,219584,-3664);
      Engine.MoveTo(111154,219735,-3675);
      Engine.MoveTo(111176,219395,-3546);
      Engine.MoveTo(111387,219387,-3544);
    end;
    if User.InRange(111888,219584,-3664, 250, 150) then begin
      Engine.MoveTo(111888,219584,-3664);
      Engine.MoveTo(111617,219703,-3674);
      Engine.MoveTo(111591,219371,-3544);
      Engine.MoveTo(111387,219387,-3544);
    end;
    if User.InRange(112064,219792,-3664, 250, 150) then begin
      Engine.MoveTo(112064,219792,-3664);
      Engine.MoveTo(111665,219800,-3675);
      Engine.MoveTo(111580,219329,-3544);
      Engine.MoveTo(111387,219387,-3544);
    end;
    if User.InRange(107808,217856,-3672, 250, 150) then begin
      Engine.MoveTo(107808,217856,-3672);
      Engine.MoveTo(107769,217524,-3673);
      Engine.MoveTo(109387,217509,-3747);
      Engine.MoveTo(110037,217257,-3747);
      Engine.MoveTo(110072,219029,-3477);
      Engine.MoveTo(111202,219130,-3541);
      Engine.MoveTo(111387,219387,-3544);
    end;
    if User.InRange(110896,220768,-3664, 250, 150) then begin
      Engine.MoveTo(110896,220768,-3664);
      Engine.MoveTo(111191,219621,-3663);
      Engine.MoveTo(111190,219303,-3544);
      Engine.MoveTo(111387,219387,-3544);
    end;
    if User.InRange(110768,219824,-3664, 250, 150) then begin
      Engine.MoveTo(110768,219824,-3664);
      Engine.MoveTo(111163,219763,-3671);
      Engine.MoveTo(111199,219319,-3544);
      Engine.MoveTo(111387,219387,-3544);
    end;
    if User.InRange(112112,220576,-3664, 250, 150) then begin
      Engine.MoveTo(112112,220576,-3664);
      Engine.MoveTo(111600,219666,-3669);
      Engine.MoveTo(111586,219305,-3544);
      Engine.MoveTo(111387,219387,-3544);
    end;
    if User.InRange(110688,220576,-3664, 250, 150) then begin
      Engine.MoveTo(110688,220576,-3664);
      Engine.MoveTo(111183,219655,-3669);
      Engine.MoveTo(111201,219292,-3544);
      Engine.MoveTo(111387,219387,-3544);
    end;
    if User.InRange(108032,218048,-3672, 250, 150) then begin
      Engine.MoveTo(108032,218048,-3672);
      Engine.MoveTo(107862,218003,-3673);
      Engine.MoveTo(107840,217532,-3673);
      Engine.MoveTo(109383,217465,-3747);
      Engine.MoveTo(110036,217280,-3747);
      Engine.MoveTo(110096,219040,-3478);
      Engine.MoveTo(111086,219100,-3541);
      Engine.MoveTo(111387,219387,-3544);
    end;
    if User.InRange(107568,218256,-3672, 250, 150) then begin
      Engine.MoveTo(107568,218256,-3672);
      Engine.MoveTo(107542,217872,-3673);
      Engine.MoveTo(107840,217532,-3673);
      Engine.MoveTo(109383,217465,-3747);
      Engine.MoveTo(110036,217280,-3747);
      Engine.MoveTo(110096,219040,-3478);
      Engine.MoveTo(111086,219100,-3541);
      Engine.MoveTo(111387,219387,-3544);
    end;
    if User.InRange(107552,218000,-3672, 250, 150) then begin
      Engine.MoveTo(107552,218000,-3672);
      Engine.MoveTo(107862,218003,-3673);
      Engine.MoveTo(107840,217532,-3673);
      Engine.MoveTo(109383,217465,-3747);
      Engine.MoveTo(110036,217280,-3747);
      Engine.MoveTo(110096,219040,-3478);
      Engine.MoveTo(111086,219100,-3541);
      Engine.MoveTo(111387,219387,-3544);
    end;
    if User.InRange(111856,220752,-3664, 250, 150) then begin
      Engine.MoveTo(111856,220752,-3664);
      Engine.MoveTo(111573,219730,-3675);
      Engine.MoveTo(111589,219342,-3544);
      Engine.MoveTo(111387,219387,-3544);
    end;
end;

function  isDead: boolean;
begin
  isDead := false;
  if (debug) then print('Check is Dead');
  if  User.Dead  then
  begin
    Delay (10000); // In case of resurrection
  end;
  if  User.Dead  then
  begin
    isDead := true;
    Engine.FaceControl (0,false);
    Print ('Dead. Pressing to village.');
    Engine.GoHome;
    Delay (5000);
  end;
end;

function  GetCity (shouldGoHome: boolean = true; inCityEvt: boolean = false): TCity;
var
  City: TCity;
begin
  City := NON_CITY;
  if User.InRange (147509, 25928, User.Z, 5000, 100)       then City := ADEN;
  if User.InRange (11416, 16856, User.Z, 5000, 100)        then City := DARK_ELVEN;
  if User.InRange (18591, 144708, User.Z, 5000, 100)       then City := DION;
  if User.InRange (116569, -179848, User.Z, 7000, 100)     then City := DWARVEN;
  if User.InRange (44904, 49800, User.Z, 7000, 100)        then City := ELVEN;
  if User.InRange (82876, 148960, User.Z, 5000, 100)       then City := GIRAN;
  if User.InRange (-81311, 152663, User.Z, 5000, 100)      then City := GLUDIN;
  if User.InRange (-14236, 123701, User.Z, 5000, 100)      then City := GLUDIO;
  if User.InRange (147713, -56202, User.Z, 5000, 100)      then City := GODDARD;
  if User.InRange (111434, 220426, User.Z, 5000, 100)      then City := HEINE;
  if User.InRange (117144, 76824, User.Z, 5000, 100)       then City := HUNTER;
  if User.InRange (-45080, -113576, User.Z, 5000, 100)     then City := ORC;
  if User.InRange (81150, 54880, User.Z, 5000, 100)        then City := OREN;
  if User.InRange (43838, -48222, User.Z, 5000, 100) or
    User.InRange (38283, -48102, User.Z, 5000, 100)        then City := RUNE;
  if User.InRange (88041, -142502, User. Z, 5000, 100)     then City := SHTUTTGART;
  if User.InRange (-83139, 243145, User.Z, 5000, 100)      then City := TALKING_ISLAND;

  // If it isn't in one of the previous locations then goHome and try again
  if (City = NON_CITY) and (shouldGoHome) then
  begin
    GoHome (-1, -1, inCityEvt);
    City := GetCity;
  end;
  Result := City;
end;

function  needsBuffs: boolean;
var
  buff: TL2Buff;
begin
  needsBuffs := false;
  if (debug) then print('Check for buffs');
  if  not User.Buffs.ByID (BUFF_ID, Buff)  or
    User.Buffs.ById (BUFF_ID, buff)  and  (buff.EndTime < 60 * 1000)  then
  begin
    print('Check Buffs [True]');
    needsBuffs := true;
  end;
end;

procedure  GoHome (ItemID: integer = -1; skillID: integer = -1; move: boolean = false);
var
  Skill: TL2Skill;
  Item: TL2Item;
  City: TCity;
begin
  print('Go Home');
  if  not User.Dead  then
  begin
    City := GetCity (false, false);
    if  City = NON_CITY  then
    begin
    // Use the item past as parameter
    if  (itemID <> -1)  and  Inventory.User.ByID(itemID, Item)  then
    begin
      Engine.UseItem (itemID);
      Delay (User.Cast.EndTime + TPDelay);
    end;

    // Use skill to teleport if no item past as parameter
    if  (skillID <> -1)  and  (itemID = -1)  and  SkillList.ByID(skillID, Skill)  then
    begin
      Engine.UseSkill(skillID);
      Delay (User.Cast.EndTime + TPDelay);
    end;

    // Use SoE if no item or skill provided
    if  (skillID = -1)  and  (itemID = -1) and  Inventory.User.ByID(SCROLL_OF_SCAPE, Item)  then
    begin
      Engine.UseItem (Item);
      Delay (User.Cast.EndTime + TPDelay);
    end;

    end; //non city
  end; //user dead
end;

procedure  GetBuffs;
begin
  print('GetBuffs');
  Engine.SetTarget(36600); // NPC ID
  Engine.MoveToTarget;
  Delay(500);
  Engine.DlgOpen;
  Delay(500);
  Engine.DlgSel(1);   //Warriors
  Delay(500);
end;

procedure  movetofarm;
begin
  Print ('Teleport to FoS Center');
  Engine.SetTarget (30233);
  Engine.DlgOpen;
  Delay (500);
  Engine.DlgSel(1);
  Delay (500);
  Engine.DlgSel(7);
  Delay (5*1000);
  Print ('Moving to spot');
    if user.InRange(73024, 118485, -3696, 300) then begin      
      Engine.MoveTo(73477, 118144, -3720);
      Engine.MoveTo(75061, 117686, -3736);
      Engine.MoveTo(79457, 115940, -3720);
      Engine.MoveTo(81710, 116517, -3208);
      Engine.MoveTo(83528, 117819, -2992);
      Engine.MoveTo(83528, 118887, -3032);
      Engine.MoveTo(86700, 119885, -3072);
      Engine.MoveTo(88981, 119261, -3056);
end;
 
  Engine.Facecontrol (0, true); // turn on bot interface
  Engine.Facecontrol (1, true); // turn on target select interface
end;

{  START  }

begin
  //Engine.LoadConfig ('fos_holy'); //User.Name
  while  true  do
  begin
    if  isDead or needsBuffs  then
    begin
      Engine.FaceControl (1,false); // turn off bot interface
      while  User.InCombat  do Delay (3 * 1000);
      GoHome;
      ToGK;
      GetBuffs;
      //teleport;
      movetofarm;
      Print ('Finished');
    end;
    delay(30000);
  end;      
end.
 

Edited November 11 by Monkas
Can any1 help mi to past some anti dissarm script