how come this won't work

[ahmedb]

[scar]program New;

var timea,x,y:Integer;

const time=10;

Procedure Time_change;

begin

timea:=timea-1;

wait(10);

end;

Procedure Click(x, y :Integer);

begin

Movemouse(x, y);

ClickMouse(x, y, true);

end;

procedure start;

begin

wait(1000);

click(555,555);

wait(100);

repeat

keydown(39);

wait(1);

keyup(39);

until (time=0)

end;

begin

timea := time;

start

end.[/scar]

 

please help asap

[Wanted]

Please use [sCAR] tags when you post

 

What are you trying to do?

[ahmedb]

oh sorry, so i want to click at 555, 555 and then press teh right arrow key down 10 times.

and each time interval is 10ms

[Wanted]

[sCAR]var

I: Integer;

 

begin

ClickMouse(555, 555, True);

Wait(1000);

for I := 1 to 10 do

begin

SendArrow(1);

Wait(10);

end;

end.[/sCAR]

[ahmedb]

it says line 5, invalid number of parameters

[Wanted]

Forgot the , True); on ClickMouse, now try...

[ahmedb]

thanks you are really nice!

---

program New;
var x,y,I: Integer;
procedure image1;
begin
if (FindColor(x, y, 1381828, 670, 626, 670, 626)) then begin
repeat
keydown(37);
wait(100);
keyup(37);
until (FindColor(x, y, 8762345, 582, 548, 582, 548));
ClickMouse(585,820,true);
end;
end;
procedure start;
begin
ClickMouse(555, 555, true);
Wait(1000);
for I := 1 to 120 do
SendArrow(1);
Wait(10);
end;
begin
start;
image1;
end.

ok so there is my code now line 11 will click the mouse, however i would like it to only click the mouse if (FindColor(x, y, 1381828, 670, 626, 670, 626)).

[Wanted]

I'm having trouble understanding what you're trying to do by reading your code because it lacks standards.

 

For now, just explain exactly what you want done and I'll show you

[ahmedb]

ok so i am trying to make a script that will do a slide captcha

so it will go all the way to the right

then it will slowly go left to see if the captcha fits.

then if it does, then it will click.

[Wanted]

Hmm, maybe you can link me to this via PM?