TCL Message on Join

Message on Join

# OnJoin MSG Text by KuNgFo0

set onjoin_msg {
 {
  "Hello \$nick and welcome to \$chan"
 }
 {
  "Hello \$nick and welcome to \$chan"
 }
}
set onjoin_chans "#test #test1"

bind join - * join_onjoin

putlog "OnJoin MSG Text loaded"

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]"
		}
	}
}