Translit matters!

/t {
if ($1 == $null) { echo не введен текст. синтаксис: /translate <text na latinice> | halt }
%string = $1-
%string = $replace(%string,yo,ё,a,а) | %string = $replace(%string,y,й,b,б) | %string = $replace(%string,c,ц,v,в)
%string = $replace(%string,u,у,g,г) | %string = $replace(%string,k,к,d,д) | %string = $replace(%string,e,е,e,е)
%string = $replace(%string,n,н,yo,ё) | %string = $replace(%string,g,г,j,ж) | %string = $replace(%string,sh,ш,z,з)
%string = $replace(%string,sh,щ,i,и) | %string = $replace(%string,z,з,y,й) | %string = $replace(%string,x,х,k,к)
%string = $replace(%string,',ъ,l,л) | %string = $replace(%string,f,ф,m,м) | %string = $replace(%string,i,ы,n,н)
%string = $replace(%string,a,а,o,о) | %string = $replace(%string,p,п,p,п) | %string = $replace(%string,r,р,r,р)
%string = $replace(%string,o,о,s,с) | %string = $replace(%string,l,л,t,т) | %string = $replace(%string,d,д,u,у)
%string = $replace(%string,j,ж,y,ы) | %string = $replace(%string,e,э,f,ф) | %string = $replace(%string,ya,я,x,х)
%string = $replace(%string,ch,ч,4,ч) | %string = $replace(%string,s,с,sh,ш) | %string = $replace(%string,i,и,tc,ц)
%string = $replace(%string,t,т,sh,щ) | %string = $replace(%string,',ь,e,э) | %string = $replace(%string,b,б,yu,ю)
%string = $replace(%string,yu,ю,ya,я) | %string = $replace(%string,.,.) | %string = $replace(%string,v,в)
%string = $replace(%string,m,м,h,х) | say %string | unset %string