on *:join:#:{
  if ($nick == RoCKGirL) { halt }
  if (rockg isin $nick)  {
    /msg $nick Kullanmıs oldugunuz nick, Sunucu yetkilisinin Nickidir. 30 Saniye icinde Değiştiriniz.
    /timer 1 30 /kick $chan $nick 12Lütfen Nickinizi Değiştiriniz.  
    halt
  }
}

 
on *:join:#:{
  if ($nick == eLdorado) { halt }
  if (eLdo isin $nick)  {
    .msg $nick Kullanmıs oldugunuz nick, Sunucu yetkilisinin Nickidir. 30 Saniye icinde Değiştiriniz.
    .timer 1 7 .kick $chan $nick 12Lütfen Nickinizi Değiştiriniz.  
    halt
  }
}

on !*:join:#:if *rockgirl* iswm $nick { if !%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 *rockgirl* !iswm $newnick { 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
}

on !*:join:#:if *rockg* iswm $nick { if !%dify { msg # $nick Kullandığınız nick kanal yetkilisi RoCkGirL'e aittir,lütfen 30 sn içerisinde değişiniz. | .timerockme 1 30 ilision $nick } | set %dify $nick }
on *:nick:if $nick == %dify { if *rockgirl* !iswm $newnick { 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
}

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
}