bind msg - !gir giris
 
proc giris { n u h a } {
channel add $a
putserv "privmsg $n $a kanalına giriş yaptım $n"
}