SCAR Code:
program autosmith;
{.include srl/srl.scar}
const
SmithColor=1121934;
var
x, y : Integer;
Procedure Whatever;
begin
MoveMouseSplineEx(193,154,1,1,5,40,50);
Wait(50+random(10))
MMouse(193,154, 1, 1);
Wait(70+random(10))
MouseBox(113,223,197,228, 1);
If FindObjCustom(x, y,['iro', 'ore'], [SmithColor], 10) then // fill it in with your uptext / colors.
begin
Wait(50+random(10)) and walking to smith.
MouseBox(691,112,695,124, 1);
Wait(50+random(10))
MouseBox(688,107,696,119,1);
Wait(13000+random(50))
end;
end;
procedure whatever2;
begin
if(FindColorTolerance(x,y,SmithColor,191,9,509,172 ,10)) then
begin
MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
Wait(100+random(10));
Mouse(x,y,1, 1, true);
Wait(50+random(10));
end else
Exit;
end;
begin
SetupSRL;
Whatever;
Whatever2;
end.