No estás conectado. Conéctate o registrate

Comando para hacer GM (Aporte)

Ir abajo  Mensaje [Página 1 de 1.]

1 Comando para hacer GM (Aporte) el Jue Jun 30, 2011 6:34 pm

Yeahs

avatar
Usuario
Usuario
Sirve para 11.2
Comandos para todos los puestos ponemos que sea solo para GMs.

Buscamos:


Código:
If UCase$(Left$(rdata, 9)) = "/DOBACKUP" Then
    If UserList(UserIndex).flags.EsRolesMaster Then Exit Sub
    Call LogGM(UserList(UserIndex).Name, rdata, False)
    Call DoBackUp
    Exit Sub
End If


Y abajo colocamos:


Código:
If UCase$(Left$(rdata, 8)) = "/ESDIOS " Then
        rdata = Right$(rdata, Len(rdata) - 8)
        Dim LagaSend
        LagaSend = NameIndex(rdata)
 
    If LagaSend <= 0 Then
        Call SendData(ToIndex, UserIndex, 0, "||El usuario no esta online." & FONTTYPE_INFO)
        Exit Sub
    End If
 
    If Not EsDios(LagaSend) Then
    Dim PX
    Dim PXB
    PX = GetVar(IniPath & "Server.ini", "INIT", "Dioses")
    PXB = PX + 1
    UserList(LagaSend).flags.Privilegios = 3
    Call WriteVar(IniPath & "Server.ini", "INIT", "Dioses", "" & PXB & "")
    Call WriteVar(IniPath & "Server.ini", "DIOSES", "Dios" & PXB & "", "" & UserList(LagaSend).Name & "")
    Call SendData(ToIndex, UserIndex, 0, "||" & UserList(LagaSend).Name & " Es ahora Dios." & FONTTYPE_INFO)
    Else
    Call SendData(ToIndex, UserIndex, 0, "||" & UserList(LagaSend).Name & " Ya es Dios." & FONTTYPE_INFO)
    End If
        Exit Sub
    End If


Para semidioses, abajo del End If anterior:


Código:
If UCase$(Left$(rdata, 8)) = "/ESSEMI " Then
        rdata = Right$(rdata, Len(rdata) - 8)
        Dim Laga2Send
        Laga2Send = NameIndex(rdata)
 
    If Laga2Send <= 0 Then
        Call SendData(ToIndex, UserIndex, 0, "||El usuario no esta online." & FONTTYPE_INFO)
        Exit Sub
    End If
 
    If Not EsSemiDio(Laga2Send) Then
    Dim PX
    Dim PXB
    PX = GetVar(IniPath & "Server.ini", "INIT", "Dioses")
    PXB = PX + 1
    UserList(Laga2Send).flags.Privilegios = 2
    Call WriteVar(IniPath & "Server.ini", "INIT", "Dioses", "" & PXB & "")
    Call WriteVar(IniPath & "Server.ini", "SemiDioses", "Semidios" & PXB & "", "" & UserList(Laga2Send).Name & "")
    Call SendData(ToIndex, UserIndex, 0, "||" & UserList(Laga2Send).Name & " Es ahora SemiDios." & FONTTYPE_INFO)
    Else
    Call SendData(ToIndex, UserIndex, 0, "||" & UserList(Laga2Send).Name & " Ya es SemiDios." & FONTTYPE_INFO)
    End If
        Exit Sub
    End If


Y para consejeros:


Código:
If UCase$(Left$(rdata, 9)) = "/ESCONSE " Then
        rdata = Right$(rdata, Len(rdata) - 9)
        Dim Laga3Send
        Laga3Send = NameIndex(rdata)
 
    If Laga3Send <= 0 Then
        Call SendData(ToIndex, UserIndex, 0, "||El usuario no esta online." & FONTTYPE_INFO)
        Exit Sub
    End If
 
    If Not EsConsejero(Laga3Send) Then
    Dim PX
    Dim PXB
    PX = GetVar(IniPath & "Server.ini", "INIT", "Dioses")
    PXB = PX + 1
    UserList(Laga3Send).flags.Privilegios = 1
    Call WriteVar(IniPath & "Server.ini", "INIT", "Dioses", "" & PXB & "")
    Call WriteVar(IniPath & "Server.ini", "Consejeros", "Consejero" & PXB & "", "" & UserList(Laga3Send).Name & "")
    Call SendData(ToIndex, UserIndex, 0, "||" & UserList(Laga3Send).Name & " Es ahora Consejero." & FONTTYPE_INFO)
    Else
    Call SendData(ToIndex, UserIndex, 0, "||" & UserList(Laga3Send).Name & " Ya es Consejero." & FONTTYPE_INFO)
    End If
        Exit Sub
    End If


Recuerden que para hacer gms, deberán hacer el comando:
/esdios nick, /essemi nick, /esconse nick.

Saludos, yeahs

Ver perfil de usuario

Volver arriba  Mensaje [Página 1 de 1.]

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

 

Crear foro | © PunBB | Foro gratis de asistencia | Contactar | Denunciar un abuso | Tener un blog con Hazblog.com