AchYlek Posted August 10, 2017 Share Posted August 10, 2017 If I understand your request, you don't need a script. l2soft page? nice fakenos, as tave myliu Quote Link to comment Share on other sites More sharing options...
powercheats Posted August 11, 2017 Share Posted August 11, 2017 (edited) How do i for the program read the "msg system server". Like GM's uses sysutils,classes; begin while Engine.Status = lsOnline do begin if (ChatMessage.ChatType = mtSystem) and ChatMessage.Unread then begin if (ChatMessage.Text = 'TvT Event has begin') then Engine.EnterText('.jointvt'); delay(2000); end; end; end. Edited August 14, 2017 by powercheats Quote Link to comment Share on other sites More sharing options...
KingSparrow Posted August 16, 2017 Share Posted August 16, 2017 (edited) Ignore. Edited August 17, 2017 by KingSparrow Quote Link to comment Share on other sites More sharing options...
Cruz59 Posted August 18, 2017 Share Posted August 18, 2017 hey, autobuff is not working for me. is there any script/way to rebuff myself after 1h playtime in alt+b? i'ld highly appreciate an answer. Regards, Cruz Quote Link to comment Share on other sites More sharing options...
fAkeN Posted August 19, 2017 Share Posted August 19, 2017 hey, autobuff is not working for me. is there any script/way to rebuff myself after 1h playtime in alt+b? i'ld highly appreciate an answer. Regards, Cruz uses SysUtils, Classes; var A:TStringList; begin A:= TStringList.create; A.Text:= Engine.CbText; A.SaveToFile(Script.Path + 'CbText.txt'); A.Free; end. Find bypass you need on Community board, and make a function for rebuff (use search to find function examples). Quote Link to comment Share on other sites More sharing options...
tuan10163 Posted August 20, 2017 Share Posted August 20, 2017 (edited) hi, how do rework a script invite on pm eror in line 1 T_T it working :D Procedure invitePM; begin while true do begin if (ChatMessage.unread and (integer(ChatMessage.chattype) = 2)) then begin //u can add as many senders as u want. change nick to your nicks if ((ChatMessage.sender = 'nick1') or (ChatMessage.sender = 'nick2') or (ChatMessage.sender = 'nick3') or (ChatMessage.sender = 'nick4') or (ChatMessage.sender = 'nick5') or (ChatMessage.sender = 'nick6')) and (ChatMessage.text = 'inv') then begin //u can change *inv* to any trigger u want print(ChatMessage.sender); engine.inviteparty(ChatMessage.sender); print('Aproved, inviting!') ; end; end; delay(1000); end; end; begin //start of main body Script.NewThread(@invitePM); end. //end of main body Edited August 21, 2017 by tuan10163 Quote Link to comment Share on other sites More sharing options...
yoejoe Posted August 24, 2017 Share Posted August 24, 2017 hi, how do rework a script invite on pm eror in line 1 T_T it working :D Procedure invitePM; begin while true do begin if (ChatMessage.unread and (integer(ChatMessage.chattype) = 2)) then begin //u can add as many senders as u want. change nick to your nicks if ((ChatMessage.sender = 'nick1') or (ChatMessage.sender = 'nick2') or (ChatMessage.sender = 'nick3') or (ChatMessage.sender = 'nick4') or (ChatMessage.sender = 'nick5') or (ChatMessage.sender = 'nick6')) and (ChatMessage.text = 'inv') then begin //u can change *inv* to any trigger u want print(ChatMessage.sender); engine.inviteparty(ChatMessage.sender); print('Aproved, inviting!') ; end; end; delay(1000); end; end; begin //start of main body Script.NewThread(@invitePM); end. //end of main body still not working :/ Quote Link to comment Share on other sites More sharing options...
takoulas Posted September 24, 2017 Share Posted September 24, 2017 is that possible to do it? on 0:30 sec u can see s part of the script :) ...any hlp? Quote Link to comment Share on other sites More sharing options...
navatnas Posted September 24, 2017 Share Posted September 24, 2017 Guys got script for change shadow weapons after the time end ?:) Quote Link to comment Share on other sites More sharing options...
deviouz1 Posted September 24, 2017 Share Posted September 24, 2017 (edited) anyone have a wolf quest script already written? I'm in the process of doing it myself, based on ADR's egg delivery script, but i've run across a few things im not sure how to do (no surprise there) and i'm fairly sure the server i'm on has some unique things it does, like change the amount it costs to teleport based on your level which changes the links listed in the teleport dialogue pages. here is what i have so far and it seems to work but i'm not sure how to make it hunt until i have all 50 bloody fangs (quest items arent showing up in the User > Inventory > Quest report, so im not sure how to reference the items or how to get their counts) so i've inserted a delay of 20 minutes to allow for that much hunting. pretty sure thats too long but too many times it tried to SOE before i had all 50 so i over estimated to account for time variations. It's only for TH's and it doesn't do the test for you, as i'm not exactly sure how to dynamically select the correct answers since the questions aren't always the same ones, and they're never in the same order. Any insight on any of this would be much appreciated. begin Engine.SetTarget(30731); ///Martin Engine.DlgOpen; Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('Ask Detailed Questions'); Delay(500); Engine.DlgSel('I will take the task.'); Delay(500); Engine.MoveTo(-83091,150837,-3104); Delay(500); Engine.SetTarget(31076); ///Newb Helper Engine.DlgOpen; Engine.DlgSel('See the list of available supplemental magic.'); Delay(500); Engine.DlgSel('Receive supplemental magic'); Delay(500); Engine.MoveTo(-80885,150073,-3070); Delay(500); Engine.MoveTo(-80769,149819,-3070); Engine.SetTarget(30320); ///Richlin Engine.DlgOpen; Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('Talking Island Village - 9400 Adena '); Delay(3000); Engine.SetTarget(30006); ///? TI GK Engine.DlgOpen; Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('Talking Island, Northern Territory - 1000 Adena '); Delay(3000); Engine.MoveTo(-109317,215731,-3266); Delay(500); Engine.MoveTo(-111372,217019,-3266); Delay(1200000); Engine.UseItem(736); //Scroll Escape Delay(30000); Engine.MoveTo(-85292,243739,-3728); Delay(500); Engine.MoveTo(-84136,244612,-3140); Delay(500); Engine.SetTarget(30006); ///? TI GK Engine.DlgOpen; Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Village of Gludin - 18000 Adena '); Delay(3000); Engine.MoveTo(-81056,150257,-3056); Delay(500); Engine.MoveTo(-84605,150799,-3155); Delay(500); Engine.SetTarget(30731); ///Martin Engine.DlgOpen; Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('Ask about the next task'); Delay(500); Engine.MoveTo(-81056,150257,-3056); Delay(500); Engine.MoveTo(-80769,149819,-3070); Engine.SetTarget(30320); ///Richlin Engine.DlgOpen; Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Village of Gludio - 7300 Adena '); Delay(3000); Engine.SetTarget(30256); ///Bella Engine.DlgOpen; Delay(500); Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('I wish to learn about pets.'); Delay(500); Engine.DlgSel('Next.'); Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Town of Dion - 17000 Adena '); Delay(3000); Engine.MoveTo(16157,144732,-3048); Delay(500); Engine.MoveTo(17019,147030,-3127); Delay(500); Engine.MoveTo(17433,147423,-3120); Delay(500); Engine.MoveTo(17479,147622,-3112); Delay(500); Engine.SetTarget(30072); ///Metty Engine.DlgOpen; Delay(500); Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('Tell me about the pets.'); Delay(500); Engine.MoveTo(17840,145972,-3122); Delay(500); Engine.MoveTo(16527,144335,-3013); Delay(500); Engine.MoveTo(15608,142908,-2732); Delay(500); Engine.SetTarget(30059); ///Trisha Engine.DlgOpen; Delay(500); Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Town of Giran - 6800 Adena '); Delay(3000); Engine.MoveTo(80818,148577,-3495); Delay(500); Engine.MoveTo(79764,148865,-3559); Delay(500); Engine.MoveTo(80040,149459,-3512); Delay(500); Engine.MoveTo(80441,149255,-3504); Delay(500); Engine.SetTarget(30091); ///Ellie Engine.DlgOpen; Delay(500); Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('[Get a Pet (In Progress)]'); Delay(500); Engine.DlgSel('I wish to learn about pets'); Delay(500); Engine.MoveTo(80441,149255,-3504); Delay(500); Engine.MoveTo(80040,149459,-3512); Delay(500); Engine.MoveTo(79764,148865,-3559); Delay(500); Engine.MoveTo(80818,148577,-3495); Delay(500); Engine.MoveTo(83401,147924,-3400); Delay(500); Engine.SetTarget(30080); ///Clarissa Engine.DlgOpen; Delay(500); Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Town of Dion - 38000 Adena '); Delay(3000); Engine.SetTarget(30059); ///Trisha Engine.DlgOpen; Delay(500); Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Town of Gludio - 3400 Adena '); Delay(3000); Engine.SetTarget(30256); ///Bella Engine.DlgOpen; Delay(500); Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Village of Gludin - 3400 Adena '); Delay(3000); Engine.MoveTo(-81072,150275,-3056); Delay(500); Engine.MoveTo(-83128,150720,-3120); Delay(500); Engine.MoveTo(-84614,150810,-3155); Delay(500); end. Edited September 24, 2017 by deviouz1 Quote Link to comment Share on other sites More sharing options...
deviouz1 Posted September 26, 2017 Share Posted September 26, 2017 Updated. it works, with some help. I'm not sure how to turn targeting on and off via script, so you have to set several mobs to do not attack via the GUI, and i still havent the slightest idea how to get the test dialogues automated so you still have to take the test as well, but other than that, this has worked out for me pretty well. just start the script while standing next to Martin and it does all the leg work for me. just hit go, and check back later to do the test. begin Engine.SetTarget(30731); ///Martin Engine.DlgOpen; Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('Ask Detailed Questions'); Delay(500); Engine.DlgSel('I will take the task.'); Delay(500); Engine.MoveTo(-83091,150837,-3104); Delay(500); Engine.SetTarget(31076); ///Newb Helper Engine.DlgOpen; Engine.DlgSel('See the list of available supplemental magic.'); Delay(500); Engine.DlgSel('Receive supplemental magic'); Delay(500); Engine.MoveTo(-80885,150073,-3070); Delay(500); Engine.MoveTo(-80769,149819,-3070); Engine.SetTarget(30320); ///Richlin Engine.DlgOpen; Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('Talking Island Village - 9400 Adena '); Delay(3000); Engine.SetTarget(30006); ///? TI GK Engine.DlgOpen; Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('Talking Island, Northern Territory - 1000 Adena '); Delay(3000); Engine.MoveTo(-109317,215731,-3266); Delay(500); Engine.MoveTo(-111372,217019,-3266); Delay(300000); Print('15 minutes remaining'); Delay(300000); Print('10 minutes remaining'); Delay(300000); Print('5 minutes remaining'); Delay(300000); Print('Hunting time expired, using SOE now'); Engine.UseItem(736); //Scroll Escape Delay(30000); Engine.MoveTo(-85292,243739,-3728); Delay(500); Engine.MoveTo(-84136,244612,-3140); Delay(500); Engine.SetTarget(30006); ///? TI GK Engine.DlgOpen; Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Village of Gludin - 18000 Adena '); Delay(3000); Engine.MoveTo(-81056,150257,-3056); Delay(500); Engine.MoveTo(-84605,150799,-3155); Delay(500); Engine.SetTarget(30731); ///Martin Engine.DlgOpen; Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('Ask about the next task'); Delay(500); Engine.MoveTo(-81056,150257,-3056); Delay(500); Engine.MoveTo(-80769,149819,-3070); Engine.SetTarget(30320); ///Richlin Engine.DlgOpen; Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Town of Gludio - 7300 Adena '); Delay(3000); Engine.SetTarget(30256); ///Bella Engine.DlgOpen; Delay(500); Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('I wish to learn about pets.'); Delay(500); Engine.DlgSel('Next.'); Delay(500); Engine.DlgOpen; Delay(500); Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Town of Dion - 17000 Adena '); Delay(3000); Engine.MoveTo(16157,144732,-3048); Delay(500); Engine.MoveTo(17019,147030,-3127); Delay(500); Engine.MoveTo(17433,147423,-3120); Delay(500); Engine.MoveTo(17479,147622,-3112); Delay(500); Engine.SetTarget(30072); ///Metty Engine.DlgOpen; Delay(500); Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('Tell me about the pets.'); Delay(500); Engine.MoveTo(17840,145972,-3122); Delay(500); Engine.MoveTo(16527,144335,-3013); Delay(500); Engine.MoveTo(15608,142908,-2732); Delay(500); Engine.SetTarget(30059); ///Trisha Engine.DlgOpen; Delay(500); Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Town of Giran - 6800 Adena '); Delay(3000); Engine.MoveTo(80818,148577,-3495); Delay(500); Engine.MoveTo(79764,148865,-3559); Delay(500); Engine.MoveTo(80040,149459,-3512); Delay(500); Engine.MoveTo(80441,149255,-3504); Delay(500); Engine.SetTarget(30091); ///Ellie Engine.DlgOpen; Delay(500); Engine.DlgSel('Quest'); Delay(500); Engine.DlgSel('[Get a Pet (In Progress)]'); Delay(500); Engine.DlgSel('I wish to learn about pets'); Delay(500); Engine.MoveTo(80441,149255,-3504); Delay(500); Engine.MoveTo(80040,149459,-3512); Delay(500); Engine.MoveTo(79764,148865,-3559); Delay(500); Engine.MoveTo(80818,148577,-3495); Delay(500); Engine.MoveTo(83401,147924,-3400); Delay(500); Engine.SetTarget(30080); ///Clarissa Engine.DlgOpen; Delay(500); Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Town of Dion - 38000 Adena '); Delay(3000); Engine.SetTarget(30059); ///Trisha Engine.DlgOpen; Delay(500); Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Town of Gludio - 3400 Adena '); Delay(3000); Engine.SetTarget(30256); ///Bella Engine.DlgOpen; Delay(500); Engine.DlgSel('Teleport'); Delay(500); Engine.DlgSel('The Village of Gludin - 33000 Adena '); Delay(3000); Engine.MoveTo(-81072,150275,-3056); Delay(500); Engine.MoveTo(-83128,150720,-3120); Delay(500); Engine.MoveTo(-84614,150810,-3155); Delay(500); end. Quote Link to comment Share on other sites More sharing options...
the_martines Posted September 27, 2017 Share Posted September 27, 2017 Is there a way to automate the creation of player shops? I mean selling/buing materials and soulshots. Quote Link to comment Share on other sites More sharing options...
AlmostGood Posted September 27, 2017 Share Posted September 27, 2017 (edited) On 24.09.2017 at 9:09 PM, takoulas said: is that possible to do it? on 0:30 sec u can see s part of the script :) ...any hlp? server shows number of registered chars via npc dialog, so all this script does is talking to npc each 1 sec and sending number found in html to party chat. Edited September 27, 2017 by AlmostGood Quote Link to comment Share on other sites More sharing options...
takoulas Posted October 8, 2017 Share Posted October 8, 2017 On 9/27/2017 at 4:31 PM, AlmostGood said: server shows number of registered chars via npc dialog, so all this script does is talking to npc each 1 sec and sending number found in html to party chat. ty for your answer any chance to help me write this script? Quote Link to comment Share on other sites More sharing options...
Alessonborges Posted October 10, 2017 Share Posted October 10, 2017 Can any charitable soul help me with scripting for this kind of captcha? Thank you so much!!!! 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.