No estás conectado. Conéctate o registrate

/Apagar lo usa solo el adm.

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 /Apagar lo usa solo el adm. el Vie Mayo 08, 2009 8:37 pm

Guiido


SUPER MODERADOR
MUI SIMPLE XD


Buscas:
Código:
If UCase$(rdata) = "/APAGAR" Then
    Call LogMain(" Server apagado por " & UserList(UserIndex).Name & ".")
    Call ApagarSistema
    End
End If


Remplazas
Código:
If UCase$(rdata) = "/APAGAR" Then
    If UserList(UserIndex).Flags.Privilegios = 3 Then Exit Sub
    Call LogMain(" Server apagado por " & UserList(UserIndex).Name & ".")
    Call ApagarSistema
    End
End If

Solo dioses. sino:

Código:
Function EsDios(ByVal Name As String) As Boolean
Dim NumWizs As Integer
Dim WizNum As Integer
Dim Nomb As String
 
NumWizs = val(GetVar(IniPath & "Server.ini", "INIT", "Dioses"))
 
For WizNum = 1 To NumWizs
    Nomb = UCase$(GetVar(IniPath & "Server.ini", "Dioses", "Dios" & WizNum))
    If Left$(Nomb, 1) = "*" Or Left$(Nomb, 1) = "+" Then Nomb = Right$(Nomb, Len(Nomb) - 1)
    If UCase$(Name) = Nomb Then
        EsDios = True
        Exit Function
    End If
Next
 
End Function

Arriva ponemos:

Código:
Function EsAdministrador(ByVal Name As String) As Boolean
Dim NumWizs As Integer
Dim WizNum As Integer
Dim Nomb As String
 
NumWizs = val(GetVar(IniPath & "Server.ini", "INIT", "Administradores"))
 
For WizNum = 1 To NumWizs
    Nomb = UCase$(GetVar(IniPath & "Server.ini", "Administradores", "Administrador" & WizNum))
    If Left$(Nomb, 1) = "*" Or Left$(Nomb, 1) = "+" Then Nomb = Right$(Nomb, Len(Nomb) - 1)
    If UCase$(Name) = Nomb Then
        EsAdministrador = True
        Exit Function
    End If
Next
 
End Function

Buscamos:

Código:
If EsDios(Name) Then
    Privilegios = 3
    Call LogGM(Name, "Se conecto con ip:" & UserList(UserIndex).ip, False)

Remplazamos

Código:
If EsAdministrador(Name) Then
    Privilegios = 4
    Call LogGM(Name, "Se conecto con ip:" & UserList(UserIndex).ip, False)
ElseIf EsDios(Name) Then
    Privilegios = 3
    Call LogGM(Name, "Se conecto con ip:" & UserList(UserIndex).ip, False)

Buscamos:
Código:
If UserList(TempCharIndex).flags.Muerto Then
                Stat = "2K" & UserList(TempCharIndex).Name
            ElseIf UserList(TempCharIndex).Faccion.Bando = Real Then
                Stat = "3K" & Stat
            ElseIf UserList(TempCharIndex).Faccion.Bando = Caos Then
                Stat = "4K" & Stat
            ElseIf EsNewbie(TempCharIndex) Then
                Stat = "H0" & Stat
            Else
                Stat = "1&" & Stat
            End If
        End If

Abajo

Código:
If UserList(TempCharIndex).flags.Privilegios = 1 Then
Stat = Stat & " <Consejero> "
ElseIf UserList(TempCharIndex).flags.Privilegios = 2 Then
Stat = Stat & " <Semidios> "
ElseIf UserList(TempCharIndex).flags.Privilegios = 3 Then
Stat = Stat & " <Dios> "
ElseIf UserList(TempCharIndex).flags.Privilegios = 4 Then
Stat = Stat & " <Administrador> "
End If

AGREGAR ADM AL SERVER.INI

Arriva de:

Dioses=X

Ponemos:

Administradores=X

Abajo de:

[PJsQuest]
PJQuest1=

Ponemos:

[Administradores]
Administrador1=Name

Nota: El name lo tienen que remplazar por el nombre de su administrador, obviamente que puede poner mas admin, la X la remplazas x la cantidad de administradores

Entonces el /apagar ponemos:

Código:
If UCase$(rdata) = "/APAGAR" Then
    If UserList(UserIndex).Flags.Privilegios = 4 Then Exit Sub
    Call LogMain(" Server apagado por " & UserList(UserIndex).Name & ".")
    Call ApagarSistema
    End
End If

Que hice? Cre una jerarquia que yo solo uso y el comando /apgar le puse Privilegio 4 nada mas ADministrador lo usa

Ver perfil de usuario

2 Re: /Apagar lo usa solo el adm. el Miér Mayo 13, 2009 2:20 pm

ArreK


USUARIO REGISTRADO
muy funcional Very Happy

testeado y aclamado Razz

Ver perfil de usuario

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.