Contador de invisibilidad - [0.11.5] y Twist-AO

Sub EfectoInvisibilidad

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, "||Quedan" & str$((IntervaloInvisible - UserList(UserIndex).Counters.Invisibilidad) / 25) & " segundos para que la invisibilidad termine!!" & FONTTYPE_INFO) 'Esto lo modifican a su gusto.
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

Public Const FXSANGRE = 14

Public const ContadorParaInvi = 5