SCAR Code:
program New;
{.include /SRL/SRL.SCAR}
const
UncutGemColor = 12345;
ChiselColor = 12345;
var
x, y, Ai: Integer;
begin
repeat
if FindColorTolerance(x, y, UncutGemColor, 0, 0, 514, 336, 5) then // Find the gem
Inc(Ai); // Increases the var Ai;
wait(1000 +random(500));
until FindColorTolerance(x, y, UncutGemColor, 0, 0, 514, 336, 5) or (Ai > 10); // repeats until it finds the gem,
begin // or until Ai is greater than 10.
MMouse(x, y, 2, 2);
if IsUpText('ncut') then // Searches for "ncut" in the top left of the RS screen
begin
Mouse(x, y, 0, 0, false);
wait(500 +random(250)); // waits a bit, because SCAR is faster than RS
ChooseOption('All');
wait(250 +random(250));
CloseBank;
wait(250 +random(250));
GameTab(4); // opens inventory
if FindColorTolerance(x, y, ChiselColor, 0, 0, 514, 336, 5) then
begin
MMouse(x, y, 2, 2);
Mouse(x, y, 0, 0, true);
end;
if FindColorTolerance(x, y, UncutGemColor, 0, 0, 757, 480, 5) then
begin
MMouse(x, y, 2, 2);
if IsUpText('ncut') then
begin
Mouse(x, y, 0, 0, true);
end;
end;
end;
end;
end.