Agus Admin
Mensajes : 69 Fecha de inscripción : 01/07/2008
| Tema: Gran poder Jue 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 | |
|