Jump to content

Recommended Posts

Posted

 

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

Posted

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.

Posted (edited)


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
Posted

 

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

Posted

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.

Posted (edited)

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

Posted
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.

Posted
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

Posted (edited)

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
Posted
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?

Posted (edited)

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

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

    • someone ban again this piece of shit this guy is a virus we should make an antikara or karabytes
    • 🍂 The cost on Vibe-sms is dropping, like autumn leaves falling from the trees.     It’s a little sad to watch the last days of summer fade away with its warmth, but that’s how the world works  every season has its own rules. The same goes for our prices: they are gradually but steadily going down, opening up new opportunities and great deals. 💸   🌍 USA is already at the minimum, and Europe, Asia, and dozens of other countries will follow soon. Don’t miss out  fresh rates are waiting for you!   Website link — https://vibe-sms.net/ Our Telegram channel — https://t.me/vibe_sms
    • You didn't tell me anywhere that you wanted core.jar as proof, I have everything ready for an independent developer to review. All the conversations, all your edits. I won't settle anything with you, so you can threaten me again and damage my name.
    • So what? Did i say anything wrong? You have no idea what source/compile is. I still wait for your .jar or source to be posted since you say i destroyed the compiled version of yours. Why you don't post it? Are you afraid that people will just see few addon lines and you did not even know that your source and compiled had different things? I should not even waste 2 minute to fix your raidboss_spawnlist thing.    Your mentally ill. What you posted is our primary deal nothing against me.  Because all he does is post whatever i write as if i hide and i did not say any mod to join and check my discord. i want him actual post something against me or any offenses i did. I also requested him several hours ago to post his .jar where my code "HACKED" his server but he wont post.    Nobody should allow open a random topic and cause issues to other's life without proofs. I demand punishment and soon unless he post evidence that i hurt his server or left him or did not make what he asked. 
  • Topics

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock