Request L2 Adrenaline Scripts.

adr.bot · July 31, 2015

hi,where i fail ? buffer work good.but script for "to village" and teleport to exp place not work and captcha alarm too,i have function captcha:boolean redlide :X.where i fail ? thx fow answer.sry for my english.

var buff:tl2buff;

buffID,seconds:cardinal;

begin

buffID:= 1085; //change buff id

seconds:= 300; //buff end time seconds

while true do begin

if not user.buffs.byid(buffID, buff) or (buff.endtime < 300*1000) then begin

if (user.target.dead) or (user.target = nil) then begin

engine.facecontrol(0,false);

while user.incombat do delay(1000);

engine.bypasstoserver('_bbshome');

delay(1000);

Engine.bypasstoserver('02');

delay(1000);

Engine.bypasstoserver('0b');

delay(1000);

Engine.bypasstoserver('0f');

delay(1000);

Engine.bypasstoserver('_bbsgetfav');

delay(1000);

engine.facecontrol(0,true);

end;

end;

end;

function captcha:boolean; begin

if engine.dlgtext.contains('Refresh') or

engine.dlgtext.contains('Captcha') or

engine.dlgtext.contains('60 seconds') or

engine.dlgtext.contains('Bot') then begin

SetForegroundWindow(Engine.GameWindow);

PlaySound(exepath+'\sounds\'+'PlayerAlarm'+'.wav');

delay(500);

StopSound;

end;

end;

begin

while true do begin

delay(300);

captcha();

end;

end;

begin

engine.bypasstoserver('_bbshome');

delay(1000);

Engine.bypasstoserver('02');

delay(1000);

Engine.bypasstoserver('0a');

delay(1000);

Engine.bypasstoserver('033');

delay(1000);

Engine.bypasstoserver('0f');

delay(1000);

Engine.MoveTo(-18824,13544,-4880)

end;

end.

i dont know, maybe this works

function captcha:boolean;
begin
while true do begin
             if engine.dlgtext.contains('Refresh') or
             engine.dlgtext.contains('Captcha') or
             engine.dlgtext.contains('60 seconds') or
             engine.dlgtext.contains('Bot')   then begin
       //SetForegroundWindow(Engine.GameWindow);             
      PlaySound(exepath+'\sounds\'+'PlayerAlarm'+'.wav');
      delay(500);  
      StopSound;
          end;   
  end;
  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);
        teleport;
    end;
end;

procedure teleport;
begin
while true do begin
engine.bypasstoserver('_bbshome'); 
  delay(1000);
   Engine.bypasstoserver('02');
   delay(1000);
   Engine.bypasstoserver('0a');
  delay(1000);
   Engine.bypasstoserver('033');
  delay(1000);
  Engine.bypasstoserver('0f');
  delay(1000);
  Engine.MoveTo(-18824,13544,-4880)
end;
end;

procedure buffs;
var buff:tl2buff;
    buffID,seconds:cardinal;
begin
buffID:= 1085;  //change buff id
seconds:= 300;   //buff end time seconds
while true do begin
if not user.buffs.byid(buffID, buff) or (buff.endtime < 300*1000) then begin
if (user.target.dead) or (user.target = nil) then begin
engine.facecontrol(0,false);
while user.incombat do delay(1000);
engine.bypasstoserver('_bbshome'); 
  delay(1000);
   Engine.bypasstoserver('02');
   delay(1000);
   Engine.bypasstoserver('0b');
  delay(1000);
   Engine.bypasstoserver('0f');
  delay(1000);
  Engine.bypasstoserver('_bbsgetfav');
  delay(1000);
  engine.facecontrol(0,true);
  while not deadCheck do delay(1000);
 end;
end;
end;
end;

begin
Script.NewThread(@captcha);
Script.NewThread(@buffs);
end.

even this doesnt work then somethink like this must looks like

lynxik · July 31, 2015

i dont know, maybe this works

function captcha:boolean;
begin
while true do begin
             if engine.dlgtext.contains('Refresh') or
             engine.dlgtext.contains('Captcha') or
             engine.dlgtext.contains('60 seconds') or
             engine.dlgtext.contains('Bot')   then begin
       //SetForegroundWindow(Engine.GameWindow);             
      PlaySound(exepath+'\sounds\'+'PlayerAlarm'+'.wav');
      delay(500);  
      StopSound;
          end;   
  end;
  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);
        teleport;
    end;
end;

procedure teleport;
begin
while true do begin
engine.bypasstoserver('_bbshome'); 
  delay(1000);
   Engine.bypasstoserver('02');
   delay(1000);
   Engine.bypasstoserver('0a');
  delay(1000);
   Engine.bypasstoserver('033');
  delay(1000);
  Engine.bypasstoserver('0f');
  delay(1000);
  Engine.MoveTo(-18824,13544,-4880)
end;
end;

procedure buffs;
var buff:tl2buff;
    buffID,seconds:cardinal;
begin
buffID:= 1085;  //change buff id
seconds:= 300;   //buff end time seconds
while true do begin
if not user.buffs.byid(buffID, buff) or (buff.endtime < 300*1000) then begin
if (user.target.dead) or (user.target = nil) then begin
engine.facecontrol(0,false);
while user.incombat do delay(1000);
engine.bypasstoserver('_bbshome'); 
  delay(1000);
   Engine.bypasstoserver('02');
   delay(1000);
   Engine.bypasstoserver('0b');
  delay(1000);
   Engine.bypasstoserver('0f');
  delay(1000);
  Engine.bypasstoserver('_bbsgetfav');
  delay(1000);
  engine.facecontrol(0,true);
  while not deadCheck do delay(1000);
 end;
end;
end;
end;

begin
Script.NewThread(@captcha);
Script.NewThread(@buffs);
end.

even this doesnt work then somethink like this must looks like

here works buffer,teleport OK,to village ! but captcha not :/. but thx for help i try repair.

m44ti · August 1, 2015

Hi

How to for example print server time ?

ServerTime: Cardinal;

adr.bot · August 1, 2015

Hi

How to for example print server time ?

ServerTime: Cardinal;

begin
  Print(engine.ServerTime);
end.

m44ti · August 1, 2015

begin

Print(engine.ServerTime);

end.

yea but i get smth like that :

6309

and what the fuk is that ?

now its 00:34 server time in game window chat (/time)

edit:

6309*10

=

63090 /60

=

1051 min /60

=

17,51 Hours

and i gues - 17 because of time zone

0,51 * 60

=

30,6 min

sooo

its 00:30:60

Am I correct ?

edit2

it should be correct but why the fuk its - 17 ? i just got mind blowed

Edited August 1, 2015 by m44ti

adr.bot · August 1, 2015

yea but i get smth like that :

6309

and what the fuk is that ?

now its 00:34 server time in game window chat (/time)

edit:

6309*10

=

63090 /60

=

1051 min /60

=

17,51 Hours

and i gues - 17 because of time zone

0,51 * 60

=

30,6 min

sooo

its 00:30:60

Am I correct ?

edit2

it should be correct but why the fuk its - 17 ? i just got mind blowed

i have no idea how that works xd

Krokoliskas · August 2, 2015

i dont know, maybe this works

function captcha:boolean;
begin
while true do begin
             if engine.dlgtext.contains('Refresh') or
             engine.dlgtext.contains('Captcha') or
             engine.dlgtext.contains('60 seconds') or
             engine.dlgtext.contains('Bot')   then begin
       //SetForegroundWindow(Engine.GameWindow);             
      PlaySound(exepath+'\sounds\'+'PlayerAlarm'+'.wav');
      delay(500);  
      StopSound;
          end;   
  end;
  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);
        teleport;
    end;
end;

procedure teleport;
begin
while true do begin
engine.bypasstoserver('_bbshome'); 
  delay(1000);
   Engine.bypasstoserver('02');
   delay(1000);
   Engine.bypasstoserver('0a');
  delay(1000);
   Engine.bypasstoserver('033');
  delay(1000);
  Engine.bypasstoserver('0f');
  delay(1000);
  Engine.MoveTo(-18824,13544,-4880)
end;
end;

procedure buffs;
var buff:tl2buff;
    buffID,seconds:cardinal;
begin
buffID:= 1085;  //change buff id
seconds:= 300;   //buff end time seconds
while true do begin
if not user.buffs.byid(buffID, buff) or (buff.endtime < 300*1000) then begin
if (user.target.dead) or (user.target = nil) then begin
engine.facecontrol(0,false);
while user.incombat do delay(1000);
engine.bypasstoserver('_bbshome'); 
  delay(1000);
   Engine.bypasstoserver('02');
   delay(1000);
   Engine.bypasstoserver('0b');
  delay(1000);
   Engine.bypasstoserver('0f');
  delay(1000);
  Engine.bypasstoserver('_bbsgetfav');
  delay(1000);
  engine.facecontrol(0,true);
  while not deadCheck do delay(1000);
 end;
end;
end;
end;

begin
Script.NewThread(@captcha);
Script.NewThread(@buffs);
end.

even this doesnt work then somethink like this must looks like

Hi, i use this script to buff myself, with this i get like mage buffs, how do i change this to be warrior, or is it possible to create my own setup? i see line "buffID:= 1085; //change buff id" does it needs to be changed? i tried like 1088, 1086, but id does the same, just buffs mage, pliz help thanks.

m44ti · August 2, 2015

Hi, i use this script to buff myself, with this i get like mage buffs, how do i change this to be warrior, or is it possible to create my own setup? i see line "buffID:= 1085; //change buff id" does it needs to be changed? i tried like 1088, 1086, but id does the same, just buffs mage, pliz help thanks.

var typbuffa:cardinal;
Buff:Tl2buff;

function checkbuff:boolean; begin
  if not user.Buffs.byID(1323,buff) then begin
  
  Engine.BypassToServer('_bbshome', True);
delay(1500);
   Engine.BypassToServer('02', True);
delay(1500);
      Engine.BypassToServer('0b', True);
   delay(1500);
   
   
   if (typbuffa=1) then begin
   Engine.BypassToServer('0b', True) ;
delay(1500);
  end;
  
  if (typbuffa=2) then begin
   Engine.BypassToServer('0c', True) ;
delay(1500);
  end;
  
  if (typbuffa=3) then begin
   Engine.BypassToServer('0d', True) ;
delay(1500);
  end;
  
  if (typbuffa=4) then begin
   Engine.BypassToServer('0e', True) ;
delay(1500);
  end;
  
	end;
  end;

begin

typbuffa := 1; // 1-mage, 2-fighter, 3-dagger, 4-archer	

  while true do begin

checkbuff();


  delay(1000);
end;

end.

this should work

and i guess if u want to use ur scheme u proly use smth like this

bypass + name scheme

//this is example and this do not work prolly

Engine.BypassToServer('_bbshome', True);
delay(1500);
   Engine.BypassToServer('02', True);
delay(1500);
      Engine.BypassToServer('0b', True);
   delay(1500);

Engine.BypassToServer('0b MyScheme1', True);
   delay(1500);

Edited August 2, 2015 by m44ti

Krokoliskas · August 2, 2015

var typbuffa:cardinal;
Buff:Tl2buff;

function checkbuff:boolean; begin
  if not user.Buffs.byID(1323,buff) then begin
  
  Engine.BypassToServer('_bbshome', True);
delay(1500);
   Engine.BypassToServer('02', True);
delay(1500);
      Engine.BypassToServer('0b', True);
   delay(1500);
   
   
   if (typbuffa=1) then begin
   Engine.BypassToServer('0b', True) ;
delay(1500);
  end;
  
  if (typbuffa=2) then begin
   Engine.BypassToServer('0c', True) ;
delay(1500);
  end;
  
  if (typbuffa=3) then begin
   Engine.BypassToServer('0d', True) ;
delay(1500);
  end;
  
  if (typbuffa=4) then begin
   Engine.BypassToServer('0e', True) ;
delay(1500);
  end;
  
	end;
  end;

begin

typbuffa := 1; // 1-mage, 2-fighter, 3-dagger, 4-archer	

  while true do begin

checkbuff();


  delay(1000);
end;

end.

this should work

and i guess if u want to use ur scheme u proly use smth like this

bypass + name scheme

//this is example and this do not work prolly

Engine.BypassToServer('_bbshome', True);
delay(1500);
   Engine.BypassToServer('02', True);
delay(1500);
      Engine.BypassToServer('0b', True);
   delay(1500);

Engine.BypassToServer('0b MyScheme1', True);
   delay(1500);

Thanks a lot, works perfect :)

arturo134 · August 2, 2015

var
item: TL2Item;
buff: TL2Buff;

function buffCheck: Boolean;
begin
    if not User.Buffs.ByID(1062, buff) then begin
        Result:=true;
        Print('Buffs are needed. Buffing...');
        Delay(500);
        engine.bypasstoserver('_bbshome');
        Delay(500);
        engine.bypasstoserver('02');
        Delay(500);
        engine.bypasstoserver('0b');
        Delay(500);
        engine.bypasstoserver('01a');
        Delay(500);
        Print('Buffed.'); 
    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(45368, 49656, -3048, 5000) then begin
        buffCheck;
        end;
        
        if user.inrange(45368, 49656, -3048, 5000) and user.buffs.byid(1062, buffCheck) then begin
  Print('Going back to spot.');
  Engine.bypasstoserver('_bbshome'); 
  Delay(1000);
  Engine.bypasstoserver('02');
  Delay(1000);
  Engine.bypasstoserver('0a');
  Delay(1000);
  Engine.bypasstoserver('033');
  Delay(1000);
  Engine.bypasstoserver('0f');
  Delay(1000);
  Engine.bypasstoserver('_bbsgetfav');
  Delay(5000);
    end;
    if user.inrange(-19185, 13553, -4880, 500) then begin     
           Engine.MoveTo(-18056, 13544, -4880);
           Engine.MoveTo(-17864, 13896, -4880);
           Engine.MoveTo(-16872, 13832, -4880);
      delay(1000);
    
    Engine.FaceControl(0,true);
    while not deadCheck do delay(3000);
    end;
end;
end.

Script for boting in dark omens, when die, check buffs, teleport to spot.

If you want change farm spot, change coordinates and teleport.

adr.bot · August 2, 2015

var
item: TL2Item;
buff: TL2Buff;

function buffCheck: Boolean;
begin
    if not User.Buffs.ByID(1062, buff) then begin
        Result:=true;
        Print('Buffs are needed. Buffing...');
        Delay(500);
        engine.bypasstoserver('_bbshome');
        Delay(500);
        engine.bypasstoserver('02');
        Delay(500);
        engine.bypasstoserver('0b');
        Delay(500);
        engine.bypasstoserver('01a');
        Delay(500);
        Print('Buffed.'); 
    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(45368, 49656, -3048, 5000) then begin
        buffCheck;
        end;
        
        if user.inrange(45368, 49656, -3048, 5000) and user.buffs.byid(1062, buffCheck) then begin
  Print('Going back to spot.');
  Engine.bypasstoserver('_bbshome'); 
  Delay(1000);
  Engine.bypasstoserver('02');
  Delay(1000);
  Engine.bypasstoserver('0a');
  Delay(1000);
  Engine.bypasstoserver('033');
  Delay(1000);
  Engine.bypasstoserver('0f');
  Delay(1000);
  Engine.bypasstoserver('_bbsgetfav');
  Delay(5000);
    end;
    if user.inrange(-19185, 13553, -4880, 500) then begin     
           Engine.MoveTo(-18056, 13544, -4880);
           Engine.MoveTo(-17864, 13896, -4880);
           Engine.MoveTo(-16872, 13832, -4880);
      delay(1000);
    
    Engine.FaceControl(0,true);
    while not deadCheck do delay(3000);
    end;
end;
end.

Script for boting in dark omens, when die, check buffs, teleport to spot.

If you want change farm spot, change coordinates and teleport.

good job

m44ti · August 3, 2015

Delevel script

tp to heine add some skill to atack undress ur char and add combat zone when the bot make a tp to the field of whispers


	  function SetForegroundWindow(hwnd: integer) : Boolean; stdcall;
    external 'user32.dll';

    function captcha:boolean; begin
             if engine.dlgtext.contains('Refresh') or
             engine.dlgtext.contains('Captcha') or
             engine.dlgtext.contains('60 seconds') or
             engine.dlgtext.contains('Bot')   then begin
       SetForegroundWindow(Engine.GameWindow);             
      PlaySound(exepath+'\sounds\'+'PlayerAlarm'+'.wav');
      delay(500);  
      StopSound;
          end;   
  end;

    var tep1,levdoc:cardinal;
	item:tl2item;
	//config  
begin
tep1	:= 0;		// do not change
levdoc	:= 55;		//lvl u need to get
	//end of config
	
	
	engine.facecontrol(0, true);
	
  while true do begin
  
   captcha();
   delay(1000);
   if (User.Level=levdoc) then begin
   // if level done
   while (tep1=0) do begin
   delay(60000);
    Print('lvl done!'); 
	end;
   end else begin
   //else lvl not done
   
   while (tep1=0) do begin
   delay(1000);
   //if in town
   if user.InRange(107552, 218000, -3656,10000) then begin
   tep1 := 1;
   end;
   end;
   tep1 := 0;
   
   engine.facecontrol(0, false);
   
   
   //start tp to mob
	Engine.BypassToServer('_bbshome', True);
	delay(1000);
	Engine.BypassToServer('02', True);
	delay(1000);
	Engine.BypassToServer('0a', True);
	delay(1000);
	Engine.BypassToServer('021', True);
	delay(1000);
    Engine.BypassToServer('0d', True);
	delay(1000);
  //if on spot
   if user.InRange(82181, 226226, -3632,10000) then begin
   engine.facecontrol(0, true);
   end;
   
   
   
   
   end;
   
   
end;
end.

Edited August 3, 2015 by m44ti

Krokoliskas · August 3, 2015

var
item: TL2Item;
buff: TL2Buff;

function buffCheck: Boolean;
begin
    if not User.Buffs.ByID(1062, buff) then begin
        Result:=true;
        Print('Buffs are needed. Buffing...');
        Delay(500);
        engine.bypasstoserver('_bbshome');
        Delay(500);
        engine.bypasstoserver('02');
        Delay(500);
        engine.bypasstoserver('0b');
        Delay(500);
        engine.bypasstoserver('01a');
        Delay(500);
        Print('Buffed.'); 
    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(45368, 49656, -3048, 5000) then begin
        buffCheck;
        end;
        
        if user.inrange(45368, 49656, -3048, 5000) and user.buffs.byid(1062, buffCheck) then begin
  Print('Going back to spot.');
  Engine.bypasstoserver('_bbshome'); 
  Delay(1000);
  Engine.bypasstoserver('02');
  Delay(1000);
  Engine.bypasstoserver('0a');
  Delay(1000);
  Engine.bypasstoserver('033');
  Delay(1000);
  Engine.bypasstoserver('0f');
  Delay(1000);
  Engine.bypasstoserver('_bbsgetfav');
  Delay(5000);
    end;
    if user.inrange(-19185, 13553, -4880, 500) then begin     
           Engine.MoveTo(-18056, 13544, -4880);
           Engine.MoveTo(-17864, 13896, -4880);
           Engine.MoveTo(-16872, 13832, -4880);
      delay(1000);
    
    Engine.FaceControl(0,true);
    while not deadCheck do delay(3000);
    end;
end;
end.

Script for boting in dark omens, when die, check buffs, teleport to spot.

If you want change farm spot, change coordinates and teleport.

Hello, seems not working in L2tales, at least the part where bot must auto tp back to omens, is it possible to fix that?

Justinas01 · August 4, 2015

Hi, i know that this topic is about script, but maybe some one know how to do resurrection with bs or sroll? What condition need to set?

m44ti · August 4, 2015

Hello, seems not working in L2tales, at least the part where bot must auto tp back to omens, is it possible to fix that?

this script is working but its working like as a bicycle vs porsche compared to my script.

mb i will share this later

I have auto restock

Auto exchange aa

auto captcha (only sound)

auto sell crap

auto rebuff

auto tp

and the character do not use one room its using all of them runing in cylce and killing all.

btw wtt nobless script for auto captcha (can be on my hwid)

Edited August 4, 2015 by m44ti

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