do it exist a command like go to line 9? or somthing
like this:
line:9.......
line:20 Repeat
line:21 Until Findcolor
line:22 Go to line 9
and if some one can help me get a command that wenn stop it say how many times it got repeted
do it exist a command like go to line 9? or somthing
like this:
line:9.......
line:20 Repeat
line:21 Until Findcolor
line:22 Go to line 9
and if some one can help me get a command that wenn stop it say how many times it got repeted
you could go like this...
SCAR Code:Procedure test;
var
i:integer;
begin
i:=0
repeat
blah
blah
blah
until(i=10)
end;
or some thing like that, and include a fail safe.
Originally Posted by irc
Search for goto tutorials.SCAR Code:Procedure Example;
Var
I,II : Integer;
Label MyLabel;
Begin
MyLabel:
Inc(II);
Repeat
Inc(I);
Writeln('I = '+IntToStr(I));
Until I > 9;
If II > 9 Then
Exit;
Writeln('II = '+IntToStr(I));
GoTo MyLabel;
End;
and that works better lol.
Originally Posted by irc
i dont know how to use it XD can any one put it in for me?
program New;
var
x,y: Integer;
begin
wait(3000 + random(4000));
Label Start; <--------------------------------------------Her
If FindColor(x,y,16764108,278,409,278,409) Then
Begin
Repeat
Until FindColor(x,y,16764108,278,409,278,409))Then
GoTo MyLabel<---------------------------------------------Her
End Else
begin
Label MyLabel;<-------------------------------Her
Repeat
WriteLn('start');
KeyDown(VK_Down);
wait(10 + random(20));
KeyDown(GetKeyCode('a'));
wait(9000 + random(10000));
KeyUp(GetKeyCode('a'));
KeyUp(VK_Down);
wait(150 + random(200));
KeyDown(GetKeyCode('d'));
wait(250 + random(300));
KeyUp(GetKeyCode('d'));
wait(50 + random(75));
KeyDown(VK_Up);
wait(150 + random(100));
KeyUp(VK_Up);
wait(50 + random(75));
KeyDown(GetKeyCode('a'));
wait(50 + random(75));
KeyUp(GetKeyCode('a'));
wait(25 + random(75));
KeyDown(VK_Down);
wait(300 + random(150));
KeyUp(VK_Down);
wait(10 + random(150));
KeyDown(VK_Down);
KeyDown(VK_Left);
wait(500 + random(300));
KeyUp(VK_Down);
KeyUp(VK_Left);
wait(50 + random(75));
KeyDown(VK_Right);
wait(200 + random(350));
KeyUp(VK_Right);
wait(200 + random(350));
KeyDown(GetKeyCode('d'));
Wait(100 + random(150));
KeyUp(GetKeyCode('d'));
WriteLn('END');
until FindColor(x,y,16764108,274,375,274,375);
GoTo Start <-------------------------------------Her
end
Do it work?
and if someone can put in so wenn stop it say how many times repeted
As i said, search a goto tutorial.
my brine is to small to get how to do it
Well maybe your brain is big enough to get it
There are currently 1 users browsing this thread. (0 members and 1 guests)