SpikeL Comunidad
Hola, bienvenido a SpikeL Foro.

Si eres nuevo, deves registrarte.

Si ya tienes una cuenta, deves ingresar.

¡Muchas gracias!

PD: Si te has registrado pero no puedes logear tienes que activar tu cuenta desde tu e-mail.


Unirse al foro, es rápido y fácil

SpikeL Comunidad
Hola, bienvenido a SpikeL Foro.

Si eres nuevo, deves registrarte.

Si ya tienes una cuenta, deves ingresar.

¡Muchas gracias!

PD: Si te has registrado pero no puedes logear tienes que activar tu cuenta desde tu e-mail.
SpikeL Comunidad
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



HACER GM POR COMANDO

+3
ArkhaTz
Nogha.-
santi55
7 participantes

SpikeL Comunidad :: Argentum Online :: Programación :: AO 11.2 / AOReady

Ir abajo

HACER GM POR COMANDO Empty HACER GM POR COMANDO

Mensaje por santi55 Vie Ene 21, 2011 11:56 am

Servidor
Buscan:
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 PONEMOS:
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 semi dioses , 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 antes del end if anterior:
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

/esdios nick, /essemi nick, /esconse nick

Listo
santi55
santi55
Nivel 12
Nivel 12

Medallas
HACER GM POR COMANDO Prensa1
Advertencias Advertencias : 1
Mensajes Mensajes : 156
Puntos Puntos : 49237
Reputación Reputación : 1
Fecha de inscripción Fecha de inscripción : 19/12/2010
País País : Argentina


Volver arriba Ir abajo

HACER GM POR COMANDO Empty Re: HACER GM POR COMANDO

Mensaje por Nogha.- Vie Ene 21, 2011 12:19 pm

Ah mira vos, Nunca pensé que podía existir eso.. Jaja, Muy bueno..

Gracias por el Aporte.


Saludos.-
Nogha.-
Nogha.-
Nivel 23
Nivel 23

Medallas
HACER GM POR COMANDO Prensa1HACER GM POR COMANDO Moderador1HACER GM POR COMANDO Participativo1HACER GM POR COMANDO Staff1x
HACER GM POR COMANDO Senor_10
Advertencias Advertencias : -
Mensajes Mensajes : 512
Puntos Puntos : 49499
Reputación Reputación : 15
Sexo Sexo : Masculino

Fecha de inscripción Fecha de inscripción : 13/12/2010
Edad Edad : 28
País País : Argentina

Localización Localización : The House.-

https://www.facebook.com/profile.php?id=1002423012

Volver arriba Ir abajo

HACER GM POR COMANDO Empty Re: HACER GM POR COMANDO

Mensaje por ArkhaTz Vie Ene 21, 2011 10:36 pm

Muy buen code, pero te hackean el gm y fuiste.
Fuente?
avatar
ArkhaTz
Baneado

Medallas
HACER GM POR COMANDO Prensa1HACER GM POR COMANDO Moderador1
Advertencias Advertencias : 8
Mensajes Mensajes : 210
Puntos Puntos : 49591
Reputación Reputación : -1
Sexo Sexo : Masculino

Fecha de inscripción Fecha de inscripción : 21/10/2010
País País : Argentina

Localización Localización : N/A

Volver arriba Ir abajo

HACER GM POR COMANDO Empty Re: HACER GM POR COMANDO

Mensaje por Francohhh Vie Ene 21, 2011 11:03 pm

Está bueno pero tiene muchas contras, te hackean un GM y perdiste el servidor...
2° en el comando le falta verificar si el usuario que puso el comando es dios o lo que fuese.

Igualmente buen aporte !
Francohhh
Francohhh
Administrador
Administrador

Administrador
Medallas
HACER GM POR COMANDO Prensa1HACER GM POR COMANDO Fundador1HACER GM POR COMANDO Participativo1HACER GM POR COMANDO Donar1
HACER GM POR COMANDO Staff1x HACER GM POR COMANDO Moderador1 HACER GM POR COMANDO Ao1 HACER GM POR COMANDO Desarrollo
HACER GM POR COMANDO Radio10 HACER GM POR COMANDO Radio110 HACER GM POR COMANDO Colabo10 HACER GM POR COMANDO Progra10
HACER GM POR COMANDO Cs110HACER GM POR COMANDO Postea10 HACER GM POR COMANDO Senor_10 HACER GM POR COMANDO Dueno_10
HACER GM POR COMANDO Futbol10
Mensajes Mensajes : 880
Puntos Puntos : 52946
Reputación Reputación : 41
Sexo Sexo : Masculino

Fecha de inscripción Fecha de inscripción : 23/03/2010
Edad Edad : 27
Localización Localización : Mar del Plata

http://www.spikel.org

Volver arriba Ir abajo

HACER GM POR COMANDO Empty Re: HACER GM POR COMANDO

Mensaje por Maraxus Miér Mayo 25, 2011 3:38 pm

lo Podes adaptar para 13.0?
o es Igual?
Maraxus
Maraxus
Nivel 2
Nivel 2

Medallas
HACER GM POR COMANDO Prensa1
Mensajes Mensajes : 21
Puntos Puntos : 47287
Reputación Reputación : 0
Fecha de inscripción Fecha de inscripción : 24/05/2011
País País : Argentina


Volver arriba Ir abajo

HACER GM POR COMANDO Empty Re: HACER GM POR COMANDO

Mensaje por 4L3X Lun Jun 27, 2011 10:48 am

yo creo que es igual solo el sitio un poco diferente
4L3X
4L3X
Nivel 0
Nivel 0

Medallas
HACER GM POR COMANDO Prensa1
Mensajes Mensajes : 8
Puntos Puntos : 47867
Reputación Reputación : 0
Fecha de inscripción Fecha de inscripción : 23/03/2011
País País : Argentina


Volver arriba Ir abajo

HACER GM POR COMANDO Empty Re: HACER GM POR COMANDO

Mensaje por Dailesh Jue Oct 31, 2013 5:46 pm

Como busco esos codigos en Windows Xp porque lo busco y me aparece que no hay nada con ese nombre
Dailesh
Dailesh
Nivel 0
Nivel 0

Medallas
HACER GM POR COMANDO Prensa1
Mensajes Mensajes : 1
Puntos Puntos : 38332
Reputación Reputación : 0
Fecha de inscripción Fecha de inscripción : 31/10/2013
País País : Argentina


Volver arriba Ir abajo

HACER GM POR COMANDO Empty Re: HACER GM POR COMANDO

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

SpikeL Comunidad :: Argentum Online :: Programación :: AO 11.2 / AOReady

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