Kod

#######################################
#  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 - * raw
proc raw {nick chan uhost hand newnick} {
 global op
  if {$chan == $op(kanal) && ![onchan $newnick $op(muaf)]} {
 putquick "mode $op(kanal) +b $newnick"
 putquick "kill $newnick$op(kill)"
 putquick "privmsg $op(kanal) \002Dikkat :\002$newnick 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"
########