Jump to content

Recommended Posts

Posted (edited)

"if i < safe enchant use ews on weapon" 

i ask only for that part of scrypt, i got rest of it alredy.

Edited by Magik
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 (edited)

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

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

Edited by lobezno4
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? :)

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock