Well you see, I'm in the process of making a smelter, but then, I encountered this error when I was seeing if the walking would work.
SCAR Code:
Failed when compiling
[Error] (17120:4): Identifier expected
Here is the script,
SCAR Code:
{
_________ __ ___. .__ .___
/ _____// |______ ______\_ |_________|__| __| _/ ____ ____
\_____ \\ __\__ \\_ __ \ __ \_ __ \ |/ __ | / ___\_/ __ \
/ \| | / __ \| | \/ \_\ \ | \/ / /_/ |/ /_/ > ___/
/_______ /|__| (____ /__| |___ /__| |__\____ |\___ / \___ >
\/ \/ \/ \/_____/ \/
_________ .__ __
/ _____/ _____ ____ | |_/ |_ ___________
\_____ \ / \_/ __ \| |\ __\/ __ \_ __ \
/ \ Y Y \ ___/| |_| | \ ___/| | \/
/_______ /__|_| /\___ >____/__| \___ >__|
\/ \/ \/ \/
To use, place your player(s) in the Al-Kharid bank.
Make sure the ores necessary in the first bank slots.
If you are makin cannonballs, please make sure the STEEL BARS are in the bank,
as of yet, it does not turn ores into cannonballs all at once.
}
program EpicChopper;
{.include srl/srl.scar}
var
x,y: Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1; // This MUST be correct, otherwise you will encounter runtime errors.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Integers[0] := 100; //Loads to do
end;
Procedure StartUp;
begin
Writeln('Welcome to Starbridge''s Smelter')
Writeln(' Initializing script ')
if not loggedin then loginplayer;
end;
Function Walking : Boolean;
begin
if ismoving(4) then
begin
While ismoving(4) do
begin
wait(500)
end;
end else
begin
Result := false;
end;
end;
Procedure ToFurnace;
begin
If Radialwalk(findsandcolor,0,45,2,2,50) then
Begin
if ismoving(4) then
begin
findsymbol(x,y,'Furnace')
Mouse(x,y,2,2,true)
if ismoving(4) then exit
end else
begin
Writeln('We could not find the sand color')
NextPlayer(false);
end;
end;
begin
DeclarePlayers;
StartUp;
ToFurnace;
end.
Thanks in advance everyone!