Yes i know, but still dont work, holy fuck i dont want imagine if i want make script for autofarm ...
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 SuspendScript;
var keycode,i:integer;
begin
while true do begin
delay(150);
Engine.WaitAction([lakey], KeyCode, i);
if (KeyCode = $69) then begin
script.Suspend;
end;
end;
end;
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($0002, 0, 0, 0, 0);
delay(_delay);
mouse_event($0004, 0, 0, 0, 0);
end;
procedure augments;
var obj: TL2Effect;
begin
while
(SkillList.ByID(3124, obj)) or
(SkillList.ByID(3259, obj)) do delay(3000);
end;
begin
while Engine.Status = lsOnline do begin
delay(100);
mouseClick(515,891,400); ///mouse click
SetCursorPos(504, 886); ///mouse move
delay(500);
augments; ///and check procedure augments for skill detect
end;
end.
I tryed 3000000000 changes and never