Do something like this:
SCAR Code:
program KMHelp;
var
x, y, Amount: Integer;
Procedure DetectWin;
begin
repeat
If GetColor(X coord, Y coord) = Color at coords Then
begin
If FindColor(x,y,39168,0,0,863,1151) then
begin
Amount := 100;
ClickMouseSpline(570,372,5,5,true);
Wait(100+random(200));
SendKeys(inttostr(amount)+chr(13));
end else
begin
ClickMouseSpline(598,333,5,5,true);
Wait(100+random(200));
Amount := Amount * 3;
SendKeys(inttostr(amount)+chr(13));
end;
end else
wait(1);
until(false)
end;
Begin
Amount := 100;
DetectWin;
end.
Change the coordinates and the colors with something that is static. It will then only run if it finds that color.
~Sandstorm