Jump to content

L2 Adrenaline Scripts.


Recommended Posts

 

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites


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 by m44ti
Link to comment
Share on other sites

 

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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 by m44ti
Link to comment
Share on other sites

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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 by m44ti
Link to comment
Share on other sites

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?

Link to comment
Share on other sites

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 by m44ti
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.




×
×
  • Create New...