SCAR Code:
program wetclay;
{.Include SRL/SRL.scar}
begin
MouseSpeed:= 10; //lower the number faster the mouse
repeat
//click on water jug 636, 305
MMouse(636, 305,5, 5); //Moves it to cords 636 305, mising by 5 pixles x and y
Wait(RandomRange(150, 200));
if (IsUpText('Jug'))then //looks for text upper left connor
begin
Mouse(636, 305, 5, 5, True); //moves and clicks mising by 5 pixles x and y
Wait(RandomRange(150, 200));
end;
if(FindColorTolerance(x, y, 8677464, 40, 131, 524, 409, 1))then//found water in sink
begin
MMouse(x, y+8, 2, 2); //MMouse(xCoord,yCoord,xOff,yOff);
Wait(RandomRange(150, 200));
Mouse(x-2, y+6, 2, 10, True);
end;
else
begin
Wait(RandomRange(500, 1000));
Writeln('Sink not found');//be specific to what wasn't found
end;
//full jug
begin
MMouse(636, 305, 2, 9);
Wait(RandomRange(150, 200));
Mouse(636, 305, 5, 5, True);
Wait(RandomRange(150, 200));
end;
//click clay
begin
FindColorTolerance(x, y, 5276319, 573, 292, 743, 532, 3)
MMouse(x, y, 2, 2);
Wait(RandomRange(500, 800));
Mouse(x, y, 2, 2, True);
Wait(RandomRange(150, 200));
end;
until(False)
end.