Jump to content

BouKipiKe

Members
  • Posts

    30
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

Posts posted by BouKipiKe

  1. 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 :/

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

     

  3. 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 :)

  4. Thx adr.bot, i will try with that example. and one more cuestion, where i can find the ID of QUEST? to use in this command Engine.QuestStatus(654, 3)

    Hi LAPDS,

    u find all u need here http://translate.google.fr/translate?hl=fr&sl=ru&tl=en&u=http%3A%2F%2Fadrenalin5.ru%2Fforum%2Findex.php%2Ftopic%2F238-bypass%2F

    Engine.QuestStatus (621, 2) /// 621quest id, 2 quest stage

    for find quest id is simpel in ur windows adr u go in inventory >> Quest and u see ID at ur item quest :) gl for ur script.

  5. hi all.

    adr.bot can u help me pls i search how too use cmd chat in scrpit. i have try

     

    Engine.Say('.jointvt', 0, '');

    Engine.mtSystem('.jointv');

     

    but not working, in nomal chat write .jointvt . :/ if u have any idea how can i do for use cmd chat when i m using script ?

    Ty again for help cyu later

  6. Thanks alot i was able to adjust it to my server :D

     

    I have a question tho, I would like to add this small function but i don't know where i can add it,

    for example when buff ends and bot is alive ,bot stop  and use alt+b to rebuff then continue running script

    I'm thinking that this line should include deadCheck: Boolean; and buffCheck: Boolean; but i`m not sure in which lines should i add them

    A small hint will help !

     

     hi man i give u my script for farm at CrypOfDisgrace for steel spoil maby that can help u.

    var
    item: TL2Item;
    
    function buffCheck: Boolean;
    var buff: TL2Buff;
    begin
        if not User.Buffs.ByID(1204, buff) then begin
            Result:=true;
            Print('Buffs are needed. Buffing...');
            Engine.MoveTo(87111,-143439,-1318);
            Delay(500);
            Engine.SetTarget(31360); // NPC ID
            Delay(500);
            Engine.DlgOpen;
            Delay(500);
            Engine.bypasstoserver('custom_dobuff Chat 99');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff ProfBuffs Spoil');
            Delay(5000);
            Engine.DlgOpen;
            Delay(500);
            Engine.DlgSel('HEAL all');
            Delay(500);
            Engine.MoveTo(87135,-143437,-1288,-1288);        
        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(5000);
        end;
    end;
    
    function soe: Boolean;
    var buff: TL2Buff;
    begin
        if not User.Buffs.ByID(1204, buff) then begin
            Result:=true;
            Print('soe bro');
            Delay(1000);
            Engine.FaceControl(0,false);
            Delay(1000);
        Engine.UseItem(736);
            Delay(5000);
        end;
    end;
    
    function teleport: Boolean;
    begin
        if user.inrange(87135,-143437,-1288, 150) and User.Buffs.ByID(1204, buffCheck) then begin
            Engine.SetTarget(31964);
            Engine.DlgOpen;
            Delay(500);
            Engine.DlgSel('I want to teleport');
            Delay(500);
            Engine.DlgSel('Crypts of Disgrace');
            Delay(5000);
          Engine.MoveTo(55697,-117944,-3355);
          Engine.MoveTo(55677,-116648,-3502);
          Engine.MoveTo(55379,-115669,-3556);
            Print('AA farm: ON!');
            Delay(500);
            Engine.FaceControl(0, true);
        end;
    Result:=false;
    end;
    
    begin
    while true do begin
    delay(150);
    
    if User.inrange(87402,-140209,-1536, 250, 150) then begin
            Engine.MoveTo(87354,-141085,-1440);
            Engine.MoveTo(87263,-142373,-1340);
            Engine.MoveTo(87140,-143393,-1318);
        end;
        if User.inrange(84912,-141501,-1536, 250, 150) then begin
            Engine.MoveTo(85489,-142053,-1440);
            Engine.MoveTo(86426,-142552,-1342);
            Engine.MoveTo(87184,-142700,-1332);
            Engine.MoveTo(87140,-143393,-1318);
        end;
        if User.inrange(88500,-142550,-1363, 250, 150) then begin
            Engine.MoveTo(87436,-142688,-1332);
            Engine.MoveTo(87140,-143393,-1318);
        end;
        if User.inrange(84494,-143531,-1562, 250, 150) then begin
            Engine.MoveTo(84602,-142035,-1541);
            Engine.MoveTo(84912,-141501,-1536);
            Engine.MoveTo(85489,-142053,-1440);
            Engine.MoveTo(86426,-142552,-1342);
            Engine.MoveTo(87184,-142700,-1332);
            Engine.MoveTo(87140,-143393,-1318);
        end;
        if User.inrange(87330,-142829,-1312, 250, 150) then begin
            Engine.MoveTo(87140,-143393,-1318);
            end;
          if User.inrange(89783,-141672,-1567, 250, 150) then begin
            Engine.MoveTo(89230,-142053,-1467);
            Engine.MoveTo(88524,-142490,-1367);
            Engine.MoveTo(87516,-142625,-1366);
            Engine.MoveTo(87196,-143183,-1319);      
            Engine.MoveTo(87140,-143393,-1318);
        end;
        if User.inrange(86253,-142519,-1337, 250, 150) then begin
            Engine.MoveTo(87184,-142700,-1332);
            Engine.MoveTo(87140,-143393,-1318);
        end;
        if user.inrange(87140,-143393,-1318, 500) then begin
            buffCheck;
        end;    
        if user.inrange(87135,-143437,-1288, 150) and User.Buffs.ByID(1204, buffCheck) then begin
            teleport;          
        end;
        if user.inrange(55379,-115669,-3556, 500) and not User.Buffs.ByID(1204, soe) then begin
            soe;   
        end;
        if User.Dead then begin
             deadCheck;          
        end;
    end;
    end.
    

     

    i think u need too creat fonction and make new line at the end

     

    exemple
    ///////////////////////////////////////////////////////////////
    function rebuff: Boolean;
    var buff: TL2Buff;
    begin
        if not User.Buffs.ByID(1204, buff) then begin
            Result:=true;
            Delay(1000);
            Engine.FaceControl(0,false);
            Delay(1000);
    -----------------------------------
    Here write ur alt+b cmd buff
    ----------------------------------
            Delay(1000);
            Engine.FaceControl(0,true);
            Delay(1000);
        end;
    end;
    /////////////////////////////////////////////////////////////////
        if not User.Dead and not User.Buffs.ByID(1204, rebuff) then begin  /// Or maby Try If User.Alive "maby work :) sry i start un adr too :)"
             rebuff;          
        end;
    ////////////////////////////////////////////////////////////////
    

  7. My Final Quest atm I need find how too back at my dead spot when i m pk for the quest continue where i m die. if any idea :) i'm open :)

     

    //// Tateosian Script Quest  //// Rebuff if no WW , die Tap Too Town and quest in Loop
    var
    item: TL2Item;
    
    function buffCheck: Boolean;
    var buff: TL2Buff;
    begin
            if not User.Buffs.ByID(1204, buff) then begin
            Result:=true;
            Print('Buffs are needed. Buffing...');
            Delay(500);
            Engine.SetTarget(31360); // NPC ID
            Delay(500);
            Engine.DlgOpen;
            Delay(500);
            Engine.bypasstoserver('custom_dobuff Chat 10'); // Sniff for ur Server
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff Custom Spoiler');
            Delay(3000);
            Engine.DlgOpen;
            Delay(500);
            Engine.DlgSel('HEAL');
            Delay(500);            
        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.GOHome;  ///here change to town or other
            Delay(10000);
        end;
    end;
    
    function teleport: Boolean;
    begin
        if user.inrange(147907,-55217,-2759, 150) and User.Buffs.ByID(1204, buffCheck) then begin
            Delay(500);
            Engine.SetTarget(31275);
            Delay(500);
            Engine.DlgOpen;
            Delay(1500);
            Engine.DlgSel('I want to teleport');
            Delay(1500);
            Engine.DlgSel('Hot Springs');
            Delay(5000);
        Engine.MoveTo(); // same move too for soe and quest function
        end;
    Result:=false;
    end;
    
    function soe: Boolean;
    var buff: TL2Buff;
    begin
    Result := false;
      if user.inrange(x,y,z, 150) and not User.Buffs.ByID(1204, buff) then begin    // same move too for soe and quest function
    Result := true;
    Engine.UseItem(736);
      Delay(15000);
       end;
     end;
    
    function quest: Boolean;
    var buff: TL2Buff;
    begin
        if user.inrange(x,y,z, 150) and User.Buffs.ByID(1204, buff) then begin  // same move too for soe and quest function
    delay(500);
    Engine.MoveTo(149522,-112683,-2090);
    engine.settarget(31521);  // Jeremy
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    delay(1500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31521-1.htm');
    delay(1500);
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    delay(1500);
    engine.bypasstoserver('Quest 621_EggDelivery 31521-1.htm');
    delay(1500);
          Engine.MoveTo(); // Make ur Own Patch
          Engine.MoveTo();
    engine.settarget(31547);  // Beolin
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    delay(1500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31547-1.htm');
    delay(1500);
          Engine.MoveTo(); // Make ur Own Patch
          Engine.MoveTo();
    engine.settarget(31543);  // Pulin
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    delay(1500);
    engine.bypasstoserver('Quest 621_EggDelivery 31543-1.htm');
    delay(1500);
          Engine.MoveTo(); // Make ur Own Patch
          Engine.MoveTo();
    engine.settarget(31544);  // naff
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    delay(1500);
    engine.bypasstoserver('Quest 621_EggDelivery 31544-1.htm');
    delay(1500);
          Engine.MoveTo(); // Make ur Own Patch
          Engine.MoveTo();
    engine.settarget(31545); //  crocus
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    delay(500);
    engine.bypasstoserver('Quest 621_EggDelivery 31545-1.htm');
    delay(1500);
          Engine.MoveTo(); // Make ur Own Patch
          Engine.MoveTo();
    engine.settarget(31546);  //  kuber
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    delay(1500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31546-1.htm');
    delay(1500);
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    delay(1500);
    engine.bypasstoserver('Quest 621_EggDelivery 31546-1.htm');
    delay(1500);
          Engine.MoveTo(); // Make ur Own Patch
          Engine.MoveTo();
    engine.settarget(31545); //  crocus
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    delay(500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31545-1.htm');
    delay(1500);
          Engine.MoveTo(); // Make ur Own Patch
          Engine.MoveTo();
    engine.settarget(31544);  //  naff
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    delay(1500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31544-1.htm');
    delay(1500);
          Engine.MoveTo(); // Make ur Own Patch
          Engine.MoveTo();
    engine.settarget(31543);  //  pulin
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    delay(1500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31543-1.htm');
    delay(1500);
          Engine.MoveTo(); // Make ur Own Patch
          Engine.MoveTo();
    engine.settarget(31547); //  beolin
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    delay(1500);
    engine.bypasstoserver('Quest 621_EggDelivery 31547-1.htm');
    delay(1500);
          Engine.MoveTo(); // Make ur Own Patch
          Engine.MoveTo();
    Engine.SetTarget(31521);                                  ///jeremy
    Engine.DlgOpen;
    Delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    Delay(1500);
    engine.bypasstoserver('Quest 621_EggDelivery 31521-3.htm');
    Delay(1500);
    Engine.DlgOpen;
    Delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    Delay(1500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31521-3.htm');
    Delay(1500);
        Engine.MoveTo(149761,-112448,-2090);
        end;
    Result:=false;
    end;
    
    begin
    while true do begin
    delay(150);
    
    if User.inrange(150233,-57173,-3002, 250, 150) then begin  
        Engine.MoveTo(149555,-56631,-2907);
        Engine.MoveTo(148897,-56158,-2807);
        Engine.MoveTo(147832,-56033,-2799);
        Engine.MoveTo(147907,-55217,-2759);
        end;
    if User.inrange(147732,-58299,-3002, 250, 150) then begin  
        Engine.MoveTo(147708,-57626,-2907);
        Engine.MoveTo(147753,-56220,-2807);
        Engine.MoveTo(147843,-55425,-2759);
        Engine.MoveTo(147907,-55217,-2759);
        end;
    if User.inrange(145319,-57016,-3002, 250, 150) then begin  
        Engine.MoveTo(145829,-56632,-2908);
        Engine.MoveTo(146697,-56154,-2807);
        Engine.MoveTo(147577,-55974,-2793);
        Engine.MoveTo(147824,-55523,-2759);
        Engine.MoveTo(147907,-55217,-2759);
        end;
    if User.inrange(146087,-58104,-3002, 250, 150) then begin  
        Engine.MoveTo(146043,-58206,-3007);
        Engine.MoveTo(145356,-57013,-3007);
        Engine.MoveTo(145843,-56667,-2907);
        Engine.MoveTo(146544,-56239,-2807);
        Engine.MoveTo(147573,-55992,-2799);
        Engine.MoveTo(147829,-55510,-2759);
        Engine.MoveTo(147907,-55217,-2759);
        end;
    if User.inrange(147702,-56295,-2775, 250, 150) then begin  
        Engine.MoveTo(147830,-55546,-2759);
        Engine.MoveTo(147907,-55217,-2759);
        end;
    if User.inrange(148553,-56015,-2776, 250, 150) then begin  
          Engine.MoveTo(147873,-56091,-2807);
          Engine.MoveTo(147875,-55489,-2759);
          Engine.MoveTo(147907,-55217,-2759);
        end;
        if user.inrange(147907,-55217,-2759, 500) then begin
            buffCheck;
        end;    
        if user.inrange(x,y,z, 150) and User.Buffs.ByID(1204, buffCheck) then begin  // /loc infront of buffer
            teleport;          
        end;
        if user.inrange(x,y,z, 150) and not User.Buffs.ByID(1204, soe) then begin  // same move too for soe and quest function
            soe;          
        end;  
        if user.inrange(x,y,z, 150) and User.Buffs.ByID(1204, quest) then begin  // same move too for soe and quest function
            quest;          
        end;  
        if User.Dead then begin
             deadCheck;  
        end;
    end;
    end.
    

     

     

    For Edit Ur Path Point Really easy With Adrenalin u just need open setting of ur char >> Combat Zone >> Moove with Path Point >> Current and Add "do this for all ur loc needed". After just Download NotePad++ and u load ur setting on NotePad++ >> Search >> Replace >> change  X=" for Engine.MoveTo(  etc for y and z. and u copy paste easy in ur script enjoy :)
    
    

     

  8. hi again i working too make tts script with more option i have try a lot of things but impossibel do what i whant. :/

    maby u will help me becose ur are so pro.

    my tts quest work perfect now i want add function if i dead go town+rebuf and if i m in front of "jeremy" and i dont have buff windwalk i use soe. but after along and long hour too try that i come here for help becose is totaly impossible for me :/

    ty for ur time and thx for help 

     

    var
    item: TL2Item;
    
    function buffCheck: Boolean;
    var buff: TL2Buff;
    begin
            if not User.Buffs.ByID(1204, buff) then begin
            Result:=true;
            Print('Buffs are needed. Buffing...');
            Delay(500);
            Engine.SetTarget(31360); // NPC ID
            Delay(500);
            Engine.DlgOpen;
            Delay(500);
            Engine.bypasstoserver('custom_dobuff Chat 99');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff ProfBuffs hs');
            Delay(3000);
            Engine.DlgOpen;
            Delay(500);
            Engine.DlgSel('HEAL all');
            Delay(500);            
        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.GOHome;  ///here change to town or other
            Delay(10000);
        end;    
    end;
    
    function teleport: Boolean;
    begin
        if user.inrange(147907,-55217,-2759, 150) and User.Buffs.ByID(1204, buffCheck) then begin
            Delay(500);
            Engine.SetTarget(31275);
            Delay(500);
            Engine.DlgOpen;
            Delay(1500);
            Engine.DlgSel('I want to teleport');
            Delay(1500);
            Engine.DlgSel('Hot Springs');
            Delay(5000);
        end;
    Result:=false;
    end;
    
    function soe: Boolean;
    begin
      if user.inrange(149575,-112710,-2060, 150) and not User.Buffs.ByID(1204, buffcheck) then begin
    Engine.UseItem(736);
      Delay(15000);
       end;
       Result:=false;
     end;
    
    begin
    while true do begin
    delay(150);
    
    if User.inrange(150233,-57173,-3002, 250, 150) then begin  
        Engine.MoveTo(149555,-56631,-2907);
        Engine.MoveTo(148897,-56158,-2807);
        Engine.MoveTo(147832,-56033,-2799);
        Engine.MoveTo(147907,-55217,-2759);
        end;
    if User.inrange(147732,-58299,-3002, 250, 150) then begin  
        Engine.MoveTo(147708,-57626,-2907);
        Engine.MoveTo(147753,-56220,-2807);
        Engine.MoveTo(147843,-55425,-2759);
        Engine.MoveTo(147907,-55217,-2759);
        end;
    if User.inrange(145319,-57016,-3002, 250, 150) then begin  
        Engine.MoveTo(145829,-56632,-2908);
        Engine.MoveTo(146697,-56154,-2807);
        Engine.MoveTo(147577,-55974,-2793);
        Engine.MoveTo(147824,-55523,-2759);
        Engine.MoveTo(147907,-55217,-2759);
        end;
    if User.inrange(146087,-58104,-3002, 250, 150) then begin  
        Engine.MoveTo(146043,-58206,-3007);
        Engine.MoveTo(145356,-57013,-3007);
        Engine.MoveTo(145843,-56667,-2907);
        Engine.MoveTo(146544,-56239,-2807);
        Engine.MoveTo(147573,-55992,-2799);
        Engine.MoveTo(147829,-55510,-2759);
        Engine.MoveTo(147907,-55217,-2759);
        end;
    if User.inrange(147702,-56295,-2775, 250, 150) then begin  
        Engine.MoveTo(147830,-55546,-2759);
        Engine.MoveTo(147907,-55217,-2759);
        end;
    if User.inrange(148553,-56015,-2776, 250, 150) then begin  
          Engine.MoveTo(147873,-56091,-2807);
          Engine.MoveTo(147875,-55489,-2759);
          Engine.MoveTo(147907,-55217,-2759);
        end;
        if user.inrange(147907,-55217,-2759, 500) then begin
            buffCheck;
        end;    
        if user.inrange(147907,-55217,-2759, 150) and User.Buffs.ByID(1204, buffcheck) then begin
            teleport;    
            end; 
        if user.inrange(149575,-112710,-2060, 150) and not User.Buffs.ByID(1204, soe) then begin
            soe;
        end;
        if user.inrange(149550,-112688,-2090, 150) and User.Buffs.ByID(1204, buffcheck) then begin
    delay(500);
            Print('cest parti');
         Engine.MoveTo(149552,-112673,-2090);
    delay(500);
    engine.settarget(31521);  // Jeremy
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    delay(1500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31521-1.htm');
    delay(1500);
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    delay(1500);
    engine.bypasstoserver('Quest 621_EggDelivery 31521-1.htm');
    delay(1500);
         Engine.MoveTo(149552,-112673,-2090);
         Engine.MoveTo(149176,-112486,-2090);
         Engine.MoveTo(147868,-113293,-2112);
         Engine.MoveTo(147530,-113296,-2138);
    engine.settarget(31547);  // Beolin
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    delay(1500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31547-1.htm');
    delay(1500);
         Engine.MoveTo(147872,-113266,-2146);
         Engine.MoveTo(149319,-113559,-2073);
         Engine.MoveTo(150741,-114764,-1712);
         Engine.MoveTo(153088,-115452,-1593);
         Engine.MoveTo(154449,-115582,-1513);
         Engine.MoveTo(157026,-115443,-1914);
         Engine.MoveTo(157639,-115379,-1930);
    engine.settarget(31543);  // Pulin
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    delay(1500);
    engine.bypasstoserver('Quest 621_EggDelivery 31543-1.htm');
    delay(1500);
         Engine.MoveTo(157228,-113369,-1807);
         Engine.MoveTo(156657,-112526,-1802);
         Engine.MoveTo(156311,-112206,-1932);
         Engine.MoveTo(156560,-111860,-2289);
         Engine.MoveTo(156025,-110567,-2647);
         Engine.MoveTo(156309,-108862,-2667);
         Engine.MoveTo(156057,-107188,-2669);
         Engine.MoveTo(155900,-105806,-2777);
         Engine.MoveTo(155641,-105708,-2780);
    engine.settarget(31544);  // naff
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    delay(1500);
    engine.bypasstoserver('Quest 621_EggDelivery 31544-1.htm');
    delay(1500);
         Engine.MoveTo(155395,-105315,-2763);
         Engine.MoveTo(154678,-104415,-2824);
         Engine.MoveTo(153756,-102553,-2989);
         Engine.MoveTo(153601,-100979,-2952);
         Engine.MoveTo(150971,-101434,-2924);
         Engine.MoveTo(148682,-100835,-2975);
         Engine.MoveTo(146527,-101012,-3184);
         Engine.MoveTo(144791,-100717,-3307);
         Engine.MoveTo(144362,-102832,-3567);
         Engine.MoveTo(143006,-103981,-3615);
         Engine.MoveTo(141019,-105238,-3641);
         Engine.MoveTo(140668,-105488,-3658);
    engine.settarget(31545); //  crocus
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    delay(500);
    engine.bypasstoserver('Quest 621_EggDelivery 31545-1.htm');
    delay(1500);
         Engine.MoveTo(140696,-105785,-3638);
         Engine.MoveTo(140919,-106503,-3650);
         Engine.MoveTo(141726,-108982,-3596);
         Engine.MoveTo(141726,-108982,-3596);
         Engine.MoveTo(141643,-109405,-3616);
    engine.settarget(31546);  //  kuber
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    delay(1500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31546-1.htm');
    delay(1500);
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    delay(1500);
    engine.bypasstoserver('Quest 621_EggDelivery 31546-1.htm');
    delay(1500);
         Engine.MoveTo(141643,-109405,-3616);
         Engine.MoveTo(141726,-108982,-3596);
         Engine.MoveTo(141726,-108982,-3596);
         Engine.MoveTo(140919,-106503,-3650);
         Engine.MoveTo(140696,-105785,-3638);
    engine.settarget(31545); //  crocus
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    delay(500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31545-1.htm');
    delay(1500);
         Engine.MoveTo(140668,-105488,-3658);
         Engine.MoveTo(141019,-105238,-3641);
         Engine.MoveTo(143006,-103981,-3615);
         Engine.MoveTo(144362,-102832,-3567);
         Engine.MoveTo(144791,-100717,-3307);
         Engine.MoveTo(146527,-101012,-3184);
         Engine.MoveTo(148682,-100835,-2975);
         Engine.MoveTo(150971,-101434,-2924);
         Engine.MoveTo(153601,-100979,-2952);
         Engine.MoveTo(153756,-102553,-2989);
         Engine.MoveTo(154678,-104415,-2824);
         Engine.MoveTo(155395,-105315,-2763);
    engine.settarget(31544);  //  naff
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    delay(1500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31544-1.htm');
    delay(1500);
         Engine.MoveTo(155283,-106772,-2717);
         Engine.MoveTo(154540,-108539,-2721);
         Engine.MoveTo(153823,-110242,-2712);
         Engine.MoveTo(152543,-111234,-2545);
         Engine.MoveTo(150877,-112526,-2256);
         Engine.MoveTo(150222,-113490,-2092);
         Engine.MoveTo(150570,-114863,-1757);
         Engine.MoveTo(152200,-115119,-1595);
         Engine.MoveTo(154120,-115346,-1540);
         Engine.MoveTo(156666,-115444,-1861);
         Engine.MoveTo(157403,-115510,-1913);
         Engine.MoveTo(157642,-115377,-1930);
    engine.settarget(31543);  //  pulin
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    delay(1500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31543-1.htm');
    delay(1500);
         Engine.MoveTo(157432,-115484,-1910);
         Engine.MoveTo(155691,-115366,-1678);
         Engine.MoveTo(153455,-115389,-1568);
         Engine.MoveTo(151141,-115269,-1610);
         Engine.MoveTo(149696,-113813,-2062);
         Engine.MoveTo(147916,-113193,-2158);
         Engine.MoveTo(147792,-113288,-2132);
         Engine.MoveTo(147525,-113310,-2138);
    engine.settarget(31547); //  beolin
    engine.dlgopen;
    delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    delay(1500);
    engine.bypasstoserver('Quest 621_EggDelivery 31547-1.htm');
    delay(1500);
         Engine.MoveTo(147838,-113278,-2133);
         Engine.MoveTo(149157,-112467,-2090);
         Engine.MoveTo(149549,-112642,-2090);
         Engine.MoveTo(149550,-112688,-2090);
    Engine.SetTarget(31521);                                  ///jeremy
    Engine.DlgOpen;
    Delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Egg Delivery');
    Delay(1500);
    engine.bypasstoserver('Quest 621_EggDelivery 31521-3.htm');
    Delay(1500);
    Engine.DlgOpen;
    Delay(1500);
    Engine.DlgSel('Quest');
    Delay(1500);
    Engine.DlgSel('Delivery of special liquor');
    Delay(1500);
    engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31521-3.htm');
    Delay(1500);
            Print('Yatta');
            Delay(500);
            while not deadCheck do delay(1000); //while not dead, do nothing and wait.
            while not soe do delay(1000);  //  While not use Scroll Of Escape,do nothing and wait.
        end;
    end;
    end.
    

    Function Needed Too Fix For This Script

    function soe: Boolean;
    begin
      if user.inrange(149575,-112710,-2060, 150) and not User.Buffs.ByID(1204, buffcheck) then begin
    Engine.UseItem(736);
      Delay(15000);
       end;
       Result:=false;
     end;
    ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
        if user.inrange(149575,-112710,-2060, 150) and not User.Buffs.ByID(1204, soe) then begin
            soe;
        end;
        if user.inrange(149550,-112688,-2090, 150) and User.Buffs.ByID(1204, buffcheck) then begin
    ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
            while not soe do delay(1000);  //  While not use Scroll Of Escape,do nothing and wait.
    

    for fix and all be great is change buffcheck by buff "for he check ww buff" but when i write butt the line past in red and i cant lunch script :/

  9. HI all

     

    adr.bot i need ur help i have red error at the end of the script "end." is in red and scripte doesn't start :/

    ty for ur help :)

     

    HI all

     

    adr.bot i need ur help i have red error at the end of the script "end." is in red and scripte doesn't start :/

    var
    item: TL2Item;
    
    function buffCheck: Boolean;
    var buff: TL2Buff;
    begin
        if not User.Buffs.ByID(1204, buff) then begin
            Result:=true;
            Print('sa rebuff poto');
            Engine.MoveTo(87181,-143445,-1288);
            Delay(500);
            Engine.SetTarget(35650); // NPC ID
            Delay(500);
            Engine.DlgOpen;
            Delay(500);
            Engine.DlgSel('buff');
            Delay(500);
            Engine.bypasstoserver('custom_dobuff MakeBuffs WindWalk231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs Shield231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs Might231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs MagicBarrier231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs BerserkerSpirit231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs VampiricRage231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs BlessedBody231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff Chat 1');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs Haste231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs Focus231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs DeathWhisper231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs Guidance231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs ResistShock231');
            Delay(1000);
            Engine.DlgOpen;
            Delay(500);
            Engine.DlgSel('Songs');
            Delay(500);
            Engine.bypasstoserver('custom_dobuff MakeBuffs SongofEarth231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs SongofWarding231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs SongofWind231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs SongofVitality231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs SongofHunter231');
            Delay(1000);
            Engine.DlgOpen;
            Delay(500);
            Engine.DlgSel('Dances');
            Delay(500);
            Engine.bypasstoserver('custom_dobuff MakeBuffs DanceofWarior231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs DanceofFire231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs DanceofFury231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs DanceoftheVampire231');
            Delay(1000);
            Engine.DlgOpen;
            Delay(500);
            Engine.DlgSel('Etc Buff');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs ChantofVictory231');
            Delay(1000);
            Engine.bypasstoserver('custom_dobuff MakeBuffs GreaterMight231');
            Delay(1000);
            Engine.DlgOpen;
            Delay(500);
            Engine.DlgSel('HP/MP/CP');
            Delay(1000);        
            Print('ok chui paré.');
            Engine.MoveTo(87130,-143446,-1319);        
        end;
    Result:=false;
    end;
    
    function deadCheck: Boolean;
    function GoHome(ResType: TRestartType = rtClanHoll): 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(86574,-141897,-1323, 250, 150) then begin    // ch
            Engine.MoveTo(86780,-142217,-1320);
            Engine.MoveTo(87103,-142760,-1320);
            Engine.MoveTo(87164,-143449,-1288);
        end;
        if user.inrange(87164,-143449,-1288, 500) then begin
            buffCheck;
        end;    
        
        if user.inrange(87164,-143449,-1288, 150) and User.Buffs.ByID(1204, buffCheck) then begin
            Engine.SetTarget(31964);
            Engine.DlgOpen;
            Delay(500);
            Engine.DlgSel('teleport');
            Delay(500);
            Engine.DlgSel('Town of Goddard');
            Delay(10000);
            Engine.SetTarget(31275);
            Engine.DlgOpen;
            Delay(500);
            Engine.DlgSel('teleport');
            Delay(500);
            Engine.DlgSel('Hot Springs');
            Delay(1000);
        end;    
                              
        if user.inrange(149575,-112710,-2060, 500) then begin
            Print('cest parti');
          Engine.MoveTo(149606,-110577,-2298);
          Engine.MoveTo(149161,-109035,-2529);
          Engine.MoveTo(147956,-108811,-2836);
          Engine.MoveTo(145523,-109075,-3449);
          Engine.MoveTo(143923,-110626,-3597);
            Print('Yatta');
            Delay(500);
            Engine.FaceControl(0, true);
            while not deadCheck do delay(1000); //while not dead, do nothing and wait.
        end;
    end;
    end.
    

    ty for ur help :)

  10. really nice thx alot adr.bot work perfect

    action="bypass -h custom_dobuff MakeBuffs Acumen231"

    is all i need :)

     

    now my script work for buff i use :

            Engine.SetTarget(35650); // NPC ID
            Delay(500);
            Engine.DlgOpen;
            Delay(500);
            Engine.DlgSel('buff');
            Delay(500);
            Engine.bypasstoserver('custom_dobuff MakeBuffs Acumen231');
            Delay(500);

     

    thx again and again and again :)

  11. Hi all

    anyone can help me pls.

    i search how can i sniff NPC HTML dialogue. on l2 net or l2 walkers is easy with record too do that but on adr impossible find this option :/

    i need too know this html chat for make my own script. pls if u have answer tell me :)

  12. Ihate this Luncher Ncsoft :/ some probleme with it.

     

    The probleme is for the patch, i have download patch and i have copy in "C/program files/NC Soft/AION/AION EU/ " but when i lunch Aion luncher he dont find and install my patch :/

     

    i have try 10X install and reinstall but always the same probleme :)

     

    i have buy game, and with the dvd is perfect all work really nice, Ncsoft update really good and all work perfectly :)

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock