Jump to content

L2 Adrenaline Scripts.


Recommended Posts

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

Edited by BouKipiKe
Link to comment
Share on other sites

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

 

Edited by BouKipiKe
Link to comment
Share on other sites

Hello guys maybe you know any script how i can bypass the bot-guard at l2damage? For example after some time server ask to put one number and then you can farm again. Maybe can bypass it with something? 

thanks!

Link to comment
Share on other sites

Maybe you can send me  script code? couse i dont understand this...

Link to comment
Share on other sites

Anyone knows how to select (buy) and confirm the dagger for example in this "multisell" store for a script?

 

4a4e6a93e3.jpg

 

EDIT: SOLVED.

 

Engine.NPCExchange(10476,1);

Edited by tommy_demateo
Link to comment
Share on other sites

 

Enjoy :D this is just example, need rewrite script for your server


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(82968, 53240, -1488);
        Delay(500);
        Engine.SetTarget(30176); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel(1);
        Delay(500);
        Print('Buffed.');
        Engine.MoveTo(82968, 53208, -1488);        
    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(80334,54400,-1552, 250, 150) then begin
		Engine.MoveTo(80334,54400,-1552);
		Engine.MoveTo(80969,53698,-1558);
		Engine.MoveTo(81540,53454,-1494);
		Engine.MoveTo(82480,53340,-1494);    
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(82323,55466,-1520, 250, 150) then begin
		Engine.MoveTo(82323,55466,-1520);
		Engine.MoveTo(82403,54498,-1523);
		Engine.MoveTo(82589,53861,-1486);    
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(82123,53535,-1488, 250, 150) then begin
		Engine.MoveTo(82123,53535,-1488);    
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(80304,56241,-1552, 250, 150) then begin
		Engine.MoveTo(80304,56241,-1552);
		Engine.MoveTo(81470,55682,-1523);
		Engine.MoveTo(82256,55294,-1523);
		Engine.MoveTo(82510,54035,-1494);   
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(82445,56012,-1520, 250, 150) then begin
		Engine.MoveTo(82445,56012,-1520);
		Engine.MoveTo(82341,54950,-1523);
		Engine.MoveTo(82574,53833,-1486);  
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(80054,53209,-1552, 250, 150) then begin
		Engine.MoveTo(80054,53209,-1552);
		Engine.MoveTo(80624,53611,-1558);
		Engine.MoveTo(81772,53468,-1494);
		Engine.MoveTo(82289,53472,-1494);
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(80513,52980,-1552, 250, 150) then begin
		Engine.MoveTo(80513,52980,-1552);
		Engine.MoveTo(80165,53065,-1558);
		Engine.MoveTo(80630,53610,-1558);
		Engine.MoveTo(81688,53447,-1494);
		Engine.MoveTo(82303,53338,-1494);   
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(80267,55497,-1552, 250, 150) then begin
		Engine.MoveTo(80267,55497,-1552);
		Engine.MoveTo(80359,54536,-1558);
		Engine.MoveTo(80792,53785,-1558);
		Engine.MoveTo(81495,53421,-1494);
		Engine.MoveTo(82323,53362,-1494); 
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(79933,55752,-1552, 250, 150) then begin
		Engine.MoveTo(79933,55752,-1552);
		Engine.MoveTo(80349,55208,-1558);
		Engine.MoveTo(80470,54217,-1558);
		Engine.MoveTo(81053,53602,-1558);
		Engine.MoveTo(81974,53465,-1494);    
		Engine.MoveTo(82950,53186,-1494);
    end;
	if User.inrange(80594,55837,-1552, 250, 150) then begin
		Engine.MoveTo(80594,55837,-1552);
		Engine.MoveTo(81899,55492,-1523);
		Engine.MoveTo(82240,55142,-1523);
		Engine.MoveTo(82531,53946,-1494);    
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(82213,53964,-1488, 250, 150) then begin
		Engine.MoveTo(82213,53964,-1488);
		Engine.MoveTo(82668,53709,-1486);  
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(83327,55410,-1520, 250, 150) then begin
		Engine.MoveTo(83327,55410,-1520);
		Engine.MoveTo(82607,55592,-1523);
		Engine.MoveTo(82184,54809,-1523);
		Engine.MoveTo(82563,53882,-1488);    
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(79706,52986,-1552, 250, 150) then begin
		Engine.MoveTo(79706,52986,-1552);
		Engine.MoveTo(80427,53549,-1558);
		Engine.MoveTo(80812,53655,-1558);
		Engine.MoveTo(81979,53439,-1494);    
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(82880,55390,-1520, 250, 150) then begin
		Engine.MoveTo(82880,55390,-1520);
		Engine.MoveTo(82375,55524,-1523);
		Engine.MoveTo(82367,54313,-1493);
		Engine.MoveTo(82651,53734,-1486);    
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(82552,53447,-1488, 250, 150) then begin
		Engine.MoveTo(82552,53447,-1488);    
		Engine.MoveTo(82950,53186,-1494);
    end;
    if User.inrange(82638,53885,-1488, 250, 150) then begin
		Engine.MoveTo(82638,53885,-1488);    
		Engine.MoveTo(82950,53186,-1494);
    end;
    if user.inrange(82888, 53240, -1488, 500) then begin
        buffCheck;
    end;                                                
    
    if user.inrange(82968, 53208, -1488, 150) and User.Buffs.ByID(1204, buffCheck) then begin
        Print('Teleport to Apostate.');
        Engine.SetTarget(30832);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('Catacomb');
        Delay(500);
        Engine.DlgSel('Apostate');
        Delay(5000);
    end;    
                          
    if user.inrange(-20237, -250797, -8163, 500) then begin
        Print('Apostate. Moving to spot');
  	Engine.MoveTo(-20168,-250744,-8160);
  	Engine.MoveTo(-19304,-250728,-8160);
  	Engine.MoveTo(-18968,-250504,-8160);
  	Engine.MoveTo(-18456,-250504,-8160);
  	Engine.MoveTo(-16792,-250536,-8160);
  	Engine.MoveTo(-16424,-250760,-8160);
  	Engine.MoveTo(-14888,-250776,-8160);
  	Engine.MoveTo(-14536,-250424,-8160);
  	Engine.MoveTo(-14408,-249160,-8160);
  	Engine.MoveTo(-13768,-249064,-8160);
  	Engine.MoveTo(-13736,-247848,-8160);
        Print('AA farm: ON!');
        Delay(500);
        Engine.FaceControl(0, true);
        while not deadCheck do delay(1000); //while not dead, do nothing and wait.
    end;
end;
end.

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 !

Link to comment
Share on other sites

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;
////////////////////////////////////////////////////////////////

Edited by BouKipiKe
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.




  • Posts

    • Welcome to my store :  https://topestore.mysellix.io/fr/ 2015-2022 Aged Discord Account 2015 Discord Account : 50.99 $ 2016 Discord Account : 10$ 2017 Discord Account :3.99 $ 2018 Discord Account : 3.50$ 2019 Discord Account : 2.70 $ 2020 Discord Account :1.50$ 2021 Discord Account :0.99$ 2022 Discord Account :0.70$ Warranty :Lifetime Payment Methods : Crypto/ PayPal Contact Me On Discord Or Telegram Discord : @ultrasstore11 Telegram : https://t.me/ultrastore1 Welcome to my store :  https://topestore.mysellix.io/fr/ 2015-2022 Aged Discord Account 2015 Discord Account : 50.99 $ 2016 Discord Account : 10$ 2017 Discord Account :3.99 $ 2018 Discord Account : 3.50$ 2019 Discord Account : 2.70 $ 2020 Discord Account :1.50$ 2021 Discord Account :0.99$ 2022 Discord Account :0.70$ Warranty :Lifetime Payment Methods : Crypto/ PayPal Contact Me On Discord Or Telegram Discord : @ultrasstore11
    • L2 ArenaWar: Low Rate PvP Server with Free Buffs & Autofarm [PVP]⚔️ [Free]🆓 Classic Interlude with  3x XP rates! Free starter pack(no grade) to kickstart your adventure! Autofarm for convenient grinding! Free buffs to keep you fighting fit! (2 job buffs) No experience loss on death! (Except with Karma) Clear Karma system to keep things fair! ⚖️ Active community of 800-1k players! Join our Discord to learn more! >> Discord <<     Server website: https://l2arenawar.com/en/    
    • This is dedication! 2 years working on a problem. Congratulations!
    • You indeed have to save player position over Enterworld to properly clean it up later (if you don't, even trying to delete packet content would eventually keep it up), that's what we do with debug packet (which is a reusable Map of ExServerPrimitive packets) on aCis.   It doesn't solve the FPS stuttering - more you draw/delete lines, more your client becomes laggy. It's like if client wasn't deleting drawn points/lines properly, but instead simply hide them and redrawn content above.   If you got a solution, I would happy to integrate it.   You should check aCis#Player _debug packet integration, it allows very big amount of lines/points to be drawn, it is also reusable.   https://gitlab.com/Tryskell/acis_public/-/blob/master/aCis_gameserver/java/net/sf/l2j/gameserver/model/actor/Player.java?ref_type=heads https://gitlab.com/Tryskell/acis_public/-/blob/master/aCis_gameserver/java/net/sf/l2j/gameserver/network/clientpackets/EnterWorld.java?ref_type=heads  
    • we sell website templates, make websites to order. Great selection at very good prices. My contacts discord : advert1231 telegram : https://t.me/ggwpins  
  • Topics

×
×
  • Create New...