diff --git a/mystic/mis.pas b/mystic/mis.pas index 5e8520d..ca40cdf 100644 --- a/mystic/mis.pas +++ b/mystic/mis.pas @@ -19,10 +19,10 @@ // // ==================================================================== -{$I M_OPS.PAS} - Program MIS; +{$I M_OPS.PAS} + Uses {$IFDEF DEBUG} HeapTrc, @@ -204,6 +204,7 @@ Begin For Count := 22 DownTo 15 Do Begin If Offset > 0 Then Begin Dec(Offset); + Console.WriteXY (4, Count, 7, strPadR(FocusPtr.ServerStatus.Strings[Offset], 74, ' ')); End Else Console.WriteXY (4, Count, 7, strPadR(' ', 74, ' ')); diff --git a/mystic/mis_client_ftp.pas b/mystic/mis_client_ftp.pas index a8f8f5e..32ed8b1 100644 --- a/mystic/mis_client_ftp.pas +++ b/mystic/mis_client_ftp.pas @@ -851,7 +851,6 @@ Var TempBase : RecFileBase; BaseFile : File; CurDIR : String; - DizFile : Text; Desc : FileDescBuffer; DescSize : Byte; Dir : RecFileList; diff --git a/mystic/mystic.pas b/mystic/mystic.pas index c1d05af..2518560 100644 --- a/mystic/mystic.pas +++ b/mystic/mystic.pas @@ -253,13 +253,15 @@ Begin Session.TempPath := bbsCfg.SystemPath + 'temp' + strI2S(Session.NodeNum) + PathChar; Session.Pipe := TPipe.Create(bbsCfg.DataPath, False, Session.NodeNum); +(* {$I-} MkDir (bbsCfg.SystemPath + 'temp' + strI2S(Session.NodeNum)); {$I+} If IoResult <> 0 Then; - - DirClean (Session.TempPath, ''); +*) + DirCreate (Session.TempPath); + DirClean (Session.TempPath, ''); Assign (Session.User.UserFile, bbsCfg.DataPath + 'users.dat'); {$I-} Reset (Session.User.UserFile); {$I+} @@ -477,10 +479,12 @@ Begin Else Session.SetTimeLeft(bbsCfg.LoginTime); +(* {$IFNDEF UNIX} Screen.TextAttr := 7; Screen.ClearScreen; {$ENDIF} +*) {$IFNDEF UNIX} UpdateStatusLine(0, '');