Major SMART problems...

[Imagine]

So the other day, SMART was running just fine. Now, I get one of three problems, depending on which script I try to run it with.

http://support.microsoft.com/kb/125749
^That problem happens randomly, about 1 time every 10 times I run either of the scripts.

program new;
{$i SRL/SRL/MISC/SMART.simba}
{$i SRL/SRL.simba}



procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

with Players[0] do
begin
Name := '';
Pass := '';

Active := True;
end;
end;

procedure Setup;
begin
SMART_Server := WORLD;
SMART_Members:= MEMBERS;

SetupSRL;
DeclarePlayers;
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH);
ClearDebug;

WriteLn('Line.');
end;

begin
Setup;
end.

This one will not write 'Line.' to the debug box. (As in, it won't write anything other than the standard SMART lines).

Problem here Fix'd.

There, SMART restarts every time I restart the script...

[Hero]

What operating system do you have and is it 32 or 64 bit in regards to the SMART issues. I will edit this as I get feedback.

[Imagine]

I'm on a Windows 7 Enterprise, on a 32 bit operating system.

[masterBB]

procedure SetupLogin; // Credits to Sin
begin
ClearDebug;
Smart_Server := 39;
Smart_Members := False;
Smart_Signed := False;
Smart_SuperDetail := False;
NumberofCasts := 0;
SetupSRL;
end;

will fix the restarting

[Imagine]

Okay, thank you - This fixed the Restarting problems :)

Time to see if I'm still having the other problems though.