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;
begin
repeat
Delay(1500);
Engine.MoveTo(149640, -55704, -2760);
Engine.SetTarget('buffera'); //Target do buffer
Delay(1500);
Engine.DlgOpen; // buffer
Delay(1500);
mouseClick(620, 501, 1500); // take the coordinates but not click
Engine.DlgSel(6);
Delay(1500);
mouseClick(604, 255, 1500);
Delay(1500);
Engine.DlgSel(1);
Delay(1500);
mouseClick(604, 255, 1500);
Delay(1500);
Engine.SetTarget('teleporte'); //Target do NCP GK
Delay(1500);
Engine.DlgOpen; // abre chat combat npc
Delay(1500);
Engine.DlgSel(4);
Delay(1500);
Engine.DlgSel(6);
Delay(1500);
until Engine.Status = lsOffline;
Delay(5000);
end.
Please I need help. the script is not giving an error, but the mouseclicker function is not working. it takes the cordenadas that I put but not click and so can not get the buffs macro can anyone help?
