Sysop password prompt now configurable

This commit is contained in:
mysticbbs 2012-07-15 16:14:39 -04:00
parent 7b2efa2e78
commit 05f2be1961
1 changed files with 5 additions and 4 deletions

View File

@ -310,7 +310,7 @@ Begin
PageForSysopChat (Pos('/F', strUpper(Data)) > 0) {$ENDIF};
End;
'*' : Begin
If Not Session.io.GetPW ('|CR|09Sysop Password: ', Session.GetPrompt(417), Config.SysopPW) Then Exit; {++lang}
If Not Session.io.GetPW (Session.GetPrompt(493), Session.GetPrompt(417), Config.SysopPW) Then Exit;
Case Cmd[2] of
'#' : Begin
@ -747,6 +747,7 @@ Var
Begin
If View Then Begin
Keys := #13;
If (Menu.MenuType > 0) and (Session.io.Graphics = 1) Then Begin
Do_LightBar_Menu;
Session.io.AnsiGotoXY (Menu.DoneX, Menu.DoneY);