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
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');
BouKipiKe Posted June 23, 2015 Posted June 23, 2015 Engine.EnterText('.jointvt'); ok thx a lot adr u so pro :)
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
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?)
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
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?..
adr.bot Posted June 25, 2015 Posted June 25, 2015 How can i decrypt this language?.. this i dont know how
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?)
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
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.
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
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
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.
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".
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now