Jump to content

Recommended Posts

Posted

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 ?

Posted

Hey, guys!

 

I have a problem with party relax... The bot who is following, doesnt stand up, when party leader stands up... Any way to write down a script?

 

Thanks,

 

Max Cheater Blockhd

Posted

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.

 

Posted

 

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/

Posted

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

Posted

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.

Posted
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? :)

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...