diff --git a/mystic/bbs_core.pas b/mystic/bbs_core.pas index bebb47c..c6d70cf 100644 --- a/mystic/bbs_core.pas +++ b/mystic/bbs_core.pas @@ -344,7 +344,7 @@ Begin Read (ThemeFile, Theme); {$IFDEF FS_SENSITIVE} - If Lang.FileName = Str Then Begin + If Theme.FileName = Str Then Begin {$ELSE} If strUpper(Theme.FileName) = strUpper(Str) Then Begin {$ENDIF} diff --git a/mystic/bbs_user.pas b/mystic/bbs_user.pas index ba6ee82..abcd423 100644 --- a/mystic/bbs_user.pas +++ b/mystic/bbs_user.pas @@ -385,7 +385,7 @@ Procedure TBBSUser.DetectGraphics; Var Loop : Byte; Begin - If Session.Lang.Flags AND ThmAllowANSI = 0 Then Begin + If Session.Theme.Flags AND ThmAllowANSI = 0 Then Begin Session.io.Graphics := 0; Exit; End; diff --git a/mystic/mis_client_telnet.pas b/mystic/mis_client_telnet.pas index aabd7fa..d2d1d15 100644 --- a/mystic/mis_client_telnet.pas +++ b/mystic/mis_client_telnet.pas @@ -112,6 +112,8 @@ Var bRead : LongInt; bWrite : LongInt; Begin + Client.FTelnetServer := True; + Proc := TProcess.Create(Nil); Num := ND.GetFreeNode; @@ -154,6 +156,8 @@ Begin Proc.Free; + FileMode := 66; + FileErase (bbsConfig.DataPath + 'chat' + strI2S(NI.Num) + '.dat'); NI.Busy := False;