BouKipiKe Posted June 23, 2015 Posted June 23, 2015 (edited) hi all. adr.bot can u help me pls i search how too use cmd chat in scrpit. i have try Engine.Say('.jointvt', 0, ''); Engine.mtSystem('.jointv'); but not working, in nomal chat write .jointvt . :/ if u have any idea how can i do for use cmd chat when i m using script ? Ty again for help cyu later Edited June 23, 2015 by BouKipiKe Quote
adr.bot Posted June 23, 2015 Posted June 23, 2015 hi all. adr.bot can u help me pls i search how too use cmd chat in scrpit. i have try "Engine.say(.jointvt)" but not working :/ u have any idea how can i do for use cmd chat when i m using script ? Ty again for help cyu later Engine.EnterText('.jointvt'); Quote
BouKipiKe Posted June 23, 2015 Posted June 23, 2015 Engine.EnterText('.jointvt'); ok thx a lot adr u so pro :) Quote
11k Posted June 25, 2015 Posted June 25, 2015 Engine.EnterText('.jointvt'); ok thx a lot adr u so pro :) He just know Delphi language :F Quote
11k Posted June 25, 2015 Posted June 25, 2015 Adr, how to make buypass on ketrawars.ru?Can't use buffer with this script :c Begin Engine.SetTarget(31275); // NPC ID Delay(4000); Engine.DlgOpen; Delay(4000); Engine.Dlgsel(6); Delay(4000); Engine.Dlgsel(2); Delay(4000); Engine.Dlgsel(4); Delay(4000); Engine.Dlgsel(4); End. Where my mistake?) Quote
adr.bot Posted June 25, 2015 Posted June 25, 2015 Adr, how to make buypass on ketrawars.ru? Can't use buffer with this script :c Where my mistake?) ketrawars use encrypted npc or somethink, need parse somehow, but how i dont know, so even pay version not help here Quote
11k Posted June 25, 2015 Posted June 25, 2015 ketrawars use encrypted npc or somethink, need parse somehow, but how i dont know, so even pay version not help here How can i decrypt this language?.. Quote
adr.bot Posted June 25, 2015 Posted June 25, 2015 How can i decrypt this language?.. this i dont know how Quote
11k Posted June 25, 2015 Posted June 25, 2015 this i dont know how Support of Adrenalin bot say "can make this with button_click command" Sth about it?) Quote
adr.bot Posted June 25, 2015 Posted June 25, 2015 Support of Adrenalin bot say "can make this with button_click command" Sth about it?) i dont know Quote
LAPDS Posted June 26, 2015 Posted June 26, 2015 (first i m so sorry for my english i no good in this language) I need your help, if any one can help me. I try to do a script for a quest JOURNEY TO A SETTLEMENT, in my server this quest is repeatable and i get many passes for frintezza boss. I write the script but don't work property, i want to do the script do the quest for eg 10 time, but i cant do the loop work fine, so if any can read this script and meaby can tell me what is wrong. ///////////////////////////////////////////////////////////////////////////////////////////////////////////// //QUEST JOURNEY TO A SETTLEMENT // // // // // //Localización: four mausoleums muy adentro en imperial tomb en Town Goddard // //Begin NPC: Nameless Spirit // //Reward: Frintezza's Magic Force Field Removal Scroll // //Quest repetible: in this server "yes" // // // //1ª Nameless Spirit will ask you to bring antelope skin. // //2ª Kill antelope canyon y antelope canyon slave en wall of argos to get the quest item antelope skin X 1 // // then go back to NPC. // //3ª speak with Nameless Spirit and give him the antelope skin. // //4ª him reward you with the Frintezza's Magic Force Field Removal Scroll. // //5ª take the quest again. // ///////////////////////////////////////////////////////////////////////////////////////////////////////////// var QuestItem: TL2Item; Item: TL2Item; begin Engine.MoveTo(147960,-55272,-2728); //move to Goddard GK Tatiana Delay(500); Engine.SetTarget(31275); //Target GK Tatiana Delay(500); Engine.DlgOpen; //Talk GK Tatiana Delay(500); Engine.DlgSel('[Noblesse Exclusive] Teleport'); //select Nobles Teleport Delay(500); Engine.DlgSel(2); // Select Teleport Hounting Ground without Token Delay(500); Engine.DlgSel('Four Sepulchers - 1000 9'); // Select destination Four sepulchers teleport Delay(500); Engine.CancelTarget; // Cancel Target GK Tatiana Engine.MoveTo(178296,-85560,-7216); //Move Nameless Spirit NPC (begin of the quest) Delay(500); Engine.SetTarget(31453); //Target Nameless Spirit Delay(500); Engine.DlgOpen; // talk with NPC Nameless Spirit Delay(500); Engine.DlgSel('Quest'); //Request quest Delay(500); Engine.DlgSel('65402'); // Select Quest Journey to a Settlement Delay(500); Engine.DlgSel('I will do it.'); //accept the quest Delay(500); Engine.CancelTarget; // Cancel Target Nameless Spirit if not (Inventory.User.ByID(8073, Item) = true) and (Item.Count < 5) then begin //ID 8073 is Frintezza Magic Force Field Removal Scroll final reward from quest, this item is save it into the user inventory Engine.UseItem(736); //Take Soe Delay(10000); Engine.MoveTo(147960,-55272,-2728); //Move to GK Tatiana Delay(500); Engine.SetTarget(31275); //Target GK Tatiana Delay(500); Engine.DlgOpen; // Talk with GK Tatiana Delay(500); Engine.DlgSel('Teleport'); //Select Teleport Delay(500); Engine.DlgSel('Wall of Argos - 2200 9'); //Select destination wall of argos Delay(500); Engine.CancelTarget; // Cancel Target GK Tatiana if not (Inventory.Quest.ByID(8072, QuestItem) = true) then begin // ID 8072 is Antilope Skin item first part of quest only need one, this item is save it into the quest user inventory Engine.FaceControl(0,true); // activate BOT end. Engine.FaceControl(0,false); // deactivate BOT Engine.UseItem(736); //Take Soe Delay(10000); Engine.MoveTo(147960,-55272,-2728); //Move GK Tatiana Delay(500); Engine.SetTarget(31275); //Target GK Tatiana Delay(500); Engine.DlgOpen; //Talk GK Tatiana Delay(500); Engine.DlgSel('[Noblesse Exclusive] Teleport'); //select Nobles Teleport Delay(500); Engine.DlgSel(2); // Select Teleport Hounting Ground without Token Delay(500); Engine.DlgSel('Four Sepulchers - 1000 9'); // Select destination Four sepulchers teleport Delay(500); Engine.CancelTarget; // Cancel Target GK Tatiana Engine.MoveTo(178296,-85560,-7216); //Move to Nameless Spirit Delay(500); Engine.SetTarget(31453); //Target Nameless Spirit Delay(500); Engine.DlgOpen; //Talk Nameless Spirit Delay(500); Engine.DlgSel('Quest'); // Select Quest Delay(500); Engine.DlgSel('65402'); // Select Journey to a Settlement Delay(500); Engine.DlgSel('Here it is.'); // Give Item ID 8072 to NPC Delay(500); Engine.DlgOpen; //Talk Nameless Spirit Delay(500); Engine.DlgSel('Quest'); // Select Quest Delay(500); Engine.DlgSel('65402'); // Select Journey to a Settlement Delay(500); Engine.DlgSel('I will do it.'); //accept the quest Delay(500); Engine.CancelTarget; // Cancel Target Nameless Spirit end. end. Quote
adr.bot Posted June 26, 2015 Posted June 26, 2015 (first i m so sorry for my english i no good in this language) I need your help, if any one can help me. I try to do a script for a quest JOURNEY TO A SETTLEMENT, in my server this quest is repeatable and i get many passes for frintezza boss. I write the script but don't work property, i want to do the script do the quest for eg 10 time, but i cant do the loop work fine, so if any can read this script and meaby can tell me what is wrong. ///////////////////////////////////////////////////////////////////////////////////////////////////////////// //QUEST JOURNEY TO A SETTLEMENT // // // // // //Localización: four mausoleums muy adentro en imperial tomb en Town Goddard // //Begin NPC: Nameless Spirit // //Reward: Frintezza's Magic Force Field Removal Scroll // //Quest repetible: in this server "yes" // // // //1ª Nameless Spirit will ask you to bring antelope skin. // //2ª Kill antelope canyon y antelope canyon slave en wall of argos to get the quest item antelope skin X 1 // // then go back to NPC. // //3ª speak with Nameless Spirit and give him the antelope skin. // //4ª him reward you with the Frintezza's Magic Force Field Removal Scroll. // //5ª take the quest again. // ///////////////////////////////////////////////////////////////////////////////////////////////////////////// var QuestItem: TL2Item; Item: TL2Item; begin Engine.MoveTo(147960,-55272,-2728); //move to Goddard GK Tatiana Delay(500); Engine.SetTarget(31275); //Target GK Tatiana Delay(500); Engine.DlgOpen; //Talk GK Tatiana Delay(500); Engine.DlgSel('[Noblesse Exclusive] Teleport'); //select Nobles Teleport Delay(500); Engine.DlgSel(2); // Select Teleport Hounting Ground without Token Delay(500); Engine.DlgSel('Four Sepulchers - 1000 9'); // Select destination Four sepulchers teleport Delay(500); Engine.CancelTarget; // Cancel Target GK Tatiana Engine.MoveTo(178296,-85560,-7216); //Move Nameless Spirit NPC (begin of the quest) Delay(500); Engine.SetTarget(31453); //Target Nameless Spirit Delay(500); Engine.DlgOpen; // talk with NPC Nameless Spirit Delay(500); Engine.DlgSel('Quest'); //Request quest Delay(500); Engine.DlgSel('65402'); // Select Quest Journey to a Settlement Delay(500); Engine.DlgSel('I will do it.'); //accept the quest Delay(500); Engine.CancelTarget; // Cancel Target Nameless Spirit if not (Inventory.User.ByID(8073, Item) = true) and (Item.Count < 5) then begin //ID 8073 is Frintezza Magic Force Field Removal Scroll final reward from quest, this item is save it into the user inventory Engine.UseItem(736); //Take Soe Delay(10000); Engine.MoveTo(147960,-55272,-2728); //Move to GK Tatiana Delay(500); Engine.SetTarget(31275); //Target GK Tatiana Delay(500); Engine.DlgOpen; // Talk with GK Tatiana Delay(500); Engine.DlgSel('Teleport'); //Select Teleport Delay(500); Engine.DlgSel('Wall of Argos - 2200 9'); //Select destination wall of argos Delay(500); Engine.CancelTarget; // Cancel Target GK Tatiana if not (Inventory.Quest.ByID(8072, QuestItem) = true) then begin // ID 8072 is Antilope Skin item first part of quest only need one, this item is save it into the quest user inventory Engine.FaceControl(0,true); // activate BOT end. Engine.FaceControl(0,false); // deactivate BOT Engine.UseItem(736); //Take Soe Delay(10000); Engine.MoveTo(147960,-55272,-2728); //Move GK Tatiana Delay(500); Engine.SetTarget(31275); //Target GK Tatiana Delay(500); Engine.DlgOpen; //Talk GK Tatiana Delay(500); Engine.DlgSel('[Noblesse Exclusive] Teleport'); //select Nobles Teleport Delay(500); Engine.DlgSel(2); // Select Teleport Hounting Ground without Token Delay(500); Engine.DlgSel('Four Sepulchers - 1000 9'); // Select destination Four sepulchers teleport Delay(500); Engine.CancelTarget; // Cancel Target GK Tatiana Engine.MoveTo(178296,-85560,-7216); //Move to Nameless Spirit Delay(500); Engine.SetTarget(31453); //Target Nameless Spirit Delay(500); Engine.DlgOpen; //Talk Nameless Spirit Delay(500); Engine.DlgSel('Quest'); // Select Quest Delay(500); Engine.DlgSel('65402'); // Select Journey to a Settlement Delay(500); Engine.DlgSel('Here it is.'); // Give Item ID 8072 to NPC Delay(500); Engine.DlgOpen; //Talk Nameless Spirit Delay(500); Engine.DlgSel('Quest'); // Select Quest Delay(500); Engine.DlgSel('65402'); // Select Journey to a Settlement Delay(500); Engine.DlgSel('I will do it.'); //accept the quest Delay(500); Engine.CancelTarget; // Cancel Target Nameless Spirit end. end. first your script without red line var QuestItem: TL2Item; Item: TL2Item; begin Engine.MoveTo(147960,-55272,-2728); Delay(500); Engine.SetTarget(31275); Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel('[Noblesse Exclusive] Teleport'); Delay(500); Engine.DlgSel(2); Delay(500); Engine.DlgSel('Four Sepulchers - 1000 9'); Delay(500); Engine.CancelTarget; Engine.MoveTo(178296,-85560,-7216); Delay(500); Engine.SetTarget(31453); Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('65402'); Delay(500); Engine.DlgSel('I will do it.'); Delay(500); Engine.CancelTarget; if not (Inventory.User.ByID(8073, Item) = true) and (Item.Count < 5) then begin Engine.UseItem(736); Delay(10000); Engine.MoveTo(147960,-55272,-2728); Delay(500); Engine.SetTarget(31275); Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('Wall of Argos - 2200 9'); Delay(500); Engine.CancelTarget; if not (Inventory.Quest.ByID(8072, QuestItem) = true) then begin Engine.FaceControl(0,true); end; Engine.FaceControl(0,false); Engine.UseItem(736); Delay(10000); Engine.MoveTo(147960,-55272,-2728); Delay(500); Engine.SetTarget(31275); Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel('[Noblesse Exclusive] Teleport'); Delay(500); Engine.DlgSel(2); Delay(500); Engine.DlgSel('Four Sepulchers - 1000 9'); Delay(500); Engine.CancelTarget; Engine.MoveTo(178296,-85560,-7216); Delay(500); Engine.SetTarget(31453); Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('65402'); Delay(500); Engine.DlgSel('Here it is.'); Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('65402'); Delay(500); Engine.DlgSel('I will do it.'); Delay(500); Engine.CancelTarget; end; end. second i dont know how explain xd better i think write in to procedures steps, to avoid problems when someone pk you, like example from my script (maybe not best way but works xd) procedure tosepulchers; begin engine.settarget('Tatiana'); delay(500); engine.dlgopen; delay(500); engine.dlgsel('Nobless only'); delay(500); engine.dlgsel(2); delay(500); engine.dlgsel('Four Sepulchers'); end; procedure towncheck; begin if user.inrange(146272, -58176, -2976, 250, 150) then begin Engine.MoveTo(147593, -58103, -3007); Engine.MoveTo(147727, -57141, -2807); Engine.MoveTo(147936, -55368, -2760); end; if user.inrange(145264, -57680, -2976, 250, 150) then begin Engine.MoveTo(145588, -56926, -3007); Engine.MoveTo(146673, -56095, -2807); Engine.MoveTo(147543, -56054, -2807); Engine.MoveTo(147936, -55368, -2760); end; end; procedure quest; begin if(User.Dead) then begin Print('Dead. Pressing to village.'); Engine.FaceControl(0, false); Engine.GoHome; delay(5000); end; if user.inrange(147936, -55368, -2760, 250) and (Engine.QuestStatus(654, 3)) then begin tosepulchers; end; end; begin while (engine.status = lsOnline) do begin delay(300); quest(); townCheck(); end; end. this is not all script but like example how i write, this near gatekeeper check quest status and go where needed, i think you understand what i mean xdd Quote
LAPDS Posted June 26, 2015 Posted June 26, 2015 (edited) Thx adr.bot, i will try with that example. and one more cuestion, where i can find the ID of QUEST? to use in this command Engine.QuestStatus(654, 3) Edited June 26, 2015 by LAPDS Quote
BouKipiKe Posted June 29, 2015 Posted June 29, 2015 Thx adr.bot, i will try with that example. and one more cuestion, where i can find the ID of QUEST? to use in this command Engine.QuestStatus(654, 3) Hi LAPDS, u find all u need here http://translate.google.fr/translate?hl=fr&sl=ru&tl=en&u=http%3A%2F%2Fadrenalin5.ru%2Fforum%2Findex.php%2Ftopic%2F238-bypass%2F Engine.QuestStatus (621, 2) /// 621quest id, 2 quest stage for find quest id is simpel in ur windows adr u go in inventory >> Quest and u see ID at ur item quest :) gl for ur script. Quote
LAPDS Posted June 30, 2015 Posted June 30, 2015 Thx adr.bot and Boukipike, the scrip work very well, not 100% but work fine (only stock in some respawn areas of goodard, i don't have all i thick), in the morning i take 100 frintezza pass, saw the scrip work fine for me. i one to said thank a lot for the help, i use a combination of procedure and function (like a adr.bot said), and use if and while with engine.queststatus() whit the different stage of quest (thx to boukipike). P.S: i don't replay to adr.bot the question about backing to cal hall, the command you said me is (rttohall) but don't work, saw i read the scrip manual and i found there, the command is (rttoholl) whit "o". Quote
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.
Note: Your post will require moderator approval before it will be visible.