Initial import of rumors MPL
This commit is contained in:
mysticbbs
parent
45a051976c
commit
3661d57e4b
|
|
@ -0,0 +1,3 @@
|
||||||
|
[submodule "utils"]
|
||||||
|
path = utils
|
||||||
|
url = D:\\dev\\code\\utils
|
||||||
|
|
@ -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.
|
|
||||||
|
|
@ -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.
|
|
||||||
|
|
@ -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")
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue