On ^*:Nick:{ 
  set %nicked $rand(1,4)
  set %englished qwertyuiopasdfghjklzxcvbnm^`/\|[]{}-_
  set %Arabiced 
  if (%nicked == 1) && ($left($nick,1) !isin %Arabiced) && ($left($newnick,1) !isin %Arabiced) {
    if ($mid($nick,2) !isin %arabiced) || ($mid($nick,3,1) !isin %arabiced) || ( $mid($nick,4,1) !isin %arabiced) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 87 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 87 $+ $right($nick,1) 3is now known as 82 $+ $left($newnick,1) $+ 78 $+ $mid($newnick,2,$calc($len($newnick) - 2)) $+ 82 $+ $right($newnick,1) | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 2) && ($left($nick,1) !isin %Arabiced) && ($left($newnick,1) !isin %Arabiced) {
    if ($mid($nick,2) !isin %arabiced) || ($mid($nick,3,1) !isin %arabiced) || ( $mid($nick,4,1) !isin %arabiced) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 84 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 84 $+ $right($nick,1) 3is now known as 87 $+ $left($newnick,1) $+ 78 $+ $mid($newnick,2,$calc($len($newnick) - 2)) $+ 87 $+ $right($newnick,1) | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 3) && ($left($nick,1) !isin %Arabiced) && ($left($newnick,1) !isin %Arabiced) {
    if ($mid($nick,2) !isin %arabiced) || ($mid($nick,3,1) !isin %arabiced) || ( $mid($nick,4,1) !isin %arabiced) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 85 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 85 $+ $right($nick,1) 3is now known as 84 $+ $left($newnick,1) $+ 78 $+ $mid($newnick,2,$calc($len($newnick) - 2)) $+ 84 $+ $right($newnick,1) | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 4) && ($left($nick,1) !isin %Arabiced) && ($left($newnick,1) !isin %Arabiced) {
    if ($mid($nick,2) !isin %arabiced) || ($mid($nick,3,1) !isin %arabiced) || ( $mid($nick,4,1) !isin %arabiced) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 82 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 82 $+ $right($nick,1) 3is now known as 85 $+ $left($newnick,1) $+ 78 $+ $mid($newnick,2,$calc($len($newnick) - 2)) $+ 85 $+ $right($newnick,1) | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 1) && ($left($nick,1) !isin %Arabiced) && ($left($newnick,1) isin %Arabiced) {
    if ($mid($nick,2) !isin %arabiced) || ($mid($nick,3,1) !isin %arabiced) || ( $mid($nick,4,1) !isin %arabiced) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 87 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 87 $+ $right($nick,1) 3is now known as 82 $+ $newnick | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 2) && ($left($nick,1) !isin %Arabiced) && ($left($newnick,1) isin %Arabiced) {
    if ($mid($nick,2) !isin %arabiced) || ($mid($nick,3,1) !isin %arabiced) || ( $mid($nick,4,1) !isin %arabiced) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 84 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 84 $+ $right($nick,1) 3is now known as 87 $+ $newnick | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 3) && ($left($nick,1) !isin %Arabiced) && ($left($newnick,1) isin %Arabiced) {
    if ($mid($nick,2) !isin %arabiced) || ($mid($nick,3,1) !isin %arabiced) || ( $mid($nick,4,1) !isin %arabiced) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 85 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 85 $+ $right($nick,1) 3is now known as 84 $+ $newnick | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 4) && ($left($nick,1) !isin %Arabiced) && ($left($newnick,1) isin %Arabiced) {
    if ($mid($nick,2) !isin %arabiced) || ($mid($nick,3,1) !isin %arabiced) || ( $mid($nick,4,1) !isin %arabiced) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 82 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 82 $+ $right($nick,1) 3is now known as 85 $+ $newnick | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 1) && ($left($nick,1) !isin %englished) && ($left($newnick,1) !isin %englished) {
    if ($mid($nick,2) !isin %englished) || ($mid($nick,3,1) !isin %englished) || ( $mid($nick,4,1) !isin %englished) { var %inick = 1 | while $comchan($newick,%inick) { echo $comchan($newnick,%inick) 3*** 87 $+ $nick 3 $+ 3is now known as85 $newnick | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 2) && ($left($nick,1) !isin %englished) && ($left($newnick,1) !isin %englished) {
    if ($mid($nick,2) !isin %englished) || ($mid($nick,3,1) !isin %englished) || ( $mid($nick,4,1) !isin %englished) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 84 $+ $nick 3 $+ 3is now known as82 $newnick | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 3) && ($left($nick,1) !isin %englished) && ($left($newnick,1) !isin %englished)  {
    if ($mid($nick,2) !isin %englished) || ($mid($nick,3,1) !isin %englished) || ( $mid($nick,4,1) !isin %englished) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 85 $+ $nick 3 $+ 3is now known as84 $newnick | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 4) && ($left($nick,1) !isin %englished) && ($left($newnick,1) !isin %englished) {
    if ($mid($nick,2) !isin %englished) || ($mid($nick,3,1) !isin %englished) || ( $mid($nick,4,1) !isin %englished) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 82 $+ $nick 3 $+ 3is now known as87 $newnick | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 1) && ($left($nick,1) !isin %englished) && ($left($newnick,1) isin %englished) {
    if ($mid($nick,2) !isin %englished) || ($mid($nick,3,1) !isin %englished) || ( $mid($nick,4,1) !isin %englished) { var %inick = 1 | while $comchan($newick,%inick) { echo $comchan($newnick,%inick) 3*** 87 $+ $nick 3 $+ 3is now known as85 $left($newnick,1) $+ 78 $+ $mid($newnick,2,$calc($len($newnick) - 2)) $+ 85 $+ $right($newnick,1) | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 2) && ($left($nick,1) !isin %englished) && ($left($newnick,1) isin %englished) {
    if ($mid($nick,2) !isin %englished) || ($mid($nick,3,1) !isin %englished) || ( $mid($nick,4,1) !isin %englished) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 84 $+ $nick 3 $+ 3is now known as82 $left($newnick,1) $+ 78 $+ $mid($newnick,2,$calc($len($newnick) - 2)) $+ 82 $+ $right($newnick,1) | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 3) && ($left($nick,1) !isin %englished) && ($left($newnick,1) isin %englished)  {
    if ($mid($nick,2) !isin %englished) || ($mid($nick,3,1) !isin %englished) || ( $mid($nick,4,1) !isin %englished) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 85 $+ $nick 3 $+ 3is now known as84 $left($newnick,1) $+ 78 $+ $mid($newnick,2,$calc($len($newnick) - 2)) $+ 84 $+ $right($newnick,1) | inc %inick }
      unset %arabice*
      haltdef 
  } }
  if (%nicked == 4) && ($left($nick,1) !isin %englished) && ($left($newnick,1) isin %englished) {
    if ($mid($nick,2) !isin %englished) || ($mid($nick,3,1) !isin %englished) || ( $mid($nick,4,1) !isin %englished) { var %inick = 1 | while $comchan($newnick,%inick) { echo $comchan($newnick,%inick) 3*** 82 $+ $nick 3 $+ 3is now known as87 $left($newnick,1) $+ 78 $+ $mid($newnick,2,$calc($len($newnick) - 2)) $+ 87 $+ $right($newnick,1) | inc %inick }
      unset %arabice*
      haltdef 
  } }
}
