Request L2 Adrenaline Scripts.

BouKipiKe · June 30, 2015

engine.gohome(rtclanhall); // when u die for go ch
Engine.UseItem(736); // Use Soe change Id for Id SoeCH
Engine.EnterText('/unstuck'); // for ustuck

Edited June 30, 2015 by BouKipiKe

BouKipiKe · July 1, 2015

hi adr, i whant try to make script lvl 1 too lvl 40 for farm clan reputation.

can u help me, i dont have any idea how can i make function for buy armor, weapon,shots ... at npc when i m lvl 20 and how can i Equip the stuff.

and how can check my lvl ( if user.lvl(20); ).

a lot of question need alot of answer :) thx again :)

adr.bot · July 1, 2015

hi adr, i whant try to make script lvl 1 too lvl 40 for farm clan reputation.

can u help me, i dont have any idea how can i make function for buy armor, weapon,shots ... at npc when i m lvl 20 and how can i Equip the stuff.

and how can check my lvl ( if user.lvl(20); ).

a lot of question need alot of answer :) thx again :)

this will help for you http://l2bot.eu/ScriptHelpEN.pdf

BouKipiKe · July 5, 2015

hi again.

adr if u can help me pls i have try alot of kind and impossibel find.

i just try too buy item too npc.

all chat work great but when i try buy item in windows store that's does'nt work :/

       var item:tl2item;
            begin
while true do begin
delay(1000);
if not inventory.user.byid(189, item) or (item.count<1) then begin
Engine.SetTarget(30499);
Engine.DlgOpen;
Engine.DlgSel (1);
Delay(500);
Engine.DlgSel(1);
  Delay(500);
Engine.NPCExchange(189, 1);    // Staf of life
   Delay(1000);
  end;
  end;  
 end.

http://www.hostingpics.net/viewer.php?id=991239Sanstitre.jpg

adr.bot · July 5, 2015

hi again.

adr if u can help me pls i have try alot of kind and impossibel find.

i just try too buy item too npc.

all chat work great but when i try buy item in windows store that's does'nt work :/
       var item:tl2item;
            begin
while true do begin
delay(1000);
if not inventory.user.byid(189, item) or (item.count<1) then begin
Engine.SetTarget(30499);
Engine.DlgOpen;
Engine.DlgSel (1);
Delay(500);
Engine.DlgSel(1);
  Delay(500);
Engine.NPCExchange(189, 1);    // Staf of life
   Delay(1000);
  end;
  end;  
 end.
http://www.hostingpics.net/viewer.php?id=991239Sanstitre.jpg

from screen i see, it is interlude, so on interlude doesnt work buy/sell

BouKipiKe · July 6, 2015

from screen i see, it is interlude, so on interlude doesnt work buy/sell

ok :'( i m so sad . u think its possible too make auto trade script with another bot have all stuf in her inventory ? and i play on interlude i forgot tell u that at my previous post :/

adr.bot · July 6, 2015

ok :'( i m so sad . u think its possible too make auto trade script with another bot have all stuf in her inventory ? and i play on interlude i forgot tell u that at my previous post :/

im sure all is posible, but i dont know how do this

hauses123 · July 11, 2015

I need some help aswell guys :D Is it possible to make a script like this[1minute left for buffs to end he will try to escape and rebuff with alt+b (because you cant be in combat) then comeback to the same spot and do this over and over?]

adr.bot · July 11, 2015

if not user.buffs.byid(123, buff) or (buff.endtime<60*1000) then begin  //123 buff id // 60*1000 is 60 seconds
engine.useitem(456);  // use item, soe, or change it to engine.entertext('/unstuck');
delay(10000);  //delay to wait until end cast soe/unstuck and teleport to town, to awoid stuck or somethin
end;

gived example, have fun

nav9210 · July 14, 2015

the dialoge interface working on adrenaline cracked version?... the dialog window never appear

PD: i did the same you did in the tutorial video

adr.bot · July 14, 2015

the dialoge interface working on adrenaline cracked version?... the dialog window never appear

PD: i did the same you did in the tutorial video

dialog interface? more about this?

spyros23 · July 14, 2015

How can i set up in adrenaline when my hp is below 40% to change to a meele weapon so i can lifesteal and when my hp is above 80% to change back to crossbow? I tried putting it in both attack and self buff with conditions but it keeps spam equiping the weapon can i do it with a script or is it possible without one?

adr.bot · July 14, 2015

How can i set up in adrenaline when my hp is below 40% to change to a meele weapon so i can lifesteal and when my hp is above 80% to change back to crossbow? I tried putting it in both attack and self buff with conditions but it keeps spam equiping the weapon can i do it with a script or is it possible without one?

have fun xd

var meele, range, lowHP, highHP:cardinal;
    item:tl2item;
begin
lowHP   := 40;     //change HP count in %
meele   := 6592;   //weapon ID
highHP  := 80;     //change HP count in %
range   := 7577;   //weapon ID

  while true do begin
  delay(500);
  if (user.hp<lowHP) and inventory.user.byid(meele, item) and not(item.equipped) then begin
  engine.useitem(meele);
  end;
  if (user.hp>highHP) and inventory.user.byid(range, item) and not(item.equipped) then begin
  engine.useitem(range);
  end;
  end;
end.

EDIT: rly nice, take script and run, even "thanks" dont say xd

Edited July 15, 2015 by adr.bot

spyros23 · July 15, 2015

have fun xd

var meele, range, lowHP, highHP:cardinal;
    item:tl2item;
begin
lowHP   := 40;     //change HP count in %
meele   := 6592;   //weapon ID
highHP  := 80;     //change HP count in %
range   := 7577;   //weapon ID

  while true do begin
  delay(500);
  if (user.hp<lowHP) and inventory.user.byid(meele, item) and not(item.equipped) then begin
  engine.useitem(meele);
  end;
  if (user.hp>highHP) and inventory.user.byid(range, item) and not(item.equipped) then begin
  engine.useitem(range);
  end;
  end;
end.

EDIT: rly nice, take script and run, even "thanks" dont say xd

I have this script that i made based on yours in the start of this thread but i cant seem to be able to add your script to mine i only know very little c# so its hard for me :P

var
item: TL2Item;
function buffCheck: Boolean;
var buff: TL2Buff;
begin
    if not User.Buffs.ByID(1388, buff) then begin
        Result:=true;
        Print('Buffs are needed. Buffing...');
        Engine.MoveTo(81909, 148285, -3464);
        Delay(500);
        Engine.SetTarget('Horadrim'); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('farm');
        Delay(500);
        Print('Buffed.');
        Engine.MoveTo(83378, 147917, -3400);
    end;
     Result:=false;
end;
function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        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.Dead then begin
    deadCheck;
    end;

  if User.inrange(131369,114436,-3713, 250, 1000) then begin
		Engine.MoveTo(134874,114441,-3720);
		Engine.FaceControl(0,true);
		Delay(20000);
		Engine.MoveTo(135968,114977,-3720);
		Delay(20000);
		Engine.MoveTo(137824,114366,-3720);
		Engine.MoveTo(139808,114388,-3720); //close to entrance
		Delay(20000);
		Engine.MoveTo(141847,114428,-3720);
		Engine.MoveTo(142725,113730,-3720);
		Engine.MoveTo(144446,114477,-3720);
		Engine.MoveTo(146443,112252,-3720);
    end;

    if user.inrange(81940, 148398, -3469, 10000) then begin
        buffCheck;
    end;  
    
    if user.inrange(83378, 147917, -3400, 500) and User.Buffs.ByID(1388, buffCheck) then begin
        Engine.SetTarget('Mystra');
        delay(500);
        Engine.DlgOpen;
        delay(500);
        Engine.DlgSel('High Level Hunting Areas');
        delay(500);
        Engine.DlgSel('Dragon Valley Cave');
        delay(500);
        Engine.DlgSel('Confirm');
    end;
    end;
end.

adr.bot · July 15, 2015

var
item: TL2Item;
function buffCheck: Boolean;
var buff: TL2Buff;
begin
    if not User.Buffs.ByID(1388, buff) then begin
        Result:=true;
        Print('Buffs are needed. Buffing...');
        Engine.MoveTo(81909, 148285, -3464);
        Delay(500);
        Engine.SetTarget('Horadrim'); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('farm');
        Delay(500);
        Print('Buffed.');
        Engine.MoveTo(83378, 147917, -3400);
    end;
     Result:=false;
end;
function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(10000);
        end;
    end;

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

  if User.Dead then begin
    deadCheck;
    end;

  if User.inrange(131369,114436,-3713, 250, 1000) then begin
		Engine.MoveTo(134874,114441,-3720);
		Engine.FaceControl(0,true);
		Delay(20000);
		Engine.MoveTo(135968,114977,-3720);
		Delay(20000);
		Engine.MoveTo(137824,114366,-3720);
		Engine.MoveTo(139808,114388,-3720); //close to entrance
		Delay(20000);
		Engine.MoveTo(141847,114428,-3720);
		Engine.MoveTo(142725,113730,-3720);
		Engine.MoveTo(144446,114477,-3720);
		Engine.MoveTo(146443,112252,-3720);
    end;

    if user.inrange(81940, 148398, -3469, 10000) then begin
        buffCheck;
    end;  
    
    if user.inrange(83378, 147917, -3400, 500) and User.Buffs.ByID(1388, buffCheck) then begin
        Engine.SetTarget('Mystra');
        delay(500);
        Engine.DlgOpen;
        delay(500);
        Engine.DlgSel('High Level Hunting Areas');
        delay(500);
        Engine.DlgSel('Dragon Valley Cave');
        delay(500);
        Engine.DlgSel('Confirm');
    end;
    end;
end;

procedure weapons;
var meele, range, lowHP, highHP:cardinal;
    item:tl2item;
begin
lowHP   := 40;     //change HP count in %
meele   := 6592;   //weapon ID
highHP  := 80;     //change HP count in %
range   := 7577;   //weapon ID

  while true do begin
  delay(500);
  if (user.hp<lowHP) and inventory.user.byid(meele, item) and not(item.equipped) then begin
  engine.useitem(meele);
  end;
  if (user.hp>highHP) and inventory.user.byid(range, item) and not(item.equipped) then begin
  engine.useitem(range);
  end;
  end;
end;

begin
Script.NewThread(@all);
Script.NewThread(@weapons);
end.

example how merge scripts

procedure script1;
begin
while true do begin
delay(1000);
print('Here is script1.');
end;
end;

procedure script2;
begin
while true do begin
delay(1000);
print('Here is script2.');
end;
end;

begin
Script.NewThread(@script1);
Script.NewThread(@script2);
end.

Request L2 Adrenaline Scripts.

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Please sign in to comment

Posts

Topics