junkaholic
12-18-2011, 04:19 AM
program ivy_bot;
procedure move_to_ivy;
begin
Movemouse(694, 90);
clickmouse(694, 90, 1);
wait(6000);
movemouse(627, 157);
clickmouse(627, 157, 1);
wait(4000);
movemouse(561, 114);
clickmouse(561, 114, 1);
wait(6000);
movemouse(560, 106);
clickmouse(560, 106, 1);
end
procedure chop;
var
x, y:integer;
begin
if findcolorspiraltolerance(x, y, 2641467, 223, 76, 419, 172, 20) or
findcolorspiraltolerance(x, y, 3893842, 223, 76, 419, 172, 20) or
findcolorspiraltolerance(x, y, 5543796, 223, 76, 419, 172, 20) or
findcolorspiraltolerance(x, y, 4224089, 223, 76, 419, 172, 20) then
begin
movemouse(x, y);
clickmouse(x, y, 1);
wait(120000);
end
procedure start;
begin
move_to_ivy;
repeat
chop;
until(12000)
end
well i get the error that says.
[Error] (19:1): Semicolon (';') expected at line 18
but there is a semicolon there please help im kinda a noob and this is my first RS script.
if there is another problem please tell me.
PS:this script isn't finished i need to improve it.
i would very much appreciate it if you help me.
procedure move_to_ivy;
begin
Movemouse(694, 90);
clickmouse(694, 90, 1);
wait(6000);
movemouse(627, 157);
clickmouse(627, 157, 1);
wait(4000);
movemouse(561, 114);
clickmouse(561, 114, 1);
wait(6000);
movemouse(560, 106);
clickmouse(560, 106, 1);
end
procedure chop;
var
x, y:integer;
begin
if findcolorspiraltolerance(x, y, 2641467, 223, 76, 419, 172, 20) or
findcolorspiraltolerance(x, y, 3893842, 223, 76, 419, 172, 20) or
findcolorspiraltolerance(x, y, 5543796, 223, 76, 419, 172, 20) or
findcolorspiraltolerance(x, y, 4224089, 223, 76, 419, 172, 20) then
begin
movemouse(x, y);
clickmouse(x, y, 1);
wait(120000);
end
procedure start;
begin
move_to_ivy;
repeat
chop;
until(12000)
end
well i get the error that says.
[Error] (19:1): Semicolon (';') expected at line 18
but there is a semicolon there please help im kinda a noob and this is my first RS script.
if there is another problem please tell me.
PS:this script isn't finished i need to improve it.
i would very much appreciate it if you help me.