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

45 minutes ago, bartun said:

 

Yeah thanks, but already read it 2 days ago, I am using cracked Adrenaline and I am trying to learn to edit/modify easy scripts just that haha (I don't have the script recorder and i don't have any tool to discover the ByPassToServer)

 

But no problem, the server for what I need this script is nearly to die so.. no problem..

 

By the way, lot of thanks!

 

Share this post


Link to post
Share on other sites
  • Replies 782
  • 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

21 minutes ago, adr.bot said:

 

 

26 minutes ago, adr.bot said:

 

 

Oh god, Thanks, didn't know I could do it without the script recorder or something like that!

 

Maybe I won't use it but It worked! It was Engine.ByPassToServer('custom_bank_deposit'), script working perfectly!

 

Thanks for help me learning <3

Share this post


Link to post
Share on other sites

Hi all. I need a script that automatly give party to another character when the buffs are gone. (The other character will acept the party and buff the main character)

This is the script:

 

var Figth_Flag:boolean;
     Obj: TL2Buff;
     IdBuff: integer;
     Buffs:TL2Buff;
var L2Skill: TL2Skill;

procedure toBuff;
  begin
  IdBuff:=1204 ;  //Check BUFF
   while not User.Buffs.ById(IdBuff,obj) do begin
        Print('Check Buff');
        engine.inviteparty('CharName');  //Party
        Delay(7000);
        
 end;
        end;

 

 

I dont get any error message, but the script dont work. The adrenaline runs it for 1 sec and then stops.

 

Any advice?

Share this post


Link to post
Share on other sites

That while loop will end as soon as the player has IdBuff. You want it to continue running:

 

const
  WindWalk = 1204;

procedure InviteBuffer(bufferName: String);
var
  buff: TL2Buff;
begin
  while  Engine.Status = lsOnline  do
  begin
    if  not User.Buffs.ById(WindWalk, buff)  then
      Engine.InviteParty(bufferName);
    Delay(1000);
  end;
end;

procedure Main();
begin
  Script.NewThread(@InviteBuffer('CharName');
end;

begin
  Main();
end.

 

Edited by darknesscrysis

Share this post


Link to post
Share on other sites
On 5/6/2020 at 1:51 PM, darknesscrysis said:

That while loop will end as soon as the player has IdBuff. You want it to continue running:

 


const
  WindWalk = 1204;

procedure InviteBuffer(bufferName: String);
var
  buff: TL2Buff;
begin
  while  Engine.Status = lsOnline  do
  begin
    if  not User.Buffs.ById(WindWalk, buff)  then
      Engine.InviteParty(bufferName);
    Delay(1000);
  end;
end;

procedure Main();
begin
  Script.NewThread(@InviteBuffer('CharName');
end;

begin
  Main();
end.

 

Thanks dark, this works perfectly!

Share this post


Link to post
Share on other sites

Hi all, im new here and scripting. Im trying to do a script for control my pj wisping they or chating in pt. For example, if i wisp "jhon" and i say "invme" then "jhon" send me invite. or use action or skill, this kind of things.

 

Can you help me? Thanks ^^

Share this post


Link to post
Share on other sites
5 hours ago, batukada said:

Hi all, im new here and scripting. Im trying to do a script for control my pj wisping they or chating in pt. For example, if i wisp "jhon" and i say "invme" then "jhon" send me invite. or use action or skill, this kind of things.

 

Can you help me? Thanks ^^

 

(ChatMessage.Unread)
(ChatMessage.ChatType = ctParty)

 

https://adrenalinebot.com/en/api/example/game-chat-scanner-looking-for-needed-phrases

Share this post


Link to post
Share on other sites

Hi guys, especially @adr.bot, how can we read system messages on adr? i have cracked 1.71 version. Or on screen damage messages?

On 2/19/2020 at 4:01 PM, fAkeN said:

Use WaitAction instead.

 


var
  id , p : integer;
begin
   while (true) do
   begin
      Engine.WaitAction([laSysMsg],id,p);
      print(id);
   end;
end.

 

@fAkeNhi, i  can print the id of message but cant read the message. how can i read the message text? need to read system messages. thx for any help

Share this post


Link to post
Share on other sites

Hi! i did that script to control secondaries accounts wisping him but only works first "if" (lve). If i wisp pt didnt works.

uses SysUtils;

procedure ChatScanerThread();

var
said: string;
  
begin
said:= (ChatMessage.Text);
  while delay(100) do begin
    if (ChatMessage.Unread) and (ChatMessage.ChatType = mtPrivate)
    and (ChatMessage.Time < 3333) and (ChatMessage.Text = said)then
    begin         
          if said = 'lve' then begin
            Print('Leaving')
          end;
          if said = 'pt' then begin 
            Print('inviting')
          end;
     end; 
   end;
 end;
  
begin
  Script.NewThread(@ChatScanerThread);
  Delay(-1);
end.

whats wrong? :S

Edited by batukada

Share this post


Link to post
Share on other sites
On 5/19/2020 at 11:43 PM, batukada said:

Hi! i did that script to control secondaries accounts wisping him but only works first "if" (lve). If i wisp pt didnt works.


uses SysUtils;

procedure ChatScanerThread();

var
said: string;
  
begin
said:= (ChatMessage.Text);
  while delay(100) do begin
    if (ChatMessage.Unread) and (ChatMessage.ChatType = mtPrivate)
    and (ChatMessage.Time < 3333) and (ChatMessage.Text = said)then
    begin         
          if said = 'lve' then begin
            Print('Leaving')
          end;
          if said = 'pt' then begin 
            Print('inviting')
          end;
     end; 
   end;
 end;
  
begin
  Script.NewThread(@ChatScanerThread);
  Delay(-1);
end.

whats wrong? :S

take a look at that

 

https://adrenalinebot.com/en/api/example/repeat-dialog-selection-by-bots-after-main-character

Share this post


Link to post
Share on other sites
  • 2 weeks later...
On 8/20/2016 at 8:13 PM, adr.bot said:

well anyone if need with auto login, its not perfect but better than nothing


uses SysUtils;

const
buff_ID:integer = 7029;

var
loggedIn:boolean;
 
function ShellExecuteW(hwnd: integer; lpOperation, lpFile, lpParameters, lpDirectory: PChar;  nShowCmd: integer): integer; stdcall;
  external 'Shell32.dll';
 
function keybd_event(bVk, bScan: byte; dwFlags, dwExtraInfo: integer): integer; stdcall;
  external 'user32.dll';

function ShowWindow(hwnd:cardinal; action:integer):boolean; stdcall;
external 'user32.dll';
 
procedure disconnectMonitor;
const
  login = 'qq';
  password = 'aa';
  gamePath = 'C:\Users\Pc\Desktop\server\Lineage II\system\l2.exe';
begin
  while engine.Delay(3000) do begin  
    if (Engine.Status = lsOffline) or (Engine.Status = lsOff) then begin
      loggedIn:=true;
      print('dc');
      Engine.FaceControl(0, false);
      Delay(1000);
      Engine.GameClose;
      Delay(1000);
      ShellExecuteW(0, 'open', PChar(gamePath), nil, nil, 0);
      Delay(15000);
      enterText(login);
      Engine.UseKey('Tab');
      Delay(300);
      enterText(password);
      Delay(300);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(2000);
      Engine.UseKey('Enter');
      Delay(10000);
      ShowWindow(engine.gamewindow, 6);
    end;
  end;
end;
 
procedure enterText(const text: string);
var
  i: cardinal;
  upperCase: boolean;
begin
  for i:= 1 to length(text) do begin
    if isDigit(text[i]) then
      Engine.UseKey(text[i])
    else begin
      upperCase:= text[i] = UpCase(text[i]);
      if upperCase then begin
          keybd_event(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
          Engine.UseKey(text[i]);
          delay(10);
          keybd_event(20, 0, 1, 0);
          keybd_event(20, 0, 2, 0);
      end else
        Engine.UseKey(text[i]);
    end;
    Delay(50);
  end;
end;
 
function isDigit(ch: char): boolean;
const
  digits = '013456789';
var
  i: cardinal;
begin
  result:= false;
  for i:= 0 to length(digits) do
    if digits[i] = ch then begin
      result:= true;
      exit;
    end;
end;

function buffCheck: Boolean;
var buff: TL2Buff;
begin
Result:=false;
    if not User.Buffs.ByID(buff_ID, buff) then begin
        Result:=true;
        Print('Buffs are needed...');
        if Engine.SetTarget(31692) then begin //NPC ID
           engine.useskill(7029);
           delay(1111);
           //buff part here
           Print('Buffed.');
        end else begin
           if (user.target.valid) and (user.target.attackable) then
           while not user.target.dead do delay(50);
           Engine.FaceControl(0, false);
           print('No buffer - doing soe...');
           if engine.entertext('/unstuck') and engine.delay(1111) then
           while user.cast.endtime <> 0 do delay(2222);
           delay(5555);
        end;
    end;
end;

function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Result := true;
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(5555);
    end;
end;

procedure farmAndBack;
begin
while true do begin
delay(1111);
if not loggedIn then begin
if engine.status = lsonline then begin
//---------------------------------------------------
// Goddard
//---------------------------------------------------
if user.inrange(146272, -58176, -2976, 250, 150) then begin
if User.InRange(146272, -58176, -2971, 300, 150) then Engine.MoveTo(145849, -57856, -2983);
if User.InRange(145849, -57856, -2983, 300, 150) then Engine.MoveTo(145708, -57656, -2983);
if User.InRange(145708, -57656, -2983, 300, 150) then Engine.MoveTo(145480, -56995, -2983);
if User.InRange(145480, -56995, -2983, 300, 150) then Engine.MoveTo(145600, -56820, -2979);
if User.InRange(145600, -56820, -2979, 300, 150) then Engine.MoveTo(145770, -56703, -2888);
if User.InRange(145770, -56703, -2888, 300, 150) then Engine.MoveTo(146136, -56468, -2783);
if User.InRange(146136, -56468, -2783, 300, 150) then Engine.MoveTo(147158, -56153, -2783);
if User.InRange(147158, -56153, -2783, 300, 150) then Engine.MoveTo(147523, -56004, -2775);
if User.InRange(147523, -56004, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(145264, -57680, -2976, 250, 150) then begin
if User.InRange(145264, -57680, -2971, 300, 150) then Engine.MoveTo(145484, -56907, -2983);
if User.InRange(145484, -56907, -2983, 300, 150) then Engine.MoveTo(145773, -56699, -2886);
if User.InRange(145773, -56699, -2886, 300, 150) then Engine.MoveTo(146107, -56480, -2784);
if User.InRange(146107, -56480, -2784, 300, 150) then Engine.MoveTo(147192, -56142, -2783);
if User.InRange(147192, -56142, -2783, 300, 150) then Engine.MoveTo(147520, -55983, -2775);
if User.InRange(147520, -55983, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(145696, -57696, -2976, 250, 150) then begin
if User.InRange(145696, -57696, -2971, 300, 150) then Engine.MoveTo(145500, -56937, -2983);
if User.InRange(145500, -56937, -2983, 300, 150) then Engine.MoveTo(145773, -56701, -2886);
if User.InRange(145773, -56701, -2886, 300, 150) then Engine.MoveTo(146121, -56472, -2783);
if User.InRange(146121, -56472, -2783, 300, 150) then Engine.MoveTo(147265, -56109, -2783);
if User.InRange(147265, -56109, -2783, 300, 150) then Engine.MoveTo(147500, -55930, -2767);
if User.InRange(147500, -55930, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(144944, -55392, -2976, 250, 150) then begin
if User.InRange(144944, -55392, -2971, 300, 150) then Engine.MoveTo(144913, -55647, -2983);
if User.InRange(144913, -55647, -2983, 300, 150) then Engine.MoveTo(145027, -56285, -2983);
if User.InRange(145027, -56285, -2983, 300, 150) then Engine.MoveTo(145092, -56489, -2983);
if User.InRange(145092, -56489, -2983, 300, 150) then Engine.MoveTo(145356, -56891, -2983);
if User.InRange(145356, -56891, -2983, 300, 150) then Engine.MoveTo(145539, -56846, -2983);
if User.InRange(145539, -56846, -2983, 300, 150) then Engine.MoveTo(145763, -56692, -2887);
if User.InRange(145763, -56692, -2887, 300, 150) then Engine.MoveTo(146103, -56477, -2784);
if User.InRange(146103, -56477, -2784, 300, 150) then Engine.MoveTo(147008, -56177, -2783);
if User.InRange(147008, -56177, -2783, 300, 150) then Engine.MoveTo(147497, -55998, -2775);
if User.InRange(147497, -55998, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(144752, -56752, -2976, 250, 150) then begin
if User.InRange(144752, -56752, -2971, 300, 150) then Engine.MoveTo(145283, -56881, -2983);
if User.InRange(145283, -56881, -2983, 300, 150) then Engine.MoveTo(145480, -56896, -2983);
if User.InRange(145480, -56896, -2983, 300, 150) then Engine.MoveTo(145769, -56691, -2885);
if User.InRange(145769, -56691, -2885, 300, 150) then Engine.MoveTo(146121, -56472, -2783);
if User.InRange(146121, -56472, -2783, 300, 150) then Engine.MoveTo(147223, -56110, -2783);
if User.InRange(147223, -56110, -2783, 300, 150) then Engine.MoveTo(147480, -55983, -2775);
if User.InRange(147480, -55983, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(149120, -58064, -2976, 250, 150) then begin
if User.InRange(149120, -58064, -2971, 300, 150) then Engine.MoveTo(149581, -57760, -2983);
if User.InRange(149581, -57760, -2983, 300, 150) then Engine.MoveTo(149689, -57638, -2983);
if User.InRange(149689, -57638, -2983, 300, 150) then Engine.MoveTo(149962, -57118, -2983);
if User.InRange(149962, -57118, -2983, 300, 150) then Engine.MoveTo(149948, -56913, -2983);
if User.InRange(149948, -56913, -2983, 300, 150) then Engine.MoveTo(149650, -56697, -2885);
if User.InRange(149650, -56697, -2885, 300, 150) then Engine.MoveTo(149265, -56443, -2783);
if User.InRange(149265, -56443, -2783, 300, 150) then Engine.MoveTo(148211, -56093, -2783);
if User.InRange(148211, -56093, -2783, 300, 150) then Engine.MoveTo(147914, -55957, -2774);
if User.InRange(147914, -55957, -2774, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(150400, -56752, -2976, 250, 150) then begin
if User.InRange(150400, -56752, -2971, 300, 150) then Engine.MoveTo(150019, -56918, -2983);
if User.InRange(150019, -56918, -2983, 300, 150) then Engine.MoveTo(149663, -56695, -2889);
if User.InRange(149663, -56695, -2889, 300, 150) then Engine.MoveTo(149320, -56465, -2783);
if User.InRange(149320, -56465, -2783, 300, 150) then Engine.MoveTo(149125, -56366, -2783);
if User.InRange(149125, -56366, -2783, 300, 150) then Engine.MoveTo(148213, -56122, -2783);
if User.InRange(148213, -56122, -2783, 300, 150) then Engine.MoveTo(147934, -55937, -2767);
if User.InRange(147934, -55937, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(150704, -55744, -2976, 250, 150) then begin
if User.InRange(150704, -55744, -2971, 300, 150) then Engine.MoveTo(150450, -56378, -2983);
if User.InRange(150450, -56378, -2983, 300, 150) then Engine.MoveTo(150249, -56735, -2983);
if User.InRange(150249, -56735, -2983, 300, 150) then Engine.MoveTo(150018, -56927, -2983);
if User.InRange(150018, -56927, -2983, 300, 150) then Engine.MoveTo(149657, -56697, -2888);
if User.InRange(149657, -56697, -2888, 300, 150) then Engine.MoveTo(149335, -56480, -2784);
if User.InRange(149335, -56480, -2784, 300, 150) then Engine.MoveTo(149183, -56379, -2783);
if User.InRange(149183, -56379, -2783, 300, 150) then Engine.MoveTo(148654, -56222, -2783);
if User.InRange(148654, -56222, -2783, 300, 150) then Engine.MoveTo(148065, -56072, -2783);
if User.InRange(148065, -56072, -2783, 300, 150) then Engine.MoveTo(147935, -55915, -2767);
if User.InRange(147935, -55915, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(147680, -58208, -2976, 250, 150) then begin
if User.InRange(147680, -58208, -2971, 300, 150) then Engine.MoveTo(147709, -57988, -2983);
if User.InRange(147709, -57988, -2983, 300, 150) then Engine.MoveTo(147712, -57707, -2886);
if User.InRange(147712, -57707, -2886, 300, 150) then Engine.MoveTo(147720, -57307, -2784);
if User.InRange(147720, -57307, -2784, 300, 150) then Engine.MoveTo(147744, -56149, -2783);
if User.InRange(147744, -56149, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(148288, -58304, -2976, 250, 150) then begin
if User.InRange(148288, -58304, -2971, 300, 150) then Engine.MoveTo(147728, -58113, -2983);
if User.InRange(147728, -58113, -2983, 300, 150) then Engine.MoveTo(147719, -57704, -2884);
if User.InRange(147719, -57704, -2884, 300, 150) then Engine.MoveTo(147723, -57327, -2784);
if User.InRange(147723, -57327, -2784, 300, 150) then Engine.MoveTo(147747, -56101, -2783);
if User.InRange(147747, -56101, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(147232, -58480, -2976, 250, 150) then begin
if User.InRange(147232, -58480, -2971, 300, 150) then Engine.MoveTo(147654, -58136, -2983);
if User.InRange(147654, -58136, -2983, 300, 150) then Engine.MoveTo(147710, -57978, -2983);
if User.InRange(147710, -57978, -2983, 300, 150) then Engine.MoveTo(147707, -57704, -2885);
if User.InRange(147707, -57704, -2885, 300, 150) then Engine.MoveTo(147709, -57313, -2784);
if User.InRange(147709, -57313, -2784, 300, 150) then Engine.MoveTo(147733, -56181, -2783);
if User.InRange(147733, -56181, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;  
if user.inrange(149088, -56256, -2776, 250, 150) then begin
if User.InRange(149088, -56256, -2771, 300, 150) then Engine.MoveTo(148389, -56149, -2783);
if User.InRange(148389, -56149, -2783, 300, 150) then Engine.MoveTo(148043, -56064, -2783);
if User.InRange(148043, -56064, -2783, 300, 150) then Engine.MoveTo(147912, -55922, -2767);
if User.InRange(147912, -55922, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(146832, -55904, -2776, 250, 150) then begin
if User.InRange(146832, -55904, -2771, 300, 150) then Engine.MoveTo(147303, -56054, -2783);
if User.InRange(147303, -56054, -2783, 300, 150) then Engine.MoveTo(147490, -56005, -2775);
if User.InRange(147490, -56005, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(146368, -56256, -2776, 250, 150) then begin
if User.InRange(146368, -56256, -2771, 300, 150) then Engine.MoveTo(146968, -56156, -2783);
if User.InRange(146968, -56156, -2783, 300, 150) then Engine.MoveTo(147349, -56110, -2783);
if User.InRange(147349, -56110, -2783, 300, 150) then Engine.MoveTo(147498, -55988, -2775);
if User.InRange(147498, -55988, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(147664, -56464, -2776, 250, 150) then begin
if User.InRange(147664, -56464, -2771, 300, 150) then Engine.MoveTo(147701, -56046, -2775);
if User.InRange(147701, -56046, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(147680, -56928, -2776, 250, 150) then begin
if User.InRange(147680, -56928, -2771, 300, 150) then Engine.MoveTo(147707, -56086, -2783);
if User.InRange(147707, -56086, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(148560, -55904, -2776, 250, 150) then begin
if User.InRange(148560, -55904, -2771, 300, 150) then Engine.MoveTo(148213, -56048, -2783);
if User.InRange(148213, -56048, -2783, 300, 150) then Engine.MoveTo(147970, -56030, -2783);
if User.InRange(147970, -56030, -2783, 300, 150) then Engine.MoveTo(147927, -55934, -2767);
if User.InRange(147927, -55934, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(149872, -57424, -2976, 250, 150) then begin
if User.InRange(149872, -57424, -2971, 300, 150) then Engine.MoveTo(149954, -56966, -2983);
if User.InRange(149954, -56966, -2983, 300, 150) then Engine.MoveTo(149857, -56845, -2983);
if User.InRange(149857, -56845, -2983, 300, 150) then Engine.MoveTo(149650, -56703, -2887);
if User.InRange(149650, -56703, -2887, 300, 150) then Engine.MoveTo(149320, -56472, -2784);
if User.InRange(149320, -56472, -2784, 300, 150) then Engine.MoveTo(149157, -56414, -2783);
if User.InRange(149157, -56414, -2783, 300, 150) then Engine.MoveTo(148651, -56204, -2783);
if User.InRange(148651, -56204, -2783, 300, 150) then Engine.MoveTo(147991, -56027, -2783);
if User.InRange(147991, -56027, -2783, 300, 150) then Engine.MoveTo(147888, -55926, -2767);
if User.InRange(147888, -55926, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(144960, -56224, -2976, 250, 150) then begin
if User.InRange(144960, -56224, -2971, 300, 150) then Engine.MoveTo(145058, -56508, -2983);
if User.InRange(145058, -56508, -2983, 300, 150) then Engine.MoveTo(145266, -56844, -2983);
if User.InRange(145266, -56844, -2983, 300, 150) then Engine.MoveTo(145477, -56903, -2983);
if User.InRange(145477, -56903, -2983, 300, 150) then Engine.MoveTo(145776, -56696, -2884);
if User.InRange(145776, -56696, -2884, 300, 150) then Engine.MoveTo(146140, -56448, -2783);
if User.InRange(146140, -56448, -2783, 300, 150) then Engine.MoveTo(146776, -56191, -2783);
if User.InRange(146776, -56191, -2783, 300, 150) then Engine.MoveTo(147356, -56089, -2783);
if User.InRange(147356, -56089, -2783, 300, 150) then Engine.MoveTo(147516, -55930, -2767);
if User.InRange(147516, -55930, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;   
if user.inrange(144496, -55088, -2976, 250, 150) then begin
if User.InRange(144496, -55088, -2971, 300, 150) then Engine.MoveTo(144742, -55433, -2983);
if User.InRange(144742, -55433, -2983, 300, 150) then Engine.MoveTo(144847, -56003, -2983);
if User.InRange(144847, -56003, -2983, 300, 150) then Engine.MoveTo(145064, -56560, -2983);
if User.InRange(145064, -56560, -2983, 300, 150) then Engine.MoveTo(145339, -56939, -2983);
if User.InRange(145339, -56939, -2983, 300, 150) then Engine.MoveTo(145563, -56858, -2983);
if User.InRange(145563, -56858, -2983, 300, 150) then Engine.MoveTo(145799, -56680, -2884);
if User.InRange(145799, -56680, -2884, 300, 150) then Engine.MoveTo(146159, -56446, -2783);
if User.InRange(146159, -56446, -2783, 300, 150) then Engine.MoveTo(146788, -56217, -2783);
if User.InRange(146788, -56217, -2783, 300, 150) then Engine.MoveTo(147374, -56057, -2783);
if User.InRange(147374, -56057, -2783, 300, 150) then Engine.MoveTo(147521, -55936, -2767);
if User.InRange(147521, -55936, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(145392, -56960, -2976, 250, 150) then begin
if User.InRange(145392, -56960, -2971, 300, 150) then Engine.MoveTo(145577, -56837, -2983);
if User.InRange(145577, -56837, -2983, 300, 150) then Engine.MoveTo(145791, -56684, -2884);
if User.InRange(145791, -56684, -2884, 300, 150) then Engine.MoveTo(146151, -56432, -2783);
if User.InRange(146151, -56432, -2783, 300, 150) then Engine.MoveTo(146760, -56200, -2783);
if User.InRange(146760, -56200, -2783, 300, 150) then Engine.MoveTo(147179, -56107, -2783);
if User.InRange(147179, -56107, -2783, 300, 150) then Engine.MoveTo(147476, -56003, -2775);
if User.InRange(147476, -56003, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(147705, -58490, -2981, 500, 150) then begin
if User.InRange(147705, -58490, -2976, 300, 150) then Engine.MoveTo(147720, -57977, -2983);
if User.InRange(147720, -57977, -2983, 300, 150) then Engine.MoveTo(147713, -57704, -2885);
if User.InRange(147713, -57704, -2885, 300, 150) then Engine.MoveTo(147711, -57295, -2783);
if User.InRange(147711, -57295, -2783, 300, 150) then Engine.MoveTo(147723, -56053, -2783);
if User.InRange(147723, -56053, -2783, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(150257, -57162, -2981, 500, 150) then begin
if User.InRange(150257, -57162, -2976, 300, 150) then Engine.MoveTo(149917, -56883, -2983);
if User.InRange(149917, -56883, -2983, 300, 150) then Engine.MoveTo(149643, -56689, -2884);
if User.InRange(149643, -56689, -2884, 300, 150) then Engine.MoveTo(149271, -56442, -2783);
if User.InRange(149271, -56442, -2783, 300, 150) then Engine.MoveTo(148627, -56183, -2783);
if User.InRange(148627, -56183, -2783, 300, 150) then Engine.MoveTo(148028, -56075, -2783);
if User.InRange(148028, -56075, -2783, 300, 150) then Engine.MoveTo(147923, -55927, -2767);
if User.InRange(147923, -55927, -2767, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;
if user.inrange(145152, -57116, -2981, 500, 150) then begin
if User.InRange(145152, -57116, -2976, 300, 150) then Engine.MoveTo(145552, -56852, -2983);
if User.InRange(145552, -56852, -2983, 300, 150) then Engine.MoveTo(145797, -56682, -2884);
if User.InRange(145797, -56682, -2884, 300, 150) then Engine.MoveTo(146120, -56451, -2783);
if User.InRange(146120, -56451, -2783, 300, 150) then Engine.MoveTo(146788, -56201, -2783);
if User.InRange(146788, -56201, -2783, 300, 150) then Engine.MoveTo(147303, -56071, -2783);
if User.InRange(147303, -56071, -2783, 300, 150) then Engine.MoveTo(147508, -55967, -2775);
if User.InRange(147508, -55967, -2775, 300, 150) then Engine.MoveTo(147963, -55257, -2736);
end;

    if user.inrange(147963, -55257, -2736, 500) then begin
        buffCheck;
    end;                                                
    
    if user.inrange(147963, -55257, -2736, 150) and User.Buffs.ByID(buff_ID, buffCheck) then begin
        //teleport
        engine.settarget(31275);
        delay(1111);
        engine.dlgopen;
        delay(1111);
        engine.dlgsel(1);
        delay(1111);
        engine.dlgsel(11);
        Delay(5000);
    end;    
                
    if user.inrange(149574, -112680, -2060, 500) then begin
        //coord to spot
        Engine.MoveTo(150009, -111081, -2236);
    
        Delay(500);
        engine.loadzone('hs');
        Engine.FaceControl(0, true);
        while (not (deadCheck or buffCheck)) and (engine.status = lsonline) do delay(2000);
    end;
end;
end else begin
if engine.status = lsonline then begin
if engine.entertext('/unstuck') and engine.delay(1111) then
while user.cast.endtime <> 0 do delay(2222);
delay(5555);
loggedIn:=false;
end;
end;
end;
end;
                        
begin
if engine.status <> lsonline then loggedIn:= true else loggedIn:= false;
  Script.NewThread(@disconnectMonitor);
  Script.NewThread(@farmAndBack);
end. 

Google translator...

Hello people!
Well, I prepared my script based on the one described above. Apparently, it is flowing normally, however, because my notebook is old, this video card warning appears, I already know the cause and the solution would be to buy only a more current notebook, but my notebook has good settings, the only problem it is the recognition of the plate by the game.
 

If anyone can help, I would like a line of code that I can confirm with OK, so that the game opens and the rest of the script continues.PW7LRAS.jpg

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.