;/translate <From-Language> <To-Language> <Text>
alias translate {
  if (!$3) halt
  var %1 $replace($1-2,Spanish,es,French,fr,English,en,Korean,ko,Portuguese,pt,Japanese,ja,Italian,it,Greek,el)
  var %2 $replace(%1,German,de,Dutch,nl,Russian,ru)
  .sockclose translate | .sockopen translate babelfish.altavista.com 80
  sockmark translate $replace(%2,$chr(32),_) $replace($3-,$chr(32),+)
}
on *:sockopen:translate:{
  var %lang $gettok($sock($sockname).mark,1,32), %text = $gettok($sock($sockname).mark,2-,32)
  sockmark $sockname
  sockwrite -n $sockname GET $+(/tr?doit=done&intl=1&tt=urltext&trtext=,%text,&lp=,%lang,&btnTrTxt=Translate) http/1.1
  sockwrite -n $sockname Host: $sock($sockname).ip
  sockwrite -n $sockname Connection: Close
  sockwrite -n $sockname $crlf
}
on *:sockread:translate:{
  var %data | sockread %data
  if $regex(%data,<td bgcolor=white class=s><div style=padding:10px;>(.*)<\/div><\/td>) {
    echo -a Translation: $regml(1)
    sockmark $sockname 1
  }
}
on *:sockclose:translate:{
  if (!$sock($sockname).mark) echo -a [^K]2* Sorry the Languages you selected are not supported, for a list type /thelp
}
alias thelp {
  echo -a Use the Translator like this: /translate <fromlanguage> <tolanguage> <text>
  echo -a Supported Languages: German,English,Dutch,French,Spanish,Russian,Korean,Portuguese,Japanese,Italian,Greek