setudef flag uyarı
set yasak "*yasak*"


bind pubm - * kanalda:yap
proc kanalda:yap {nick uhost hand chan arg} {
    if {[string match -nocase $yasak $arg]} {
        if {[lsearch -exact $nick +uyarı] != -1} {
            putquick "MODE $chan +b $nick!$uhost" -next
            putquick "KICK $chan $nick :Oda içerisinde, \002sohbet kurallarını\002 ihlal ettiğinizden ötürü bir süreliğine uzaklaştırıldınız." -next
            utimer 300 [list putquick "MODE $chan -b $nick!$uhost" -next]
            return 0
        } else {
            putquick "PRIVMSG $chan UYARI :Sohbet Odalarimizda Bu Tür yazişmalara izin verilmemektedir. ayrıntılı bilgi için \002/MOTD\002 yazınız." -next
        }
    }
}