#######################################
#  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"
########