From ded0ae07270b7403126553808a8a3a44e1a2aa32 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Sun, 15 Jul 2012 16:13:36 -0400 Subject: [PATCH] Initial import Lightbar prompts MPL mod updated for 1.10 --- scripts/to-prmpt.mps | 437 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 437 insertions(+) create mode 100644 scripts/to-prmpt.mps diff --git a/scripts/to-prmpt.mps b/scripts/to-prmpt.mps new file mode 100644 index 0000000..1990991 --- /dev/null +++ b/scripts/to-prmpt.mps @@ -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.