diff --git a/.gitmodules b/.gitmodules
new file mode 100644
index 0000000..a452c48
--- /dev/null
+++ b/.gitmodules
@@ -0,0 +1,3 @@
+[submodule "utils"]
+ path = utils
+ url = D:\\dev\\code\\utils
diff --git a/mystic/bbs_cfg_language.pas b/mystic/bbs_cfg_language.pas
deleted file mode 100644
index 396f25b..0000000
--- a/mystic/bbs_cfg_language.pas
+++ /dev/null
@@ -1,133 +0,0 @@
-Unit bbs_cfg_Language;
-
-{$I M_OPS.PAS}
-
-Interface
-
-Procedure Lang_Editor;
-
-Implementation
-
-Uses
- m_Strings,
- bbs_Common,
- bbs_Core;
-
-Procedure Lang_Editor;
-var
- a : SmallInt;
- Old : RecTheme;
-Begin
- Session.SystemLog ('*LANG EDITOR*');
- Old := Session.Lang;
-{ Reset (LangFile);}
- Repeat
- Session.io.OutFullLn ('|CL|14Language Editor|CR|CR|15## FileName Description|CR|09-- -------- ------------------------------');
-assign(session.langfile, config.datapath+'theme.dat');
- {$I-} Reset (Session.LangFile);{$I+}
- if ioresult <> 0 then rewrite(session.langfile);
-
- while not eof(Session.LangFile) do begin
- read (Session.LangFile, Session.Lang);
- Session.io.OutFullLn ('|15' + strPadR(strI2S(filepos(Session.LangFile)), 4, ' ') +
- '|14' + strPadR(Session.Lang.FileName, 10, ' ') + '|10' + Session.Lang.Desc);
- end;
- Session.Lang := Old;
- Session.io.OutFull ('|CR|09(I)nsert, (D)elete, (E)dit, (Q)uit? ');
- case Session.io.OneKey ('DIEQ', True) of
- 'D' : begin
- Session.io.OutRaw ('Delete which? ');
- a := strS2I(Session.io.GetInput(3, 3, 11, ''));
- if filesize(Session.LangFile) = 1 then
- Session.io.OutFullLn ('|CR|14You must have at least one language definition.|CR|PA')
- Else
- KillRecord (Session.LangFile, A, SizeOf(RecTheme));
- end;
- 'I' : begin
- Session.io.OutRaw ('Insert before? (1-' + strI2S(filesize(Session.LangFile)+1) + '): ');
- a := strS2I(Session.io.GetInput(3, 3, 11, ''));
- if (a > 0) and (a <= filesize(Session.LangFile)+1) then begin
- AddRecord (Session.LangFile, A, SizeOf(RecTheme));
- Session.lang.filename := '';
- Session.lang.textpath := '';
- Session.lang.menupath := '';
- write (Session.LangFile, Session.Lang);
- end;
- end;
- 'E' : begin
- Session.io.OutRaw ('Edit which? ');
- a := strS2I(Session.io.GetInput(3, 3, 11, ''));
- if (a > 0) and (a <= filesize(Session.LangFile)) then begin
- seek (Session.LangFile, a-1);
- read (Session.LangFile, Session.Lang);
- repeat
- Session.io.OutFullLn ('|CL|14Language ' + strI2S(FilePos(Session.LangFile)) + ' of ' + strI2S(FileSize(Session.LangFile)) + '|CR|03');
- Session.io.OutRawln ('A. Description: ' + Session.Lang.Desc);
- Session.io.OutRawln ('B. Filename : ' + Session.Lang.FileName);
- Session.io.OutRawln ('C. Text Path : ' + Session.Lang.TextPath);
- Session.io.OutRawln ('D. Menu Path : ' + Session.Lang.MenuPath);
- Session.io.OutRawln ('M. Allow ASCII: ' + Session.io.OutYN(Session.Lang.Flags AND ThmAllowASCII <> 0));
- Session.io.OutRawln ('N. Allow ANSI : ' + Session.io.OutYN(Session.Lang.Flags AND ThmAllowANSI <> 0));
-
- Session.io.OutFullLn ('|CRE. Use Lightbar Y/N : ' + Session.io.OutYN(Session.Lang.Flags AND ThmLightbarYN <> 0));
- Session.io.OutFull ('|03|16H. Input Field Color: ');
- Session.io.AnsiColor(Session.Lang.FieldColor1);
- Session.io.OutFullLn ('Test|03|16');
-
- Session.io.OutRaw ('I. Quote Bar Color : ');
- Session.io.AnsiColor(Session.Lang.QuoteColor);
- Session.io.OutFullLn ('Test|03|16');
-
- Session.io.OutRawLn ('J. Echo Character : ' + Session.Lang.EchoChar);
- Session.io.OutRawLn ('K. Input Character : ' + Session.Lang.FieldChar);
- Session.io.OutRawLn ('L. File Tag Char : ' + Session.Lang.TagChar);
-
- Session.io.OutRaw ('O. File Search Hi : ');
- Session.io.AnsiColor(Session.Lang.FileDescHI);
- Session.io.OutFullLn ('Test|03|16');
-
- Session.io.OutRaw ('P. File Desc. Lo : ');
- Session.io.AnsiColor(Session.Lang.FileDescLO);
- Session.io.OutFullLn ('Test|03|16');
-
- Session.io.OutRawLn ('R. LB New Msg Char : ' + Session.Lang.NewMsgChar);
-
- Session.io.OutFull ('|CR|09Command (Q/Quit): ');
- case Session.io.onekey('ABCDEFGHIJKLMNOPQR', True) of
- 'A' : Session.Lang.Desc := Session.io.InXY(17, 3, 30, 30, 11, Session.Lang.Desc);
- 'B' : Session.Lang.filename := Session.io.InXY(17, 4, 8, 8, 11, Session.Lang.filename);
- 'C' : Session.Lang.textpath := CheckPath(Session.io.InXY(17, 5, 40, 40, 11, Session.Lang.textpath));
- 'D' : Session.Lang.menupath := CheckPath(Session.io.InXY(17, 6, 40, 40, 11, Session.Lang.MenuPath));
- 'E' : Session.Lang.Flags := Session.Lang.Flags XOR ThmLightbarYN;
- 'H' : Session.Lang.FieldColor1 := getColor(Session.Lang.FieldColor1);
- 'I' : Session.Lang.QuoteColor := getColor(Session.Lang.QuoteColor);
- 'J' : Begin Session.io.OutRaw ('Char: '); Session.Lang.EchoChar := Session.io.GetKey; End;
- 'K' : Begin
- Session.io.OutRaw ('Char: ');
- Session.Lang.FieldChar := Session.io.GetKey;
- If Not (Session.Lang.FieldChar in [#32..#255]) Then
- Session.Lang.FieldChar := ' ';
- End;
- 'L' : Begin Session.io.OutRaw ('Char: '); Session.Lang.TagChar := Session.io.GetKey; End;
- 'M' : Session.Lang.Flags := Session.Lang.Flags XOR ThmAllowASCII;
- 'N' : Session.Lang.Flags := Session.Lang.Flags XOR ThmAllowANSI;
- 'O' : Session.Lang.FileDescHI := getColor(Session.Lang.FileDescHI);
- 'P' : Session.Lang.FileDescLo := GetColor(Session.Lang.FileDescLO);
- 'Q' : break;
- 'R' : Begin Session.io.OutRaw('Char: '); Session.Lang.NewMsgChar := Session.io.GetKey; End;
- end;
- until false;
- seek (Session.LangFile, filepos(Session.LangFile)-1);
- write (Session.LangFile, Session.Lang);
- end;
- end;
- 'Q' : break;
- end;
-
- until False;
- close (Session.LangFile);
-
- If Not Session.LoadThemeData(Old.FileName) Then Session.Lang := Old;
-End;
-
-End.
diff --git a/mystic/makelang.pas b/mystic/makelang.pas
deleted file mode 100644
index 5635e70..0000000
--- a/mystic/makelang.pas
+++ /dev/null
@@ -1,139 +0,0 @@
-// ====================================================================
-// Mystic BBS Software Copyright 1997-2012 By James Coyle
-// ====================================================================
-//
-// This file is part of Mystic BBS.
-//
-// Mystic BBS is free software: you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation, either version 3 of the License, or
-// (at your option) any later version.
-//
-// Mystic BBS is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with Mystic BBS. If not, see <http://www.gnu.org/licenses/>.
-//
-// ====================================================================
-
-Program MakeLang;
-
-{$I M_OPS.PAS}
-
-Uses
- DOS,
- m_Strings;
-
-{$I RECORDS.PAS}
-
-Var
- ConfigFile : File of RecConfig;
- PromptFile : File of PromptRec;
- Config : RecConfig;
- Prompt : PromptRec;
- Done : Array[0..mysMaxLanguageStr] of Boolean;
- tFile : Text;
- A : Integer;
- Temp : String;
- FName : NameStr;
- FExt : ExtStr;
- FDir : DirStr;
-Begin
- WriteLn;
- WriteLn ('MAKELANG (' + OSID + ') - Mystic Language Compiler v', mysVersion);
- WriteLn ('Copyright (C) 1997-2012 By James Coyle. All Rights Reserved.');
- WriteLn;
-
- Assign (ConfigFile, 'mystic.dat');
- {$I-}Reset (ConfigFile);{$I+}
-
- If IoResult <> 0 Then Begin
- WriteLn ('ERROR: MYSTIC.DAT not found. Run from main BBS directory.');
- Halt(1);
- End;
-
- Read (ConfigFile, Config);
- Close (ConfigFile);
-
- If Config.DataChanged <> mysDataChanged Then Begin
- WriteLn('ERROR: Data files are not current and must be upgraded.');
- Halt(1);
- End;
-
-
- If ParamCount <> 1 Then Begin
- WriteLn ('Usage: MAKELANG [language_file]');
- Halt(1);
- End;
-
- FSplit (ParamStr(1), FDir, FName, FExt);
-
- Assign (tFile, FName + FExt);
- {$I-} Reset (tFile); {$I+}
-
- If IoResult <> 0 Then Begin
- WriteLn ('ERROR: Language file (' + FName + FExt + ') not found.');
- Halt(1);
- End;
-
- Write ('Compiling language file: ');
-
- Assign (PromptFile, Config.DataPath + FName + '.lng');
- {$I-} ReWrite (PromptFile); {$I+}
-
- If IoResult <> 0 Then Begin
- WriteLn;
- WriteLn;
- WriteLn (^G'ERROR: Cannot run while Mystic is loaded.');
- Halt(1);
- End;
-
- Prompt := '';
-
- For A := 0 to mysMaxLanguageStr Do Begin
- Done[A] := False;
- Write (PromptFile, Prompt);
- End;
-
- Reset (PromptFile);
-
- While Not Eof(tFile) Do Begin
- ReadLn (tFile, Temp);
-
- If Copy(Temp, 1, 3) = '000' Then A := 0 Else
- If strS2I(Copy(Temp, 1, 3)) > 0 Then A := strS2I(Copy(Temp, 1, 3)) Else
- A := -1;
-
- If A <> -1 Then Begin
- If A > mysMaxLanguageStr Then Begin
- WriteLn;
- WriteLn;
- WriteLn (^G'ERROR: String #', A, ' was not expected. Language file not created.');
- Close (PromptFile);
- Erase (PromptFile);
- Halt(1);
- End;
-
- Done[A] := True;
- Seek (PromptFile, A);
- Prompt := Copy(Temp, 5, Length(Temp));
- Write (PromptFile, Prompt);
- End;
- End;
-
- Close (tFile);
- Close (PromptFile);
-
- WriteLn ('Done.');
-
- For A := 0 to mysMaxLanguageStr Do Begin
- If Not Done[A] Then Begin
- WriteLn;
- WriteLn (^G'ERROR: String #', A, ' was not found. Language file not created.');
- Erase (PromptFile);
- End;
- End;
-End.
diff --git a/scripts/rumors.mps b/scripts/rumors.mps
new file mode 100644
index 0000000..60095ff
--- /dev/null
+++ b/scripts/rumors.mps
@@ -0,0 +1,144 @@
+// ==========================================================================
+// File: RUMORS.MPS
+// Desc: Rumors engine for Mystic BBS v1.10
+// Author: g00r00
+// ==========================================================================
+//
+// INSTALLATION:
+//
+// 1) Copy RUMORS.MPS into its own directory or your scripts path and
+// compile it with MPLC or MIDE
+//
+// 2) For each menu you want to display rumors on, you must edit with the
+// MCFG -> Menu Editor and add the following menu command:
+//
+// HotKey: EVERY
+// Command: GX (Execute MPL)
+// Data: rumors show
+//
+// Note that if you have it in a path other than the scripts path, then
+// you will have to specify that in the Data field above. For example
+// <path>rumors show
+//
+// This MPL will create a rumors.dat file in the same directory where
+// you have located the compiled MPX.
+//
+// 3) When rumors show is ran, it generates a rumor and stores it into
+// the &1 MCI code. Therefore, you will need to edit your menu prompt
+// or ANSI to include |&1 into it where you want it to display the rumor
+//
+// If for some reason to are auto executing other functions which use
+// PromptInfo MCI codes (specially &1) you will want to add your EVERY
+// execution of this MPL program AFTER those, so that the last value
+// assigned to the MCI code was done by the rumor engine.
+//
+// 4) There are options in addition to the SHOW command in which you can
+// use to add other functionality to your BBS. They are:
+//
+// ADD : Allows adding of a rumor to the rumor database. The database
+// keeps the 50 most currently added rumors.
+//
+// EXAMPLE:
+//
+// Hotkey: A
+// Command: GX (Execute MPL)
+// Data: rumors add
+//
+// CUSTOMIZATION:
+//
+// If you wish to customize the prompts used in the Rumors, you can do
+// so by changing the PromptAdd and PromptSave values set below. Do
+// whatever you want with this. It was developed to demonstration IPLC
+// which is one of MPL's alternative syntax options.
+//
+// ==========================================================================
+
+{$syntax iplc}
+
+const
+ // Prompts used
+ PromptAdd = "|CR|15E|07n|08ter |07y|08our |07r|08umor|CR:|07"
+ PromptSave = "|CR|15S|07a|08ve |07t|08his |07r|08umor? |XX"
+
+ // max number of characters for a rumor
+ rumorSize = 78;
+
+proc rumoradd {
+ @ string str
+ @ string(50) data
+ @ byte datasize, count
+ @ file f
+
+ write(promptadd)
+ str = input(rumorSize, rumorSize, 1, "")
+
+ if str == "" exit
+ if !inputyn(promptsave) exit
+
+ fassign (f, justpath(progname) + "rumors.dat", 2)
+ freset (f);
+
+ if ioresult <> 0 frewrite(f);
+
+ while !feof(f) && datasize < 50 {
+ datasize = datasize + 1
+ freadln(f, data(datasize))
+ }
+
+ fclose(f)
+
+ if datasize == 50 {
+ for count = 1 to 49
+ data(count) = data(count+1)
+ } else
+ datasize = datasize + 1
+
+ data(datasize) = str
+
+ frewrite(f)
+ for count = 1 to datasize
+ fwriteln(f, data(count));
+
+ fclose(f)
+}
+
+proc rumorshow {
+ @ string(50) data
+ @ byte datasize, count
+ @ file f
+
+ fassign (f, justpath(progname) + "rumors.dat", 2)
+ freset (f)
+
+ if ioresult <> 0 exit
+
+ while !feof(f) && datasize < 50 {
+ datasize = datasize + 1
+ freadln(f, data(datasize))
+ }
+
+ count = random(datasize) + 1
+ datasize = 0
+
+ freset(f)
+ while datasize <> count {
+ datasize = datasize + 1
+ freadln(f, data(datasize))
+ }
+
+ fclose(f)
+
+ setpromptinfo(1, data(datasize))
+}
+
+{
+ @ string options = upper(progparams);
+
+ if pos("ADD", options) > 0
+ rumoradd()
+ else
+ if pos("SHOW", options) > 0
+ rumorshow()
+ else
+ writeln("RUMORS: Invalid option: press a key|PN")
+}