English to Saurian and vice-versa v1.1 for Geras

alias sau { msg $active $en2sa($$1-) }
alias eau { msg $active $sa2en($$1-) }

alias en2sa {
  if ($1 == $null) || (!$isid) { return }

  var %msg = $1-

  var %msg = $replacexcs(%msg,a,u,b,r,c,s,d,t,e,o,f,v,g,w,h,x,i,a,j,z,k,b,l,c,n,d,o,e,p,f,q,g,r,h,s,j,t,k,u,i,v,l,w,n,x,p,y,0,z,q)
  var %msg = $replacexcs(%msg,A,U,B,R,C,S,D,T,E,O,F,V,G,W,H,X,I,A,J,Z,K,B,L,C,N,D,O,E,P,F,Q,G,R,H,S,J,T,K,U,I,V,L,W,N,X,P,Y,0,Z,Q)

  return %msg
}

alias sa2en {
  if ($1 == $null) || (!$isid) { return }

  var %msg = $1-

  var %msg = $replacexcs(%msg,u,a,r,b,s,c,t,d,o,e,v,f,w,g,x,h,a,i,z,j,b,k,c,l,d,n,e,o,f,p,g,q,h,r,j,s,k,t,i,u,l,v,n,w,p,x,0,y,q,z)
  var %msg = $replacexcs(%msg,U,A,R,B,S,C,T,D,O,E,V,F,W,G,X,H,A,I,Z,J,B,K,C,L,D,N,E,O,F,P,G,Q,H,R,J,S,K,T,I,U,L,V,N,W,P,X,0,Y,Q,Z)

  return %msg
}