Because you don't have an execution block, so you can't call any of your user-defined procedures
try this:
Simba 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
begin
steal();
end.
https://villavu.com/forum/showthread.php?t=109161