set opkanal #Yönetim
bind pub - !terbiyesiz terbiyesiz
bind pub - !tat tat
proc terbiyesiz {nick host hand text} {
global opkanal 
if {[onchan $nick [strlwr $opkanal]]} {
set kanal [lindex $text 0]
    putserv "sapart $kanal :#Kelime"
    putserv "sapart $kanal :#English"
    putserv "sapart $kanal :#BuLBaKaLim"
    putserv "sapart $kanal :#OyunTR"
    putserv "sapart $kanal :#Oyun"
    putserv "sapart $kanal :#Universite"
    putserv "sapart $kanal :#ArkadaS"
    putserv "sapart $kanal :#Sevgi"
    putserv "sapart $kanal :#Muhabbet"
    putserv "sajoin $kanal #Terbiye"
    putserv "mode #Terbiye +v $kanal"
    putserv "privmsg #Terbiye 4 $kanal 2Terbiye kurallarına uymayan davranışta bulunduğunuz için bu odaya getirildiniz.. YÖNETİCİ Arkadaşımızın söylediklerini dinleyiniz.."
} else { putserv "Notice $nick :Muhabbet.Com.TR*Sunucusunda*Görevli*Degilsiniz!" }
}
proc tat {nick host hand text} {
global opkanal 
if {[onchan $nick [strlwr $opkanal]]} {
set kanal [lindex $text 0]
    putserv "gline $kanal 900 2Sunucumuz Üzerinde 4Sapıkça2 Hareketlerde Bulunduğunuz İçin Uzaklaştırıldınız... 4Amacımız Türkiye'nin En Büyük Seviyeli Ortamını Kurmak.."
} else { putserv "Notice $nick :Muhabbet.Com.TR*Sunucusunda*Görevli*Degilsiniz!" }
}