Jump to content

L2 Adrenaline Scripts.


Recommended Posts

this script is working but its working like as a bicycle vs porsche compared to my script.

 

mb i will share this later

 

I have auto restock

Auto exchange aa

auto captcha (only sound)

auto sell crap

auto rebuff

auto tp

and the character do not use one room its using all of them runing in cylce and killing all.

 

btw wtt nobless script for auto captcha (can be on my hwid)

Nice script u have, would be great if shared :)

Link to comment
Share on other sites

Hello, seems not working in L2tales, at least the part where bot must auto tp back to omens, is it possible to fix that?

go to omens and run script, working fine.

Link to comment
Share on other sites

   var item:tl2item;
begin
while true do begin
delay(1000);
    if not inventory.user.byid(728, item) or (item.count<1) then begin // (iditem, item) logo após (item.cound<xxx) quantidade do item
      Engine.SetTarget(13270); // (id do npc)
      Engine.DlgOpen;
      Engine.DlgSel(6); // (qual opção de janela do npc escolher)
      Engine.NPCExchange(728, 10); // (iditem, quandidade)
      Print('OK');
      delay(1000);
end;
end;
end.

auto restock

just add or remove ids and bypasses

and if you want, can merge to.

Link to comment
Share on other sites

Anyone can help me linking auto return +buff with tts quest. I get the logic but not too sure on syntax how to link deadcheck function it that.

 

 if user.inrange(147936, -55368, -2760, 250) and User.Buffs.ByID(1204, buffCheck) then begin
        Print('Teleport to HS');
        Engine.SetTarget(31275);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Engine.DlgSel(11);  //teleports to hs
        Delay(5000);
    end;    
                          
    if user.inrange(149600, -112707, -2060, 250) then begin   //hs spawn location
      
      Engine.MoveTo(149526, -112683, -2090);  // moves close to jeremy 
       while not User.Dead  do       // and while not dead I want to start cycle to run arround.. cant get to work..    function called  deadCheck
  Engine.SetTarget(31521);                                      ///jeremy
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Egg Delivery');
  Delay(500);
  Engine.bypasstoserver('Quest 621_EggDelivery 31521-1.htm');
  Engine.MoveTo(149722,-112600,-2090);
  Engine.MoveTo(150404,-113188,-2141);
Edited by Giedrius0301
Link to comment
Share on other sites

_____________________________________________________________________________________

 

HI PPL

I begin with : thank you for all information on this forum.    U ARE TOP !

i have one question please i trying to make my own script for teleport with alt +b (database) but i have one probleme.

 

I explain my when iam coming at the last step of my script,
( button  : GO TO NPC )  my script dont work.
I found only ( 
L2UI_CT1.Button_DF_Down )   on WINHEX but  he dont work , if you can help me thanks alot.
sorry for my english
 

 

SCRIPT :

 

begin
Engine.BypassToserver('_dropMonstersByName_ gem dragon');                  
delay(1000);
Engine.BypassToserver('_dropMonsterDetailsByName_22830');                  
delay(1000);
Engine.BypassToserver('_L2UI_CT1.Button_DF_Down');           // dont work     WICH SYNTAX I MUST WRITE PLEASE , ty 
delay(1000);
end.

 

 

i show u my screenshot game and winhex : 

 

TY PER AVANCE

 

 

173475Shot00058.png

 

Edited by krea04
Link to comment
Share on other sites

my syntax :  but i dont know where i need to write ACTION  can u help me please ty

Engine.BypassToserver('_L2UI_CT1.Button_DF_Down');
 
________________________________________________________________________________________________________
 
begin
Engine.BypassToserver('_dropMonstersByName_ gem dragon');                  
delay(1000);
Engine.BypassToserver('_dropMonsterDetailsByName_22830');                  
delay(1000);
Engine.BypassToserver('"action="_L2UI_CT1.Button_DF_Down');     // dont work too :/   i dont know where i must write action
delay(1000);
end.
Edited by krea04
Link to comment
Share on other sites

 

Anyone can help me linking auto return +buff with tts quest. I get the logic but not too sure on syntax how to link deadcheck function it that.

 

 if user.inrange(147936, -55368, -2760, 250) and User.Buffs.ByID(1204, buffCheck) then begin
        Print('Teleport to HS');
        Engine.SetTarget(31275);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Engine.DlgSel(11);  //teleports to hs
        Delay(5000);
    end;    
                          
    if user.inrange(149600, -112707, -2060, 250) then begin   //hs spawn location
      
      Engine.MoveTo(149526, -112683, -2090);  // moves close to jeremy 
       while not User.Dead  do       // and while not dead I want to start cycle to run arround.. cant get to work..    function called  deadCheck
  Engine.SetTarget(31521);                                      ///jeremy
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Egg Delivery');
  Delay(500);
  Engine.bypasstoserver('Quest 621_EggDelivery 31521-1.htm');
  Engine.MoveTo(149722,-112600,-2090);
  Engine.MoveTo(150404,-113188,-2141);

 

can someone help with this one ? still strugling 

Link to comment
Share on other sites

var
item: TL2Item;
buff: TL2Buff;

function buffCheck: Boolean;
begin
    if not User.Buffs.ByID(1062, buff) then begin
        Result:=true;
        Print('Buffs are needed. Buffing...');
        Delay(500);
        engine.bypasstoserver('_bbshome');
        Delay(500);
        engine.bypasstoserver('02');
        Delay(500);
        engine.bypasstoserver('0b');
        Delay(500);
        engine.bypasstoserver('01a');
        Delay(500);
        Print('Buffed.'); 
    end;
Result:=false;
end;

function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Result := true;
        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.inrange(45368, 49656, -3048, 5000) then begin
        buffCheck;
        end;
        
        if user.inrange(45368, 49656, -3048, 5000) and user.buffs.byid(1062, buffCheck) then begin
  Print('Going back to spot.');
  Engine.bypasstoserver('_bbshome'); 
  Delay(1000);
  Engine.bypasstoserver('02');
  Delay(1000);
  Engine.bypasstoserver('0a');
  Delay(1000);
  Engine.bypasstoserver('033');
  Delay(1000);
  Engine.bypasstoserver('0f');
  Delay(1000);
  Engine.bypasstoserver('_bbsgetfav');
  Delay(5000);
    end;
    if user.inrange(-19185, 13553, -4880, 500) then begin     
           Engine.MoveTo(-18056, 13544, -4880);
           Engine.MoveTo(-17864, 13896, -4880);
           Engine.MoveTo(-16872, 13832, -4880);
      delay(1000);
    
    Engine.FaceControl(0,true);
    while not deadCheck do delay(3000);
    end;
end;
end.

Script for boting in dark omens, when die, check buffs, teleport to spot.

If you want change farm spot, change coordinates and teleport.

 

no teleport and rebuff in l2 tales need help plis

Link to comment
Share on other sites

 

Anyone can help me linking auto return +buff with tts quest. I get the logic but not too sure on syntax how to link deadcheck function it that.

 

 if user.inrange(147936, -55368, -2760, 250) and User.Buffs.ByID(1204, buffCheck) then begin
        Print('Teleport to HS');
        Engine.SetTarget(31275);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Engine.DlgSel(11);  //teleports to hs
        Delay(5000);
    end;    
                          
    if user.inrange(149600, -112707, -2060, 250) then begin   //hs spawn location
      
      Engine.MoveTo(149526, -112683, -2090);  // moves close to jeremy 
       while not User.Dead  do       // and while not dead I want to start cycle to run arround.. cant get to work..    function called  deadCheck
  Engine.SetTarget(31521);                                      ///jeremy
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Egg Delivery');
  Delay(500);
  Engine.bypasstoserver('Quest 621_EggDelivery 31521-1.htm');
  Engine.MoveTo(149722,-112600,-2090);
  Engine.MoveTo(150404,-113188,-2141);

 

 

Correct syntax of "while" is:

while not User.Dead do
 begin

   delay(150);
   
    //your code here
    //your code here
    //your code here
    //your code here

 end;
Link to comment
Share on other sites

 

Correct syntax of "while" is:

while not User.Dead do
 begin

   delay(150);
   
    //your code here
    //your code here
    //your code here
    //your code here

 end;
function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Result := true;
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome(rtTown);
        Delay(1000);
    end;
end;
                                                      that is a deadcheck function 
 
   if user.inrange(149600, -112707, -2060, 250) then begin    //spawn hs
      Engine.MoveTo(149526, -112683, -2090);                  //close to jeremy
       Engine.FaceControl(0,true);    
       while not deadcheck  do begin
  Engine.FaceControl(0,true);    
  Engine.SetTarget(31521);
  Delay(500);                                     ///jeremy
  Engine.DlgOpen;
  Delay(500);
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Egg Delivery');
  Delay(500);
and so on.. for whole delivery quest
 
end;
end;
 
 
what I am missing there? it would not pick up that character is dead and would not teleport to town.. it is doing all running fine.. 
Link to comment
Share on other sites

 

Thx adr.bot and Boukipike, the scrip work very well, not 100% but work fine (only stock in some respawn areas of goodard, i don't have all i thick), in the morning i take 100 frintezza pass, saw the scrip work fine for me. i one to said thank a lot for the help, i use a combination of procedure and function (like a adr.bot said), and use if and while with engine.queststatus() whit the different stage of quest (thx to boukipike).

 

 

P.S: i don't replay to adr.bot the question about backing to cal hall, the command you said me is (rttohall) but don't work, saw i read the scrip manual and i found there, the command is (rttoholl) whit "o".

 

 

Can u share this script, pls?

Link to comment
Share on other sites

_____________________________________________________________________________________

 

HI PPL

 

I begin with : thank you for all information on this forum.    U ARE TOP !

 

i have one question please i trying to make my own script for teleport with alt +b (database) but i have one probleme.

 

I explain my when iam coming at the last step of my script,

( button  : GO TO NPC )  my script dont work.

I found only ( L2UI_CT1.Button_DF_Down )   on WINHEX but  he dont work , if you can help me thanks alot.

sorry for my english

 

 

SCRIPT :

 

begin
Engine.BypassToserver('_dropMonstersByName_ gem dragon');                  
delay(1000);
Engine.BypassToserver('_dropMonsterDetailsByName_22830');                  
delay(1000);
Engine.BypassToserver('_L2UI_CT1.Button_DF_Down');           // dont work     WICH SYNTAX I MUST WRITE PLEASE , ty 
delay(1000);
end.

 

 

i show u my screenshot game and winhex : 

 

TY PER AVANCE

 

 

173475Shot00058.png

 

 

try use http://rghost.net/8HGjpZjCm

Link to comment
Share on other sites

i dont know why do u have so big problem with this....

Engine.BypassToserver('_bbshome');                  
delay(1000);
Engine.BypassToserver('08');                  
delay(1000);
Engine.BypassToserver('0b Gem Dragon');                  
delay(1000);
Engine.BypassToserver('0d');                  
delay(1000);
Engine.BypassToserver('0d');                  
delay(1000);

btw is not tales dead?

 

 

ohh i can see its not tales :>

 

so mb this will work ;P

Engine.BypassToServer('_bbshome', True);
delay(1500);
   Engine.BypassToServer('_dropMonstersByName_ Scarlet Stakato Noble', True);
   delay(1500);
    Engine.BypassToServer('_dropMonsterDetailsByName_22636', True);
   delay(1500);
     Engine.BypassToServer('_dropMonsterDetailsByName_22636_3', True);
   delay(1500);
end;
Edited by m44ti
Link to comment
Share on other sites

  • 2 weeks later...

hello... I am playing L2neo... and I am using L2adrenaline script qust tateossian... but I have a problema when my player is dead he return to the city and he try take buff... when he try take buff he stuck... 


 


9a1017a875cdba322f63d57d581e8592o.jpg

Edited by juliopecador
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.




×
×
  • Create New...