I've ventured into using InterSCAR commands, as they are indeed very, very awesome. Here's my two scripts.
SCAR Code:
program GrainPicker1;
{.include SRL\SRL.scar}
procedure RunFirst;
begin
SendInterSCARMessage('Start', 'StartScript');
writeln('SENT: Start, StartScript');
repeat
wait(1000);
writeln('Waiting for second client.');
until(ReadInterSCARMessage('Started') = 'ScriptStarted');
writeln('READ: Started, ScriptStarted');
Exit;
end;
procedure SearchForGate;
var
xx, yy : integer;
begin
SendInterSCARMessage('Gate', 'FindGate');
writeln('SENT: Gate, FindGate');
repeat
wait(50);
until(ReadInterSCARMessage('OK') = 'SearchGate');
writeln('READ: OK, SearchGate');
if(FindColorSpiralTolerance(xx, yy, 874111, 133, 143, 266, 202, 10))then
begin
MMouse(xx, yy, 2, 2);
wait(50+random(50));
end;
end;
begin
SetupSRL;
RunFirst;
ActivateClient;
wait(1000);
SearchForGate;
end.
SCAR Code:
program GrainPicker2;
{.include SRL\SRL.scar}
procedure RunSecond;
begin
repeat
wait(50);
until(ReadInterSCARMessage('Start') = 'StartScript');
writeln('READ: Start, StartScript');
SendInterSCARMessage('Started', 'ScriptStarted');
writeln('SENT: Started, ScriptStarted');
Exit;
end;
procedure Loop;
var
xx, yy : integer;
begin
repeat
if(ReadInterSCARMessage('Gate') = 'FindGate')then
begin
writeln('READ: Gate, FindGate');
SendInterSCARMessage('OK', 'SearchGate');
writeln('SENT: OK, SearchGate');
repeat
if(IsUpText('Close'))then
begin
GetMousePos(xx, yy);
Mouse(xx, yy, 2, 2, True);
wait(1000);
SendInterSCARMessage('Found', 'ClickedGate');
writeln('SENT: Found, ClickedGate');
end;
until(False);
end;
until(False);
end;
begin
SetupSRL;
RunSecond;
Loop;
end.
Here's #1's debug box.
SENT: Start, StartScript
Waiting for second client.
Waiting for second client.
READ: Started, ScriptStarted
SENT: Gate, FindGate
READ: OK, SearchGate
Here's #2's debug box.
File access error
SRL Compiled in 234msec.
READ: Start, StartScript
SENT: Started, ScriptStarted
READ: Gate, FindGate
SENT: OK, SearchGate
SENT: Found, ClickedGate
K, so my main question is...what is the File access error for?
Thanks!
(btw, everyone went as planned, clicked it and all.)