Request L2 Adrenaline Scripts.

[m44ti]

another question

 

Engine.UseKey();

 

Engine.UseKey(13);//enter

Engine.UseKey($26);//up
Engine.UseKey($28);//down

 

what code is for simple mouse left click

 

or how to move cursor on location and clicking without infocus the window

Edited March 9, 2016 by m44ti

[MaxWell1986]

Hello everyone.

 

I am trying to make a script, so when i get to level 15 for exemple, i'll stop attacking mobs, whait for te toon to get out of combat and use scroll of escape, if i am being attacked when i get the level i need, kill the mob or mobs  and whait again to get out of combat and use scroll.

 

i've been trying to work it out but with no success :(

 

begin
  if user.level<15 then begin
    engine.autosoulshot(5789, true);
    engine.autotarget(2500);
    engine.attack;
    engine.pickup;
  end;
  if (user.target.dead) then begin
    while user.incombat do
    delay(1000);
    engine.autosoulshot(5789, true);
    engine.autotarget(2500);
    engine.attack;
    engine.pickup;
  end;
    engine.useitem(12753);
    delay(20000)
end.

Hope someone can help me here, Thx

Edited March 9, 2016 by MaxWell1986

[adr.bot]

Hello everyone.

 

I am trying to make a script, so when i get to level 15 for exemple, i'll stop attacking mobs, whait for te toon to get out of combat and use scroll of escape, if i am being attacked when i get the level i need, kill the mob or mobs  and whait again to get out of combat and use scroll.

 

i've been trying to work it out but with no success :(

 

begin
  if user.level<15 then begin
    engine.autosoulshot(5789, true);
    engine.autotarget(2500);
    engine.attack;
    engine.pickup;
  end;
  if (user.target.dead) then begin
    while user.incombat do
    delay(1000);
    engine.autosoulshot(5789, true);
    engine.autotarget(2500);
    engine.attack;
    engine.pickup;
  end;
    engine.useitem(12753);
    delay(20000)
end.

Hope someone can help me here, Thx

this looks like show mobs count (if attack) but for some reason for me this doesnt work

var AggroMobs:integer; 

function MobsAttacking : integer; //Сколько мобов нас атакует?
var i, n: Integer;
begin
n := 0;
AggroMobs:=0;
for i := 0 to NpcList.Count - 1 do
if (NpcList.Items(i).Target = User) and not NpcList.Items(i).Dead then inc(n);
AggroMobs:= n;
Result := n;
end;

begin
print(MobsAttacking);
end.

[m44ti]

its easy

U need to load map from the zone that is for example 60k range far away it will works like fuck off all the mobs

 

comments are in polish cuz its mine and u can ofc use translator.

//level 7-20 
       if ((User.Level>6) and (User.Level<20)) then begin

	   //TP orcbaracks
	   while not (user.InRange(-90494, 108207, -3552, 500)) do begin
          
          Engine.BypassToServer('_bbshome', True);
delay(1500);
   Engine.BypassToServer('_bbsgatekeeper', True);
   delay(1500);
    Engine.BypassToServer('_bbsgatekeeper_main-12.htm', True);
   delay(1500);
  Engine.BypassToServer('14', True);
        delay(1000);
   end;
//koniec TP orcbaracks

         

               engine.loadzone('OrcBaracks'); 
   delay(500);
   Engine.FaceControl(0,true);

    



   
                           
                            
   while (User.InRange(-90440, 108104, -3552, 5000)) do begin
            delay(500);

                      captcha();
                      checkdead();
                      checkbuff();

                  if (User.Level>19) then begin



                  engine.loadzone('Zero'); 
                 
                  while user.incombat do delay(1000);
                 Engine.FaceControl(0,false);
                 Print('LEVEL 20 ZMIENIAM SPOT');

                      captcha();
                      checkdead();
                      checkbuff();
                   

                 //tp do aden 
	while not (user.InRange(146217, 25191, -1992,500)) do begin
	delay(1000);
	Engine.BypassToServer('_bbshome', True);
delay(1500);
   Engine.BypassToServer('_bbsgatekeeper', True);
   delay(1500);
    Engine.BypassToServer('16', True);
   delay(1500);
   end;
//koniec tp aden

                      captcha();
                      checkdead();
                      checkbuff();


                       end;
                   
                  end;
        end;
               //koniec level 6-20

[Tsimo]

Would love fast answer... What is party guard? I have a bp in party if i pick him as party guard my char will attack mobs that attack bp? Or it's smth else?

[adr.bot]

Would love fast answer... What is party guard? I have a bp in party if i pick him as party guard my char will attack mobs that attack bp? Or it's smth else?

i guess yes

[MaxWell1986]

adr.bot first of all, thank you for your fast reply,

I've been searching for all the internet about the code you show me and  i found no solution for it :(

i found some other code but i dont think it can work too, maybe you can figure it out how to change it for better working.

while User.Level<15 do begin
  Engine.AutoSoulshot(5790, true);
  Engine.AutoTarget(2000);
  Engine.UseSkill(1177);
 if Inventory.Quest.ByName('Hills of Gold Monster Claw', item) then break;
end;
while User.Level<15 do begin
 Engine.AutoSoulshot(5790, true);  // Thise help to use scroll safely?
 Engine.UseSkill(1177);
 if User.InCombat=false then break;
end;
Engine.UseItem(12753);

I am not a experienced coder, in fact, i know nothing about delphi or some other codes, but i am a good searcher and a good learner, i started like 5 days ago with thise.

 

Since i dont know how to code, i am doing a code like thise:

http://www.nameyellow.racing/p2v836eQ

with no procedures and stuff like that, i am just starting :D

meanwhile, i am trying to make a code for thise part of the quest, i must get 5 item from one mob and 10 from another, thise is 1st quest for kamael female soulbreaker, i cant figure out how to do it, forgetting the last post i did about how to safely use scroll, i saw thise thing, the adrenalin window wont show any quest item but the L2 window show them, is thise a bug? is the adrenalin detecting the items but just not showing them? or is thise the reason i cant make the code to work?

 

Thanks for your attention guys :)

 

[adr.bot]

adr.bot first of all, thank you for your fast reply,

I've been searching for all the internet about the code you show me and  i found no solution for it :(

i found some other code but i dont think it can work too, maybe you can figure it out how to change it for better working.

while User.Level<15 do begin
  Engine.AutoSoulshot(5790, true);
  Engine.AutoTarget(2000);
  Engine.UseSkill(1177);
 if Inventory.Quest.ByName('Hills of Gold Monster Claw', item) then break;
end;
while User.Level<15 do begin
 Engine.AutoSoulshot(5790, true);  // Thise help to use scroll safely?
 Engine.UseSkill(1177);
 if User.InCombat=false then break;
end;
Engine.UseItem(12753);

I am not a experienced coder, in fact, i know nothing about delphi or some other codes, but i am a good searcher and a good learner, i started like 5 days ago with thise.

 

Since i dont know how to code, i am doing a code like thise:

http://www.nameyellow.racing/p2v836eQ

with no procedures and stuff like that, i am just starting :D

meanwhile, i am trying to make a code for thise part of the quest, i must get 5 item from one mob and 10 from another, thise is 1st quest for kamael female soulbreaker, i cant figure out how to do it, forgetting the last post i did about how to safely use scroll, i saw thise thing, the adrenalin window wont show any quest item but the L2 window show them, is thise a bug? is the adrenalin detecting the items but just not showing them? or is thise the reason i cant make the code to work?

 

Thanks for your attention guys :)

if adrenalin not show quest item so there is problem, you can try check quest status and make then

[Litch]

Does anyone have the Anti Captcha for interlude?

 

 

or alarm?

Edited March 11, 2016 by luannbr

[m44ti]

adr.bot first of all, thank you for your fast reply,

I've been searching for all the internet about the code you show me and  i found no solution for it :(

i found some other code but i dont think it can work too, maybe you can figure it out how to change it for better working.

while User.Level<15 do begin
  Engine.AutoSoulshot(5790, true);
  Engine.AutoTarget(2000);
  Engine.UseSkill(1177);
 if Inventory.Quest.ByName('Hills of Gold Monster Claw', item) then break;
end;
while User.Level<15 do begin
 Engine.AutoSoulshot(5790, true);  // Thise help to use scroll safely?
 Engine.UseSkill(1177);
 if User.InCombat=false then break;
end;
Engine.UseItem(12753);

I am not a experienced coder, in fact, i know nothing about delphi or some other codes, but i am a good searcher and a good learner, i started like 5 days ago with thise.

 

Since i dont know how to code, i am doing a code like thise:

http://www.nameyellow.racing/p2v836eQ

with no procedures and stuff like that, i am just starting :D

meanwhile, i am trying to make a code for thise part of the quest, i must get 5 item from one mob and 10 from another, thise is 1st quest for kamael female soulbreaker, i cant figure out how to do it, forgetting the last post i did about how to safely use scroll, i saw thise thing, the adrenalin window wont show any quest item but the L2 window show them, is thise a bug? is the adrenalin detecting the items but just not showing them? or is thise the reason i cant make the code to work?

 

Thanks for your attention guys :)

 

cracked adrenaline sometimes do not show a quest items. I manage it to play a sound to inform player thats smth is wrong but with original Adrenaline all works great.

 

I give u some examples from my old nobless script, It is as it is, I wrote this about 7 month ago. Today i know i would write it better but i dont have time and there is no need to do that beacause its working.

 

 

Modular check item status:

 

//check quest status
if (qprogress = 1) then begin
q1s := 100;
end;

if Engine.QuestStatus(241, 1) then begin
q1s := 101;
end;

if Engine.QuestStatus(241, 2) then begin
q1s := 102;
end;

if Engine.QuestStatus(241, 3) then begin
q1s := 103;
end;

if Engine.QuestStatus(241, 4) then begin
q1s := 104;
end;

if Engine.QuestStatus(241, 5) then begin
q1s := 105;
end;

if Engine.QuestStatus(241, 6) then begin
q1s := 106;
end;

if Engine.QuestStatus(241, 7) then begin
q1s := 107;
end;

if Engine.QuestStatus(241, 8) then begin
q1s := 108;
end;

if Engine.QuestStatus(241, 9) then begin
q1s := 109;
end;

if Engine.QuestStatus(241, 10) then begin
q1s := 110;
end;

if Engine.QuestStatus(241, 11) then begin
q1s := 111;
end;

if Engine.QuestStatus(241, 12) then begin
q1s := 111;
end;

if Engine.QuestStatus(241, 13) then begin
q1s := 113;
end;

if Engine.QuestStatus(241, 14) then begin
q1s := 114;
end;

if Engine.QuestStatus(241, 15) then begin
q1s := 115;
end;

if Engine.QuestStatus(241, 16) then begin
q1s := 116;
end;

if Engine.QuestStatus(241, 17) then begin
q1s := 116;
end;

if Engine.QuestStatus(241, 18) then begin
q1s := 118;
end;

if Engine.QuestStatus(241, 19) then begin
q1s := 119;
end;

if (Inventory.Quest.ByID(7677, QuestItem) = true) then begin

q1s := 200;
end;

if (qprogress = 2) then begin
q1s := 200;
end;


if Engine.QuestStatus(242, 1) then begin
q1s := 200;
end;

if Engine.QuestStatus(242, 2) then begin
q1s := 200;
end;

if Engine.QuestStatus(242, 3) then begin
q1s := 203;
end;
if Engine.QuestStatus(242, 4) then begin
q1s := 203;
end;
if Engine.QuestStatus(242, 5) then begin
q1s := 203;
end;
if Engine.QuestStatus(242, 6) then begin
q1s := 206;
end;
if Engine.QuestStatus(242, 7) then begin
q1s := 207;
end;
if Engine.QuestStatus(242, 8) then begin
q1s := 208;
end;
if Engine.QuestStatus(242, 9) then begin
q1s := 209;
end;
if Engine.QuestStatus(242, 10) then begin
q1s := 209;
end;
if Engine.QuestStatus(242, 11) then begin
q1s := 211;
end;
if (Inventory.Quest.ByID(7678, QuestItem) = true) then begin
q1s := 300;
end;

if (qprogress = 3) then begin
q1s := 300;
end;

if Engine.QuestStatus(246, 1) then begin
q1s := 300;
end;

if Engine.QuestStatus(246, 2) then begin
q1s := 302;
end;

if Engine.QuestStatus(246, 3) then begin
q1s := 303;
end;

if Engine.QuestStatus(246, 4) then begin
q1s := 304;
end;

if Engine.QuestStatus(246, 5) then begin
q1s := 305;
end;

if Engine.QuestStatus(246, 6) then begin
q1s := 306;
end;

if (Inventory.Quest.ByID(7679, QuestItem) = true) then begin
q1s := 400;
end;

if (qprogress = 4) then begin
q1s := 400;
end;

Example of module part

//start stage 7
    while (q1s=107) do begin
    
// tp heine
while (tep1=0) do begin
        captcha();
        checkdead();
        checkbuff();
    delay(1000);
    Engine.BypassToServer('_bbshome', True);
delay(1500);
Engine.BypassToServer('_bbsgatekeeper', True);
delay(1500);
Engine.BypassToServer('1d', True);
delay(1500);


    if user.InRange(111140, 218967, -3520,500) then begin
    tep1 := 1;
    end;
    end;
    tep1 := 0;


//koniec tp heine

Engine.MoveTo(110936, 219096, -3520);
Engine.MoveTo(110088, 219048, -3456);
Engine.MoveTo(110088, 217960, -3536);
Engine.MoveTo(110072, 217208, -3728);
Engine.MoveTo(109400, 217480, -3728);
Engine.MoveTo(108632, 217496, -3688);
Engine.MoveTo(107784, 217528, -3656);
Engine.MoveTo(107512, 217944, -3656);
Engine.MoveTo(107080, 218088, -3656);
Engine.MoveTo(107128, 217560, -3576);
Engine.MoveTo(107048, 216984, -3576);
Engine.MoveTo(106968, 216984, -3576);

Engine.SetTarget(31042);
delay(500);
Engine.DlgOpen;
delay(500);
Engine.DlgSel('Quest');
delay(500);
Engine.DlgSel('Path of the Noblesse');
delay(500);
Engine.DlgSel('Wait');
delay(500);

//tutaj jest q item 7589 1

if Engine.QuestStatus(241, 8) then begin

         Print('PART I 8/19');
         q1s := 108;
end;

end;
//koniec stage 7

 

Edited March 12, 2016 by m44ti

[Quid]

Any1 have script for Auto buff at l2dex? U cen buff from item, but next i dont know how to chose buff option.
some 1 can help me ?

[m44ti]

i will write it today for U, but first need to w8 for adr update :)

[Quid]

adr is after upadte and it is working  i think.

[m44ti]

If u place a wrong bypass name it will kick u from the server beacuse of antibot reason

And make sure that for button there is a false value in the bypass command for buttons and true for links if it will be wrong u will get kicked again. 

begin
  engine.useitem(9516);
         delay(500);
      Engine.BypassToServer('buff_book_1.htm#9516', false);



//NOW SELECT UR BUFFS NOW FROM THIS LIST:
//http://pastebin.com/xuty9qeA
//u need to cut out the bypasses for example
//this is vampiric rage 2 times:

delay(500);
Engine.BypassToServer('sb_r_b_p?id=324612#9516', true);

delay(500);
Engine.BypassToServer('sb_r_b_p?id=324612#9516', true);
delay(500);
//and so on and so on



//after u finish buff section u need to go to the songs section by this:
Engine.BypassToServer('buff_book_2.htm#9516', false);
delay(500);

//select ur dances and songs from list
//http://pastebin.com/bq8ELmSw
//cut out the bypasses and place it into the command (this is song of hunter):


Engine.BypassToServer('sb_r_b_p?id=68865#9516', true);
delay(500);
Engine.BypassToServer('sb_r_b_p?id=68865#9516', true);
delay(500);



end.

[maze]

Hello,

 

Does anyone have a Dominator script for Sel Mahum aoeing? Or at least something that does a similar thing that I could work on.

 

Thanks