Request L2 Adrenaline Scripts.

[Zimoki]

Hello, 

 

I have now made this script that takes my char to town rebuffs then goes to the farm zone and back to position where it starts farming. My problem is that im having to manual start the script every time the char goes to village, 

How can I make this script to auto run its self?

 

Thanks 

 

begin
Print('Get Buffs');
 
if User.inrange(82573,148632, -3464, 250, 150) then begin  
      Engine.MoveTo(83073, 148386, -3470); 
    end;

    if User.inrange(82428, 148055, -3465, 250, 150) then begin  
      Engine.MoveTo(83073, 148386, -3470); 
    end;

if User.inrange(83440, 148150, -3401, 250, 150) then begin  
      Engine.MoveTo(83073, 148386, -3470); 
    end;

if User.inrange(82289, 149206, -3470, 250, 150) then begin 
      Engine.MoveTo(83073, 148386, -3470);
    end;
    
if User.inrange(83477, 149099, -3406, 250, 150) then begin  
      Engine.MoveTo(83073, 148386, -3470); 
    end;

if User.inrange(83073, 148386, -3470, 250, 150) then begin 
     Engine.SetTarget(10001); 
     Delay(1500);
     Engine.DlgOpen; 
     Delay(1500);
     Engine.DlgSel(9);
     Delay(1500);
     Engine.DlgOpen;
     Delay(1500);
     Engine.DlgSel(5);
     Delay(1500);
     Engine.DlgSel(15);
     Delay(1500);
     end;

Print('Go Farm 7');
if User.inrange(83073, 148386, -3470, 250, 150) then begin  
      Engine.MoveTo(83374, 147892, -3400);
    end;

if User.inrange(83374, 147892, -3400, 250, 150) then begin  
     Engine.SetTarget(10004); 
     Delay(1500);
     Engine.DlgOpen;
     Delay(1500);
     Engine.DlgSel(3);
     Delay(1500);
     Engine.DlgSel(14);
     Delay(1500);
 end;
 if User.inrange(115112, 166523, -2593, 250, 150) then begin
      Engine.MoveTo(119639, 168018, -3337)
    end;
end.      

[tzimiris1]

 script for this ? 

https://ibb.co/3kpPWmF

Edited September 16, 2019 by tzimiris1

[Zimoki]

Any ideas how Boxers autotarget pvp works?

Edited September 18, 2019 by Zimoki
answered

[thalestvn]

Any script for auto target and hit players?

[harmor1]

can someone help me run auto rebuff on l2 lionna classic? all adrenaline does is opens first alt+b page and thats it :(

[moneko]

Hi friends, cam someone help me with script for l2 lionna buff with alt + b and return to spot when die, is my first time with l2 adrenaline and dont know how edit script or make my self.. thanks for all

[Luigicol]

@adr.bot Ey!

 

Can you check my script? Its for Beast Farm. I had to use it because bot can't use items in this server, so I had to use with engine.usekey.

 

procedure SpoilThread();
var
  spoil: TL2Skill;
  mob: TL2Npc;
  point: TXYZ;
 
begin
    while Delay(500) do begin
    if (Engine.Status = lsOnline) and SkillList.ByID(254, spoil) then begin  
        
        if (User.Target.ID = (21488) or User.Target.ID = (21487)) then begin
            NpcList.ByID(User.Target.ID, mob);
            if not mob.sweepable and (spoil.endtime = 0) then begin
                engine.useskill(254);
            end;
            Engine.Attack;
        end;
        if not (User.Target.ID = (21488) or User.Target.ID = (21487)) then begin
            engine.usekey('F12');
        end;
        
    end;
end;

 

I only want to spoil Alpen Buffalos (x4) to get DC Helmet Recipe. I'll use target filter from bot, to target only baby Alpen Buffalos.

 

Say me if I'm wrong with something. Thanks!

Edited October 3, 2019 by Luigicol

[KejbL]

hi man, any script for TTs quest ? l2j server where must port to goddard

and fix for this captcha ??

https://imgur.com/yf07mIW

Edited October 5, 2019 by KabLe21

[Luigicol]

Any way to kill mobs while fishing?

[KejbL]

someone can edit this script pls ? bcs not use Dash and Stealth :/ thx

 

begin
while true do begin
  Engine.MoveTo(149523, -112686, -2064);
  Engine.SetTarget(31521);                                      ///jeremy
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Egg Delivery');
  Delay(500);
  Engine.bypasstoserver('quest_accept?quest_id=621');
  Engine.MoveTo(149616, -112489, -2090);
  Engine.MoveTo(150404,-113188,-2141);
  Engine.MoveTo(150533,-114686,-1779);
  Engine.MoveTo(151344,-115006,-1611);
  Engine.CancelTarget;
  Engine.MoveTo(154492,-114995,-1567);
  Engine.MoveTo(157224,-115436,-1922);
  Engine.MoveTo(157381,-115407,-1896);
  Engine.MoveTo(157358,-115501,-1921);
  Engine.MoveTo(157598,-115486,-1927);
  Engine.SetTarget(31543);                                    ////pulin
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.bypasstoserver('menu_select?ask=621 &reply=1');
  Delay(500);
  Engine.CancelTarget;
  Engine.MoveTo(156946, -114334, -1784);
  Engine.MoveTo(156388, -111358, -2549);
  Engine.MoveTo(156027, -110523, -2650);
  Engine.MoveTo(156419, -107881, -2657);
  Engine.MoveTo(155722, -105766, -2779);
  Engine.SetTarget(31544);                                      /// naff
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.bypasstoserver('menu_select?ask=621 &reply=1');
  Delay(500);            
  Engine.MoveTo(155621,-105697,-2780);
  Engine.MoveTo(154776,-104491,-2810);
  Engine.CancelTarget;
  Engine.MoveTo(153253,-101918,-2757);
  Engine.MoveTo(152601,-101212,-2943);
  Engine.MoveTo(149277,-100863,-2943);
  Engine.MoveTo(148429,-100919,-2994);
  Engine.MoveTo(146268,-101937,-2872);
  Engine.MoveTo(144957,-102812,-3556);
  Engine.MoveTo(141104,-105238,-3650);
  Engine.MoveTo(140773,-105450,-3659);
  Engine.MoveTo(140748,-105458,-3625);
  Engine.SetTarget(31545);                                      ///crocus
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.bypasstoserver('menu_select?ask=621 &reply=1');
  Delay(500);
  Engine.MoveTo(140722,-105729,-3654);
  Engine.MoveTo(140862,-108560,-3654);
  Engine.CancelTarget;
  Engine.MoveTo(141469,-109301,-3616);
  Engine.SetTarget(31546);                                    ////kuber
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.bypasstoserver('menu_select?ask=621 &reply=1');
  Delay(500);
  Engine.MoveTo(142274, -109216, -3587);
  Engine.MoveTo(143990, -108702, -3503);
  Engine.CancelTarget;
  Engine.MoveTo(146375, -108965, -3252);
  Engine.MoveTo(147727, -108871, -2899);
  Engine.MoveTo(148785, -108902, -2639);
  Engine.MoveTo(149347, -109226, -2515);
  Engine.MoveTo(149506, -110728, -2294);
  Engine.MoveTo(147948, -113046, -2157);
  Engine.MoveTo(147899, -113372, -2150);
  Engine.MoveTo(147528, -113301, -2112);
  Engine.SetTarget(31547);                                    /////beolin
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.bypasstoserver('menu_select?ask=621 &reply=1');
  Delay(500);
  Engine.MoveTo(147591,-113304,-2108);
  Engine.MoveTo(148037,-113126,-2163);
  Engine.MoveTo(148908,-112712,-2096);
  Engine.MoveTo(149508,-112634,-2090);
  Engine.SetTarget(31521);                                  ///jeremy
  Engine.DlgOpen;
  Engine.DlgSel('Quest');
  Delay(500);
  Engine.DlgSel('Egg Delivery (Continue)');
  Delay(500);
  engine.bypasstoserver('menu_select?ask=621 &reply=3');
  Delay(500);
  end;
 end.

[Thorgil]

WTB script auto exp 1-76/85 to H5 Off :) 

[Manowar81]

hello! any chance anyone has scripts for lv40 class quests (not classic, although they may work, but interlude)?

[gemisiz1]

On 9/6/2015 at 8:56 PM, adr.bot said:

hmm i dont know xd, maybe this 

procedure RushTarget(MinR, MaxR:Cardinal);
var
i:integer;
begin
for i:=0 to CharList.Count-1 do begin
if (User.DistTo(CharList.Items(i))>MinR) and
(User.DistTo(CharList.Items(i))<MaxR)then
begin
Engine.SetTarget(CharList.Items(i));
Break;
end;
end;

end;

begin
while true do begin
delay(50);
SetPVPTarget(200,600); //200min range, 600max range
end;
end.

it will target closer player

how make for mob? :)

[adr.bot]

15 hours ago, gemisiz1 said:

how make for mob? :)

change CharList to NpcList

[Litch]

Any Recharge Script 

 

If Player 50% MP regen all MP ?