Welcome to MaxCheaters.com

Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads

Recommended Posts

  • Replies 783
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

The above script works for tutorial windows. For trade chats you would only need to change the packet ID, so search for that. You don't need to ask for a whole other script when you already have one that you just need to modify for it to work.

pto, plase share l2 adrenaline scripts or send to pm :)

Hi if you mean save npc dialog in to txt file so this help for you uses classes; begin with Tstringlist.create do try Text := Engine.DlgText; SaveToFile('C:\dlg.txt'); finally Free; end; end.

Posted Images

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 by powercheats

Share this post


Link to post
Share on other sites

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).

Share this post


Link to post
Share on other sites

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 by tuan10163

Share this post


Link to post
Share on other sites

 

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 :/

Share this post


Link to post
Share on other sites
  • 1 month later...

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 by deviouz1

Share this post


Link to post
Share on other sites

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.

 

Share this post


Link to post
Share on other sites
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 by AlmostGood

Share this post


Link to post
Share on other sites
  • 2 weeks later...
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?

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.