From 896d5478ca83c926e703a6a3d3bede4ef7ddd364 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Mon, 5 Mar 2012 14:50:46 -0500 Subject: [PATCH] Added theme color MCI codes T0-T9 --- mystic/HISTORY.txt | 3 +++ mystic/bbs_cfg_theme.pas | 8 ++++---- mystic/bbs_io.pas | 2 ++ 3 files changed, 9 insertions(+), 4 deletions(-) diff --git a/mystic/HISTORY.txt b/mystic/HISTORY.txt index 9ad01e8..4c91697 100644 --- a/mystic/HISTORY.txt +++ b/mystic/HISTORY.txt @@ -3996,3 +3996,6 @@ supplied as well. IE: mutil mutil.cfg -noscreen This is useful for Linux/OSX people that may want to execute MUTIL during a login or something but do not want their users to see the MUTIL screen. + + + Mystic now has 10 colors definable per theme, with 10 new MCI codes + |T0 to |T9 to display them. diff --git a/mystic/bbs_cfg_theme.pas b/mystic/bbs_cfg_theme.pas index fd3cfdf..3b6fbed 100644 --- a/mystic/bbs_cfg_theme.pas +++ b/mystic/bbs_cfg_theme.pas @@ -175,12 +175,12 @@ Begin List.LoChars := #13#27#47; List.NoWindow := True; - Box.Open (8, 6, 73, 18); + Box.Open (8, 6, 73, 19); WriteXY (10, 8, 112, 'File Name Description'); WriteXY (10, 9, 112, strRep(#196, 62)); - WriteXY (10, 16, 112, strRep(#196, 62)); - WriteXY (29, 17, 112, cfgCommandList); + WriteXY (10, 17, 112, strRep(#196, 62)); + WriteXY (29, 18, 112, cfgCommandList); Repeat List.Clear; @@ -195,7 +195,7 @@ Begin List.Add ('', 0); - List.Open (8, 9, 73, 16); + List.Open (8, 9, 73, 17); List.Close; Case List.ExitCode of diff --git a/mystic/bbs_io.pas b/mystic/bbs_io.pas index 14d593d..82ed66b 100644 --- a/mystic/bbs_io.pas +++ b/mystic/bbs_io.pas @@ -579,6 +579,8 @@ Begin 'X' : LastMCIValue := strI2S(TBBSCore(Core).User.Security.MaxDLs); End; 'T' : Case Code[2] of + '0'.. + '9' : LastMCIValue := Attr2Ansi(Session.Lang.Colors[strS2I(Code[2])]); 'B' : LastMCIValue := strI2S(TBBSCore(Core).User.ThisUser.TimeBank); 'C' : LastMCIValue := strI2S(Config.SystemCalls); 'E' : If Graphics = 1 Then LastMCIValue := 'Ansi' Else LastMCIValue := 'Ascii'; //++lang