Jump to content
--> Place your ad text here <--
Get Free Banners - Giveaway MaxCheaters.com
We're Rebuilding – Join Our Staff Team

L2 Adrenaline Scripts.

hornas

By hornas
in Request Botting [English]

 Share

Recommended Posts

powercheats Newbie

powercheats

Posted
Posted (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 by powercheats
Cruz59 Newbie

Cruz59

Posted
Posted

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

fAkeN Apprentice

fAkeN

Posted
Posted

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

tuan10163 Newbie

tuan10163

Posted
Posted (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 by tuan10163
yoejoe Newbie

yoejoe

Posted
Posted

 

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

  • 1 month later...
deviouz1 Newbie

deviouz1

Posted
Posted (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 by deviouz1
deviouz1 Newbie

deviouz1

Posted
Posted

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.

 

AlmostGood Enthusiast

AlmostGood

Posted
Posted (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 by AlmostGood
  • 2 weeks later...
takoulas Newbie

takoulas

Posted
Posted
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?

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.

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.

×
 Share
Go to topic listing


  • Posts

    • SocNet
      ⭐SOCNET BOOST⭐ is a new solution among all SMM panels

      By SocNet · Posted

      Dear friends, right now we are holding a grand competition with a prize fund of more than $ 1000 in our stores https://socnet.store , telegram store: https://socnet.shop and SMM panel: https://socnet.pro There are more than 50 prize places in our competition, each lucky person can take one of the places. Important condition: you must make a purchase at any time before June 1, 2025. The more purchases you make - the more chances you have to win the main prize in the community of $ 300! ➡ Our Online Shop: socnet.store  ➡ Our SMM-Boosting Panel: socnet.pro  ➡ Telegram Shop Bot: socnet.shop  ➡ Telegram Support: https://t.me/solomon_bog  ➡ Telegram Channel: https://t.me/accsforyou_shop  ➡ Discord Support: @AllSocialNetworksShop  ➡ Discord Server: https://discord.gg/y9AStFFsrh  ➡ WhatsApp Support: 79051904467 ➡ WhatsApp Channel: https://whatsapp.com/channel/0029Vau0CMX002TGkD4uHa2n  ➡ Email Support: solomonbog@socnet.store 
    • SocNet
      SOCNET | The Social Media acocunts at low prices!

      By SocNet · Posted

      Dear friends, right now we are holding a grand competition with a prize fund of more than $ 1000 in our stores https://socnet.store , telegram store: https://socnet.shop and SMM panel: https://socnet.pro There are more than 50 prize places in our competition, each lucky person can take one of the places. Important condition: you must make a purchase at any time before June 1, 2025. The more purchases you make - the more chances you have to win the main prize in the community of $ 300! ➡ Our Online Shop: socnet.store  ➡ Our SMM-Boosting Panel: socnet.pro  ➡ Telegram Shop Bot: socnet.shop  ➡ Telegram Support: https://t.me/solomon_bog  ➡ Telegram Channel: https://t.me/accsforyou_shop  ➡ Discord Support: @AllSocialNetworksShop  ➡ Discord Server: https://discord.gg/y9AStFFsrh  ➡ WhatsApp Support: 79051904467 ➡ WhatsApp Channel: https://whatsapp.com/channel/0029Vau0CMX002TGkD4uHa2n  ➡ Email Support: solomonbog@socnet.store 
    • xaguR
      REBORN ETERNAL x10

      By xaguR · Posted

      REBORN ETERNAL IL x10 WTS  1gb 8e (a lot in stock) DR set +6 180e Frintezza+6 200e Zaken+6 200e AQ+6 200e You must go first or Pufa middleman service
    • Tryskell
      aCis - another CRAPPY interlude server

      By Tryskell · Posted

      There's many reasons why it would be more NO than YES : Using NCSoft assets is a death wish, they can lawyer any LU3/Unity if they wanted, since it's a plain steal of intellectual property. It's an hobby, as you said it, and it's not specially about money. Money is a way to filter idiots/resellers, nothing more. It's really about trying to replicate old content and optimize it which I find it fun. I just align with the basic idea than an emulator emulates. When you launch Project64 and SuperMario 64, you don't expect to get something more than 120 stars and Bowser boss in the end - which should have been L2J project to begin with Even if I played a lot with TESCS from Morrowind, back in time, it's not enough to handle current engines, and I'm too lazy to learn Unity/Unreal Engine. Moreover, it would mean buying assets. While doing it alone would be a fail, coupling to L2J / L2 community would still be shitty (since the majority is RU/BR) ; people is only about fame/glory/reselling shit on back of others. Opening to others, the project would be leaked day 1, rebranded and resold. MMO genre is basically dead, and that's not a reboot of any game (l2/wow classic :D) which will turn the tide. Regarding L2 or an remastered version of it, you can obviously blatantly copy-cat it (as Propnight did for Dead by daylight).   All frenchies aren't supposed to do Expedition 33 :).
    • ZOUMHS
      PTS Vanganth - Classic Interlude P110

      By ZOUMHS · Posted

      190euro until last month, don't miss it.

  • Topics

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock