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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



  • Posts

    • Inventory restock: Premium business accounts are now available.   ✔ Wallester Business EU 🇪🇺|💳 Unlimited virtual cards, physical cards, 🏦 multi-currency IBAN, ₿ crypto & stablecoin deposits. ✔ Stripe Business UK 🇬🇧|💳 Instant virtual cards (Visa/Mastercard), high-conversion checkout, multi-currency payouts, ₿ crypto payments, no-code payment links. ✔ Mercury Business US 🇺🇸|🏦 US checking & savings, 💳 unlimited virtual cards, domestic & International wires, native stablecoin settlement. ✔ Payset Business EU 🇪🇺|🏦 Multiple IBANs, UK sort code, SEPA Instant, 💳 unlimited virtual cards, multi-currency accounts. ✔ Novo Business US 🇺🇸|🏦 Business checking account, ACH payments & invoicing, 💳 virtual & physical cards, novo boost.
    • Let me see if I understand correctly, older gentlemen, when a newcomer shows up to create modern things with the help of AI, doing what you charge them to do, you point the finger and laugh. I believe that's why everything is stagnant. The product isn't for programming experts, it's for newcomers. Don't buy from you if they can do it themselves using this base. You're going to deliver a similar product, maybe even worse than this one, so why are you complaining? PowerShell, as you well know, started with it, then came new platforms and new apps, new creation models, all with different languages; I chose the simplest one for my taste. This is about being organized and knowing how to choose the right words for each situation. It's not 100%, but it already gives a good impression. Nothing is 100%, so a topic written by AI, and all the code that you charge an absurd amount for to prohibit and sell hacks, could be open source so that everyone can create new practices, new models, new information for passing packets, prohibiting the use of cheats that cause server owners to break so much. Let's remember that the Admin doesn't always shut down the server; it's the players who find problems and take advantage by buying and reselling items, and they say that the GM shuts down the server every week, but that's a lie. What they do is duplicate items with packages and sell them, but perhaps this could give some future developers a starting point to create their own protection following the model in the initial documentation. Because none of you answer a question from a newbie, you think you're superior because you have knowledge, but with AI, people like that can have the same knowledge as you, but with less practice. And if they practice a lot, 10,000 hours, they can be as good as all of you older developers in the L2J field.
    • ✨ Exclusive Offer for Marketplace Growth 🔥 Elevate your performance with a premium bonus. 💲 Top up your balance with $100 or more and receive an additional $5 credit — seamlessly added to your account. ⭐️ Designed for those who value efficiency, scale, and results. ⚡️ Effortless. Refined. Effective. 💥 Enhance your strategy today 💥
  • Topics

×
×
  • Create New...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..