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

GetPrompt change

This commit is contained in:
mysticbbs 2012-03-13 22:32:12 -04:00
parent 1e3c476819
commit dc299c2af4
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mystic/bbs_core.pas
View File

@ -225,11 +225,19 @@ Begin
Read (PromptFile, Prompt);
{$I+}
If IoResult <> 0 Then Begin
{$I-}
Reset (PromptFile);
Seek (PromptFile, N);
Read (PromptFile, Prompt);
{$I+}
If IoResult <> 0 Then Begin
io.OutFull ('|CR|12Error reading prompt ' + strI2S(N) + '|DE|DE');
SystemLog ('Error reading prompt ' + strI2S(N));
Halt (1);
End;
End;
If Prompt[1] = '@' Then Begin
io.OutFile (Copy(Prompt, 2, Length(Prompt)), True, 0);