Magik

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

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

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

so, it's not possible 2 make it without mouse click  ? :) thx.

"if i < safe enchant use ews on weapon" 

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

yea but how use one item at other? what's commend 4 it?  that's my point. all time it's just change item at my character, dont select it 2 enhant : ) 

Hey Bros, i read that topic, and i;m learning how 2 script in delphi from Your knowledge. I just made my own scripts (easy ones for buffing etc.) but i have one thing... I dont know how select item for example in enchanting or augmenting items and put them in window for that operattion, any one can try help me a little ? THX