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

14
mystic/bbs_core.pas
View File

@ -226,9 +226,17 @@ Begin
{$I+} {$I+}
If IoResult <> 0 Then Begin If IoResult <> 0 Then Begin
io.OutFull ('|CR|12Error reading prompt ' + strI2S(N) + '|DE|DE'); {$I-}
SystemLog ('Error reading prompt ' + strI2S(N)); Reset (PromptFile);
Halt (1); 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; End;
If Prompt[1] = '@' Then Begin If Prompt[1] = '@' Then Begin