Comando /cuentaregresiva
Página 1 de 1.
Comando /cuentaregresiva
Comando:/CUENTAREGRESIVA
Ejemplo: /Cuentaregresiva 10
Agregamos al modulo declaraciones:
Public CuentaRegresiva As Integer
Luego buscamos:
If UCase$(Left$(rData, 9)) = "/SHOW SOS"
Y arriba ponemos:
If UCase$(Left$(rData, 17)) = "/CUENTAREGRESIVA " Then
rData = Right$(rData, Len(rData) - 17)
rData = val(rData)
If rData <= 0 Or rData >= 200 Then Exit Sub
Call SendData(SendTarget.Toall, 0, 0, "||" & rData & "~255~255~255~1~0~")
CuentaRegresiva = rData
Exit Sub
End If
Buscamos:
Sub PasarSegundo()
Y al final de ese Sub, agregamos:
If CuentaRegresiva > 0 Then
If CuentaRegresiva > 1 Then
Call SendData(SendTarget.Toall, 0, 0, "||Contando: " & CuentaRegresiva - 1 & FONTTYPE_GUILD)
Else
Call SendData(SendTarget.Toall, 0, 0, "||YAAAA!!!" & "~255~0~0~1~1")
End If
CuentaRegresiva = CuentaRegresiva - 1
End If
Adios espero que a alguien le sirva.
Ejemplo: /Cuentaregresiva 10
Agregamos al modulo declaraciones:
Public CuentaRegresiva As Integer
Luego buscamos:
If UCase$(Left$(rData, 9)) = "/SHOW SOS"
Y arriba ponemos:
If UCase$(Left$(rData, 17)) = "/CUENTAREGRESIVA " Then
rData = Right$(rData, Len(rData) - 17)
rData = val(rData)
If rData <= 0 Or rData >= 200 Then Exit Sub
Call SendData(SendTarget.Toall, 0, 0, "||" & rData & "~255~255~255~1~0~")
CuentaRegresiva = rData
Exit Sub
End If
Buscamos:
Sub PasarSegundo()
Y al final de ese Sub, agregamos:
If CuentaRegresiva > 0 Then
If CuentaRegresiva > 1 Then
Call SendData(SendTarget.Toall, 0, 0, "||Contando: " & CuentaRegresiva - 1 & FONTTYPE_GUILD)
Else
Call SendData(SendTarget.Toall, 0, 0, "||YAAAA!!!" & "~255~0~0~1~1")
End If
CuentaRegresiva = CuentaRegresiva - 1
End If
Adios espero que a alguien le sirva.
santi55Nivel 12 -
Advertencias : 1
Mensajes : 156
Puntos : 49387
Reputación : 1
Fecha de inscripción : 19/12/2010
País :
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|