Comando /cuentaregresiva [Ao 11.5 / Twist]

aficionado Mensajes : 72

Les dejo aca un codigo para la cuenta regresiva para Ao 11.5 / Twist

Comando:/CUENTAREGRESIVA
Ejemplo: /Cuentaregresiva 10

Agregamos al modulo declaraciones:

Public CuentaRegresiva As Integer

Luego buscamos:

Código:

If UCase$(Left$(rData, 9)) = "/SHOW SOS"

Y arriba ponemos:

Código:

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:

Código:

Sub PasarSegundo()

Y al final de ese Sub, agregamos:

Código:

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

Espero que les sirva

Attm...
GoldFish

» Comando /ulla [AO 11.5 / Twist]
» Facha AO [MOD Twist]
» Surplus Ao [mod Twist]
» Twist AO [11.5] [Agite]
» Nombre del Items Al pasar el mouse [AO 11.5 / Twist]