Magik

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 ); begin SetCursorPos (x, y); mouse_event ($2, 0, 0, 0, 0); end; " " begin mouseDown (1104, 294, 1000); delay (300); end.

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