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-,/([[rint:]])\1\1/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-,/([[rint:]])\1\1/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 }
  }
}

#random off
on !*:join:#:if ($randomnick($nick)) { gzline $nick + Random. }
#random end
alias random { if $1 == on { echo -a Random nick koruması açık | .enable #random } | if $1 == off { echo -a Random nick koruması kapalı | .disable #random }  }
on *:text:*:#system:{
  if $1 == .ac { msg # Random nick koruması açık | .enable #random }
  if $1 == .kapa { msg # Random nick koruması kapalı | .disable #random }
}

on !*:join:#:{
  var %identd = $gettok($gettok($address($nick,5),1,64),2,33),-1)
  if ($randomnick($nick)) || ($randomnick(%identd)) { Kill $nick  Random nick/ident kullanımı yasaktır.. }
}