eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

some record variable renaming

This commit is contained in:
mysticbbs 2012-07-12 21:23:04 -04:00
parent a0d0330ac7
commit 14c0341265
1 changed files with 29 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
mystic/bbs_menus.pas
View File

@ -13,8 +13,8 @@ Type
TMenuSystem = Class TMenuSystem = Class
LBMenuPos : Byte; LBMenuPos : Byte;
CmdNum : Byte; CmdNum : Byte;
Menu : MenuRec; Menu : RecMenuFlags;
MenuList : Array[1..mysMaxMenuCmds] of MenuCmdRec; MenuList : Array[1..mysMaxMenuCmds] of RecMenuCommand;
MenuOld : String[mysMaxMenuNameLen]; MenuOld : String[mysMaxMenuNameLen];
MenuName : String[mysMaxMenuNameLen]; MenuName : String[mysMaxMenuNameLen];
MenuStack : Array[1..8] of String[mysMaxMenuNameLen]; MenuStack : Array[1..8] of String[mysMaxMenuNameLen];
@ -395,9 +395,9 @@ Begin
ReadLn (MenuFile, Menu.Header); ReadLn (MenuFile, Menu.Header);
ReadLn (MenuFile, Menu.Prompt); ReadLn (MenuFile, Menu.Prompt);
ReadLn (MenuFile, Menu.DispCols); ReadLn (MenuFile, Menu.DispCols);
ReadLn (MenuFile, Menu.ACS); ReadLn (MenuFile, Menu.Access);
ReadLn (MenuFile, Menu.Password); ReadLn (MenuFile, Menu.Password);
ReadLn (MenuFile, Menu.TextFile); ReadLn (MenuFile, Menu.DispFile);
ReadLn (MenuFile, Menu.FallBack); ReadLn (MenuFile, Menu.FallBack);
ReadLn (MenuFile, Menu.MenuType); ReadLn (MenuFile, Menu.MenuType);
ReadLn (MenuFile, Menu.InputType); ReadLn (MenuFile, Menu.InputType);
@ -413,7 +413,7 @@ Begin
ReadLn (MenuFile, MenuList[CmdNum].Text); ReadLn (MenuFile, MenuList[CmdNum].Text);
ReadLn (MenuFile, MenuList[CmdNum].HotKey); ReadLn (MenuFile, MenuList[CmdNum].HotKey);
ReadLn (MenuFile, MenuList[CmdNum].LongKey); ReadLn (MenuFile, MenuList[CmdNum].LongKey);
ReadLn (MenuFile, MenuList[CmdNum].ACS); ReadLn (MenuFile, MenuList[CmdNum].Access);
ReadLn (MenuFile, MenuList[CmdNum].Command); ReadLn (MenuFile, MenuList[CmdNum].Command);
ReadLn (MenuFile, MenuList[CmdNum].Data); ReadLn (MenuFile, MenuList[CmdNum].Data);
ReadLn (MenuFile, MenuList[CmdNum].X); ReadLn (MenuFile, MenuList[CmdNum].X);
@ -422,11 +422,11 @@ Begin
ReadLn (MenuFile, MenuList[CmdNum].cDOWN); ReadLn (MenuFile, MenuList[CmdNum].cDOWN);
ReadLn (MenuFile, MenuList[CmdNum].cLEFT); ReadLn (MenuFile, MenuList[CmdNum].cLEFT);
ReadLn (MenuFile, MenuList[CmdNum].cRIGHT); ReadLn (MenuFile, MenuList[CmdNum].cRIGHT);
ReadLn (MenuFile, MenuList[CmdNum].LText); ReadLn (MenuFile, MenuList[CmdNum].TextLo);
ReadLn (MenuFile, MenuList[CmdNum].LHText); ReadLn (MenuFile, MenuList[CmdNum].TextHi);
If (RunCmd) and (MenuList[CmdNum].HotKey = 'FIRSTCMD') Then Begin If (RunCmd) and (MenuList[CmdNum].HotKey = 'FIRSTCMD') Then Begin
If Session.User.Access(MenuList[CmdNum].ACS) Then If Session.User.Access(MenuList[CmdNum].Access) Then
If ExecuteCommand (MenuList[CmdNum].Command, MenuList[CmdNum].Data) Then Begin If ExecuteCommand (MenuList[CmdNum].Command, MenuList[CmdNum].Data) Then Begin
Result := 2; Result := 2;
Close (MenuFile); Close (MenuFile);
@ -457,7 +457,7 @@ Var
ExecuteAfterCommands := False; ExecuteAfterCommands := False;
For A := 1 to CmdNum Do For A := 1 to CmdNum Do
If (MenuList[A].HotKey = 'AFTER') And Session.User.Access(MenuList[A].ACS) Then If (MenuList[A].HotKey = 'AFTER') And Session.User.Access(MenuList[A].Access) Then
If ExecuteCommand(MenuList[A].Command, MenuList[A].Data) Then Begin If ExecuteCommand(MenuList[A].Command, MenuList[A].Data) Then Begin
ExecuteAfterCommands := True; ExecuteAfterCommands := True;
Done := True; Done := True;
@ -473,8 +473,8 @@ Var
ValidLightBar := (MenuList[Pos].HotKey <> 'EVERY') and ValidLightBar := (MenuList[Pos].HotKey <> 'EVERY') and
(MenuList[Pos].HotKey <> 'AFTER') and (MenuList[Pos].HotKey <> 'AFTER') and
(MenuList[Pos].LText <> '') and (MenuList[Pos].TextLo <> '') and
(MenuList[Pos].LHText <> ''); (MenuList[Pos].TextHi <> '');
{ we need to add LINEFEED?! } { we need to add LINEFEED?! }
End; End;
@ -490,16 +490,16 @@ Var
LBMenuPos := 0; LBMenuPos := 0;
End; End;
Session.io.OutFile (ReplaceSecurity(Menu.TextFile), True, 0); Session.io.OutFile (ReplaceSecurity(Menu.DispFile), True, 0);
If Session.io.NoFile and (Pos('@S', Menu.TextFile) > 0) Then If Session.io.NoFile and (Pos('@S', Menu.DispFile) > 0) Then
Session.io.OutFile (StripSecurity(Menu.TextFile), True, 0); Session.io.OutFile (StripSecurity(Menu.DispFile), True, 0);
For A := 1 to CmdNum Do For A := 1 to CmdNum Do
If ValidLightBar(A) Then Begin If ValidLightBar(A) Then Begin
If LBMenuPos = 0 Then LBMenuPos := A; If LBMenuPos = 0 Then LBMenuPos := A;
Session.io.AnsiGotoXY (MenuList[A].X, MenuList[A].Y); Session.io.AnsiGotoXY (MenuList[A].X, MenuList[A].Y);
Session.io.OutFull (MenuList[A].LText); Session.io.OutFull (MenuList[A].TextLo);
End; End;
Session.io.AllowArrow := True; Session.io.AllowArrow := True;
@ -510,7 +510,7 @@ Var
Repeat Repeat
Session.io.AnsiGotoXY (MenuList[LBMenuPos].X, MenuList[LBMenuPos].Y); Session.io.AnsiGotoXY (MenuList[LBMenuPos].X, MenuList[LBMenuPos].Y);
Session.io.OutFull (MenuList[LBMenuPos].LHText); Session.io.OutFull (MenuList[LBMenuPos].TextHi);
Ch := Session.io.GetKey; Ch := Session.io.GetKey;
@ -520,7 +520,7 @@ Var
For A := 1 To CmdNum Do For A := 1 To CmdNum Do
If MenuList[A].HotKey = TempStr Then If MenuList[A].HotKey = TempStr Then
If Session.User.Access(MenuList[A].ACS) Then Begin If Session.User.Access(MenuList[A].Access) Then Begin
Session.io.AnsiGotoXY (Menu.DoneX, Menu.DoneY); Session.io.AnsiGotoXY (Menu.DoneX, Menu.DoneY);
If View Then Exit; If View Then Exit;
If ExecuteCommand(MenuList[A].Command, MenuList[A].Data) Then If ExecuteCommand(MenuList[A].Command, MenuList[A].Data) Then
@ -531,7 +531,7 @@ Var
#72, #72,
#75 : Begin {Up, Left} #75 : Begin {Up, Left}
Session.io.AnsiGotoXY (MenuList[LBMenuPos].X, MenuList[LBMenuPos].Y); Session.io.AnsiGotoXY (MenuList[LBMenuPos].X, MenuList[LBMenuPos].Y);
Session.io.OutFull (MenuList[LBMenuPos].LText); Session.io.OutFull (MenuList[LBMenuPos].TextLo);
If Menu.MenuType = 1 Then Begin If Menu.MenuType = 1 Then Begin
TempPos := LBMenuPos; TempPos := LBMenuPos;
@ -553,7 +553,7 @@ Var
#80, #80,
#77 : Begin {Down, Right} #77 : Begin {Down, Right}
Session.io.AnsiGotoXY (MenuList[LBMenuPos].X, MenuList[LBMenuPos].Y); Session.io.AnsiGotoXY (MenuList[LBMenuPos].X, MenuList[LBMenuPos].Y);
Session.io.OutFull (MenuList[LBMenuPos].LText); Session.io.OutFull (MenuList[LBMenuPos].TextLo);
If Menu.MenuType = 1 Then Begin If Menu.MenuType = 1 Then Begin
If LBMenuPos < CmdNum Then Begin If LBMenuPos < CmdNum Then Begin
@ -581,7 +581,7 @@ Var
If ((Ch = #27) and (MenuList[A].HotKey = 'ESCAPE')) or If ((Ch = #27) and (MenuList[A].HotKey = 'ESCAPE')) or
((Ch = #9) and (MenuList[A].HotKey = 'TAB')) or ((Ch = #9) and (MenuList[A].HotKey = 'TAB')) or
(UpCase(Ch) = MenuList[A].HotKey) Then (UpCase(Ch) = MenuList[A].HotKey) Then
If Session.User.Access(MenuList[A].ACS) Then Begin If Session.User.Access(MenuList[A].Access) Then Begin
Session.io.AnsiGotoXY (Menu.DoneX, Menu.DoneY); Session.io.AnsiGotoXY (Menu.DoneX, Menu.DoneY);
If View Then Exit; If View Then Exit;
If ExecuteCommand(MenuList[A].Command, MenuList[A].Data) Then If ExecuteCommand(MenuList[A].Command, MenuList[A].Data) Then
@ -603,10 +603,10 @@ Var
Ch : Char; Ch : Char;
Found : Boolean; Found : Boolean;
Begin Begin
Session.io.OutFile (ReplaceSecurity(Menu.TextFile), True, 0); Session.io.OutFile (ReplaceSecurity(Menu.DispFile), True, 0);
If Session.io.NoFile and (Pos('@S', Menu.TextFile) > 0) Then If Session.io.NoFile and (Pos('@S', Menu.DispFile) > 0) Then
Session.io.OutFile (StripSecurity(Menu.TextFile), True, 0); Session.io.OutFile (StripSecurity(Menu.DispFile), True, 0);
If Session.io.NoFile Then Begin If Session.io.NoFile Then Begin
Case Menu.DispCols of Case Menu.DispCols of
@ -622,7 +622,7 @@ Var
For A := 1 to CmdNum Do Begin For A := 1 to CmdNum Do Begin
If MenuList[A].Text <> '' Then If MenuList[A].Text <> '' Then
If (MenuList[A].HotKey <> 'EVERY') and (MenuList[A].HotKey <> 'AFTER') Then If (MenuList[A].HotKey <> 'EVERY') and (MenuList[A].HotKey <> 'AFTER') Then
If Session.User.Access(MenuList[A].ACS) Then Begin If Session.User.Access(MenuList[A].Access) Then Begin
If MenuList[A].HotKey = 'LINEFEED' Then Begin If MenuList[A].HotKey = 'LINEFEED' Then Begin
If Listed MOD Menu.DispCols <> 0 Then Session.io.OutRawLn(''); If Listed MOD Menu.DispCols <> 0 Then Session.io.OutRawLn('');
Session.io.OutFull(MenuList[A].Text); Session.io.OutFull(MenuList[A].Text);
@ -684,7 +684,7 @@ Var
Session.io.BufAddChar (Ch); Session.io.BufAddChar (Ch);
End; End;
If Temp = MenuList[A].HotKey Then If Temp = MenuList[A].HotKey Then
If Session.User.Access(MenuList[A].ACS) Then Begin If Session.User.Access(MenuList[A].Access) Then Begin
If View Then Exit; If View Then Exit;
If Listed = 0 Then Session.io.OutRawLn(''); If Listed = 0 Then Session.io.OutRawLn('');
Listed := A; Listed := A;
@ -718,7 +718,7 @@ Var
(Session.io.IsArrow and (Temp = #81) and (MenuList[A].HotKey = 'PAGEDOWN')) or (Session.io.IsArrow and (Temp = #81) and (MenuList[A].HotKey = 'PAGEDOWN')) or
(Not Session.io.IsArrow and (Temp = MenuList[A].HotKey)) Then (Not Session.io.IsArrow and (Temp = MenuList[A].HotKey)) Then
If Session.User.Access(MenuList[A].ACS) Then If Session.User.Access(MenuList[A].Access) Then
If ExecuteCommand (MenuList[A].Command, MenuList[A].Data) Then Begin If ExecuteCommand (MenuList[A].Command, MenuList[A].Data) Then Begin
Done := True; Done := True;
Exit; Exit;
@ -731,7 +731,7 @@ Var
For A := 1 to CmdNum Do For A := 1 to CmdNum Do
If Temp = MenuList[A].LongKey Then If Temp = MenuList[A].LongKey Then
If Session.User.Access(MenuList[A].ACS) Then Begin If Session.User.Access(MenuList[A].Access) Then Begin
If View Then Exit; If View Then Exit;
If ExecuteCommand (MenuList[A].Command, MenuList[A].Data) Then Begin If ExecuteCommand (MenuList[A].Command, MenuList[A].Data) Then Begin
Done := True; Done := True;
@ -743,7 +743,7 @@ Var
Var Var
A : Byte; A : Byte;
MR : MenuRec; MR : RecMenuFlags;
Begin Begin
If View Then Begin If View Then Begin
Keys := #13; Keys := #13;
@ -805,7 +805,7 @@ Begin
ExtKeys := ''; ExtKeys := '';
For A := 1 to CmdNum Do For A := 1 to CmdNum Do
If Session.User.Access(MenuList[A].ACS) Then If Session.User.Access(MenuList[A].Access) Then
If MenuList[A].HotKey = 'EVERY' Then Begin If MenuList[A].HotKey = 'EVERY' Then Begin
If ExecuteCommand (MenuList[A].Command, MenuList[A].Data) Then Exit; If ExecuteCommand (MenuList[A].Command, MenuList[A].Data) Then Exit;
End Else End Else