SCAR Code:
program New;
Var xx,yy,z:Integer;
{.include SRL/SRL.scar}
begin
repeat;
begin;
If (FindColorTolerance(xx, yy, 12164766, 20, 345, 580, 380, 5))Then
begin;
MoveMouse(x, y);
Wait(1);
If (FindColorTolerance(xx, yy, 12164766, 20, 350, 55, 380, 5)) Or (FindColorTolerance(xx, yy, 12164766, 525, 365, 580, 385, 5))Then
begin;
end;
If (FindColorTolerance(xx, yy, 65484, 215, 290, 250, 320, 2))Then
begin;
ClickMouse(x, y, True);
end;
If (FindColorTolerance(xx, yy, 6697728, 215, 150, 230, 160, 2))Then
begin;
ClickMouse(225, 180, True);
SendKeys('r0b0t1');
Wait(25000);
SendKeys(chr(13));
ClickMouse(215, 350, True);
end;
end;
until(IsFKeyDown(12));
end.