Esto sirve para esto :


----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Bueno vamos al código.

Agregan al modulo declaraciones:

Código:

Public CuentaRegresiva As Integer

Buscamos:

Código:

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

Y arriba ponemos:

Código:

If UCase$(Left$(rData, 17)) = "/CR " 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 debajo ponemos:

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, "||¡¡¡YAAA!!!" & "~255~0~0~1~1")
        End If
        CuentaRegresiva = CuentaRegresiva - 1
    End If

Y creó que eso es todo, alguien que lo testee en su servidor, saludos.

Fuente : Servers - Argentums [Pythion]