alias a2e.switch if ($1 = off) { .disable #ara2eng | %ara2eng = off } | else { .enable #ara2eng | %ara2eng = on }
alias arachr if ($asc($left($strip($1-),1)) >= 127) { return $true }
alias a2e {
  %a2e.text = $remove($strip($1-),,,,,,,,,,,~,)
  if (%a2e.text) {
    %a2e.text = $replace(%a2e.text,,d'h,,g'h,,k'h,,s'h,,t'h,,a,,a,,i,,b,,t,,th,,j,,7,,kh,,d,,th,,r,,z,,s,,sh,,9,,dh,,6,,`6,,3,,`3,,f,,g,,k,,l,,m,,n,,h,,o,,y,,a,,o,,a,,?,,a,,h)
    if ($event = chat) { %a2e.window = =$nick } | elseif (#) { %a2e.window = # } | else { %a2e.window = $nick }
    if ($nick) { %a2e.msgr = $nick } | else { %a2e.msgr = 12Test }
    echo 14 %a2e.window < $+ %a2e.msgr $+ :12ARA2ENG> %a2e.text
  }
  unset %a2e.*
}

#ara2eng off
on 1:text:*:*:if $arachr($1) || $arachr($2) || $arachr($3) || $arachr($4) { a2e $1- }
on 1:action:*:*:if $arachr($1) || $arachr($2) || $arachr($3) || $arachr($4) { a2e $1- }
on 1:chat:*:if $arachr($1) || $arachr($2) || $arachr($3) || $arachr($4) { a2e $1- }
#ara2eng end
;Type in Arabic using "/ara <msg>"
alias ara say $$replace($strip($1-),Y,,/,,/,,o,,q,,u,,',,p,,w,,q,,a,,`,,h,,b,,c,,],,d,,t,,r,,i,,[,,;,,g,,l,,k,,$chr(44),,f,,r,,v,,s,,j,,t,,d,,.,,?,,`,,e,,>,.)
}

alias a2e.switch if ($1 = off) { .disable #ara2eng | %ara2eng = off } | else { .enable #ara2eng | %ara2eng = on }
alias arachr if ($asc($left($strip($1-),1)) >= 127) { return $true }
alias a2e {
  %a2e.text = $remove($strip($1-),,,,,,,,,,,~,)
  if (%a2e.text) {
    %a2e.text = $replace(%a2e.text,,d'h,,g'h,,k'h,,s'h,,t'h,,a,,a,,i,,b,,t,,th,,j,,7,,kh,,d,,th,,r,,z,,s,,sh,,9,,dh,,6,,`6,,3,,`3,,f,,g,,k,,l,,m,,n,,h,,o,,y,,a,,o,,a,,?,,a,,h)
    if ($event = chat) { %a2e.window = =$nick } | elseif (#) { %a2e.window = # } | else { %a2e.window = $nick }
    if ($nick) { %a2e.msgr = $nick } | else { %a2e.msgr = 12Test }
    echo 14 %a2e.window < $+ %a2e.msgr $+ :12ARA2ENG> %a2e.text
  }
  unset %a2e.*
}

#ara2eng off
on 1:text:*:*:if $arachr($1) || $arachr($2) || $arachr($3) || $arachr($4) { a2e $1- }
on 1:action:*:*:if $arachr($1) || $arachr($2) || $arachr($3) || $arachr($4) { a2e $1- }
on 1:chat:*:if $arachr($1) || $arachr($2) || $arachr($3) || $arachr($4) { a2e $1- }
#ara2eng end
;Type in Arabic using "/ara <msg>"
alias ara say $$replace($strip($1-),Y,,/,,/,,o,,q,,u,,',,p,,w,,q,,a,,`,,h,,b,,c,,],,d,,t,,r,,i,,[,,;,,g,,l,,k,,$chr(44),,f,,r,,v,,s,,j,,t,,d,,.,,?,,`,,e,,>,.)



ON 1:INPUT:*: {
  if ( %ar2e == off ) { goto end }
  if ( %ar2e == on ) {
    if ( / isin $1 ) { goto end } 
    /qqq  %loon20 $+ $1-  | halt
  }  
  else { goto end }
  :end
}
