Jump to content

m44ti

Members
  • Posts

    34
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

Posts posted by m44ti

  1. 19 hours ago, AchYlek said:

    look at mouse / sorin servers, they opening every month server and failed so hard, stalonka atleast trying keep alive server for more than 1 month right now ,   

     

    also stalonka using special features, and everyone copy it

     

    interlude low rate servers are from vampir, stalonka there only gm (not even at all servers)

     

    but who care, bot server > no bot server , only ppl w/o real life will play l2 at summer time w/o bot lol , 

     

    but seems you are mad bcs stalonka geting so much $$$ from virtual items and u cant get it, thats why dont care about bots, bcs bots  = money for him 

     

    boters make items ++,  donators will donate for stalonka euros to get donate coins to buy items from boters, thats called business 




    Tales server rules:

    HF
    517802dd8b53e81c9c501439e0f5f3b4.png.dc82f965cdc681a2173636ae83b7dbdc.png

    Interlude:
    0f0740cd09043068fcde5221a22e6f9e.png.3e94db1b631f8d94363d360d08a06e4d.png


    Stalonka is a bulshiter. Mf who always lie and he thinks that everyone will just belive him.
    He will only ban his competition. Cuz he is selling items too (for donation coins).
    ppl with 1-2 bots are harmless cuz they are just exping or getting shit amout of adena/H. 
    ppl with 4-8 bots with effective ways to get good items alwyas will be banned.

    "only ppl w/o real life will play l2 at summer time w/o bot lol"
    Tales is only for suckers that belive what stalonka and his pet achylek will say.

    • Upvote 1
  2. 1 hour ago, Dev said:

     

    No you are not bored. You make it for a purpose, to me it has no sense but some idiots will always wonder and give you credits for beeing retarded af.

     

    As about next opening, how many times you closed and opened it ? Every 2 weeks you have a grand opening lmao.

     

    Attention! Flat earther detected!

  3. 5 hours ago, AchYlek said:

    so reason of that video? every server got adr bots lol, if u dont pay to adr devs to stop it 

    Some server has more and some has less.

    Some admins checks spots and manualy do bans.
    Some hiring mods to do that.

    Some paying adr to stop. (but personally I don't believe it)

    Some are bulishts like those from tales.

    The point of that video? I dont know im bored. Mb its a promotion video for next big tales server. I have no idea.
    Or mb its just for spoting retards like that one, post below.

     

  4. 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.
    
  5. 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?

     

    NoQuestItem.th.jpg

    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
    

     

  6. 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
    
  7. 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

  8. @up its all possible pw me i will send u some example script

     

     

    And i need to write smthing thats working with other chars in party.

     

    How to check if a party member is a dead or in range?

    I see this in the manual but i dont know how to make the correct syntax.

     

    oh nvm just figured it out

  9. 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;
    
×
×
  • Create New...