Code:
program New;
{.include SRL/SRL.scar}
var
x, y, c, Tolerance, Chars, MinSpacing, MaxSpacing, Textcolor, randomx, randomy: integer;
green, blue, yellow, orange, purple, white, black, red: string;
CheckShadow, CheckOutline: Boolean;
begin
LoadCharsFromFont2('calibri', 11, true, false, false, false);
If IsTextInAreaEx(820, 282, 857, 297, x, y, 'Green',0,c,false, false,0,0,-1) then
if findcolor(x,y,2879293,737,310,943,366)then// green
mouse(x,y,5,5, true);
If (not IsTextInAreaEx(820, 282, 857, 297, x, y, 'Green',0,c,false, false,0,0,-1)) then
If IsTextInAreaEx(807, 302, 843, 317, x, y, 'Blue',0,c,false, false,0,0,-1) then
if findcolor(x,y,14035486,724,331,827,386)then// blue
mouse(x,y,5,5, true);
If (not IsTextInAreaEx(807, 302, 843, 317, x, y, 'Blue',0,c,false, false,0,0,-1)) then
If IsTextInAreaEx(807, 302, 843, 317, x, y, 'Red',0,c,false, false,0,0,-1) then
if findcolor(x,y,1256387,724,331,827,386)then// red
mouse(x,y,5,5, true);
If (not IsTextInAreaEx(807, 302, 843, 317, x, y, 'Red',0,c,false, false,0,0,-1)) then
If IsTextInAreaEx(807, 302, 843, 317, x, y, 'Orange',0,c,false, false,0,0,-1) then
if findcolor(x,y,2531839,724,331,827,386)then// orange
mouse(x,y,5,5, true);
If (not IsTextInAreaEx(807, 302, 843, 317, x, y, 'Orange',0,c,false, false,0,0,-1)) then
If IsTextInAreaEx(807, 302, 843, 317, x, y, 'Yellow',0,c,false, false,0,0,-1) then
if findcolor(x,y,2358015,724,331,827,386)then// yellow
mouse(x,y,5,5, true);
If (not IsTextInAreaEx(807, 302, 843, 317, x, y, 'Yellow',0,c,false, false,0,0,-1)) then
If IsTextInAreaEx(807, 302, 843, 317, x, y, 'Purple',0,c,false, false,0,0,-1) then
if findcolor(x,y,12655742,724,331,827,386)then// purple
mouse(x,y,5,5, true);
If (not IsTextInAreaEx(807, 302, 843, 317, x, y, 'Purple',0,c,false, false,0,0,-1)) then
If IsTextInAreaEx(807, 302, 843, 317, x, y, 'Black',0,c,false, false,0,0,-1) then
if findcolor(x,y,1842729,724,331,827,386)then// black
mouse(x,y,5,5, true);
If (not IsTextInAreaEx(807, 302, 843, 317, x, y, 'Black',0,c,false, false,0,0,-1)) then
If IsTextInAreaEx(807, 302, 843, 317, x, y, 'White',0,c,false, false,0,0,-1) then
if findcolor(x,y,16318207,724,331,827,386)then// white
mouse(x,y,5,5, true);
If (not IsTextInAreaEx(807, 302, 843, 317, x, y, 'White',0,c,false, false,0,0,-1)) then
wait(10000);
end.
Any ideas of what i need to fix?