im trying to make more scripts for app

[the one t.v]

i keep getting stuck in this script not finish i wonder if some one could help with getting the alkarid smelting functions and the bar ores table for me


program autosmelter;
{.include SRL/SRL.scar}
{.include SRL/SRLskill/Smithing.scar}

var IronOre, CoalOre, MithOre, GoldOre, AdamantOre, TinOre, CopperOre,
SilverOre, RuniteOre:Integer;

const

numberofusers = 1; // If not set right, might give an out of range error.
Startplayer = 1; // player you wish to start with
Loads = 10 // loads per user set higher if ya want more loads done
TheOreTol = 4; // 4 When using AutoColor, 9 or 14 without AutoColor.
Largereport = True;// report per player ?
AutoColor = True;// want to get acurate colour
UseCamera = True;
UseMovement = True;
UseGameTabs = True;
UseGetSkill = True;
WhatSkill = 'Smithing'; // Skill to check, for Antiban.
UseIdleTiming = True;
UseDraggingItem = True;
UseDoBoredHuman = True;
HowOftenAntiBan = 500;
UseRandomSpeech = False; // True for random Speech.
NumberOfLines = 5; // For Random Speech, so you can add some speeches yourself.

// antiban//
const
CopperColor = 5476070;
TinColor = 9277080;
ClayColor = 4553880;
IronColor = 2898528;
SilverColor = 12434885;
CoalColor = 2834753;
GoldColor = 1881051;
MithrilColor = 7359564;
AdamantColor = 6322272;
RuniteColor = 0; //i cant get the ore color please find that out yourself

Var,ores,Secondstowait;
// hard to code this script//===============//

Procedure DeclarePlayers;

Begin
HowManyPlayers := NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active:=True;
Players[0].String1 := 'Iron'; // Primairy Ore Color
Players[0].String2 := 'Iron'; // Secondairy Ore Color wont be smithed as much as 1.
Players[0].String3 := 'Iron'; // Third Ore Color, won't be smithed as much as 1 and 2.


Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active:=True;
Players[1].String1 := 'Iron'; // Primairy Ore Color
Players[1].String2 := 'Iron'; // Secondairy Ore Color wont be smithed as much as 1.
Players[1].String3 := 'Iron'; // Third Ore Color, won't be smithed as much as 1 and 2.


Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active:=True;
Players[2].String1 := 'Iron'; // Primairy Ore Color
Players[2].String2 := 'Iron'; // Secondairy Ore Color wont be smithed as much as 1.
Players[2].String3 := 'Iron'; // Third Ore Color, won't be smithed as much as 1 and 2.


Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
End;


Procedure SetOreColor;

Begin
Case LowerCase(Players[CurrentPlayer].String1) Of

'copper' : OreColor1:=CopperColor;
'tin' : OreColor1:=TinColor;
'iron' : OreColor1:=IronColor;
'silver' : OreColor1:=SilverColor;
'coal' : OreColor1:=CoalColor;
'gold' : OreColor1:=GoldColor;
'mithril' : OreColor1:=MithrilColor;
'adamant' : OreColor1:=AdamantColor;
'runite' : OreColor1:=RuniteColor;

End;
Case Lowercase(Players[CurrentPlayer].String2) Of

'copper' : OreColor2:=CopperColor;
'tin' : OreColor2:=TinColor;
'iron' : OreColor2:=IronColor;
'silver' : OreColor2:=SilverColor;
'coal' : OreColor2:=CoalColor;
'gold' : OreColor2:=GoldColor;
'mithril' : OreColor2:=MithrilColor;
'adamant' : OreColor2:=AdamantColor;
'runite' : OreColor2:=RuniteColor;

End;
WriteLn('Old OreColor1 = '+IntToStr(OreColor1)+'; and Old OreColor2 = '+
IntToStr(OreColor2)+'; and Old OreColor3 = '+IntToStr(OreColor3)+';');

End;

// so far so good here comes hard bit=( or maybe =) //

[Sumilion]

Hey, im busy with the same thing ;), already got the walk from the bank to the furnace in my first day as a scripter :).