IlianPt - Join TCL

#############################################
#            IRC.ComunidadCF.ORG.           #
#############################################
# TCL editada por ilianPt, creador Yoichiro #
#############################################

#Editar
set JoinM {
{Hola %nick, bienvenido a %chan }
{Tenia tiempo sin verte %nick}
{Saludos %nick }
{El canal es mas divertido contigo %nick }
{Me gusta verte %nick en %chan }
}

#NO EDITAR
set JoinMV "v1.1"
set JoinMS "JoinGreet.TCL"
set JoinMD "By: Yoichiro & IlianPt (Edit/ES)"

bind join - * join:greet
proc join:greet {nick uhost hand chan} {
  global botnick JoinM
  set JoinMs [lindex $JoinM [rand [llength $JoinM]]]
regsub -all "%nick" $JoinM "$nick" JoinM
regsub -all "%chan" $JoinM "$chan" JoinM
	if {($nick != $botnick)} {
    putserv "NOTICE $nick :0,1- $JoinMs -"
  }
}

putlog "Cargando: $JoinMS $JoinMV $JoinMD"