[APORTE] Agregar Jerarquia Administrador

[KenJiN] · 06-nov-2008, 00:08

Este es el codigo de twist pero lo mejore muchisimo y lo adapte al alkon 0.11.5 comun. Este codigo estaba pero como <Admin> y a los que les gusta <Administrador> como si fuera un servidor serio les dejo el aporte mio =)
Queda mas rolero ensima

Empezemos

Buscamos:

Código:

ElseIf EsDios(name) Then
    UserDarPrivilegioLevel = 3

Arriva ponemos:

Código:

If EsAdministrador(name) Then
    UserDarPrivilegioLevel = 4

Buscamos:

Código:

ElseIf EsDios(name) Then
    UserList(UserIndex).flags.Privilegios = PlayerType.Dios
    Call LogGM(UserList(UserIndex).name, "Se conecto con ip:" & UserList(UserIndex).ip, False)

Arriva colocamos:

Código:

If EsAdministrador(name) Then
    UserList(UserIndex).flags.Privilegios = PlayerType.Administrador
    Call LogGM(UserList(UserIndex).name, "Se conecto con ip:" & UserList(UserIndex).ip, False)

Buscamos:

Código:

'Si es dios o Admins no podemos salvo que nosotros también lo seamos
    If (EsDios(rData) Or EsAdmin(rData)) And UserList(UserIndex).flags.Privilegios < PlayerType.Dios Then _
        Exit Sub

Remplazamos por:

Código:

'Si es dios o Admins no podemos salvo que nosotros también lo seamos
    If (EsDios(rData) Or EsAdministrador(rData)) And UserList(UserIndex).flags.Privilegios < PlayerType.Dios Then _
        Exit Sub

Buscamos:

Código:

'No permitimos mirar dioses
        If EsDios(rData) Or EsAdmin(rData) Then Exit Sub

Lo remplazamos por:

Código:

'No permitimos mirar dioses
        If EsDios(rData) Or EsAdministrador(rData) Then Exit Sub

Buscamos:

Código:

 'A los dioses y admins no vale susurrarles si no sos uno vos mismo (así no pueden ver si están conectados o no)
            If (EsDios(tName) Or EsAdmin(tName)) And UserList(UserIndex).flags.Privilegios < PlayerType.Dios Then
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No puedes susurrarle a los Dioses y Admins." & FONTTYPE_INFO)
                Exit Sub
            End If

Lo remplazamos por:

Código:

 'A los dioses y admins no vale susurrarles si no sos uno vos mismo (así no pueden ver si están conectados o no)
            If (EsDios(tName) Or EsAdministrador(tName)) And UserList(UserIndex).flags.Privilegios < PlayerType.Dios Then
                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No puedes susurrarle a los Dioses y Admins." & FONTTYPE_INFO)
                Exit Sub
            End If

Buscamos:

Código:

Function EsDios(ByVal name As String) As Boolean

Arriva agregamos:

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 Or UCase$(name) = "X" Then
        EsAdministrador = True
        Exit Function
    End If
Next WizNum
EsAdministrador = False
End Function

Buscamos:

Código:

If UserList(TempCharIndex).DescRM = "" Then
If EsNewbie(TempCharIndex) Then
Stat = " <NEWBIE>"
End If

Debajo colocamos:

Código:

 
If UserList(TempCharIndex).flags.Privilegios > 3 Then
                        Stat = Stat & " <Admin> ~216~254~1~1~0"
                    ElseIf UserList(TempCharIndex).flags.Privilegios > 2 Then
                        Stat = Stat & " <Dios> ~255~255~255~1~0"
                    ElseIf UserList(TempCharIndex).flags.Privilegios > 1 Then
                        Stat = Stat & " <Semi-Dios> ~255~128~64~1~0"
                    ElseIf UserList(TempCharIndex).flags.Privilegios > 0 Then
                        Stat = Stat & " <Consejero> ~128~255~255~1~0"

Los colores del Nick los pueden configurar de Colores.DAT

Recuerden modificar el server.ini les tiene que quedar algo asi:

Administradores=2
Dioses=4
SemiDioses=0
Consejeros=0
RolesMasters=0

[Administradores]
Administrador1=Y
Administrador2=YY

[Dioses]
Dios1=Y
Dios2=YY
Dios3=YYY
Dios4=YYYY

[SemiDioses]
Semidios1=

[Consejeros]
Consejero1=

[RolesMasters]
RM1=

NOTA: En la linea If UCase$(name) = NomB Or UCase$(name) = "X" Then. Remplazen la X por su nombre de gm, esto servira para que el host no lo pueda sakar del server.ini, recuerden poner su nombre en MAYUSCULA

Fernan! · 06-nov-2008, 00:50

Muy bueno KenJin

Blade · 06-nov-2008, 07:17

lindo aporte, pero ya estaba xD

**Lorenax** · 06-nov-2008, 13:00

jaja si es algo visto ya, ahora prendo mi compu y pongo dos rangos mas con colores incluidos modificados del INIT.

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

06-nov-2008, 07:17	#3 (permalink)
Blade FORERO UASU Ingreso: noviembre-2007 Mensajes: 207 Agradecimientos realizados: 9 Le han agradecido 2 veces en 2 Posts Reportes: 0 Reportado 1 Vez en 1 Post Poder: 45	lindo aporte, pero ya estaba xD

Secciones de Interés