ÍndiceCalendarioFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse
Afiliados

Comparte | 
 

 Comando /cuentaregresiva [Ao 11.5 / Twist]

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
GoldFish
aficionado
aficionado


Mensajes : 72

MensajeTema: Comando /cuentaregresiva [Ao 11.5 / Twist]   Mar Dic 21 2010, 16:27

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
Volver arriba Ir abajo
Ver perfil de usuario
 
Comando /cuentaregresiva [Ao 11.5 / Twist]
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Pregunta acerca de un comando
» Comando Mateo Morral: la represión que viene
» Pregunta sobre un comando
» [Guía oficial] Enseñanza de rol y comando para usarios.
» Trucos y Comando de Habbo.

Permisos de este foro:No puedes responder a temas en este foro.
 :: Caja de trabajo :: Programacion-
Cambiar a: