alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false } 
alias randn2 { 
  if $1- isalpha && $1- islower { 
    if (($count($1,a,e,i,o,u) >= 4)) { return $false } 
    if ($regex($1-,/([[:print:]])11/gi) >= 1) { return $false } 
    if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) { 
      if ($regex($1,/^[^aeiou]{3}/)) { return $true } 
      elseif ($regex($1,/([a-z])1{2}/)) { return $true } 
      elseif ($regex($1,/[aeiou]{3/)) { return $true } 
      elseif ($regex($1,q[^u])) { return $true } 
      elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true } 
      else { return $false } 
    } 
  } 
} 
alias randn { 
  if $1- isalpha && $1- islower { 
    if ($regex($1-,/([[:print:]])11/gi) >= 1) { return $false } 
    if ($len($1) == 7) { 
      var %son = $mid($1,$len($1),1) 
      var %son2 = $mid($1,$calc($len($1) - 1),1) 
      if (%son == %son2) { return $false } 
      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true } 
      elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true } 
      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true } 
      else { return $false } 
    } 
    elseif ($len($1) == 8) { 
      var %son = $mid($1,$len($1),1) 
      var %son2 = $mid($1,$calc($len($1) - 1),1) 
      if (%son == %son2) { return $false } 
      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true } 
      elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true } 
      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true } 
      else { return $false } 
    } 
    elseif ($len($1) == 9) { 
      var %son = $mid($1,$len($1),1) 
      var %son2 = $mid($1,$calc($len($1) - 1),1) 
      if (%son == %son2) { return $false } 
      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true } 
      elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true } 
      elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true } 
      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true } 
      else { return $false } 
    } 
    elseif ($len($1) == 10) { 
      var %son = $mid($1,$len($1),1) 
      var %son2 = $mid($1,$calc($len($1) - 1),1) 
      if (%son == %son2) { return $false } 
      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true } 
      elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true } 
      elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true } 
      else { return $false } 
    } 
    if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true } 
    elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {  
      var %son = $mid($1,$len($1),1) 
      var %son2 = $mid($1,$calc($len($1) - 1),1) 
      if (%son == %son2) { return $false } 
      else { return $true } 
    } 
    elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {  
      var %son = $mid($1,$len($1),1) 
      var %son2 = $mid($1,$calc($len($1) - 1),1) 
      if (%son == %son2) { return $false } 
      else { return $true } 
    } 
    elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true } 
    elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true } 
    else { return $false } 
  } 
} 
on !*:join:#:{ 
  var %identd = $gettok($gettok($address($nick,5),1,64),2,33),-1) 
  if ($randomnick($nick)) || ($randomnick(%identd)) {  mode # +b $nick | kick $chan $nick 4Global 2Kanallarına Giris Yaparken 4Nick2i'inizin 4Random1/4Nick Olarak 2Tespit  Edilmistir ve Tedbir Olarakta uzaklastırıldınız. } 
} 
menu channel,status { 
  Random Nick Koruması 
  Aç :.enable #random | echo -at Random Nick Koruması Acılmışdır. 
  kapat:.disable #random | echo -at Random Nick Koruması Kapatılmışdır. 
} 
}