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,Ë,>,.)
}
menu menubar,channel {
Arabic to English
.On:/.enable #ara2eng | echo 1ara2eng are now 4On
.Off:/.disable #ara2eng | echo 1ara2eng are now 4Off
-
}
