I was using the script posted and modified by kozak94. However it doesnt provide ring of crafting support. To me, Edgeville smelting is about making use of that Varrock armor. I did some amendments and added in these portions.
I added in a new procedure because I am a noob and cant make out how his clicksmelt procedure worked. The entire chunk about if chatbox.findTextOnLines(['Your Ring of Forging has melted'], [0..1])=TRUE is new as well..
Mostly it works.
Set preset 1 to you already equipping a ring of forging. The top left hand slot in your backpack is a ring of forging and the rest being iron ores.
Code:
//////////////////////////////////////this procedure just throw somewhere at the top
procedure craftButton();
var
craftButton: TBox; //declare TBox variable
begin;
craftButton := intToBox(289, 329, 506, 348);
mouseBox(craftButton, MOUSE_LEFT);
writeLn('Crafting...');
repeat
wait(randomrange(300, 350));
smartImage.clearArea(mainScreen.getBounds());
antiban;
until(notsmelting() = TRUE)
end;
//////////////////////////////////////////////
Code:
if inFurnace and smithingVisible then
begin
if not productionScreen.clickStart() then
clickSmelt;
waitWhileSmelting;
end;
paintProgress;
/////////////////////////////////////////////////////////////////This portion here til
if chatbox.findTextOnLines(['Your Ring of Forging has melted'], [0..1])=TRUE then
begin
writeLn('# Ring of forging has melted! #');
wait(randomrange(2000, 4000));
tabBackPack.mouseSlot(1, MOUSE_MOVE); // move mouse slot 1
fastClick(MOUSE_LEFT); // left click
writeLn('Ring of forging Equipped');
wait(randomrange(500, 800));
clickFurnace;
wait(randomrange(500, 800));
craftButton;
//waitWhileSmelting;
end;
//////////////////////////////////////////////////////////// here is new...
if inFurnace then
begin
walkBank;
end;