********************* Nick Colors *********************

*********** english Nickname **********

On *:input:*:{
  Set %english abcdefghijklmnopqrstuvwxyz
  if ($left($1,1) isin %english) { 
    if ($1 ison $active) && (*c* !iswm $chan(#).mode) { var %nc = $rand(1,$len($1)) | msg $active $chr(3) $+ 01 $+ $left($1,$calc(%nc - 1)) $+ $chr(2) $+ $chr(31) $+ $chr(3) $+ $gettok(03 04 05 06 07 12 13 14 15,$r(1,9),32) $+ $mid($1,%nc,1) $+ $chr(15) $+ $chr(3) $+ 01 $+ $right($1,$calc($len($1) - %nc)) $+ $chr(15) $+ ; $2- | halt  } 
    else {
      if ($1 ison #) && (*c* iswm $chan(#).mode) { var %nc = $rand(1,$len($1)) | msg $active $left($1,$calc(%nc - 1)) $+ $chr(2) $+ $chr(31) $+ $Upper($mid($1,%nc,1)) $+ $chr(15) $+ $right($1,$calc($len($1) - %nc)) $+ ; $2- | halt } 
    }
  }
}





*********** Arabic Nickname **********

On *:input:*:{
  Set %arabic ÇÈÊËÌÍÎÏÐÑÒÓÔÕÖØÙÝÞÚÛßáãäåæíÉìáÇÄÁÆÃÅ
  if ($left($1,1) isin %arabic) {
    if ($1 ison $active) && (*c* !iswm $chan(#).mode) { Say $chr(3) $+ $gettok(03 04 05 06 07 12 13 14 15,$r(1,9),32) $+ $1 $+ $chr(15) $+ ; $2- | halt }
    else {
      if ($1 ison $active) && (*c* iswm $chan(#).mode) { Say $chr(22) $1 $chr(22) ; $2- | halt } 
    }
  }
}




*********** english + arabic Nickname **********

On *:input:*:{
  Set %english abcdefghijklmnopqrstuvwxyz
  Set %arabic ÇÈÊËÌÍÎÏÐÑÒÓÔÕÖØÙÝÞÚÛßáãäåæíÉìáÇÄÁÆÃÅ
  if ($left($1,1) isin %english) { goto e }
  if ($left($1,1) isin %arabic) { goto a }
  :e
  if ($1 ison $active) && (*c* !iswm $chan(#).mode) { var %nc = $rand(1,$len($1)) | msg $active $chr(3) $+ 01 $+ $left($1,$calc(%nc - 1)) $+ $chr(2) $+ $chr(31) $+ $chr(3) $+ $gettok(03 04 05 06 07 12 13 14 15,$r(1,9),32) $+ $mid($1,%nc,1) $+ $chr(15) $+ $chr(3) $+ 01 $+ $right($1,$calc($len($1) - %nc)) $+ $chr(15) $+ ; $2- | halt  }
  else { if ($1 ison #) && (*c* iswm $chan(#).mode) { var %nc = $rand(1,$len($1)) | msg $active $left($1,$calc(%nc - 1)) $+ $chr(2) $+ $chr(31) $+ $Upper($mid($1,%nc,1)) $+ $chr(15) $+ $right($1,$calc($len($1) - %nc)) $+ ; $2- | halt } }
  :a
  if ($1 ison $active) && (*c* !iswm $chan(#).mode) { Say $chr(3) $+ $gettok(03 04 05 06 07 12 13 14 15,$r(1,9),32) $+ $1 $+ $chr(15) $+ ; $2- | halt }
  else { if ($1 ison $active) && (*c* iswm $chan(#).mode) { Say $chr(22) $1 $chr(22) ; $2- | halt } }
}