Mine

set welc(msg) "No Flooding, No Advertising, No Abusive Languages, No Websites"
set welc(chan) "#asianbookie"
set welc(type) "1"

bind join - #asianbookie* givewelcome
proc givewelcome {nick uhost hand chan} {
global welc

set welctxt $welc(msg)
regsub -all "%nick" $welctxt "$nick" welctxt
regsub -all "%chan" $welctxt "$chan" welctxt
switch $welc(type) {
1 { puthelp "NOTICE $nick :$welctxt" }
2 { puthelp "PRIVMSG $nick :$welctxt" }
}
}