set opnick { 
 "By_BuRN" 
}
 
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 
    }  
  } 
 } 
}