on @*:join:#:{
  if RockGirL != $nick { 
    if $regex($regsubex($replace($regsubex($nick,/[\x5E_\|-]/ig,$null),0,o,q,g),/(.)\1+/g,\1),/(rockgirl)/i) && !%dify { 
      msg $nick Kullandığınız nick kanal yetkilisine aittir,lütfen 30 sn içerisinde değişiniz. 
      .timerockme 1 30 ilision $nick 
    } 
    set %dify $nick 
  }
}
on *:nick:if $nick == %dify { if !$regex($regsubex($replace($regsubex($newnick,/[\x5E_\|-]/ig,$null),0,o,q,g),/(.)\1+/g,\1),/(rockgirl)/i) { unset %dify | .timerockme off | msg $newnick Gösterdiğiniz ilgi için tşk. ederiz } | else { ilision $newnick } } 
alias -l ilision {
  var %-_ 1 | while %-_ <= $comchan($1,0) {
    if $me isop $comchan($1,%-_) { mode $ifmatch2 +b $1 | kick $ifmatch2 $1 Uyarılara kulak asmalısın }
    inc %-_
  }
  unset %dify
}