Auto Augment Adrenaline

Adri555 · November 7, 2015

Ok now its fine but look, in this part: if (KeyCode = $7B) then begin i think this $7B is the key for stop script no? So i changed to $69 and dont work, script dont stop, i think this $69 is key 9 true?

Edited November 7, 2015 by Adri555

adr.bot · November 7, 2015

Ok now its fine but look, in this part: if (KeyCode = $7B) then begin i think this $7B is the key for stop script no? So i changed to $69 and dont work, script dont stop, i think this $69 is key 9 true?

http://delphi.about.com/od/objectpascalide/l/blvkc.htm

its numpad 9

Adri555 · November 8, 2015

http://delphi.about.com/od/objectpascalide/l/blvkc.htm

its numpad 9

Yes i know, but still dont work, holy fuck i dont want imagine if i want make script for autofarm ...

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;
var keycode,i:integer;
 begin
while true do begin
delay(150);
Engine.WaitAction([lakey], KeyCode, i);
  if (KeyCode = $69) 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(515,891,400);	///mouse click
SetCursorPos(504, 886);		///mouse move
delay(500);
augments;			///and check procedure augments for skill detect
end;
end.

I tryed 3000000000 changes and never

adr.bot · November 8, 2015

Yes i know, but still dont work, holy fuck i dont want imagine if i want make script for autofarm ...

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;
var keycode,i:integer;
 begin
while true do begin
delay(150);
Engine.WaitAction([lakey], KeyCode, i);
  if (KeyCode = $69) 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(515,891,400);	///mouse click
SetCursorPos(504, 886);		///mouse move
delay(500);
augments;			///and check procedure augments for skill detect
end;
end.

I tryed 3000000000 changes and never

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 · November 8, 2015

Ye man sorry but me english is limited and im not good in scripts xd

I understand i need add this you code

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

But where? Cause this full script we end in end.

And maybe we need add: SuspendScript; in procedure AugmentScriptMain; like this or something:

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
SuspendScript;
end;
end;

For call this suspendscript action? I tryed but still dont work and script do nothing.

Thanks for patience adr.bot with noob newbies xD

Edited November 8, 2015 by Adri555

adr.bot · November 8, 2015

Ye man sorry but me english is limited and im not good in scripts xd

I understand i need add this you code
begin
Script.NewThread(@SuspendScript);
Script.NewThread(@AugmentScriptMain);
end.
But where? Cause this full script we end in end.

And maybe we need add: SuspendScript; in procedure AugmentScriptMain; like this or something:
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
SuspendScript;
end;
end;
For call this suspendscript action? I tryed but still dont work and script do nothing.

Thanks for patience adr.bot with noob newbies xD

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;

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

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;
{its like run both procedures at same time, its like merge scripts i dont know how better explain xd
hope you understand what i whant to say xd}
begin
Script.NewThread(@SuspendScript);
Script.NewThread(@AugmentScriptMain);
end.

its example how it looks like, i dont know how better explain xd

Edited November 8, 2015 by adr.bot

Adri555 · November 8, 2015

YE no problem, you explain good just im noob and dont understand xd

______

Any scripter can share argument script with this script for stop that with key? If is for free better, but maybe we can negociate a small price

Edited November 8, 2015 by Adri555

CristianPascual · November 9, 2015

What script is better this:

An example should look like, i think be shorter way to detect skills but i know only this xd
i think with this example be easier understand :D gl hf

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.

Or this: (Problem i think this second script is hard as fuck for edit xD)

var 
L2Skill: TL2Skill; 
skill1: TL2Skill; 
skill2: TL2Skill; 
skill3: TL2Skill; 
skill4: TL2Skill; 
NovObj: TL2Skill; 
NovEngine: TL2Control; 
buff: TL2Buff; 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'; function GetSkill (const Control: String; const ID: Cardinal): TL2Skill; begin NovEngine: = GetControl (control); if Assigned (NovEngine) and NovEngine.GetSkillList.ByID (ID, NovObj) then Result : = NovObj; delay (10000) 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 ($ 2, 0, 0, 0, 0);   delay (_delay);   mouse_event ($ 4, 0, 0, 0, 0); end; procedure mouseDown (x, y, _delay: integer ); begin   SetCursorPos (x, y);   mouse_event ($ 2, 0, 0, 0, 0);   // delay (_delay);   // mouse_event ($ 4, 0, 0, 0, 0); end; procedure mouseUp ( x, y, _delay: integer); begin   SetCursorPos (x, y);   // mouse_event ($ 2, 0, 0, 0, 0);   // delay (_delay);   mouse_event ($ 4, 0, 0, 0, 0 ); end; // coordinate of the higher edge of the box augmentation \\ \\ 486 144 // coordinate of the higher edge of the box cancel \\ \\ 485 413 // coordinate of the higher edge of the box inventory \\ 203 \\ 1072 // active REFRESH 3199 // Reflect active 3204 // virgin 3158 // active PvP Mait 3134 // Passive Reflect 3259 // active refresh2 3202 // weight limit 3251 // Passive pvp Mait 3243 begin delay (10,000); while 1 <> 2 do begin if (not SkillList.ByID (3243, skill1)) then begin // remove augment      mouseDown (884, 1010, 1000); // click on the feathers (coordinate location puhi. it must necessarily be in the hands of)      delay (300);      mouseUp (486, 700, 1000); // Fluff drag the window aukmenta cancellation and release      delay (300);      mouseClick (445, 829, 200); // Confirm cancellation augment (augment cancel confirmation button)      delay (3000); // Waiting for the augmentation      mouseClick (445, 829, 200); // Push for the next augmentation (after HP pulled out)      delay (300); // insert the new augment      mouseDown (884, 1010, 1000); // click on the feathers (coordinate location puhi. it must necessarily be in the hands of)      delay (300);      mouseUp (446, 390, 1000); // Aukmenta drag the window and release      delay (300);      mouseDown (1156 897 1000); // click on the LAN      delay (300);      mouseUp (526, 392, 1000); // Aukmenta drag the window and release      delay (300);      mouseDown (1197, 897, 1000); // click on gemston      delay (300);      mouseUp (485, 432, 1000); // Aukmenta drag the window and release      delay (300);      mouseClick (440, 562, 200); // Confirm augment      delay (4300); // Waiting for the augmentation      mouseClick (440, 562, 200); // Push for the next augmentation      delay (100);      end; if (SkillList.ByID (3243, skill2)) then begin PlaySound (exepath + '\ sounds \' + 'dc' + '.wav', False); delay ( 5000); end; end; end.

Not sure what script try use

Edited November 9, 2015 by CristianPascual

adr.bot · November 9, 2015

What script is better this:

Or this: (Problem i think this second script is hard as fuck for edit xD)

var 
L2Skill: TL2Skill; 
skill1: TL2Skill; 
skill2: TL2Skill; 
skill3: TL2Skill; 
skill4: TL2Skill; 
NovObj: TL2Skill; 
NovEngine: TL2Control; 
buff: TL2Buff; 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'; function GetSkill (const Control: String; const ID: Cardinal): TL2Skill; begin NovEngine: = GetControl (control); if Assigned (NovEngine) and NovEngine.GetSkillList.ByID (ID, NovObj) then Result : = NovObj; delay (10000) 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 ($ 2, 0, 0, 0, 0);   delay (_delay);   mouse_event ($ 4, 0, 0, 0, 0); end; procedure mouseDown (x, y, _delay: integer ); begin   SetCursorPos (x, y);   mouse_event ($ 2, 0, 0, 0, 0);   // delay (_delay);   // mouse_event ($ 4, 0, 0, 0, 0); end; procedure mouseUp ( x, y, _delay: integer); begin   SetCursorPos (x, y);   // mouse_event ($ 2, 0, 0, 0, 0);   // delay (_delay);   mouse_event ($ 4, 0, 0, 0, 0 ); end; // coordinate of the higher edge of the box augmentation \\ \\ 486 144 // coordinate of the higher edge of the box cancel \\ \\ 485 413 // coordinate of the higher edge of the box inventory \\ 203 \\ 1072 // active REFRESH 3199 // Reflect active 3204 // virgin 3158 // active PvP Mait 3134 // Passive Reflect 3259 // active refresh2 3202 // weight limit 3251 // Passive pvp Mait 3243 begin delay (10,000); while 1 <> 2 do begin if (not SkillList.ByID (3243, skill1)) then begin // remove augment      mouseDown (884, 1010, 1000); // click on the feathers (coordinate location puhi. it must necessarily be in the hands of)      delay (300);      mouseUp (486, 700, 1000); // Fluff drag the window aukmenta cancellation and release      delay (300);      mouseClick (445, 829, 200); // Confirm cancellation augment (augment cancel confirmation button)      delay (3000); // Waiting for the augmentation      mouseClick (445, 829, 200); // Push for the next augmentation (after HP pulled out)      delay (300); // insert the new augment      mouseDown (884, 1010, 1000); // click on the feathers (coordinate location puhi. it must necessarily be in the hands of)      delay (300);      mouseUp (446, 390, 1000); // Aukmenta drag the window and release      delay (300);      mouseDown (1156 897 1000); // click on the LAN      delay (300);      mouseUp (526, 392, 1000); // Aukmenta drag the window and release      delay (300);      mouseDown (1197, 897, 1000); // click on gemston      delay (300);      mouseUp (485, 432, 1000); // Aukmenta drag the window and release      delay (300);      mouseClick (440, 562, 200); // Confirm augment      delay (4300); // Waiting for the augmentation      mouseClick (440, 562, 200); // Push for the next augmentation      delay (100);      end; if (SkillList.ByID (3243, skill2)) then begin PlaySound (exepath + '\ sounds \' + 'dc' + '.wav', False); delay ( 5000); end; end; end.

Not sure what script try use

i think second is better, second script hard edit? not hard , if that guy who posted that paste script normally not in one line xd

CristianPascual · November 9, 2015

i think second is better, second script hard edit? not hard , if that guy who posted that paste script normally not in one line xd

Ye, is in 1 line all: http://www.maxcheaters.com/topic/195002-adrenaline-scripts-free/ For this i think is really hardxd I will be try, let me gl xd

CristianPascual · November 10, 2015

Ey bro, script for autobuff-teleport is more easy than this xD

What i need edit, for example i think its only editable this part:

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 ($ 2, 0, 0, 0, 0);   delay (_delay);   mouse_event ($ 4, 0, 0, 0, 0); end; 
procedure mouseDown (x, y, _delay: integer ); begin   SetCursorPos (x, y);   mouse_event ($ 2, 0, 0, 0, 0);   // delay (_delay);   // mouse_event ($ 4, 0, 0, 0, 0); end; 
procedure mouseUp ( x, y, _delay: integer); begin   SetCursorPos (x, y);   // mouse_event ($ 2, 0, 0, 0, 0);   // delay (_delay);   mouse_event ($ 4, 0, 0, 0, 0 ); end; // coordinate of the higher edge of the box augmentation \\ \\ 486 144 // coordinate of the higher edge of the box cancel \\ \\ 485 413 // coordinate of the higher edge of the box inventory \\ 203 \\ 1072 // active REFRESH 3199 // Reflect active 3204 // virgin 3158 // active PvP Mait 3134 // Passive Reflect 3259 // active refresh2 3202 // weight limit 3251 // Passive pvp Mait 3243 begin delay (10,000); while 1 <> 2 do begin if (not SkillList.ByID (3243, skill1)) then begin // remove augment      mouseDown (884, 1010, 1000); // click on the feathers (coordinate location puhi. it must necessarily be in the hands of)      delay (300);      mouseUp (486, 700, 1000); // Fluff drag the window aukmenta cancellation and release      delay (300);      mouseClick (445, 829, 200); // Confirm cancellation augment (augment cancel confirmation button)      delay (3000); // Waiting for the augmentation      mouseClick (445, 829, 200); // Push for the next augmentation (after HP pulled out)      delay (300); // insert the new augment      mouseDown (884, 1010, 1000); // click on the feathers (coordinate location puhi. it must necessarily be in the hands of)      delay (300);      mouseUp (446, 390, 1000); // Aukmenta drag the window and release      delay (300);      mouseDown (1156 897 1000); // click on the LAN      delay (300);      mouseUp (526, 392, 1000); // Aukmenta drag the window and release      delay (300);      mouseDown (1197, 897, 1000); // click on gemston      delay (300);      mouseUp (485, 432, 1000); // Aukmenta drag the window and release      delay (300);      mouseClick (440, 562, 200); // Confirm augment      delay (4300); // Waiting for the augmentation      mouseClick (440, 562, 200); // Push for the next augmentation      delay (100);      end; if (SkillList.ByID (3243, skill2)) then begin PlaySound (exepath + '\ sounds \' + 'dc' + '.wav', False); delay ( 5000); end; end; end.

We just need edit this SetCursorPos (x, y); yes?

procedure mouseClick (x, y, _delay: integer); begin   SetCursorPos (x, y);
procedure mouseDown (x, y, _delay: integer ); begin   SetCursorPos (x, y);
procedure mouseUp ( x, y, _delay: integer); begin   SetCursorPos (x, y);

adr.bot · November 10, 2015

i just added that script not in one line, and fixed all red lines

var 
L2Skill: TL2Skill; 
skill1: TL2Skill; 
skill2: TL2Skill; 
skill3: TL2Skill; 
skill4: TL2Skill; 
NovObj: TL2Skill; 
NovEngine: TL2Control; 
buff: TL2Buff; 

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'; 

function GetSkill (const Control: String; const ID: Cardinal): TL2Skill; 
begin 
NovEngine:= GetControl(control); 
if Assigned (NovEngine) and NovEngine.GetSkillList.ByID (ID, NovObj) 
then Result := NovObj; 
delay (10000) 
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($2, 0, 0, 0, 0);   
delay (_delay);   
mouse_event($4, 0, 0, 0, 0); 
end; 

procedure mouseDown (x, y, _delay: integer ); 
begin   
SetCursorPos (x, y);   
mouse_event ($2, 0, 0, 0, 0);   
// delay (_delay);   
// mouse_event ($ 4, 0, 0, 0, 0); 
end; 

procedure mouseUp ( x, y, _delay: integer); 
begin   
SetCursorPos (x, y);   
// mouse_event ($ 2, 0, 0, 0, 0);   
// delay (_delay);   
mouse_event ($4, 0, 0, 0, 0 ); 
end; // coordinate of the higher edge of the box augmentation \\ \\ 486 144 // coordinate of the higher edge of the box cancel \\ \\ 485 413 // coordinate of the higher edge of the box inventory \\ 203 \\ 1072 // active REFRESH 3199 // Reflect active 3204 // virgin 3158 // active PvP Mait 3134 // Passive Reflect 3259 // active refresh2 3202 // weight limit 3251 // Passive pvp Mait 3243 

begin 
delay(10000); 
while 1 <> 2 do begin 
if (not SkillList.ByID (3243, skill1)) then begin 
// remove augment      
mouseDown (884, 1010, 1000); 
// click on the feathers (coordinate location puhi. it must necessarily be in the hands of)      
delay (300);      
mouseUp (486, 700, 1000); 
// Fluff drag the window aukmenta cancellation and release      
delay (300);      
mouseClick (445, 829, 200); 
// Confirm cancellation augment (augment cancel confirmation button)      
delay (3000); // Waiting for the augmentation      
mouseClick (445, 829, 200); 
// Push for the next augmentation (after HP pulled out)      
delay (300); 
// insert the new augment      
mouseDown (884, 1010, 1000); 
// click on the feathers (coordinate location puhi. it must necessarily be in the hands of)      
delay (300);      
mouseUp (446, 390, 1000); // Aukmenta drag the window and release      
delay (300);      
mouseDown (1156, 897, 1000); // click on the LAN      
delay (300);      
mouseUp (526, 392, 1000); // Aukmenta drag the window and release      
delay (300);      
mouseDown (1197, 897, 1000); // click on gemston      
delay (300);      
mouseUp (485, 432, 1000); // Aukmenta drag the window and release      
delay (300);      
mouseClick (440, 562, 200); // Confirm augment      
delay (4300); // Waiting for the augmentation      
mouseClick (440, 562, 200); // Push for the next augmentation      
delay (100);      
end; 
if (SkillList.ByID (3243, skill2)) then begin 
PlaySound (exepath + '\ sounds \' + 'dc' + '.wav', False); 
delay ( 5000); 
end; 
end; 
end.

about what need edit, that procedures MouseClick and etc its same, that procedures use in main body script, so you need edit only main script part example

mouseDown (1156, 897, 1000); // click on the LAN

change only coordinates

Auto Augment Adrenaline

Recommended Posts

Adri555

adr.bot

Adri555

adr.bot

Adri555

adr.bot

Adri555

CristianPascual

adr.bot

CristianPascual

CristianPascual

adr.bot

Join the conversation

Posts

Topics

Browse

Activity

Store