this isn't working ....

[hammybones]

//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
// Al-Kharid Smelter
// by RSN
// v 1.2.0
// 1. Have primary ore in first bank slot
// 2. Have Coal (If Using) in second Bank Slot
// 3. Have Ring (If Using) in third Bank Slot
// 4. Have Steel (If Using) in first Bank Slot
// 7. If making Cannonballs write Cannonballs in Bars
// 4. Have Map Facing as West as Possible
// 5. Use Highest Angle of View
// 6. Low Detail Version of the Game
// 8. This script Uses Si 1.4.5
// 9. ENJOY!

program New;
{.include Si.scar}
var
IsRing:boolean;
bc, sbc:integer;

const

// Setup //

RockColor = 1460087; // Color of Rock Outside Bank}
FurnaceIcon = 130812; // Yellow Part of Furnace Icon
FurnaceColor = 1594301; // Orange Color of Furnace
BankIcon = 3920360; // BankIcon Color
UsingRing = False; // Using Ring of Forging?
Bars = 'cannonballs'; // Type of Bar to Smelt (Cannonballs)
ToMake = 500; // # of Bars to Make

function Randoms:boolean;
begin
Result:= CheckRandoms(1,'smelting','NA',false,false,[rtBox, rtLamp, rtLeveled, rtLogout, rtText, rtMod, rtPlant])
end;

procedure AddBars(ore : string);
begin
case lowercase(ore) of
'bronze': bc:=bc+14;
'iron': bc:=bc+InvinCount;
'gold': bc:=bc+InvinCount;
'silver': bc:=bc+InvinCount;
'steel': bc:=bc+9;
'mithril': bc:=bc+5;
'adamantite': bc:=bc+4
'rune': bc:= bc+3;
'cannonballs': bc:= bc + 108
end;
end;

procedure TakeOres(kind:string);
begin
case lowercase(kind) of
'bronze': begin Withdraw(1,1,14); Withdraw(1,2,0); end;
'iron': Withdraw(1,1,0);
'gold': Withdraw(1,1,0);
'silver': Withdraw(1,1,0);
'steel': begin Withdraw(1,1,9); Withdraw(1,2,0); end;
'mithril': begin WithDraw(1,1,5); Withdraw(1,2,0);end;
'adamantite': begin Withdraw(1,1,4); Withdraw(1,2,0); end;
'rune':begin Withdraw(1,1,3); Withdraw(1,2,0); end;
'cannonballs': Withdraw(1,1,0);
end;
end;

procedure ClickSmelt(ore:string);
begin
case lowercase(ore) of
'bronze': Mouse(55,405,5,5,false);
'iron': Mouse(110,405,5,5,false);
'silver': Mouse(170,405,5,5,false);
'steel': Mouse(220,405,5,5,false);
'gold': Mouse(280,405,5,5,false);
'mithril':Mouse(340,405,5,5,false);
'adamantite':Mouse(400,405,5,5,false);
'rune': Mouse(455,405,5,5,false);
'cannonballs': Mouse(255,410,5,5,false);
end;
end;

function Ring:boolean;
begin
if(UsingRing)then
begin
GameTab(5);
if(GetColor(704,383)=2304814)then
begin
isring:=false;
result:=true;
end else
isring:=true;
end else
begin
isring:=true;
result:=false;
end;
end;

procedure ToFurnace;
var
x, y:integer;
begin
if(random(2)+1=1)then
SetRun(True)
GameTab(4)
if(FindColorSpiral(x,y,RockColor,625,54,708,125))then
MouseFlag(x,y+15,2,2);
randoms;
if(FindColorSpiralTolerance(x,y,232,683,80,715,101,20))then
MouseFlag(x,y+5,0,0);
randoms;
FindColorSpiral(x,y,FurnaceIcon,624,39,720,82)
Mouse(x,y+10,1,1,true)
if(not flagpresent)then
begin
if(FindDirObj(x,y,'N','Open',7,10))then
Mouse(x,y-2,1,1,true)
FindColorSpiral(x,y,FurnaceIcon,624,39,720,82)
Mouse(x,y+10,1,1,true)
Flag;
end else
Flag;
randoms;
end;

function CannonDone:Boolean;
begin
if(lowercase(bars)='cannonballs')then
result:= IsTextAtEx(611,212, '108', 100, chrFont3, False, True, 0, 1, -1)
end;

procedure UseCannon;
var
x, y: Integer;
begin
FindColor(x, y, sbc, 563, 246, 728,458);
Mouse(x, y, 3, 3, true);
end;

procedure Smelt;
var
x, y, xmsk, allmsk:integer;
begin
xmsk:= CreateBitmapMaskFromText('Smelt X', chrUpChars);
allmsk:= CreateBitmapMaskFromText('Make All', chrUpChars);
if(Lowercase(bars)='cannonballs')then
begin
UseCannon;
FindObj(x, y, 'Use Steel bar with Furnace', FurnaceColor, 0)
end else
FindObj(x, y, 'Smelt', FurnaceColor, 0);
Mouse(x, y, 3, 3, true);
repeat
Wait(100)
until(not(GetColor(489,429)=0))
ClickSmelt(bars);
Wait(450);
if(Lowercase(bars)='cannonballs')then
FindBitmapMaskTolerance(Allmsk, x, y, 140, 340, 420, 465, 0, 50)
else
FindBitmapMaskTolerance(Xmsk, x, y, 0, 340, 505, 460, 0, 50)
Mouse(x+random(7),y+5+random(4),1,1,true);
if(Lowercase(bars)<>'cannonballs')then
begin
repeat
wait(100)
until(GetColor(212,389)=0)
Wait(250);
SendText(inttostr(28+random(8045)));
SendKeys(chr(13))
end;
end;

Procedure SmeltWait;
var
wt:integer;
begin
Smelt;
repeat
SleepAndMoveMouse(1000);
wt:=wt+1
if(randoms)then
Smelt;
until(IsChatMessage('You have run out of'))or(ring)or(BeingAttacked)or(wt>250) or (CannonDone);
end;

procedure ToBank;
var
x, y:integer;
begin
AddBars(bars);
FindColorSpiralTolerance(x,y,232,638,82,715,125,20)
MouseFlag(x,y-2,0,1)
randoms;
if(FindDirObj(x,y,'S','Open',7,10))then
Mouse(x,y,1,1,true)
FindColorSpiral(x,y,RockColor,577,24,633,81)
MouseFlag(x,y+15,1,1)
randoms;
FindColorSpiral(x,y,BankIcon,601,30,657,90)
MouseFlag(x,y,1,1)
randoms;
end;

Procedure Banking;
begin
OpenBank;
sbc:= GetColor(95, 75);
if not(IsRing) and (UsingRing=True) then
begin
DepositAll;
Withdraw(1,3,1)
end else
DepositArea(615, 210, 730, 395);
TakeOres(Bars);
CloseWindow;
if not(IsRing) and (UsingRing=True)then
UseItem(1);
end;

procedure Report;
var
Canvas: TCanvas;
i: integer;
begin
Canvas:= GetBitmapCanvas(BitmapFromString(500, 200,''));
Canvas.Brush.Style:= bsClear;
Canvas.Font.Color := clWhite;
Canvas.Font.Name := 'Verdana';
for i:=0 to 300 do
begin
Canvas.Pen.Color := clRed-i-(i/2);
Canvas.MoveTo(0, i)
Canvas.LineTo(300, i)
end;
Canvas.Font.Size := 15;
Canvas.TextOut(50, 2, 'RSN'#39's Smelter')
Canvas.Font.Size := 10;
Canvas.TextOut(10, 25, 'Worked For '+ScriptTime2(2))
if(LowerCase(Bars)='cannonballs')then
begin
Canvas.TextOut(10, 40, 'Currently Smelting Cannonballs')
Canvas.TextOut(10, 55, 'Smelted '+inttostr(bc) +' Cannonballs')
end else
begin
Canvas.TextOut(10, 40, 'Currently Smelting '+bars +' Bars')
Canvas.TextOut(10, 55, 'Smelted '+inttostr(bc) +' Bars')
end;
Canvas.TextOut(10, 70, 'Printed At: '+TheTime)
DisplayDebugImgWindow(250, 100)
CopyCanvas(Canvas, GetDebugCanvas, 0, 0, 300, 200, 0, 0, 300, 200);
end;

begin
LoadInclude('',false)
Report;
GameTab(4)
repeat
Banking;
Report;
ToFurnace;
Report;
SmeltWait;
Report;
ToBank;
Report;
until(bc>=ToMake);
Report;
LogOut;
end.

 

[Markuss]

that script is outdated. Try going to Villavu.com for many updated scripts. Wait 1 wek and make 10 non-spam posts and you can be admitted into SRL jr. Members which gives you access to many smithing and other great scripts.