hey guys,
I am using smart, and it keeps closing down with scar everytime i try to run the follwoing script, please help.
SCAR Code:
program Cooker;
{.include SRL/SRL/misc/SMART.scar}
{.include SRL/SRL.scar}
const
//Smart Setup//
SmartWorld = 87; // what world do you want to login to??
Signed = True; // leave alone..
procedure DeclarePlayers;
begin
HowManyPlayers :=1; // how many players do you want
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0
Players[0].Name := ; //Character Name
Players[0].Pass := ; //Character Pass
Players[0].Nick := ; //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 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;
function Energy20: Boolean;
var
Colour: string;
Level: Integer;
begin
Level := GetMMLevels('energy', Colour);
Result := Level > 20;
end;
procedure WalkToRange;
begin
SetAngle(true);
MakeCompass('N');
if Energy20 then
SetRun(True);
if RadialRoadWalk(FindVarrockRoadColor,220,140,60,-2,0)then
begin
writeln('worked');
end;
end;
begin
SetupSmart;
SetupSRL;
DeclarePlayers;
LoginPlayer;
WalktoRange;
end.