Request L2 Adrenaline Scripts.

[bartun]

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

[elrey2]

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?

[darknesscrysis]

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 May 7, 2020 by darknesscrysis

[skin01h]

HI anyone know script to change shadow weapon when dissapear??

[kcSeller]

nice thread, got a lot of infoi for adren here, thank you everyone

[elrey2]

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!

[batukada]

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 ^^

[arturo134]

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

[gemisiz1]

he script have for bishop cleanse?

[eragontr]

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

[batukada]

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 May 20, 2020 by batukada

[amita]

https://easyupload.io/aokgsh

autonobles l2 tales .....works in any hi5 if u edit alt b  and teleport .txt :)

 

pass:maxcheaters

Edited May 24, 2020 by amita

[JaharakaL]

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

[RanZum]

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.

[khada321]

@adr.bot can you make a scrip for   summ seraphin and  give buff and summ boxer again for give mana  its for farm like pony i mean buff , sumon boxer and kill like a mage .