twindoubledeck
2015-04-28 02:34:42
I want the script to click about every second one spot. Getting 10101010101 in the debug but no clicking.
program new;
{$i srl-6/srl.simba}
var
a : integer;
begin
ClearDebug();
a := 0;
while a < 3 do
begin
wait(900+random(200));
writeLn(intToStr(a));
a := a + 1;
while a = 2 do
begin
a := 0;
end;
end;
MoveMouse(184,615);
ClickMouse(184, 615, mouse_Right);
end.
Thank you for helping resolve this.
program new;
{$i srl-6/srl.simba}
var
a : integer;
begin
ClearDebug();
a := 0;
while a < 3 do
begin
wait(900+random(200));
writeLn(intToStr(a));
a := a + 1;
while a = 2 do
begin
a := 0;
end;
end;
MoveMouse(184,615);
ClickMouse(184, 615, mouse_Right);
end.
Thank you for helping resolve this.
Now for your issue: you need to put the clicking procedures before your while loop setup, like so: