bind join - * kanala_giris
bind part - * kanaldan_cikis

# Güvenlik kanali #
set kanal "#karantina"

proc kanala_giris {nick host hand chan} {
global kanal
 if {$chan == $kanal} {
    putquick "PRIVMSG $nick :Şuanda güvenlik amacıyla $kanal kanalına alındınız."
}
}

proc kanaldan_cikis {nick host hand chan text} {
global kanal
 if {$chan == $kanal} {
    putquick "PRIVMSG $nick :Güvenli bulunduğunuz için $kanal kanalından çıkarıldınız."
}
}