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 .
Procure por
abaixo adicione
Procure por
dentro encontre
Abaixo adicione
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
- 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