By going:
SCAR Code:
function RadialRoadWalk(FindRoadColor,0,90,72,-2,0);
you are declaring a new function called RadialRoadWalk. Since this function is already in SRL it gives you a duplicate identifier error which basically means theres to identifiers (vars, functions, procedures, contants) with the same name..
What I think you want to do is call the function (make SCAR run the function and do the stuff coded inside). To do this you don't need to have the word 'function' in front. You also need to call it in another procedure or in the mainloop:
SCAR Code:
program Walktobank;
{.include SRL/SRL/misc/SMART.scar}
{.include SRL/SRL.scar}
const
SmartWorld = 14; // what world smart uses
Signed = True;
procedure DeclarePlayers;
begin
HowManyPlayers :=1; // how many players do you want
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0
Players[0].Name := 'Username'; //Character Name
Players[0].Pass := 'dontpass'; //Character Pass
Players[0].Nick := 'oney'; //Nickname 3 - 4 Letter's of char name
Players[0].Active := True; //true if you want this player to be ran in the script false if you dont want it to run
end;
procedure Signature;
begin
ClearDebug;
writeln(' BOH presents mine picker:');
wait(250);
writeln(' __________ _________ ___ ___ ');
wait(250);
writeln('| ____ | | | | | | |');
wait(250);
writeln('| | | | | _____ | | | | |');
wait(250);
writeln('| |____| | | | | | | |___| |');
wait(250);
writeln('| _______| | | | | | ___ |');
wait(250);
writeln('| ____ | | |_____| | | | | |');
wait(250);
writeln('| | | | | | | | | |');
wait(250);
writeln('| |____| | |_________| |___| |___|');
wait(250);
writeln('|__________| Made To Succeed! ');
wait(3000 + random(750));
end;
procedure SetupSmart;
begin
SmartSetupEx(SmartWorld, false, Signed);
ClearDebug;
WriteLn('Setting up Smart... Please Hold...');
Wait(10000 + random(5000));
SetTargetDC(SmartGetDC);
While not(SmartReady) do Wait(100);
end;
begin
SetupSmart;
SetupSrl;
DeclarePlayers;
RadialRoadWalk(FindRoadColor,0,90,72,-2,0);
end.