PDA

View Full Version : Why doesnt my mouse move?



Romio
04-03-2017, 04:06 PM
So, my mouse doesnt move to x and y and idk whats wrong
my code:
program moneybot;
var
x, y, color, tolerance, x1, y1, x2, y2: integer;
procedure steal();
begin
color := 10526892;
tolerance := 15;
x1 := 662;
y1 := 433;
x2 := 683;
y2 := 442;
if (findcolortolerance(x, y, color, x1, y1, x2, y2, tolerance)) then
begin
movemouse (x, y);
clickmouse (x, y, mouse_left);
end
end
procedure emptybag();
begin
end
procedure logout();
begin
end

jstemper
04-03-2017, 04:32 PM
Because you don't have an execution block, so you can't call any of your user-defined procedures
try this:
program moneybot;

var
x, y, color, tolerance, x1, y1, x2, y2: integer;

procedure steal();
begin
color := 10526892;
tolerance := 15;
x1 := 662;
y1 := 433;
x2 := 683;
y2 := 442;
if (findcolortolerance(x, y, color, x1, y1, x2, y2, tolerance)) then
begin
movemouse(x, y);
clickmouse(x, y, mouse_left);
end
end

procedure emptybag();
begin
end

procedure logout();
begin
end

begin
steal();
end.

https://villavu.com/forum/showthread.php?t=109161

Romio
04-03-2017, 04:47 PM
thanks