on *:nick: {
  if $nick == snipercem { return } 
  if $count($nick(#kanal,$newnick).pnick,&,@,%) && !$var($+(%,newnick,$nick),1).value && !$read(Nick.txt,w,$+(*,$newnick,*)) {  
    set -u120 $+(%,newnick,$newnick) $newnick
    msg $newnick Lütfen nickinizi 2dk içerisinde değişin.
    $+(.timer,$newnick) 1 120 nevnick $newnick
  }
  if $nick == $var($+(%,newnick,$nick),1).value {
    if $read(Nick.txt,w,$+(*,$newnick,*)) { $+(.timer,$nick) off | unset $+(%,newnick,$nick) | msg $newnick  Tşk. }
    else { $+(.timer,$nick) off | nevnick $newnick | unset $+(%newnick,$nick) }
  }
}
alias nevnick {
  var %nev 1 | while %nev <= $comchan($1,0) { 
    if $me isop $comchan($1,%nev) {
      mode $comchan($1,%nev) +b $1 | kick $comchan($1,%nev) $1 Kurallara uyalım
    }
    inc %nev
  }
}