Initial import Lightbar prompts MPL mod updated for 1.10
This commit is contained in:
mysticbbs
parent
e08455c69a
commit
ded0ae0727
|
|
@ -0,0 +1,437 @@
|
|||
// .--------------------------.
|
||||
// | TO-PRMPT.MPS : RELEASE 2 |-----------------------------------------------
|
||||
// `--------------------------'
|
||||
//
|
||||
// This mod is was originally written for use with Mystic BBS v1.07.3 by
|
||||
// Testoverride, based on some demo MPL code written by g00r00.
|
||||
//
|
||||
// It has been updated for Mystic BBS 1.10+ by g00r00, and released without
|
||||
// Testoverride's assistance. This is not an intentional thing, but TO has
|
||||
// been missing lately, so given the circumstances, I think it's okay.
|
||||
//
|
||||
// You are free to modify and do whatever you'd like to with this code, but
|
||||
// please if you do make significant changes please let the original authors
|
||||
// know so that we can include it into our release if it is worthwhile.
|
||||
//
|
||||
// The code itself isn't as pretty as it could be since MPL has evolved over
|
||||
// time, but it is still functional and seems to be widely used.
|
||||
//
|
||||
// The original authors contact info follows:
|
||||
//
|
||||
// Testoverride - testoverride@comcast.net
|
||||
// g00r00 - mysticbbs@gmail.com
|
||||
//
|
||||
// New updates for 1.10:
|
||||
//
|
||||
// - Converted to new MPL 1.10
|
||||
// - Changed the s255 ACS check to use the message owner MCI code instead
|
||||
// - Added the 'H' command to the message reader prompt (set lastread)
|
||||
// - Added the 'M' command to the message reader prompt (move message)
|
||||
// - Added the 'F' command to the message reader prompt (forward)
|
||||
// - Some conversions of IF statements to CASE statements for code clarity
|
||||
// ---------------------------------------------------------------------------
|
||||
|
||||
Var
|
||||
Selection : Byte;
|
||||
|
||||
Function FPromptMenu : Byte
|
||||
Var
|
||||
Ch : Char;
|
||||
Done : Boolean;
|
||||
Bar : Byte;
|
||||
Cmd : Array[1..5] of String[80];
|
||||
Xpos : Array[1..5] of String[80];
|
||||
Begin
|
||||
|
||||
Done := False
|
||||
Bar := 1
|
||||
|
||||
Xpos[1] := '|[X40'
|
||||
Xpos[2] := '|[X45'
|
||||
Xpos[3] := '|[X54'
|
||||
Xpos[4] := '|[X59'
|
||||
Xpos[5] := '|[X64'
|
||||
|
||||
Cmd[1] := '|15n|07ext'
|
||||
Cmd[2] := '|15p|07revious'
|
||||
Cmd[3] := '|15f|07lag'
|
||||
Cmd[4] := '|15v|07iew'
|
||||
Cmd[5] := '|15q|07uit'
|
||||
|
||||
Repeat
|
||||
If Graphics > 0 Then
|
||||
Write ('|15|17' + Xpos[Bar]+stripmci(Cmd[Bar]) + '|00|16');
|
||||
|
||||
Ch := ReadKey
|
||||
|
||||
If Graphics > 0 and IsArrow Then Begin
|
||||
Write (Xpos[bar] + Cmd[Bar] + '|00|16');
|
||||
If Ord(Ch) = 75 Then Begin
|
||||
If Bar > 1 Then
|
||||
Bar := Bar - 1
|
||||
End Else
|
||||
If Ord(Ch) = 77 Then Begin
|
||||
If Bar < 5 Then
|
||||
Bar := Bar + 1
|
||||
End
|
||||
End Else
|
||||
If Ch = #13 and Graphics > 0 Then Begin
|
||||
FPromptMenu := Bar
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'N' Then Begin
|
||||
FPromptMenu := 1
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'P' Then Begin
|
||||
FPromptMenu := 2
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'F' Then Begin
|
||||
FPromptMenu := 3
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'V' Then Begin
|
||||
FPromptMenu := 4
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'Q' Then Begin
|
||||
FPromptMenu := 5
|
||||
Done := True
|
||||
End
|
||||
Until Done
|
||||
End
|
||||
|
||||
Function EPromptMenu : Byte
|
||||
Var
|
||||
Ch : Char;
|
||||
Done : Boolean;
|
||||
Bar : Byte;
|
||||
Cmd : Array[1..7] of String[80];
|
||||
Xpos : Array[1..7] of String[80];
|
||||
Begin
|
||||
|
||||
Done := False
|
||||
Bar := 1
|
||||
|
||||
Xpos[1] := '|[X23'
|
||||
Xpos[2] := '|[X28'
|
||||
Xpos[3] := '|[X37'
|
||||
Xpos[4] := '|[X43'
|
||||
Xpos[5] := '|[X49'
|
||||
Xpos[6] := '|[X54'
|
||||
Xpos[7] := '|[X61'
|
||||
|
||||
Cmd[1] := '|15n|07ext'
|
||||
Cmd[2] := '|15p|07revious'
|
||||
Cmd[3] := '|15a|07gain'
|
||||
Cmd[4] := '|15r|07eply'
|
||||
Cmd[5] := '|15j|07ump'
|
||||
Cmd[6] := '|15d|07elete'
|
||||
Cmd[7] := '|15q|07uit'
|
||||
|
||||
Repeat
|
||||
If Graphics > 0 Then
|
||||
Write ('|15|17' + Xpos[bar]+stripmci(Cmd[Bar]) + '|00|16')
|
||||
|
||||
Ch := ReadKey
|
||||
|
||||
If Graphics > 0 and IsArrow Then Begin
|
||||
Write (Xpos[bar]+Cmd[Bar] + '|00|16')
|
||||
If Ord(Ch) = 75 Then Begin
|
||||
If Bar > 1 Then Bar := Bar - 1
|
||||
End Else
|
||||
If Ord(Ch) = 77 Then Begin
|
||||
If Bar < 7 Then Bar := Bar + 1
|
||||
End
|
||||
End Else Begin
|
||||
If Ch = Chr(13) and Graphics > 0 Then Begin
|
||||
EPromptMenu := Bar
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'N' Then Begin
|
||||
EPromptMenu := 1
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'P' Then Begin
|
||||
EPromptMenu := 2
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'A' Then Begin
|
||||
EPromptMenu := 3
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'R' Then Begin
|
||||
EPromptMenu := 4
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'J' Then Begin
|
||||
EPromptMenu := 5
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'D' Then Begin
|
||||
EPromptMenu := 6
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'Q' Then Begin
|
||||
EPromptMenu := 7
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'X' Then Begin
|
||||
stuffkey(ch)
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = '?' Then Begin
|
||||
stuffkey(ch)
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'L' Then Begin
|
||||
stuffkey(ch)
|
||||
Done := True
|
||||
End
|
||||
End
|
||||
Until Done
|
||||
End
|
||||
|
||||
Function MPromptMenu : Byte;
|
||||
Var
|
||||
Ch : Char
|
||||
Done : Boolean
|
||||
Bar : Byte
|
||||
Cmd : Array[1..6] of String[80]
|
||||
Xpos : Array[1..6] of String[80]
|
||||
Begin
|
||||
Done := False
|
||||
Bar := 1
|
||||
|
||||
Xpos[1] := '|[X38'
|
||||
Xpos[2] := '|[X43'
|
||||
Xpos[3] := '|[X52'
|
||||
Xpos[4] := '|[X58'
|
||||
Xpos[5] := '|[X64'
|
||||
Xpos[6] := '|[X69'
|
||||
|
||||
Cmd[1] := '|15n|07ext|00|16'
|
||||
Cmd[2] := '|15p|07revious|00|16'
|
||||
Cmd[3] := '|15a|07gain|00|16'
|
||||
Cmd[4] := '|15r|07eply|00|16'
|
||||
Cmd[5] := '|15j|07ump|00|16'
|
||||
Cmd[6] := '|15q|07uit|00|16'
|
||||
|
||||
Repeat
|
||||
If Graphics > 0 Then
|
||||
Write ('|15|17' + Xpos[bar]+stripmci(Cmd[Bar]) + '|00|16');
|
||||
|
||||
Ch := Upper(ReadKey);
|
||||
|
||||
If Graphics > 0 and IsArrow Then Begin
|
||||
Write (Xpos[bar]+Cmd[Bar] + '|00|16');
|
||||
|
||||
Case Ch of
|
||||
#75 : If Bar > 1 Then Bar := Bar - 1;
|
||||
#77 : If Bar < 6 Then Bar := Bar + 1;
|
||||
End
|
||||
End Else Begin
|
||||
Case Ch of
|
||||
#13 : If Graphics > 0 Then Begin
|
||||
MPromptMenu := Bar;
|
||||
Done := True;
|
||||
End;
|
||||
'N' : Begin
|
||||
MPromptMenu := 1;
|
||||
Done := True;
|
||||
End;
|
||||
'P' : Begin
|
||||
MPromptMenu := 2;
|
||||
Done := True;
|
||||
End;
|
||||
'A' : Begin
|
||||
MPromptMenu := 3;
|
||||
Done := True;
|
||||
End;
|
||||
'R' : Begin
|
||||
MPromptMenu := 4;
|
||||
Done := True;
|
||||
End;
|
||||
'J' : Begin
|
||||
MPromptMenu := 5;
|
||||
Done := True;
|
||||
End;
|
||||
'Q' : Begin
|
||||
MPromptMenu := 6;
|
||||
Done := True;
|
||||
End;
|
||||
Else
|
||||
If (Pos(Ch, 'MEFD') > 0 And ACS('OM')) OR (Pos(Ch, 'X?[]HITGL') > 0) Then Begin
|
||||
StuffKey(Ch);
|
||||
Done := True;
|
||||
End;
|
||||
End;
|
||||
End;
|
||||
Until Done;
|
||||
End;
|
||||
|
||||
Function PPromptMenu : Byte
|
||||
Var
|
||||
Ch : Char
|
||||
Done : Boolean
|
||||
Bar : Byte
|
||||
Cmd : Array[1..3] of String[80];
|
||||
Xpos : Array[1..3] of String[80];
|
||||
Begin
|
||||
Done := False
|
||||
Bar := 1
|
||||
|
||||
Xpos[1] := '|[X22'
|
||||
Xpos[2] := '|[X26'
|
||||
Xpos[3] := '|[X29'
|
||||
|
||||
Cmd[1] := '|15y|07es'
|
||||
Cmd[2] := '|15n|07o'
|
||||
Cmd[3] := '|15c|07ontinuous'
|
||||
|
||||
Repeat
|
||||
If Graphics > 0 Then
|
||||
Write ('|11|19' + XPos[Bar] + StripMCI(Cmd[Bar]) + '|00|16')
|
||||
|
||||
Ch := ReadKey
|
||||
|
||||
If Graphics > 0 and IsArrow Then Begin
|
||||
Write (XPos[Bar] + Cmd[Bar] + '|00|16')
|
||||
If Ord(Ch) = 75 Then Begin
|
||||
If Bar > 1 Then Bar := Bar - 1
|
||||
End Else
|
||||
If Ord(Ch) = 77 Then Begin
|
||||
If Bar < 3 Then Bar := Bar + 1
|
||||
End
|
||||
End Else
|
||||
If Ch = #13 and Graphics > 0 Then Begin
|
||||
PPromptMenu := Bar
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'Y' Then Begin
|
||||
PPromptMenu := 1
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'N' Then Begin
|
||||
PPromptMenu := 2
|
||||
Done := True
|
||||
End Else
|
||||
If Upper(Ch) = 'C' Then Begin
|
||||
PPromptMenu := 3
|
||||
Done := True
|
||||
End
|
||||
Until Done
|
||||
End
|
||||
|
||||
Procedure MESSAGE
|
||||
Begin
|
||||
Write ('|CR|05[|13=|14!|07 reading messages |15|$L04|&5 |07of |15|$R04|&6 |08// |15n|09ext |15p|07revious |15a|07gain |15r|07eply |15j|07ump |15q|07uit |00')
|
||||
|
||||
Selection := MPromptMenu
|
||||
|
||||
If Selection = 1 Then
|
||||
stuffkey('N')
|
||||
Else
|
||||
If Selection = 2 Then
|
||||
stuffkey('P')
|
||||
Else
|
||||
If Selection = 3 Then
|
||||
stuffkey('A')
|
||||
Else
|
||||
If Selection = 4 Then
|
||||
stuffkey('R')
|
||||
Else
|
||||
If Selection = 5 Then
|
||||
stuffkey('J')
|
||||
Else
|
||||
If Selection = 6 Then
|
||||
stuffkey('Q')
|
||||
End
|
||||
|
||||
Procedure DOPAUSE
|
||||
Begin
|
||||
Write ('|05[|13=|14!|07 paused |13-|07 more|08 // |15y|09es |15n|07o |15c|07ontinuous |00')
|
||||
|
||||
Selection := PPromptMenu
|
||||
|
||||
If Selection = 1 Then
|
||||
stuffkey('Y')
|
||||
Else
|
||||
If Selection = 2 Then
|
||||
stuffkey('N')
|
||||
Else
|
||||
If Selection = 3 Then
|
||||
stuffkey('C')
|
||||
End
|
||||
|
||||
Procedure Email
|
||||
Begin
|
||||
Write ('|CR|05[|13=|14!|07 reading e-mail |08// |15N|09ext |15P|07revious |15A|07gain |15R|07eply |15J|07ump |15D|07elete |15Q|07uit |00')
|
||||
|
||||
Selection := EPromptMenu
|
||||
|
||||
If Selection = 1 Then
|
||||
stuffkey('N')
|
||||
Else
|
||||
If Selection = 2 Then
|
||||
stuffkey('P')
|
||||
Else
|
||||
If Selection = 3 Then
|
||||
stuffkey('A')
|
||||
Else
|
||||
If Selection = 4 Then
|
||||
stuffkey('R')
|
||||
Else
|
||||
If Selection = 5 Then
|
||||
stuffkey('J')
|
||||
Else
|
||||
If Selection = 6 Then
|
||||
stuffkey('D')
|
||||
Else
|
||||
If Selection = 7 Then
|
||||
stuffkey('Q')
|
||||
End
|
||||
|
||||
Procedure File
|
||||
Begin
|
||||
Write ('|CR|07(|07|$R31|FB|07) |08// |15n|07ext |15p|07revious |15f|07lag |15v|07iew |15q|07uit >>')
|
||||
|
||||
Selection := FPromptMenu
|
||||
|
||||
If Selection = 1 Then
|
||||
stuffkey('N')
|
||||
Else
|
||||
If Selection = 2 Then
|
||||
stuffkey('P')
|
||||
Else
|
||||
If Selection = 3 Then
|
||||
stuffkey('F')
|
||||
Else
|
||||
If Selection = 4 Then
|
||||
stuffkey('V')
|
||||
Else
|
||||
If Selection = 5 Then
|
||||
stuffkey('Q')
|
||||
End
|
||||
|
||||
// MAIN PROGRAM BLOCK!
|
||||
|
||||
Const
|
||||
FailStr = '|CRUSAGE: to-prmpt [ MESSAGE | FILE | EMAIL | PAUSE ]|CR|PA';
|
||||
|
||||
Begin
|
||||
AllowArrow := True;
|
||||
|
||||
If ParamCount < 1 Then
|
||||
WriteLn(FailStr)
|
||||
Else
|
||||
Case Upper(ParamStr(1)) of
|
||||
'MESSAGE': MESSAGE;
|
||||
'FILE' : FILE;
|
||||
'EMAIL' : EMAIL;
|
||||
'PAUSE' : DOPAUSE;
|
||||
Else
|
||||
WriteLn(FailStr);
|
||||
End;
|
||||
End.
|
||||
Loading…
Reference in New Issue