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

    • how do I make it so that you only deal damage to a mob if you have the right items equipped, like jewels, belt, underwear, bracelet, so if you don't have one of those items equipped, you don't deal any damage to the mob thanks
    • I always welcome bug reports and never ban ppl - until proven leaker - not sure where the "arrogant" part comes from, I would like to know what exactly let you think that (quote me please, and not 12y old quotes as the other frog meme dude). I request bug reports to be properly detailed, otherwise it's a waste of time. Other than that, I don't see where I have been arrogant. I got proper discussions with many ppl, not sure why you wouldn't be one of them.   I got 76 bug reports in my list (21 on forums, 55 on gitlab).   I have a single bug report regarding lvl 4 clan quest, which has to be tested since it's not even clear about what is supposed to be broken. Seven Signs was never reworked and is basically L2J based (we got a rework branch to test/commit with reworked AIs). Geoengine got no specific issues (at my knowledge), pathfinding was reworked lately to be way more performant, and I still try to improve performance using some pool system. Movement was partially fixed in latest 410, and probably will get another rework soon (notably reverting to the task wallclock).   "I" surely didn't spend 12y over geoengine - Hasha cared about geoengine during rev 334 / 354 / 390 / 395 and 397. It is solely his work, and always tagged as it. He was rewarded with money for his work, and almost a decade of aCis access.   aCis is a community work, things tagged with Tryskell is my work, the leftover is someone else work. 22 ppl worked as developers in this project over 14 years.   I would gladly accept whatever list of fixes/reports you have to share. You will even be rewarded (you probably know about cookie system), as anyone else sharing bug report or fixes.   My main concerns lately is the lack of decent L2OFF IL data, it is my main bottleneck actually. If you're aware about decent L2OFF data to parse, let me know.
    • Your project doesn't compare to aCis; you have to be an idiot to use that. I know someone who bought the High Five "PREMIUM" version, which has the same bugs as the free version. If you want, I can share his latest premium version. Players are going through walls with their bad geoengine, falling under the Olympiad. If you want, I can record and prove what I'm saying. The aCis project is 50 steps ahead of yours and it's not even stable...
    • l2jteon, l2joneo l2jscoria etc etc. and from that we went to this 
  • 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..

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