«familiaridad» «rareza» «experiencia previa»
 
ÍndiceÍndice  Chat  FAQFAQ  BuscarBuscar  MiembrosMiembros  Grupos de UsuariosGrupos de Usuarios  RegistrarseRegistrarse  ConectarseConectarse  
Buscar
 
 

Resultados por:
 
Rechercher Búsqueda avanzada
Conectarse
Nombre de Usuario:
Contraseña:
Entrar automáticamente en cada visita: 
:: Recuperar mi contraseña
Últimos temas
» Simple censurador de palabras(room)
Lun Jul 13, 2009 5:36 am por .siCk.

» Kame Kamee
Vie Mar 27, 2009 3:32 pm por KissesRios

» Purgar...........
Miér Mar 04, 2009 4:21 am por mendigo

» Cambiar de cuarto o encontrar y seguir a un usuario
Dom Mar 01, 2009 7:08 am por miChelL

» La felicidad de hombre
Dom Mar 01, 2009 4:23 am por miChelL

» Datos curiosos!
Dom Mar 01, 2009 4:21 am por miChelL

» para hacer tus propios emoticons
Dom Mar 01, 2009 4:16 am por miChelL

» Los 5 mejores mensajeros
Sáb Feb 28, 2009 9:44 pm por mendigo

» Como instalar skype si eres nuevo
Vie Feb 27, 2009 8:26 pm por mendigo

» Configurar firewall para recibir archivos en msn
Vie Feb 27, 2009 8:24 pm por mendigo

» Abrir ventana de msn sin datos ni correo
Vie Feb 27, 2009 8:23 pm por mendigo

» averiguar ip de persona con quien hablas en tu msn
Vie Feb 27, 2009 8:23 pm por mendigo

» Bot de Lineage para msn
Vie Feb 27, 2009 8:22 pm por mendigo

» *****Desactivar permiso de administrador en Windows Vista*****
Vie Feb 27, 2009 7:05 am por mendigo

» Wvista..Atajo de teclado en windows.
Vie Feb 27, 2009 5:05 am por KissesRios


Comparte | 
 

 Checador de edad.(room)

Ir abajo 
AutorMensaje
KissesRios
Admin
avatar

Cantidad de envíos : 193
Fecha de inscripción : 19/02/2009
Localización : En el planeta del amor!

MensajeTema: Checador de edad.(room)   Vie Feb 20, 2009 1:49 pm

Pregunta por la fecha de cumple anios de el usuario,si la persona es mayor de edad le manda a otra room o le provee el pase de entrada.


Pon este script en la room donde sera la entrada a la sala... y cambia los parametros al principio de el script.



ON OUTCHAT
{
{
;***Set Parameters here***
18 age = ;minimum age
123 rm = ;destination room number, or,
"mypassword" pw = ;password to give out
"rm" action = ;"rm" to move person, "pw" to give out password
;***end of paras***

"$1" GREPSUB ATOI m =
"$2" GREPSUB ATOI d =
"$3" GREPSUB ATOI y =
[ 31 28 31 30 31 30 31 31 30 31 30 31 ] d_in_m =
{ 29 d_in_m 1 PUT } y 4 % NOT IF ;correct for leapyear

{
;birthday in palace days
0 bd =
1970 basis = ;start of Palace time
{ 365 basis 4 % NOT + bd +=
basis ++
} { basis y < } WHILE
[ 0 31 59 90 120 151 181 212 243 273 304 334 ] m 1 - GET d + 1 - bd +=
;today in palace days
21600 tz = ;Eastern: 18000, Central: 21600, Mtn: 25200, Pacific: 28800
1 dst = ;daylight savings time, 1 on 0 off.
{ DATETIME 2085978496 + } { DATETIME tz - dst 3600 * + } DATETIME 0 < IFELSE 86400 / today =
;agecheck (with leapyear adjustment)
{ 1 ok = } { 0 ok = } today bd - age 365 * age 4 / + >= IFELSE
{ rm GOTOROOM } ok action "rm" == AND IF
{ "The password is: " pw & LOCALMSG } ok action "pw" == AND IF
{ "I'm sorry, you are not old enough." LOCALMSG } ok NOT IF
} { "That is not a valid birthdate." LOCALMSG } m DUP SWAP 12 <= AND
d DUP SWAP d_in_m m 1 - GET <= AND AND
y DUP 1900 > SWAP 2003 <= AND AND IFELSE
"" CHATSTR =
} CHATSTR "^([0-9]+)[/]([0-9]+)[/]([0-9]+)" GREPSTR IF
}
ON SELECT
{
"Type your birthday in the format: 4/15/1990" LOCALMSG
}
Volver arriba Ir abajo
Ver perfil de usuario http://dejavuchat.com
 
Checador de edad.(room)
Volver arriba 
Página 1 de 1.
 Temas similares
-
» ¿Cómo se adapta la leche según la edad en el tándem?
» Coronel Pringles. Viaje recreativo de la Tercera Edad y Discapacidad a Laprida.
» Igualdad eliminará las restricciones por edad para ingresar en el ejército
» Necesitamos una silla de paseo de segunda edad
» Crisis de la mediana edad

Permisos de este foro:No puedes responder a temas en este foro.
DejavuChat.com  :: *************DEJAVU FORO************** :: Scripts-
Cambiar a: