Comando /CR [Cuenta Regresiva] 11.5, 12.X

Admin Mensajes : 121 Fecha de inscripción : 14/05/2011 Edad : 26

Hola vengo a mostrarles está extracción de Revival AO, lo que hace el comando es lo siguiente:

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:

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:

Código:: Sub PasarSegundo()

Y debajo ponemos:

CÓDIGO:

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

Saludos Para Pythion de Servers Argentum

Fuente: Servers Argentum

Mensajes : 68 Fecha de inscripción : 14/05/2011

Buen aporte, esta bueno !!, suerte.

Saludos.

» comando /editgm
» comando /apaga "nick"
» [aporte] comando /duelo