Kanal Mod TCL(İsteğinize Göre Düzenleyebilirsiniz)

[No_FeaR]

Kendim İçin Derlediğim Kanal Mod TCL'si Kendinize Göre Düzenleyebilir/Silme/Ekleme Yapabilirsiniz.

NOT ; Parça Olarak Toparladım Direk Olarak Yazmadım : )

bind pub - !+m chanmod
#Komut algılama
proc chanmod {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "mode $chan +m"
putquick "privmsg $nick : $chan +m Moduna Alindi $nick"
}
bind pub - !-m chanmod
#Komut algılams
proc chanmod {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "mode $chan -m"
putquick "privmsg $nick : $chan -m Moduna Alindi $nick"
}
bind pub - !+s chanmod
#Komut algılamas
proc chanmod {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "mode $chan +s"
putquick "privmsg $nick : $chan +s Moduna Alindi $nick"
}
bind pub - !-s chanmod
#Komut algılamw
proc chanmod {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "mode $chan -s"
putquick "privmsg $nick : $chan -s Moduna Alindi $nick"
}
bind pub - !+RM chanmod
#Komut algılamıs
proc chanmod {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "mode $chan +RM"
putquick "privmsg $nick : $chan +RM Moduna Alindi $nick"
}
bind pub - !+RM chanmod
#Komut algılaaddddımm
proc chanmod {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "mode $chan -RM"
putquick "privmsg $nick : $chan -RM Moduna Alindi $nick"
}
#Oper Odası
set yonetim "#Opers"

bind pub - !zline uzaklas
#Komut algılama
proc uzaklas {nick uhand host chan text} {
global yonetim
if {[isop $nick $chan] || [onchan $nick $yonetim]==0} {
putquick "zline $text"
}
#Oper Odası
set yonetim "#Opers"

bind pub - !kline uzaklass
#Komut algılama
proc uzaklass {nick uhand host chan text} {
global yonetim
if {[isop $nick $chan] || [onchan $nick $yonetim]==0} {
putquick "kline $text"
}
#Oper Odası
set yonetim "#Opers"

bind pub - !gline uzaklaa
#Komut algılama
proc uzaklaa {nick uhand host chan text} {
global yonetim
if {[isop $nick $chan] || [onchan $nick $yonetim]==0} {
putquick "gline $text"
}