[Kablosuz NET]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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!" }
}

Mevcut tclnin birisinden editlediğim bir bot normal proclar çalışıyordu ancak sadece Yönetimde çalışması için ifleri ekleyince çalışmaz oldu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.