Jump to content

L2 Adrenaline Scripts.


Recommended Posts

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
Link to comment
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).

Link to comment
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
Link to comment
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 :/

Link to comment
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
Link to comment
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.

 

Link to comment
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
Link to comment
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?

Link to comment
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.




×
×
  • Create New...