¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.


Todo sobre AO
 
ÍndiceÚltimas imágenesBuscarRegistrarseConectarse

 

 Gran poder

Ir abajo 
AutorMensaje
Agus
Admin



Mensajes : 69
Fecha de inscripción : 01/07/2008

Gran poder Empty
MensajeTema: Gran poder   Gran poder EmptyJue Jul 03, 2008 6:07 am

Buscar
Código:

''[EL OSO]: TRAIGO ESTO ACA ARRIBA PARA DARLE EL IP!
arriba, ponemos:
Código:

If Not UserTieneGP = True Then
    If UserList(UserIndex).flags.Privilegios = User Then
        UserList(UserIndex).flags.GP = True
        UserTieneGP = True
        Call SendData(SendTarget.ToAll, 0, 0, "||Los dioses le conseden el gran poder a " & name & "" & FONTTYPE_INFO)
    End If
End If
Si nadie tiene el GP, y se conecta un user que no es gm, se lo da a el.

En las declaraciones buscamos:
Código:

Invisible As Byte
y abajo ponemos:
Código:

GP as boolean
luego, abajo de donde dice:
Código:

Public TrashCollector As New Collection
ponemos:
Código:

Public UserTieneGP as boolean

Con esto estamos declarando las variables que vamos a usar.

En el sub:
Código:

Sub UserDie
abajo de:
Código:

UserList(UserIndex).flags.Muerto = 1

ponemos:
Código:

If UserList(UserIndex).flags.GP = True Then
        UserList(UserIndex).flags.GP = False
        UserTieneGP = False
        Call SortearGP
    End If
Con esto le sacamos el GP al user si muere.

Arriba del sub:
Código:

Sub SendUserStatsBox

creamos este:
Código:

Sub SortearGP()

    Dim LagaRnDGP
    LagaRnDGP = RandomNumber(1, LastUser)
   
    If UserList(laganrdgp).flags.Privilegios >= Consejero Then
        Call SortearGP
    Else
        UserTieneGP = True
        UserList(LagaRnDGP).flags.GP = True
        Call SendData(SendTarget.ToAll, 0, 0, "||Los dioses le conseden el gran poder a " & UserList(LagaRnDGP).name & "" & FONTTYPE_INFO)
    End If
End Sub
Esto lo que hace es buscar un user que no sea gm para darle el gran poder.

Ahora en el sub:
Código:

Sub CloseUser
abajo de:
Código:

Clase = UserList(UserIndex).Clase
ponemos:
Código:

If UserList(UserIndex).flags.GP = True Then
    UserList(UserIndex).flags.GP = False
    UserTieneGP = False
    Call SortearGP
End If
Con esto logramos que al salir el usuario, le de el GP a otra persona.
Finalmente en el sub:
Código:

Sub UserDañoNpc
arriba de:
Código:

If daño < 0 Then daño = 0
ponemos:
Código:

If UserList(UserIndex).flags.GP = True Then
    daño = daño * 2
End If
11.5 adaptable para 11.2
Volver arriba Ir abajo
https://recompilacionao.forosactivos.com
 
Gran poder
Volver arriba 
Página 1 de 1.

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Programación :: 0.11.5-
Cambiar a: