[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.

[GhostLy]

benim anladığım kadarıyla kanalda kufur v.s gibi kural ihlali yapanlari !terbiyesiz nick yaptiğinda kanallardan sapart edip. #terbiye kanalına sokacak ? ve terbiye kanalında !tat nick yazdiğinizda gline sebebi olmus olacak dimi ?

eğer anladiğim gibiyse sadece oplar #sohbet #muhabbet kanalında !terbiyesiz nick komutunu kullana bilir.

sajoin edilecek kanalda. yani örnek #terbiye kanalı oplari sadece !tat nick komutunu kullanabilir. buyrun umarım işinizi gorur.


[KBSC] 09::29 <GhostLy> !terbiyesiz KelebekTurkce59
[KBSC] 09::29 *** Ayrıldı: KelebekTurkce59 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) («|» Kanaldan Ayrıldı «|»)
[KBSC] 09::29 -IRC.AskOdam.Net- *** Notice -- Ask-Net used SAPART to make KelebekTurkce59 part #Kelime
-ø-
[KBSC] 09::29 -IRC.AskOdam.Net- *** Notice -- Ask-Net used SAPART to make KelebekTurkce59 part #Oyun
-ø-
[KBSC] 09::29 -IRC.AskOdam.Net- *** Notice -- Ask-Net used SAPART to make KelebekTurkce59 part #sohbet
-ø-
[KBSC] 09::29 -IRC.AskOdam.Net- *** Notice -- Ask-Net used SAJOIN to make KelebekTurkce59 join #Terbiye
## terbiye kanalı..###

[KBSC] 09::29 *** Şu an #terbiye kanalında bulunuyorsunuz
[KBSC] 09::29 <12KelebekTurkce59> Ask-Net Büyüdüm mü bende @ olacam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
2Kelebek 4v.Türkçe
[KBSC] 09::29 *** Ask-Net mode değiştirdi:+v KelebekTurkce59
[KBSC] 09::29 <10Ask-Net> 4 KelebekTurkce59 2Terbiye kurallarına uymayan davranışta bulunduğunuz için bu odaya getirildiniz.. YÖNETİCİ Arkadaşımızın söylediklerini dinleyiniz..
14© 7Ask-Net5 Muhabbet.Com.TR*Sunucusunda*Görevli*Degilsiniz!



[KBSC] 09::32 <GhostLy> !tat KelebekTurkce59

[KBSC] 09::32 -IRC.AskOdam.Net- *** You are banned from AskOdam (Sunucumuz Üzerinde Sapıkça Hareketlerde Bulunduğunuz İçin Uzaklaştırıldınız... Amacımız Türkiye'nin En Büyük Seviyeli Ortamını Kurmak..)
-ø-
[KBSC] 09::32 * Bağlantınız Kesildi

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

#### admin kanalı..###
set ops_chan "#terbiye"
 
bind pub - !terbiyesiz terbiyeci
bind pub - !tat tatmali
 
proc terbiyeci {nick uhost handle chan hings } {
global terbiye
if {![isop $nick $chan]} {return 0}
putserv "sapart $hings #Kelime"
putserv "sapart $hings #English"
putserv "sapart $hings #BuLBaKaLim"
putserv "sapart $hings #OyunTR"
putserv "sapart $hings #Oyun"
putserv "sapart $hings #Universite"
putserv "sapart $hings #ArkadaS"
putserv "sapart $hings #sohbet"
putserv "sapart $hings #Muhabbet"
putserv "sajoin $hings #Terbiye"
putserv "mode #Terbiye +v $hings"
putserv "privmsg #Terbiye 4 $hings 2Terbiye kurallarına uymayan davranışta bulunduğunuz için bu odaya getirildiniz.. YÖNETİCİ Arkadaşımızın söylediklerini dinleyiniz.."
putserv "Notice $nick :Muhabbet.Com.TR*Sunucusunda*Görevli*Degilsiniz!"
}
proc tatmali {nick uhost handle chan hings } {
global ops_chan
if {$chan==$ops_chan && [isop $nick $ops_chan]==1} {
putserv "gline $hings 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.."
putserv "Notice $nick :Muhabbet.Com.TR*Sunucusunda*Görevli*Degilsiniz!" 
return 1
}
return 1
}

[Kablosuz NET]

ben bunu global oplarda kullanabilsin diye düşünmemiştim onuda benim yerime sen düşünmüşsün teşekkür ediyorum..Eline koluna yüreğine sağlık..

[GhostLy]

senin sayende benimde işime yaradi açıkcasi ne yalan söylim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.