eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

NOSCREEN option, bugfix for crash when no process configured

This commit is contained in:
mysticbbs 2012-03-04 21:26:08 -05:00
parent 6f9e6f0d71
commit 1850f424b8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mystic/mutil.pas
View File

@ -85,9 +85,9 @@ Var
CF : File of RecConfig;
Begin
ExitProc := @ApplicationShutdown;
Console := TOutput.Create(True);
Console := TOutput.Create(strUpper(ParamStr(2)) <> '-NOSCREEN');
DrawStatusScreen;
If Console.Active Then DrawStatusScreen;
Console.SetWindow(5, 14, 76, 21, True);
@ -99,7 +99,7 @@ Begin
Else Begin
ProcessName ('Load configuration', False);
ProcessStatus ('Missing file');
ProcessResult (rFATAL, True);
ProcessResult (rFATAL, False);
Halt(1);
End;
@ -115,7 +115,7 @@ Begin
If IoResult <> 0 Then Begin
ProcessName ('Load configuration', False);
ProcessStatus ('Missing MYSTIC.DAT');
ProcessResult (rFATAL, True);
ProcessResult (rFATAL, False);
Halt(1);
End;
@ -126,7 +126,7 @@ Begin
If bbsConfig.DataChanged <> mysDataChanged Then Begin
ProcessName ('Load configuration', False);
ProcessStatus ('Version mismatch');
ProcessResult (rFATAL, True);
ProcessResult (rFATAL, False);
Halt(1);
End;
@ -166,8 +166,8 @@ Begin
If ProcessTotal = 0 Then Begin
ProcessName ('Load configuration', False);
ProcessStatus ('No processes are configured!');
ProcessResult (rFATAL, True);
ProcessStatus ('No processes configured!');
ProcessResult (rFATAL, False);
Halt(1);
End;