Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Invisibilidad Informa cuando faltan 5 segundos

Ir abajo 
AutorMensaje
Agus
Admin


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

MensajeTema: Invisibilidad Informa cuando faltan 5 segundos   Jue Jul 03, 2008 12:24 am

en el sub efectoInvisibilidad, tienen q reemplazar TODO( todo todo eh!!) por esto
Citación :

Public Sub EfectoInvisibilidad(ByVal UserIndex As Integer)
If UserList(UserIndex).Counters.Invisibilidad < IntervaloInvisible Then
UserList(UserIndex).Counters.Invisibilidad = UserList(UserIndex).Counters.Invisibilidad + 1
If UserList(UserIndex).Counters.Invisibilidad >= IntervaloInvisible - (ContadorParaInvi * 25) Then
If UserList(UserIndex).Counters.Invisibilidad Mod 25 = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||Te quedan " & str$((IntervaloInvisible - UserList(UserIndex).Counters.Invisibilidad) / 25) & " segundos antes de quedar visible!!" & FONTTYPE_INFO)
End If
End If
Else
Call SendData(ToIndex, UserIndex, 0, "||Has vuelto a ser visible." & FONTTYPE_INFO)
UserList(UserIndex).Counters.Invisibilidad = 0
UserList(UserIndex).flags.Invisible = 0
UserList(UserIndex).flags.Oculto = 0
Call SendData(ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).Char.CharIndex & ",0")
End If
End Sub
despues tienen q crear una constante, para eso van al modulo declares y ponen
Citación :

Public const ContadorParaInvi = 5
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Invisibilidad Informa cuando faltan 5 segundos
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Cuando Callan las Trompetas [DVDRip] (TORRENT)
» Cuando eramos soldados [DVDRip]
» ¿Te santiguas cuando pasas por delante de una iglesia o un cementerio?
» ¿mi compañero de trabajo no me mira a los ojos cuando conversamos?
» ¿COMO SE ENAMORA UNA MUJER CUANDO...?

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