Anitah Posted May 26, 2017 Share Posted May 26, 2017 Hi, I need something like this: procedure toVillage; begin Print('To Village'); Delay(100); if (User.HP=0) then begin Delay(100); Engine.GoHome; Engine.Facecontrol(0,False); Buff; end; end; But to go to the clan hall, how? Thank you in advance ... I think for ch is engine.gohome(rtclanhall) Link to comment Share on other sites More sharing options...
temple13 Posted May 26, 2017 Share Posted May 26, 2017 change to engine.delay(555) Another error, I tried with "engine.delay(555)" only also and I still get an error. I'm playing Interlude Link to comment Share on other sites More sharing options...
adr.bot Posted May 26, 2017 Share Posted May 26, 2017 Another error, I tried with "engine.delay(555)" only also and I still get an error. I'm playing Interlude var adena:tl2item; begin while engine.delay(555) do begin inventory.user.byid(57, adena); if assigned(adena) and (adena.count > 5 * 1000000) then begin // more than 5kk while not user.target.dead do delay(11); engine.facecontrol(0,false); delay(555); engine.entertext('.deposit'); delay(555); engine.facecontrol(0,true); end; end; end. Link to comment Share on other sites More sharing options...
thalestvn Posted May 26, 2017 Share Posted May 26, 2017 I think for ch is engine.gohome(rtclanhall) I need change engine.gohome in script for this? Only this? Do u have script for Forbbidden? To farm aa? Mine is not working very well, I put it in the 4 or 5 room, but the char sometimes does not give to village, sometimes it keeps walking without stopping, it comes close to the farm place and is killing mob and going back the way ... Half crazy hahahah, I have 10 days just using adrenaline, and I learned to edit some things about script, but I'm totally noob in that: / Thanks for the support again, you're amazing!! Link to comment Share on other sites More sharing options...
temple13 Posted May 26, 2017 Share Posted May 26, 2017 var adena:tl2item; begin while engine.delay(555) do begin inventory.user.byid(57, adena); if assigned(adena) and (adena.count > 5 * 1000000) then begin // more than 5kk while not user.target.dead do delay(11); engine.facecontrol(0,false); delay(555); engine.entertext('.deposit'); delay(555); engine.facecontrol(0,true); end; end; end. Thanks a lot, working perfect now. Best regards! Link to comment Share on other sites More sharing options...
Nemes1s Posted June 2, 2017 Share Posted June 2, 2017 hi im trying to write a train script for warlord. i use moveto and useskill to provoke the mobs and get the train going then facecontrol to enable bot but i cant find a way to stop bot from fighting after all the train is dead. any ideas? Link to comment Share on other sites More sharing options...
adr.bot Posted June 2, 2017 Share Posted June 2, 2017 hi im trying to write a train script for warlord. i use moveto and useskill to provoke the mobs and get the train going then facecontrol to enable bot but i cant find a way to stop bot from fighting after all the train is dead. any ideas? function checkAgro: boolean; var npc: TL2Npc; begin result := Engine.FindEnemy(npc, user, 1100)); end; begin engine.moveto(123,123,123); engine.useskill(123); engine.facecontrol(0,true); while checkAgro do delay(1111); engine.facecontrol(0,false); end. like this should work Link to comment Share on other sites More sharing options...
darknesscrysis Posted June 14, 2017 Share Posted June 14, 2017 I'm trying to save all items (that are not equipped) in the warehouse. //auto store items in warehouse var items: TL2List; i: integer procedure save (itemId: integer) if not inventory.user.byid(728, item) or (item.count<1) then begin Engine.SetTarget(31268); // NPC's id Engine.DlgOpen; Engine.DlgSel(1); // NPC window option Engine.DlgSel(1); Engine.NPCExchange(itemId, 1); // (iditem, quantity) Print('OK'); delay(1000); end; end; begin while Length(items) > 0 do begin for i:0 to Length(Inventory.User.Items) do begin save(Inventory.User.Items[i].); //get Item id?? end; end; end. Link to comment Share on other sites More sharing options...
darknesscrysis Posted June 15, 2017 Share Posted June 15, 2017 (edited) I've seen that it can't be done like that in interlude. So I've done it with mouse events but it isn't dragging the object. What's wrong? // Exchanges itemCount number of items from the inventory function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll'; function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll'; var i : integer; const itemCount = 3; // for testing purposes make this number small perActionDelay = 200; procedure mouseClick(x, y : integer); begin SetCursorPos(x, y); mouse_event($2, 0, 0, 0, 0); delay(perActionDelay); mouse_event($4, 0, 0, 0, 0); end; begin i := 1; while i < itemCount do begin delay(perActionDelay); SetCursorPos(30, 310); delay(perActionDelay); mouse_event($2, 0, 0, 0, 0); delay(perActionDelay); SetCursorPos(30,480); delay(perActionDelay); mouse_event($4, 0, 0, 0, 0); delay(perActionDelay); mouseClick(900,480); delay(perActionDelay); mouseClick(690,480); delay(perActionDelay); i := i + 1; end; end. Edited June 15, 2017 by darknesscrysis Link to comment Share on other sites More sharing options...
felipeandree Posted June 15, 2017 Share Posted June 15, 2017 Hi, everyone i need help to create a code to use any token (star - moon) (GOD version) when i target a mob. thanks Link to comment Share on other sites More sharing options...
darknesscrysis Posted June 16, 2017 Share Posted June 16, 2017 I was doing the A-Grade weapons quest script and I don't know why I can't select the next option. // A-Grade weapon quest uses Classes; begin if User.Level > 61 then begin Engine.SetTarget(32105); Engine.DlgOpen; Delay(500); Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('A Powerful Primeval creature'); Delay(500); Engine.DlgSel('What rumors are you talking about?'); Delay(500); end; end. Link to comment Share on other sites More sharing options...
Anitah Posted June 18, 2017 Share Posted June 18, 2017 try change engine.dlgsel to engine.bypasstoserver Link to comment Share on other sites More sharing options...
thalestvn Posted July 4, 2017 Share Posted July 4, 2017 Hi, someone can help me with a script to go for gk in dwarven village? I need this because NPC buffer is next to gk. My script is: var Figth_Flag:boolean; Item: TL2Item; Npc: TL2Npc; Obj: TL2Buff; IdBuff: integer; Buffs:TL2Buff; var L2Skill: TL2Skill; procedure toVillage; begin Print('To Village'); Delay(1000); if (User.HP=0) then begin Delay(2000); engine.gohome; Engine.Facecontrol(0,False); Buff; end; end; procedure buff; begin Print('Go Buffer'); Engine.Settarget(35458); //target npc buff Delay(15000); Engine.DlgOpen; //abre chat npc Delay(1500); Engine.Settarget(35458); //target npc buff Delay(5000); Engine.DlgOpen; //abre chat npc Delay(1500); Engine.DlgSel(34); Delay(800); Engine.DlgSel(4); Delay(800); Engine.DlgSel(21); Delay(800); RunTo; end; procedure RunTo; begin Print('Go Teleporte'); Engine.SetTarget(31114); //Target do NCP GK Delay(1500); Engine.DlgOpen; // abre chat combat npc Delay(1500); Engine.DlgSel(2); Delay(1500); Engine.DlgSel(2); Delay(1500); Fight; end; procedure toBuff; begin IdBuff:=1204 ; //Check BUFF while not User.Buffs.ById(IdBuff,obj) do begin Print('Check Buff'); engine.facecontrol(0,false); Engine.UseItem(736); //Scroll Escape Delay(30000); buff; end; end; procedure Fight; begin Print('Fight zone'); Engine.MoveTo(144792, -174168, -1525); Delay(500); Engine.MoveTo(145480, -174792, -1525); Delay(500); Engine.MoveTo(146008, -175528, -1525); Delay(500); Engine.LoadConfig('1'); //Íàçâàíèå Âàøåãî êîíôèãà Engine.LoadZone('coalb.zmap'); //zona de combat Print('Ôàðì'); toVillage; Engine.Facecontrol(0,True); end; //----------------------------------------------------------------------------- begin //repete novamente o script Print('repete novamente'); repeat toBuff; toVillage; until Engine.Status = lsOffline; Delay(15000); end. Link to comment Share on other sites More sharing options...
darknesscrysis Posted July 4, 2017 Share Posted July 4, 2017 Here are the movements for all the cities from respawn to gatekeeper. Link to comment Share on other sites More sharing options...
powercheats Posted July 6, 2017 Share Posted July 6, 2017 (edited) Anyone have a script for autojoin tvt? When appears in the chat chat system, TVT event open, how can i do a script like this, I don't know the command for read chat system and then Engine.EnterText('.jointvt'); Edited July 6, 2017 by powercheats 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