Request L2 Adrenaline Scripts.

[BouKipiKe]

 

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

 

 

 

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]

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.