bind msg - !gir giris

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

bind msg - !cik cikis

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

bind msg - !cik cikis

proc cikis { n u h a } {
channel remove $a
putserv "privmsg $n $a kanalından çıkış yaptım $n"
}