Jump to content
ahmedb

how come this won't work

Recommended Posts

[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

Link to comment
Share on other sites

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)).

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
  • Create New...