Auto Augment Adrenaline

[adr.bot]

Hello guys, i tried to do adr.bot script but i couldnt do it.First i wanna ask how can we read our actions.in l2tower we can record our actions? can i record in l2adrenaline too?

And second i cant stop script when i started.Its in while loop always.is there a shortcut to stop script?

And third adr.bot can you make script like the video works?Thx all =)

 

https://www.youtube.com/watch?v=8DEeOBikeFI

 

Edit: Server is l2sp.eu also video is from l2sp.eu i guess.everything same.

yeah that server be l2sp.eu when i test xd i recomend use this guy script http://www.maxcheaters.com/topic/195002-adrenaline-scripts-free/ , becouse my old (in that time when i test) script is bugged and deleted xd

[eragontr]

yeah that server be l2sp.eu when i test xd i recomend use this guy script http://www.maxcheaters.com/topic/195002-adrenaline-scripts-free/ , becouse my old (in that time when i test) script is bugged and deleted xd

I already tried this too.But it gives me error.i tried to fix it but again i failed. =( and is there a hotkey to stop script?

[adr.bot]

procedure SuspendScript;
 begin
while true do begin
delay(150);
Engine.WaitAction([lakey], KeyCode, i);
  if (KeyCode = $7B) then begin
  script.Suspend;
  end;
  end;
end;

and if you play l2sp then why dont use phx?xd becouse when last time i checked in that server all works xd

[eragontr]

i couldnt bypass with phx. i tried clean system. but when i try to login it gives me dc. =( but i need adrenaline working script for another servers too.i cant find it and i cant fix it all augment scripts for adrenaline.

[adr.bot]

adrenaline use "mouse move/clicks" for augment, so mostly you need add desktop coordinates what press and etc to make it work, if you use only mouse move and check when get augment and stop manualy then i recommend use simple mouse recorder for that :D

[Adri555]

function keybd_event(bVk,bScan:byte;dwFlags,dwExtraInfo: integer): integer;  stdcall; external 'user32.dll';
function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll';
function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll';

procedure pressKey(hexCode: BYTE);
begin
  keybd_event(hexCode, 45, 1, 0 );
  delay(200);
end;

procedure mouseClick(x, y, _delay : integer); 
begin
SetCursorPos(x, y);
mouse_event($0002, 0, 0, 0, 0);
delay(_delay);
mouse_event($0004, 0, 0, 0, 0);
end;

procedure augments;
var obj: TL2Effect;
begin
while 
(SkillList.ByID(3124, obj)) or
(SkillList.ByID(3259, obj)) do delay(3000);
end;

begin
while Engine.Status = lsOnline do begin
delay(100);
mouseClick(403,726,400);	///mouse click
SetCursorPos(133, 339);		///mouse move
pressKey($62);			///press key 2
pressKey($65);			///press key 5 for add gemstone count
delay(500);
augments;			///and check procedure augments for skill detect
end;
end.

Not sure what i need edit any can help me pls? And if this script use mouse, how i can stop script? with keyboard?

Edited November 6, 2015 by Adri555

[adr.bot]

function keybd_event(bVk,bScan:byte;dwFlags,dwExtraInfo: integer): integer;  stdcall; external 'user32.dll';
function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll';
function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll';

procedure pressKey(hexCode: BYTE);
begin
  keybd_event(hexCode, 45, 1, 0 );
  delay(200);
end;

procedure mouseClick(x, y, _delay : integer); 
begin
SetCursorPos(x, y);
mouse_event($0002, 0, 0, 0, 0);
delay(_delay);
mouse_event($0004, 0, 0, 0, 0);
end;

procedure augments;
var obj: TL2Effect;
begin
while 
(SkillList.ByID(3124, obj)) or
(SkillList.ByID(3259, obj)) do delay(3000);
end;

begin
while Engine.Status = lsOnline do begin
delay(100);
mouseClick(403,726,400);	///mouse click
SetCursorPos(133, 339);		///mouse move
pressKey($62);			///press key 2
pressKey($65);			///press key 5 for add gemstone count
delay(500);
augments;			///and check procedure augments for skill detect
end;
end.

Not sure what i need edit any can help me pls? And if this script use mouse, how i can stop script? with keyboard?

 

you need edit augments procedure, to add more skill when whant stop when get that skill, and you need edit "mouseClick" and etc, suspend script just look litle bit up and you see example

[Adri555]

you need edit augments procedure, to add more skill when whant stop when get that skill, and you need edit "mouseClick" and etc, suspend script just look litle bit up and you see example

 

Ok, i found arguments ids in this post for if any need: http://www.maxcheaters.com/topic/136087-shareaugment-skills-ids/

But how can i know what is me monitor coordinates if is 1920x1080?

Edited November 7, 2015 by Adri555

[adr.bot]

Ok, i found arguments ids in this post for if any need: http://www.maxcheaters.com/topic/136087-shareaugment-skills-ids/

But how can i know what is me monitor coordinates if is 1920x1080?

uses sysutils,classes;
function GetCursorPos(var lpPoint: TPoint): integer; stdcall; external 'user32.dll';
var 
 P: TPoint;
 KeyCode, i: integer;
begin
while true do begin
delay(150);
Engine.WaitAction([lakey], KeyCode, i);
  if (KeyCode = $31)  then begin   //key 1
  GetCursorPos(P);
    print('X: '+IntToStr(P.x))+'. Y: '+IntToStr(P.y);
   end;
  end;
end.

[Adri555]

uses sysutils,classes;
function GetCursorPos(var lpPoint: TPoint): integer; stdcall; external 'user32.dll';
var 
 P: TPoint;
 KeyCode, i: integer;
begin
while true do begin
delay(150);
Engine.WaitAction([lakey], KeyCode, i);
  if (KeyCode = $31)  then begin   //key 1
  GetCursorPos(P);
    print('X: '+IntToStr(P.x))+'. Y: '+IntToStr(P.y);
   end;
  end;
end.

 

Who know how work this wtfxD I used this but no happens nothing

Edited November 7, 2015 by Adri555

[adr.bot]

Who know how work this wtfxD I used this but no happens nothing

in l2 move mouse where you whant and press "1" then it print in bot message window your mouse position

[Adri555]

in l2 move mouse where you whant and press "1" then it print in bot message window your mouse position

 

Hmm this is hard as fuck xDDD

I now trying add this key script for stop script but like this:

function keybd_event(bVk,bScan:byte;dwFlags,dwExtraInfo: integer): integer;  stdcall; external 'user32.dll';
function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll';
function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll';

procedure SuspendScript;
 begin
while true do begin
delay(150);
Engine.WaitAction([lakey], KeyCode, i);
  if (KeyCode = $7B) then begin
  script.Suspend;
  end;
  end;
end;

procedure pressKey(hexCode: BYTE);
begin
  keybd_event(hexCode, 45, 1, 0 );
  delay(200);
end;

procedure mouseClick(x, y, _delay : integer); 
begin
SetCursorPos(x, y);
mouse_event($0002, 0, 0, 0, 0);
delay(_delay);
mouse_event($0004, 0, 0, 0, 0);
end;

procedure augments;
var obj: TL2Effect;
begin
while 
(SkillList.ByID(3124, obj)) or
(SkillList.ByID(3259, obj)) do delay(3000);
end;

begin
while Engine.Status = lsOnline do begin
delay(100);
mouseClick(403,726,400);	///mouse click
SetCursorPos(133, 339);		///mouse move
pressKey($62);			///press key 2
pressKey($65);			///press key 5 for add gemstone count
delay(500);
augments;			///and check procedure augments for skill detect
end;
end.

But got red error in this part: Engine.WaitAction([lakey], KeyCode, i);

[adr.bot]

Hmm this is hard as fuck xDDD

I now trying add this key script for stop script but like this:

function keybd_event(bVk,bScan:byte;dwFlags,dwExtraInfo: integer): integer;  stdcall; external 'user32.dll';
function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll';
function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll';

procedure SuspendScript;
 begin
while true do begin
delay(150);
Engine.WaitAction([lakey], KeyCode, i);
  if (KeyCode = $7B) then begin
  script.Suspend;
  end;
  end;
end;

procedure pressKey(hexCode: BYTE);
begin
  keybd_event(hexCode, 45, 1, 0 );
  delay(200);
end;

procedure mouseClick(x, y, _delay : integer); 
begin
SetCursorPos(x, y);
mouse_event($0002, 0, 0, 0, 0);
delay(_delay);
mouse_event($0004, 0, 0, 0, 0);
end;

procedure augments;
var obj: TL2Effect;
begin
while 
(SkillList.ByID(3124, obj)) or
(SkillList.ByID(3259, obj)) do delay(3000);
end;

begin
while Engine.Status = lsOnline do begin
delay(100);
mouseClick(403,726,400);	///mouse click
SetCursorPos(133, 339);		///mouse move
pressKey($62);			///press key 2
pressKey($65);			///press key 5 for add gemstone count
delay(500);
augments;			///and check procedure augments for skill detect
end;
end.

But got red error in this part: Engine.WaitAction([lakey], KeyCode, i);

put var keycode,i:integer;

also this not work becouse you dont "link" to run that procedure, you need add last step in to procedure example

 

 

procedure AugmentScriptMain;
begin
while Engine.Status = lsOnline do begin
delay(100);
mouseClick(403,726,400);	///mouse click
SetCursorPos(133, 339);		///mouse move
pressKey($62);			///press key 2
pressKey($65);			///press key 5 for add gemstone count
delay(500);
augments;			///and check procedure augments for skill detect
end;
end;

and then in last link run that augment script and that suspend scripts example

begin
Script.NewThread(@SuspendScript);
Script.NewThread(@AugmentScriptMain);
end.

[Adri555]

I'm now like this xddd:

 

Not sure if im just retarded, or its cause is me first time with this program/scripts, but i dont understand never xd

I added what you say : 

procedure SuspendScript;
begin
while true do begin
delay(150);
var keycode,i:integer;
Engine.WaitAction([lakey], KeyCode, i);
  if (KeyCode = $7B) then begin
  script.Suspend;
  end;
  end;
end;

And now have red error in var keycode,i:integer; , and this script.newthread we need add at last end; of script? So fucking hard make auto argument xd

[adr.bot]

I'm now like this xddd:

 

Not sure if im just retarded, or its cause is me first time with this program/scripts, but i dont understand never xd

I added what you say : 

procedure SuspendScript;
begin
while true do begin
delay(150);
var keycode,i:integer;
Engine.WaitAction([lakey], KeyCode, i);
  if (KeyCode = $7B) then begin
  script.Suspend;
  end;
  end;
end;

And now have red error in var keycode,i:integer; , and this script.newthread we need add at last end; of script? So fucking hard make auto argument xd

variables cant be inside script

procedure SuspendScript;
var keycode,i:integer;
begin
while true do begin
delay(150);
Engine.WaitAction([lakey], KeyCode, i);
  if (KeyCode = $7B) then begin
  script.Suspend;
  end;
  end;
end;