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

View File

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