Şimdi yazdım. Deneyip sonucu sölersen iyi olur. İyi forumlar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
#######################################
# Op Kanalı Nick Değişim Yasaklama #
# coded by Raw #
#######################################
########
# Op kanalı yazınız
########
set op(kanal) "#ops"
########
# Muaf kanalı yazınız
########
set op(muaf) "#opers"
########
# Kill Mesajı Yazınız
########
set op(kill) "Global op kanalında nick değiştirdiğiniz için uzaklaştırıldınız"
bind nick - * nickDEGISIM
proc nickDEGISIM {nick chan uhost hand newnick} {
global op
if {[string match -nocase $op(kanal) $chan] && ![onchan $newnick $op(muaf)]} {
putquick "mode $op(kanal) +b $uhost"
putquick "kill $newnick $op(kill)"
putquick "privmsg $op(kanal) \002Dikkat :\002 $nick global op nickini değiştirdiği için uzaklaştırılmıştır. Lütfen global op nickinizi değiştirmeyiniz."
}
}
########
putlog "Op Kanali Nick Degisim.Tcl Yuklendi - coded by Raw"
########