====================
but thes in a new file in the remote
====================
on ^1:TEXT:*:#: { 
  set %englishoo qwertyuiopasdfghjklzxcvbnm^`/\|[]{}-_
  set %Arabiclol 
  if ($nick isop #) && ($left($nick,1) !isin %englishoo) {
    if ($mid($nick,2,1) !isin %englishoo) || ($mid($nick,3,1) !isin %englishoo) || ( $mid($nick,4,1) !isin %englishoo) echo # 1<12@84 $+ $nick $+ 1> $1-
    unset %englishoo
    halt
  }
  if ($nick isvo #) && ($left($nick,1) !isin %englishoo) {
    if ($mid($nick,2,1) !isin %englishoo) || ($mid($nick,3,1) !isin %englishoo) || ( $mid($nick,4,1) !isin %englishoo) echo # 1<4+76 $+ $nick $+ 1> $1-
    unset %englishoo
    halt
  }
  if ($nick isop #) && ($left($nick,1) !isin %Arabiclol)  {
    if ($mid($nick,2) !isin %Arabiclol) || ($mid($nick,3,1) !isin %Arabiclol) || ( $mid($nick,4,1) !isin %Arabiclol) echo # 1<12@82 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 82 $+ $right($nick,1) $+ 1> $1- 
    unset %arabicl*
    halt
  }
  if ($nick isvo #) && ($left($nick,1) !isin %Arabiclol) {
    if ($left($nick,2) !isin %Arabiclol) || ($mid($nick,3,1) !isin %Arabiclol) || ( $mid($nick,4,1) !isin %Arabiclol) echo # 1<4+85 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 85 $+ $right($nick,1) $+ 1> $1- 
    unset %arabicl*
    halt
  }

  elseif ($left($nick,1) !isin %englishoo) { 
    if ($mid($nick,2,1) !isin %englishoo) || ($mid($nick,3,1) !isin %englishoo) || ( $mid($nick,4,1) !isin %englishoo) echo # 1<85 $+ $nick $+ 1> $1-
    unset %englishoo
    halt
  }
  elseif ($left($nick,1) !isin %Arabiclol) { 
    if ($mid($nick,2) !isin %Arabiclol) || ($mid($nick,3,1) !isin %Arabiclol) || ( $mid($nick,4,1) !isin %Arabiclol) echo # 1<84 $+ $left($nick,1) $+ 78 $+ $mid($nick,2,$calc($len($nick) - 2)) $+ 84 $+ $right($nick,1) $+ 1> $1-  
    unset %arabicl*
    halt
  }
}