I need Superheater for rune

[firefox]

I've been looking in the threads and cannot find a superheater. ive tried one program but it doesnt exit the bank screen when it withdraws the rune ore and coal. ive someone could fix the banking part in the script or if they have a superheater that would be good =)


{==================================================================================================
This is my first SCAR script ever created.
Thanks Stupid3ooo for your well put together include

-
This script will superheat any single ore from the bank
-
|-----------------------|
| Version Info v.1 |
|-----------------------|
v.1 -- The first attempt at this script

|-----------------------|
| TODO |
|-----------------------|
:test at more banks, i've only used at west varrock
:add ability to withdraw coal
:test for bugs
:fine tune speed

|-----------------------|
| Directions |
|-----------------------|

(1) Put Nature Runes in first inventory slot, all other slots empty
(2) Wield Fire Staff
(3) Put the ore in the first bank slot (top left corner)
(4) Drag crosshair to runescape window
(5) Start the script
------------------------------------------------------------------------------}

program SuperheatIron;
{.include SSI2.txt}
{.include BoxBreaker.txt}

const
{------ORE TYPE TO SUPERHEAT ----------|
| 1 = gold,silver,iron |
| 2 = steel |
| 3 = mithril |
| 4 = addy |
| 5 = rune |
|--------------------------------------}
oreType = 5;
{==========================================NOT FOR TOTAL NOOBS=============================================}
var
oreAmount,coalAmount:integer;

procedure Init();
begin
if(oreType=1)then
begin
coalAmount:=0 ;
oreAmount:=27;
end;
if(oreType=2)then
begin
coalAmount:=18;
oreAmount:=9;
end;
if(oreType=3)then
begin
coalAmount:=20;
oreAmount:=5;
end;
if(oreType=4)then
begin
coalAmount:=18;
oreAmount:=3;
end;
if(oreType=5)then
begin
coalAmount:=24;
oreAmount:=3;
end;
end;

procedure SuperHeat(slot, toslot:integer); //based off stupid3ooo's inventory procedure's
var
slotnumber,col,row:integer;
begin
GameTab(7);
slotnumber:=slot;
while(slotnumber<toslot)do
begin
Mouse(590,300,2,2,true);
if((slotnumber mod 4)=0)then col:=3
else col:=(slotnumber mod 4)-1;
row:=(slotnumber-1)/4;
if (FindColor(x,y,65536, (571+47*col), (215+36*row), (601+47*col), (245+36*row)))then
begin
mouse(x,y,5,5,true);
Wait(Random(50)+1000);
end;
slotnumber:=slotnumber+1;
end;
end;

//MAIN//
begin
Init();
SetupSSI;
repeat
OpenBank;
Wait(Random(50));
Withdraw(1,1,oreAmount);
Wait(Random(50));
if(not (coalAmount=0))then Withdraw(2,1,coalAmount)
wait(Random(50));
CloseWindow;
Wait(Random(50));
SuperHeat(2,oreAmount+2);
Wait(Random(50)+1000);
OpenBank;
Wait(Random(50));
Deposit(2,28,2)
CloseWindow;
Wait(Random(50));
until(false);
end.