Jump to content

L2 Adrenaline Scripts.


Recommended Posts

begin
engine.SetTarget('ebony');
delay(1000);
Engine.UseSkill(1323);
end. 

 

IM NEW TO l2adr scripting:P

i have whrite this:) how can i do repeat this after 5 minutes for example? again and again ?

Link to comment
Share on other sites

Hey, i have a problem with my script, cuz it's don't move item, in place ( enchant script) can some one tell me how 2 press and hold left mouse button 2 move selected item ? THx : ) 

"procedure mouseDown (x, y, _delay: integer ); 

begin   
SetCursorPos (x, y);   
mouse_event ($2, 0, 0, 0, 0);
end; 
"
"
begin
mouseDown (1104, 294, 1000);
delay (300); 
end.

 

Link to comment
Share on other sites

 

Hey, i have a problem with my script, cuz it's don't move item, in place ( enchant script) can some one tell me how 2 press and hold left mouse button 2 move selected item ? THx : ) 

"procedure mouseDown (x, y, _delay: integer ); 

begin   
SetCursorPos (x, y);   
mouse_event ($2, 0, 0, 0, 0);
end; 
"
"
begin
mouseDown (1104, 294, 1000);
delay (300); 
end.

 

http://www.maxcheaters.com/topic/195002-adrenaline-scripts-free/

Link to comment
Share on other sites

any1 know.. a command, scrip or option by.. adr to .. delete buff..

i want delete for example SoS cuz im healer and dont need.

you can do that in bot settings, or Engine.Dispel('string');

Link to comment
Share on other sites

begin

engine.SetTarget('ebony');

delay(1000);

Engine.UseSkill(1323);

end. 

 

IM NEW TO l2adr scripting:P

 

i have whrite this:) how can i do repeat this after 5 minutes for example? again and again ?

 

Code to looping a script is here in topic already. To repeat every x seconds just add a delay inside to loop.

Link to comment
Share on other sites

var
Item: TL2Item;
SetCursorPos: TPoint;

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 ($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( MOUSEEVENTF_LEFTDOWN, 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;


begin

while true do begin
delay(500);
 
if inventory.user.byid(15593, item) and not (Item.EnchantLevel > 21 ) then begin
Delay(500);
Engine.UseItem (960);//'scroll: enchant armor s grade'
Delay(100);
mouseDown (1104, 294, 1000);
delay (300);      
mouseUp (707, 426, 1000); 
delay (300);      
mouseClick (628, 541, 500);
Delay(3000);
end;
end;
end.

 in my opinion i got the same just in 3 steps, but it's dont drag item, when i manualy press left mouse button it's work correcly. Any ideas? :)

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now



×
×
  • Create New...