[Runtime Error] : Exception: Canvas does not allow drawing in line 547 in script C:\Documents and Settings\Owner\My Documents\Grade 7\SCAR 3.15\includes\SRL/SRL/Core/Text.scar
this is the script that the error occurs for:
SCAR Code:
program Walktobank;
{.include SRL/SRL/misc/SMART.scar}
{.include SRL/SRL.scar}
const
SmartWorld = 14; // what world smart uses
Signed = True;
varok = 7436154;
procedure DeclarePlayers;
begin
HowManyPlayers :=1; // how many players do you want
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0
Players[0].Name := 'username'; //Character Name
Players[0].Pass := 'pasword'; //Character Pass
Players[0].Nick := '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 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;
LoginPlayer;
RadialRoadWalk(varok,0,90,72,-2,0);
end.