Untitled

bind join - *#channel* delay_givewelcome
set welc(msg) "Hello %nick, please state your question, your site username, and the site you are having problems on. Then wait patiently for staff to assist you."
set welc(chan) "#channel"
set welc(type) "2"

proc givewelcome {nick uhost hand chan} {
  global welc
  if {[isop $nick $chan] || [ishalfop $nick $chan] || [isvoice $nick $chan]} {return}
  set welctxt [string map [list %nick $nick %chan $chan] $welc(msg)]
  switch $welc(type) {
    1 { puthelp "NOTICE $nick :$welctxt" }
    2 { puthelp "PRIVMSG $chan :$welctxt" }
  }
}

proc delay_givewelcome {nick uhost hand chan} {
  utimer 30 [list givewelcome $nick $uhost $hand $chan]
}