From 7b569deb06af0ae27e1d632f99687fb6738e6474 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sat, 10 Mar 2012 03:54:29 -0500
Subject: [PATCH] GetPrompt efficiency

---
 mystic/bbs_core.pas | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/mystic/bbs_core.pas b/mystic/bbs_core.pas
index 6645501..059ce9b 100644
--- a/mystic/bbs_core.pas
+++ b/mystic/bbs_core.pas
@@ -220,14 +220,16 @@ End;
 
 Function TBBSCore.GetPrompt (N : Word) : String;
 Begin
-  If N >= FileSize(PromptFile) Then Begin
-    io.OutFull ('|CR|12Error Reading Prompt #' + strI2S(N) + ': Inform SysOp|CR|CR|PA');
-    SystemLog ('Error Reading Prompt ' + strI2S(N));
-    Halt(1);
-  End;
-
+  {$I-}
   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;
 
   If Prompt[1] = '@' Then Begin
     io.OutFile (Copy(Prompt, 2, Length(Prompt)), True, 0);
@@ -328,6 +330,7 @@ Begin
 
   While Not Eof(LangFile) Do Begin
     Read (LangFile, Lang);
+
     {$IFDEF FS_SENSITIVE}
     If Lang.FileName = Str Then Begin
     {$ELSE}
@@ -340,9 +343,9 @@ Begin
       If IoResult <> 0 Then;
 
       Assign (PromptFile, Config.DataPath + Lang.FileName + '.thm');
-      Reset (PromptFile);
 
-      Result := True;
+      Result := ioReset(PromptFile, SizeOf(RecPrompt), fmRWDN);
+
       Break;
     End;
   End;