bienvenida.tcl

# ************************************************************
# esta tcl dara la bienvenida a los usuarios que entren a tus canales
# pero con un solo mensaje fijo para todos tus canales
# ************************************************************

## aqui pon tu mensaje editalo
set onjoin_msg {
{
"��� Bienvenido �\2$nick\2� Una Radio Llena De Onda �. �� Ven Diviértete con nuestros Dj's  �� Somos una Radio que No Compite �� y Somos Originales �� Radio-OndaMix �� Llena de Sorpresas �� Para ver comandos Radio ��� !axe ��� Radio OndaMix ���"
}
}

## aqui los canales donde estara activa la tcl
set onjoin_chans "#Xpresion-Latina"

# ************************************************************
# no edite nada si no sabe de tcl
# caso contrario la tcl no funcionara correctamente
# ************************************************************

bind join - * join_onjoin

proc join_onjoin {nick uhost hand chan} {
global onjoin_msg onjoin_chans botnick
if {(([lsearch -exact [string tolower $onjoin_chans] [string tolower $chan]] != -1) || ($onjoin_chans == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
set onjoin_temp [lindex $onjoin_msg [rand [llength $onjoin_msg]]]
foreach msgline $onjoin_temp {
puthelp "NOTICE $nick :[subst $msgline]"
}
}
}
putlog "TCL de Bienvenida Oficial Radio-OndaMix"