on *:nick: { 
  var %:n $newnick
  var %i 1
  var %c $comchan($newnick,0)
  while (%i <= %c) {
    if $regex($nick($comchan($newnick,%i),$newnick).pnick,/(~|&|@|%|\.)/) && ($me isop $comchan($newnick,%i)) {
      mode $comchan($newnick,%i) -o %:n
      mode $comchan($newnick,%i) -h %:n
      ;devam ettirilebilir veya tek satıra alınabilir.
      msg $comchan($newnick,%i) Nick degistirdiginiz icin deop edildiniz. %:n
      inc %i
    }
  }
}