Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind pub - !k kick
bind pub - !b ban
bind pub - !kb kick-ban
proc kick {n u h c a} {
if {[isowner $n $c]} {
set gnick [lindex $a 0]
putserv "kick $c $gnick"
}
if {![isowner $n $c]} {
putserv "privmsg $c $n Bu komudu kullanmaya Yetkili degilsiniz!"
}
}
proc ban {n u h c a} {
if {[isowner $n $c]} {
set gnick [lindex $a 0]
putserv "mode $c +b $gnick"
}
if {![isowner $n $c]} {
putserv "privmsg $c $n Bu komudu kullanmaya Yetkili degilsiniz!"
}
}
proc kick-ban {n u h c a} {
if {[isowner $n $c]} {
set gnick [lindex $a 0]
putserv "mode $c +b $gnick"
putserv "kick $c $gnick"
}
if {![isowner $n $c]} {
putserv "privmsg $c $n Bu komudu kullanmaya Yetkili degilsiniz!"
}
}
kod CchennemM e aittir. Çalışıyormu diye denemedim !k nick !b nick !kb nick diye çalışması gerekmektedir.İstediklerine göre geliştirebilirsin.