set onjoin_msg {
 {
  "7 ~ $nick ~ 2Sunucumuza Hosgeldiniz... Keyifli Sohbetler Dileriz...5 "
 }
}
set onjoin_chans "#Sohbet"

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 {
   putquick "PRIVMSG $chan [subst $msgline]"
  }
 }
}