bind pub - !soz kanala_yaz

proc kanala_yaz {nick uhost hand chan text} {
    global sohbet
        set kisi [lindex $text 1]
    if{($chan == "#sohbet")} {
        if {($kisi == "")} {
            putquick "privmsg $chan :$nick için söz isteği : [lindex $sohbet [rand [llength $sohbet]]]"
        } else {
            putquick "privmsg $chan :$nick tarafından $kisi icin söz isteği : [lindex $sohbet [rand [llength $sohbet]]]"
        }
    } else {
        putquick "notice $nick Üzgünüz! Bu kanalda !soz komutu kullanılamaz"
    }
}