SCAR Code:
program smith;
{.include srl/srl.scar}
const
GroundColor=7320771;
SmeltColor=3881791;
NumOfCopperOres=6;
NumOfTinOres=6;
var
x, y : Integer;
procedure GetCopper;
begin
Withdraw(3,3,NumOfCopperOres);
end;
procedure GetTin;
begin
Withdraw(3,4,NumOfTinOres);
end;
procedure WalkToSmelt;
begin
if(FindColorSpiralTolerance(x,y,GroundColor,680,115,696,129,40)) then
begin
Mouse(x,y,1,1,true);
end else
end;
procedure FindSmelt;
begin
if(FindObj(x,y,'melt',SmeltColor,10)) then
begin
Mouse(x,y,1,1,true);
end else
end;
procedure PickBarType;
begin
if(FindColorTolerance(x,y,2770780,20,376,338,436,20)) then
begin
Mouse(x,y,1,1,false);
y := y+70;
Mouse(x,y,2,2,true);
Wait(2000+random(100));
TypeSend('6');
end else
end;
procedure BankWalk;
begin
If(FindColorSpiralTolerance(x,y,GroundColor,548,75,559,85,40)) then
begin
Mouse(x,y,1,1,true);
end else
end;
procedure OpenUp;
begin
OpenBankQuiet('akb');
end;
procedure DepositBars;
begin
DepositAll;
end;
begin
SetupSRL;
GetCopper;
Wait(100+random(50));
GetTin;
Wait(500+random(100));
WalkToSmelt;
Wait(13000+random(100));
FindSmelt;
Wait(9000+random(115));
PickBarType;
Wait(10000+random(100));
BankWalk;
Wait(16000+random(100));
OpenUp;
Wait(3000+random(100));
DepositBars;
end.