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

No longer crashes if missing events.dat

This commit is contained in:
mysticbbs 2012-06-18 08:58:50 -04:00
parent c7bc65c4a8
commit 439eb2a052
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/bbs_cfg_events.pas
View File

@ -22,7 +22,9 @@ Begin
Session.SystemLog ('*EVENT EDITOR*'); Session.SystemLog ('*EVENT EDITOR*');
Assign (Session.EventFile, Config.DataPath + 'events.dat'); Assign (Session.EventFile, Config.DataPath + 'events.dat');
Reset (Session.EventFile); {$I-} Reset (Session.EventFile); {$I+}
If IoResult <> 0 Then ReWrite(Session.EventFile);
Repeat Repeat
Session.io.OutFullLn ('|CL|14Event Editor|CR|CR|09### Name|CR--- ------------------------------ -----|14'); Session.io.OutFullLn ('|CL|14Event Editor|CR|CR|09### Name|CR--- ------------------------------ -----|14');
Reset (Session.EventFile); Reset (Session.EventFile);