Request L2 Adrenaline Scripts.

Andaron · June 13, 2015

I think I start to love You ;)

I have one more question. Does anyone know how to bypass 5 accounts limit at l2tales?

BouKipiKe · June 14, 2015

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 June 15, 2015 by BouKipiKe

BouKipiKe · June 15, 2015

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 June 21, 2015 by BouKipiKe

TrankLL · June 16, 2015

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!

AlmostGood · June 16, 2015

this captcha is joke, you can get plaintext answer from html

TrankLL · June 16, 2015

this captcha is joke, you can get plaintext answer from html

You can help? i dont know what u mean.

adr.bot · June 16, 2015

You can help? i dont know what u mean.

http://forum.lineage2bot.net/viewtopic.php?p=16860#p16860

http://www.delphibasics.co.uk/RTL.asp?Name=Copy

this will help you

TrankLL · June 16, 2015

http://forum.lineage2bot.net/viewtopic.php?p=16860#p16860

http://www.delphibasics.co.uk/RTL.asp?Name=Copy

this will help you

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

AlmostGood · June 16, 2015

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

this is how world works kid:

dont understand? learn

dont want to? pay

adr.bot · June 16, 2015

this is how world works kid:

dont understand? learn

dont want to? pay

if whant add skype adr.bot i can give to you encrypted script for damage captcha

tommy_demateo · June 19, 2015

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

EDIT: SOLVED.

Engine.NPCExchange(10476,1);

Edited June 19, 2015 by tommy_demateo

LAPDS · June 19, 2015

wath command i can use if my char is death go to the "clan hall"?, the command Engine.GoHome; leave in village only.

adr.bot · June 19, 2015

wath command i can use if my char is death go to the "clan hall"?, the command Engine.GoHome; leave in village only.

engine.gohome(rtclanhall);

i think this works

Equagf · June 21, 2015

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 !

BouKipiKe · June 21, 2015

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 June 22, 2015 by BouKipiKe

Request L2 Adrenaline Scripts.

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Posts

Topics