on ^*:join:#:{ 
  if ($nick == $me) { return }
  set %joins $rand(1,4)
  set %englishs qwertyuiopasdfghjklzxcvbnm^`/\|[]{}-_
  set %Arabics 
  if (%joins == 1) && ($left($nick,1) !isin %Arabics) {
    if ($mid($nick,2) !isin %Arabics) || ($mid($nick,3,1) !isin %Arabics) || ( $mid($nick,4,1) !isin %Arabics) { var %joining = $comchan($nick,N) | while (%joining) { echo $comchan($nick,%joining) 3*** Join 87 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 87 $+ $right($nick,1) $+ 3 ( $+ $address $+ ) has joined $comchan($nick,%joining) | dec %joining } 
      unset %arabic*
      haltdef 
  } }
  if (%joins == 2) && ($left($nick,1) !isin %Arabics) { 
    if ($mid($nick,2) !isin %Arabics) || ($mid($nick,3,1) !isin %Arabics) || ( $mid($nick,4,1) !isin %Arabics) { var %joining = $comchan($nick,N) | while (%joining) { echo $comchan($nick,%joining) 3*** Join 85  $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 85 $+ $right($nick,1) $+ 3 ( $+ $address $+ ) has joined $comchan($nick,%joining) | dec %joining }
      haltdef 
  } }
  if (%joins == 3) && ($left($nick,1) !isin %Arabics) { 
    if ($mid($nick,2) !isin %Arabics) || ($mid($nick,3,1) !isin %Arabics) || ( $mid($nick,4,1) !isin %Arabics) { var %joining = $comchan($nick,N) | while (%joining) { echo $comchan($nick,%joining) 3*** Join 84 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 84 $+ $right($nick,1) $+ 3 ( $+ $address $+ ) has joined $comchan($nick,%joining) | dec %joining } 
      haltdef 
  } }
  if (%joins == 4) && ($left($nick,1) !isin %Arabics) { 
    if ($mid($nick,2) !isin %Arabics) || ($mid($nick,3,1) !isin %Arabics) || ( $mid($nick,4,1) !isin %Arabics) { var %joining = $comchan($nick,N) | while (%joining) { echo $comchan($nick,%joining) 3*** Join 82 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 82 $+ $right($nick,1) $+ 3 ( $+ $address $+ ) has joined $comchan($nick,%joining) | dec %joining } 
      haltdef
  } }

  if (%joins == 1) && ($left($nick,1) !isin %englishs ) {
    if ($mid($nick,2) !isin %englishs ) || ($mid($nick,3,1) !isin %englishs ) || ( $mid($nick,4,1) !isin %englishs ) { var %joining = $comchan($nick,N) | while (%joining) { echo $comchan($nick,%joining) 3*** Join 87 $+ $nick $+ 3 ( $+ $address $+ ) has joined $comchan($nick,%joining) | dec %joining } 
      unset %arabic*
      haltdef 
  } }
  if (%joins == 2) && ($left($nick,1) !isin %englishs ) { 
    if ($mid($nick,2) !isin %englishs ) || ($mid($nick,3,1) !isin %englishs ) || ( $mid($nick,4,1) !isin %englishs ) { var %joining = $comchan($nick,N) | while (%joining) { echo $comchan($nick,%joining) 3*** Join 85 $+ $nick $+ 3 ( $+ $address $+ ) has joined $comchan($nick,%joining) | dec %joining }
      haltdef 
  } }
  if (%joins == 3) && ($left($nick,1) !isin %englishs ) { 
    if ($mid($nick,2) !isin %englishs ) || ($mid($nick,3,1) !isin %englishs ) || ( $mid($nick,4,1) !isin %englishs ) { var %joining = $comchan($nick,N) | while (%joining) { echo $comchan($nick,%joining) 3*** Join 84 $+ $nick $+ 3 ( $+ $address $+ ) has joined $comchan($nick,%joining) | dec %joining } 
      haltdef 
  } }
  if (%joins == 4) && ($left($nick,1) !isin %englishs ) { 
    if ($mid($nick,2) !isin %englishs ) || ($mid($nick,3,1) !isin %englishs ) || ( $mid($nick,4,1) !isin %englishs ) { var %joining = $comchan($nick,N) | while (%joining) { echo $comchan($nick,%joining) 3*** Join 82 $+ $nick $+ 3 ( $+ $address $+ ) has joined $comchan($nick,%joining) | dec %joining } 
      haltdef
  } }
}
;
on ^*:PART:#:{ 
  if ($nick == $me) { return }
  set %englishsa qwertyuiopasdfghjklzxcvbnm^`/\|[]{}-_
  set %Arabicsa 
  set %parts $rand(1,4)
  if (%parts  == 1) && ($left($nick,1) !isin %arabicsa) {
    if ($mid($nick,2) !isin %arabicsa) || ($mid($nick,3,1) !isin %arabicsa) || ( $mid($nick,4,1) !isin %arabicsa) { var %parting = $comchan($nick,N) | while (%parting) { echo $comchan($nick,%parting) 3*** Part 87 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 87 $+ $right($nick,1) $+ 3 ( $+ $address $+ ) has left $comchan($nick,%parting) 3 $iif($1-,( $+ $1- 3 $+ )) | dec %parting } 
      haltdef
  } }
  if (%parts  == 2) && ($left($nick,1) !isin %arabicsa) {
    if ($mid($nick,2) !isin %arabicsa) || ($mid($nick,3,1) !isin %arabicsa) || ( $mid($nick,4,1) !isin %arabicsa) { var %parting = $comchan($nick,N) | while (%parting) { echo $comchan($nick,%parting) 3*** Part 82 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 82 $+ $right($nick,1) $+ 3 ( $+ $address $+ ) has left $comchan($nick,%parting) 3 $+ $iif($1-,( $+ $1- 3 $+ )) | dec %parting } 
      haltdef
  } }
  if (%parts  == 3) && ($left($nick,1) !isin %arabicsa) {
    if ($mid($nick,2) !isin %arabicsa) || ($mid($nick,3,1) !isin %arabicsa) || ( $mid($nick,4,1) !isin %arabicsa) { var %parting = $comchan($nick,N) | while (%parting) { echo $comchan($nick,%parting) 3*** Part 84 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 84 $+ $right($nick,1) $+ 3 ( $+ $address $+ ) has left $comchan($nick,%parting) 3 $+ $iif($1-,( $+ $1- 3 $+ )) | dec %parting } 
      haltdef
  } }
  if (%parts  == 4) && ($left($nick,1) !isin %arabicsa) {
    if ($mid($nick,2) !isin %arabicsa) || ($mid($nick,3,1) !isin %arabicsa) || ( $mid($nick,4,1) !isin %arabicsa) { var %parting = $comchan($nick,N) | while (%parting) { echo $comchan($nick,%parting) 3*** Part 85 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 85 $+ $right($nick,1) $+ 3 ( $+ $address $+ ) has left $comchan($nick,%parting) 3 $+ $iif($1-,( $+ $1- 3 $+ )) | dec %parting } 
      haltdef
  } }
  if (%parts  == 1) && ($left($nick,1) !isin %englishsa) {
    if ($mid($nick,2) !isin %englishsa) || ($mid($nick,3,1) !isin %englishsa) || ( $mid($nick,4,1) !isin %englishsa) { var %parting = $comchan($nick,N) | while (%parting) { echo $comchan($nick,%parting) 3*** Part 87 $+ $nick $+ 3 ( $+ $address $+ ) has left $comchan($nick,%parting) 3 $iif($1-,( $+ $1- 3 $+ )) | dec %parting } 
      haltdef
  } }
  if (%parts  == 2) && ($left($nick,1) !isin %englishsa) {
    if ($mid($nick,2) !isin %englishsa) || ($mid($nick,3,1) !isin %englishsa) || ( $mid($nick,4,1) !isin %englishsa) { var %parting = $comchan($nick,N) | while (%parting) { echo $comchan($nick,%parting) 3*** Part 82 $+ $nick $+ 3 ( $+ $address $+ ) has left $comchan($nick,%parting) 3 $+ $iif($1-,( $+ $1- 3 $+ )) | dec %parting } 
      haltdef
  } }
  if (%parts  == 3) && ($left($nick,1) !isin %englishsa) {
    if ($mid($nick,2) !isin %englishsa) || ($mid($nick,3,1) !isin %englishsa) || ( $mid($nick,4,1) !isin %englishsa) { var %parting = $comchan($nick,N) | while (%parting) { echo $comchan($nick,%parting) 3*** Part 84 $+ $nick $+ 3 ( $+ $address $+ ) has left $comchan($nick,%parting) 3 $+ $iif($1-,( $+ $1- 3 $+ )) | dec %parting } 
      haltdef
  } }
  if (%parts  == 4) && ($left($nick,1) !isin %englishsa) {
    if ($mid($nick,2) !isin %englishsa) || ($mid($nick,3,1) !isin %englishsa) || ( $mid($nick,4,1) !isin %englishsa) { var %parting = $comchan($nick,N) | while (%parting) { echo $comchan($nick,%parting) 3*** Part 85 $+ $nick $+ 3 ( $+ $address $+ ) has left $comchan($nick,%parting) 3 $+ $iif($1-,( $+ $1- 3 $+ )) | dec %parting } 
      haltdef
  } }
}
