program AlKharidDefultSmither;
{.include SRL/SRL.scar}
var
i,x, y: Integer;
const
IronOreColour= 6111038;
CoalOreColour= 2570811;
FurnaceMiniMap= 687338;
FurnaceColor= 2968250;
BankIcon= 151130;
BankerCollar= 3758718;
SteelColor= 5913916;
procedure ClickOre;
<<<------This is where i need help (NOTE:BANK SCREEN IS OPEN)
begin
if (FindColorTolerance(x, y, IronOreColour, 0,0,763,499,1)) then
begin
Mouse(x, y, 4, 4, False);
Mouse(78, 205, 3, 2, True);
end;
end;
procedure ClickCoal;
begin
if (FindColorTolerance(x, y, CoalOreColour, 0,0,763,499,1)) then
begin
Mouse(x, y, 4, 4, False);
Mouse(78, 205, 3, 2, True);
end;
end;
<<<-----From here I start moving, scroll down for the depositing bit
procedure MoveToFurnace;
begin
Mouse(661, 52, 4, 4, True);
Wait(9000+random(500))
if (FindColor(x,y, FurnaceMiniMap,0,0,763,499)) then
begin
ClickMouse(x,y,True);
end;
end;
Procedure Smelt;
Begin
i:= 0;
repeat
i:= i + 1;
if (FindColorTolerance(x,y, FurnaceColor,0,0,512,334,10)) then
begin
ClickMouse(x,y,True);
Wait(2000+random(500))
Mouse(361,404,4,4,false)
Wait(100+random(100))
Mouse(346, 443, 4, 4, True);
End;
until(FindColorTolerance(x,y, FurnaceColor,0,0,763,499,30));
end;
Procedure Return;
begin
Mouse(629, 136,4,4,true);
Wait(9000+random(1000));
if (FindColor(x,y, BankIcon,531, 84,763,499)) then
begin
ClickMouse(x,y,true);
end;
end;
Procedure BankSteel;
<<<------Here is where i want to find booth and deposit
begin
if (FindColor(x,y, BankerCollar,0,0,763,499)) then
begin
ClickMouse(x,y,True);
Wait(2000+random(1000))
Mouse(305, 456,4,4,true);
Wait(1000+random(1000))
Mouse(275, 393,4,4,true);
Wait(500+random(500))
if (FindColor(x,y, SteelColor,552,204,738,464)) then
begin
ClickMouse(x,y,true);
wait(1000+random(1000))
if (FindColor(x,y, SteelColor,552,204,738,464)) then
begin
ClickMouse(x,y,true);
wait(1000+random(1000))
if (FindColor(x,y, SteelColor,552,204,738,464)) then
begin
ClickMouse(x,y,true);
wait(1000+random(1000))
if (FindColor(x,y, SteelColor,552,204,738,464)) then
begin
ClickMouse(x,y,true);
wait(1000+random(1000))
if (FindColor(x,y, SteelColor,552,204,738,464)) then
begin
ClickMouse(x,y,true);
wait(1000+random(1000))
if (FindColor(x,y, SteelColor,552,204,738,464)) then
begin
ClickMouse(x,y,true);
wait(1000+random(1000))
if (FindColor(x,y, SteelColor,552,204,738,464)) then
begin
ClickMouse(x,y,true);
wait(1000+random(1000))
if (FindColor(x,y, SteelColor,552,204,738,464)) then
begin
ClickMouse(x,y,true);
wait(1000+random(1000))
if (FindColor(x,y, SteelColor,552,204,738,464)) then
begin
ClickMouse(x,y,true);
wait(1000+random(1000))
if (FindColor(x,y, SteelColor,552,204,738,464)) then
begin
ClickMouse(x,y,true);
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
begin
SetupSRL;
ActivateClient;
repeat
ClickOre;
Wait(600+random(300))
ClickCoal;
Wait(300+random(300))
MoveToFurnace;
Wait(14000+random(200))
Smelt;
Wait(16000+random(100))
Return
Wait(11000+random(200))
BankSteel
until(false);
end.