adr.bot Posted July 31, 2015 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
lynxik Posted July 31, 2015 Share Posted 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. Quote Link to comment Share on other sites More sharing options...
m44ti Posted August 1, 2015 Share Posted August 1, 2015 Hi How to for example print server time ? ServerTime: Cardinal; Quote Link to comment Share on other sites More sharing options...
adr.bot Posted August 1, 2015 Share Posted August 1, 2015 Hi How to for example print server time ? ServerTime: Cardinal; begin Print(engine.ServerTime); end. Quote Link to comment Share on other sites More sharing options...
m44ti Posted August 1, 2015 Share Posted August 1, 2015 (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 August 1, 2015 by m44ti Quote Link to comment Share on other sites More sharing options...
adr.bot Posted August 1, 2015 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
Krokoliskas Posted August 2, 2015 Share Posted 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. Quote Link to comment Share on other sites More sharing options...
m44ti Posted August 2, 2015 Share Posted August 2, 2015 (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 August 2, 2015 by m44ti Quote Link to comment Share on other sites More sharing options...
Krokoliskas Posted August 2, 2015 Share Posted 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 :) Quote Link to comment Share on other sites More sharing options...
arturo134 Posted August 2, 2015 Share Posted 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. Quote Link to comment Share on other sites More sharing options...
adr.bot Posted August 2, 2015 Share Posted 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 Quote Link to comment Share on other sites More sharing options...
m44ti Posted August 3, 2015 Share Posted August 3, 2015 (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 August 3, 2015 by m44ti Quote Link to comment Share on other sites More sharing options...
Krokoliskas Posted August 3, 2015 Share Posted 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? Quote Link to comment Share on other sites More sharing options...
Justinas01 Posted August 4, 2015 Share Posted 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? Quote Link to comment Share on other sites More sharing options...
m44ti Posted August 4, 2015 Share Posted August 4, 2015 (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 August 4, 2015 by m44ti Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.