Language Translator
Posted by HellRaz0r
Saturday, September 09, 2006
Description: Use this to translate text.
;/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 [^K]2* [^B]Translation:[^B] $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 [^K]2* [^B]Use the Translator like this:[^B] /translate <fromlanguage> <tolanguage> <text>
echo -a [^K]2* [^B]Supported Languages:[^B] German,English,Dutch,French,Spanish,Russian,Korean,Portuguese,Japanese,Italian,Greek
}