Auto Augment Adrenaline

[Adri555]

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]

  On 11/7/2015 at 9:34 PM, Adri555 said:

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]

  On 11/7/2015 at 9:53 PM, adr.bot said:

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]

  On 11/8/2015 at 1:46 AM, Adri555 said:

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

 

 

  On 11/7/2015 at 8:43 PM, adr.bot said:

 

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]

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]

  On 11/8/2015 at 4:02 AM, Adri555 said:

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]

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]

What script is better this:

 

  On 5/7/2015 at 8:42 PM, adr.bot said:

 

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]

  On 11/9/2015 at 3:26 PM, CristianPascual said:

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]

  On 11/9/2015 at 4:57 PM, adr.bot said:

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]

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]

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