Bem , o tutorial é simples porém pode ser útil.
Função: Quando o modo manutenção é ativado somente a Staff pode entrar.

Server~Side.


Crie um Checkbox .
Checkbox:
Caption= Servidor em manutenção
name= chkGmon


Procure por

Código:

Private Sub HandleNewAccount

dentro procure por

Código:

  If Not isNameLegal(n) Then
                    Call AlertMsg(index, "Invalid name, only letters, numbers, spaces, and _ allowed in names.")
                    Exit Sub
                End If


abaixo adicione

Código:

  If frmServer.chkGmon.Value = YES Then
              If GetPlayerAccess(index) <= 0 Then
             
                    Call AlertMsg(index, "O servidor está em manutenção, somente a equipe está online, visite o site para mais informações.")
                        Exit Sub
                    End If
            End If


Procure por

Código:

Private Sub HandleLogin


dentro encontre

Código:

Call LoadPlayer(index, Name)
            ClearBank index
            LoadBank index, Name


Abaixo adicione

Código:

  If frmServer.chkGmon.Value = YES Then
              If GetPlayerAccess(index) <= 0 Then
             
                    Call AlertMsg(index, "O servidor está em manutenção, somente a equipe está online, visite o site para mais informações.")
                        Exit Sub
                    End If
            End If


Créditos: Lincoln