set opnick { "By_BuRN" "nick2" "nick3" "nick4" } bind join - * baglanti2 proc baglanti2 {nick uhost hand chan } { global opnick botnick if {(![matchattr $hand b]) && ($nick != $botnick)} { foreach opchange [string tolower $opnick] { if {[string match *$opchange* [string tolower $nick]]} { putserv "PRIVMSG $chan : Ownerım $nick şu anda $chan kanalına giriş yaptı.Hoş Geldin" return 0 } } } }