Invisibilidad Informa cuando faltan 5 segundos

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