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