powerid
Inicial
Cantidad de envíos : 18
Fecha de inscripción : 14/08/2013
Edad : 24
Localización : Pehuajo
 | Tema: Se cancela la cr 11.5 dx7/8  Miér Ago 14, 2013 3:02 pm | |
| Explicación : Se cancela la cuenta regresiva que hay en camino.
Bueno buscan
- Código:
-
If UCase$(Left$(rData, 4)) = "/CR " Then
y Abajo de
- Código:
-
If CuentaRegresiva > 0 Then Exit Sub
Ponemos
- Código:
-
CuentaRegresiva = true
Ahora buscan devuelta
- Código:
-
If UCase$(Left$(rData, 4)) = "/CR " Then
y Abajo (cuando termina el comando)
Ponemos
- Código:
-
If UCase$(Left$(rData, 10)) = "/CANCELARC" Then
rData = Val(Right$(rData, Len(rData) - 10))
If UserList(UserIndex).flags.Privilegios = PlayerType.Consejero Then Exit Sub
If CuentaRegresiva = False Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No hay ninguna cuenta regresiva." & FONTTYPE_INFO)
Exit Sub
End If
Call SendData(SendTarget.ToAll, 0, 0, "||Cuenta Regresiva Interrumpida." & FONTTYPE_GUILD)
CuentaRegresiva = rData
Exit Sub
End If Comando /Cancelarcr
Listo ahora se cancela la cuenta (si hay una cuenta regresiva en camino) | |
|
