BouKipiKe Posted June 30, 2015 Share Posted June 30, 2015 (edited) engine.gohome(rtclanhall); // when u die for go ch Engine.UseItem(736); // Use Soe change Id for Id SoeCH Engine.EnterText('/unstuck'); // for ustuck Edited June 30, 2015 by BouKipiKe Link to comment Share on other sites More sharing options...
BouKipiKe Posted July 1, 2015 Share Posted July 1, 2015 hi adr, i whant try to make script lvl 1 too lvl 40 for farm clan reputation. can u help me, i dont have any idea how can i make function for buy armor, weapon,shots ... at npc when i m lvl 20 and how can i Equip the stuff. and how can check my lvl ( if user.lvl(20); ). a lot of question need alot of answer :) thx again :) Link to comment Share on other sites More sharing options...
adr.bot Posted July 1, 2015 Share Posted July 1, 2015 hi adr, i whant try to make script lvl 1 too lvl 40 for farm clan reputation. can u help me, i dont have any idea how can i make function for buy armor, weapon,shots ... at npc when i m lvl 20 and how can i Equip the stuff. and how can check my lvl ( if user.lvl(20); ). a lot of question need alot of answer :) thx again :) this will help for you http://l2bot.eu/ScriptHelpEN.pdf Link to comment Share on other sites More sharing options...
BouKipiKe Posted July 5, 2015 Share Posted July 5, 2015 hi again. adr if u can help me pls i have try alot of kind and impossibel find. i just try too buy item too npc. all chat work great but when i try buy item in windows store that's does'nt work :/ var item:tl2item; begin while true do begin delay(1000); if not inventory.user.byid(189, item) or (item.count<1) then begin Engine.SetTarget(30499); Engine.DlgOpen; Engine.DlgSel (1); Delay(500); Engine.DlgSel(1); Delay(500); Engine.NPCExchange(189, 1); // Staf of life Delay(1000); end; end; end. http://www.hostingpics.net/viewer.php?id=991239Sanstitre.jpg Link to comment Share on other sites More sharing options...
adr.bot Posted July 5, 2015 Share Posted July 5, 2015 hi again. adr if u can help me pls i have try alot of kind and impossibel find. i just try too buy item too npc. all chat work great but when i try buy item in windows store that's does'nt work :/ var item:tl2item; begin while true do begin delay(1000); if not inventory.user.byid(189, item) or (item.count<1) then begin Engine.SetTarget(30499); Engine.DlgOpen; Engine.DlgSel (1); Delay(500); Engine.DlgSel(1); Delay(500); Engine.NPCExchange(189, 1); // Staf of life Delay(1000); end; end; end. http://www.hostingpics.net/viewer.php?id=991239Sanstitre.jpg from screen i see, it is interlude, so on interlude doesnt work buy/sell Link to comment Share on other sites More sharing options...
BouKipiKe Posted July 6, 2015 Share Posted July 6, 2015 from screen i see, it is interlude, so on interlude doesnt work buy/sell ok :'( i m so sad . u think its possible too make auto trade script with another bot have all stuf in her inventory ? and i play on interlude i forgot tell u that at my previous post :/ Link to comment Share on other sites More sharing options...
adr.bot Posted July 6, 2015 Share Posted July 6, 2015 ok :'( i m so sad . u think its possible too make auto trade script with another bot have all stuf in her inventory ? and i play on interlude i forgot tell u that at my previous post :/ im sure all is posible, but i dont know how do this Link to comment Share on other sites More sharing options...
hauses123 Posted July 11, 2015 Share Posted July 11, 2015 I need some help aswell guys :D Is it possible to make a script like this[1minute left for buffs to end he will try to escape and rebuff with alt+b (because you cant be in combat) then comeback to the same spot and do this over and over?] Link to comment Share on other sites More sharing options...
adr.bot Posted July 11, 2015 Share Posted July 11, 2015 if not user.buffs.byid(123, buff) or (buff.endtime<60*1000) then begin //123 buff id // 60*1000 is 60 seconds engine.useitem(456); // use item, soe, or change it to engine.entertext('/unstuck'); delay(10000); //delay to wait until end cast soe/unstuck and teleport to town, to awoid stuck or somethin end; gived example, have fun Link to comment Share on other sites More sharing options...
nav9210 Posted July 14, 2015 Share Posted July 14, 2015 the dialoge interface working on adrenaline cracked version?... the dialog window never appear PD: i did the same you did in the tutorial video Link to comment Share on other sites More sharing options...
adr.bot Posted July 14, 2015 Share Posted July 14, 2015 the dialoge interface working on adrenaline cracked version?... the dialog window never appear PD: i did the same you did in the tutorial video dialog interface? more about this? Link to comment Share on other sites More sharing options...
spyros23 Posted July 14, 2015 Share Posted July 14, 2015 How can i set up in adrenaline when my hp is below 40% to change to a meele weapon so i can lifesteal and when my hp is above 80% to change back to crossbow? I tried putting it in both attack and self buff with conditions but it keeps spam equiping the weapon can i do it with a script or is it possible without one? Link to comment Share on other sites More sharing options...
adr.bot Posted July 14, 2015 Share Posted July 14, 2015 (edited) How can i set up in adrenaline when my hp is below 40% to change to a meele weapon so i can lifesteal and when my hp is above 80% to change back to crossbow? I tried putting it in both attack and self buff with conditions but it keeps spam equiping the weapon can i do it with a script or is it possible without one? have fun xd var meele, range, lowHP, highHP:cardinal; item:tl2item; begin lowHP := 40; //change HP count in % meele := 6592; //weapon ID highHP := 80; //change HP count in % range := 7577; //weapon ID while true do begin delay(500); if (user.hp<lowHP) and inventory.user.byid(meele, item) and not(item.equipped) then begin engine.useitem(meele); end; if (user.hp>highHP) and inventory.user.byid(range, item) and not(item.equipped) then begin engine.useitem(range); end; end; end. EDIT: rly nice, take script and run, even "thanks" dont say xd Edited July 15, 2015 by adr.bot Link to comment Share on other sites More sharing options...
spyros23 Posted July 15, 2015 Share Posted July 15, 2015 have fun xd var meele, range, lowHP, highHP:cardinal; item:tl2item; begin lowHP := 40; //change HP count in % meele := 6592; //weapon ID highHP := 80; //change HP count in % range := 7577; //weapon ID while true do begin delay(500); if (user.hp<lowHP) and inventory.user.byid(meele, item) and not(item.equipped) then begin engine.useitem(meele); end; if (user.hp>highHP) and inventory.user.byid(range, item) and not(item.equipped) then begin engine.useitem(range); end; end; end. EDIT: rly nice, take script and run, even "thanks" dont say xd I have this script that i made based on yours in the start of this thread but i cant seem to be able to add your script to mine i only know very little c# so its hard for me :P var item: TL2Item; function buffCheck: Boolean; var buff: TL2Buff; begin if not User.Buffs.ByID(1388, buff) then begin Result:=true; Print('Buffs are needed. Buffing...'); Engine.MoveTo(81909, 148285, -3464); Delay(500); Engine.SetTarget('Horadrim'); // NPC ID Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel('farm'); Delay(500); Print('Buffed.'); Engine.MoveTo(83378, 147917, -3400); end; Result:=false; end; function deadCheck: Boolean; begin Result := false; if User.Dead then begin 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.Dead then begin deadCheck; end; if User.inrange(131369,114436,-3713, 250, 1000) then begin Engine.MoveTo(134874,114441,-3720); Engine.FaceControl(0,true); Delay(20000); Engine.MoveTo(135968,114977,-3720); Delay(20000); Engine.MoveTo(137824,114366,-3720); Engine.MoveTo(139808,114388,-3720); //close to entrance Delay(20000); Engine.MoveTo(141847,114428,-3720); Engine.MoveTo(142725,113730,-3720); Engine.MoveTo(144446,114477,-3720); Engine.MoveTo(146443,112252,-3720); end; if user.inrange(81940, 148398, -3469, 10000) then begin buffCheck; end; if user.inrange(83378, 147917, -3400, 500) and User.Buffs.ByID(1388, buffCheck) then begin Engine.SetTarget('Mystra'); delay(500); Engine.DlgOpen; delay(500); Engine.DlgSel('High Level Hunting Areas'); delay(500); Engine.DlgSel('Dragon Valley Cave'); delay(500); Engine.DlgSel('Confirm'); end; end; end. Link to comment Share on other sites More sharing options...
adr.bot Posted July 15, 2015 Share Posted July 15, 2015 var item: TL2Item; function buffCheck: Boolean; var buff: TL2Buff; begin if not User.Buffs.ByID(1388, buff) then begin Result:=true; Print('Buffs are needed. Buffing...'); Engine.MoveTo(81909, 148285, -3464); Delay(500); Engine.SetTarget('Horadrim'); // NPC ID Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel('farm'); Delay(500); Print('Buffed.'); Engine.MoveTo(83378, 147917, -3400); end; Result:=false; end; function deadCheck: Boolean; begin Result := false; if User.Dead then begin Print('Dead. Pressing to village.'); Delay(1000); Engine.FaceControl(0,false); Engine.GoHome; Delay(10000); end; end; procedure all; begin while true do begin delay(150); if User.Dead then begin deadCheck; end; if User.inrange(131369,114436,-3713, 250, 1000) then begin Engine.MoveTo(134874,114441,-3720); Engine.FaceControl(0,true); Delay(20000); Engine.MoveTo(135968,114977,-3720); Delay(20000); Engine.MoveTo(137824,114366,-3720); Engine.MoveTo(139808,114388,-3720); //close to entrance Delay(20000); Engine.MoveTo(141847,114428,-3720); Engine.MoveTo(142725,113730,-3720); Engine.MoveTo(144446,114477,-3720); Engine.MoveTo(146443,112252,-3720); end; if user.inrange(81940, 148398, -3469, 10000) then begin buffCheck; end; if user.inrange(83378, 147917, -3400, 500) and User.Buffs.ByID(1388, buffCheck) then begin Engine.SetTarget('Mystra'); delay(500); Engine.DlgOpen; delay(500); Engine.DlgSel('High Level Hunting Areas'); delay(500); Engine.DlgSel('Dragon Valley Cave'); delay(500); Engine.DlgSel('Confirm'); end; end; end; procedure weapons; var meele, range, lowHP, highHP:cardinal; item:tl2item; begin lowHP := 40; //change HP count in % meele := 6592; //weapon ID highHP := 80; //change HP count in % range := 7577; //weapon ID while true do begin delay(500); if (user.hp<lowHP) and inventory.user.byid(meele, item) and not(item.equipped) then begin engine.useitem(meele); end; if (user.hp>highHP) and inventory.user.byid(range, item) and not(item.equipped) then begin engine.useitem(range); end; end; end; begin Script.NewThread(@all); Script.NewThread(@weapons); end. example how merge scripts procedure script1; begin while true do begin delay(1000); print('Here is script1.'); end; end; procedure script2; begin while true do begin delay(1000); print('Here is script2.'); end; end; begin Script.NewThread(@script1); Script.NewThread(@script2); end. Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now