translate

#translate on
alias tl {
  if ($sock(momeraths.tl) == $null) {
    if ($1- == $null) {
      echo -a 1, english to chinese  6, english to korean     11, french to german    16, korean to english
      echo -a 2, english to french   7, english to portuguese 12, german to english   17, portuguese to english
      echo -a 3, english to german   8, english to spanish    13, german to french    18, russian to english
      echo -a 4, english to italian  9, chinese to english    14, italian to english  19, spanish to english
      echo -a 5, english to japanese 10, french to english    15, japanese to english
      echo -a 
      echo -a help :
      echo -a  please choose a number, eg:
      echo -a  /tl 3 hello, my name is druglord drei!
      echo -a  this would translate "my name is druglord drei!" to german
      echo -a  you can also msg the translations with parameter -m, eg:
      echo -a  /tl 3 -m hello, can i please have your coke?
      echo -a  this would msg to the active window atm!
      halt
    }
    if ($1 !isnum) {
      echo -a syntax error, please run /rl to see help!
      halt
    }
    if ($1 != $null) && ($2 != $null) && ($2 == -m) && ($3- == $null) {
      echo -a syntax error, please run /rl to see help!
      halt
    }
    if ($1 != $null) && ($2- == $null) {
      echo -a syntax error, please run /rl to see help!
      halt
    }
    if ($1 == 1) {
      set %momeraths.tl.lang en_zh
    }
    if ($1 == 2) {
      set %momeraths.tl.lang en_fr
    }
    if ($1 == 3) {
      set %momeraths.tl.lang en_de
    }
    if ($1 == 4) {
      set %momeraths.tl.lang en_it
    }
    if ($1 == 5) {
      set %momeraths.tl.lang en_ja
    }
    if ($1 == 6) {
      set %momeraths.tl.lang en_ko
    }
    if ($1 == 7) {
      set %momeraths.tl.lang en_pt
    }
    if ($1 == 8) {
      set %momeraths.tl.lang en_es
    }
    if ($1 == 9) {
      set %momeraths.tl.lang zh_en
    }
    if ($1 == 10) {
      set %momeraths.tl.lang fr_en
    }
    if ($1 == 11) {
      set %momeraths.tl.lang fr_de
    }
    if ($1 == 12) {
      set %momeraths.tl.lang de_en
    }
    if ($1 == 13) {
      set %momeraths.tl.lang de_fr
    }
    if ($1 == 14) {
      set %momeraths.tl.lang it_en
    }
    if ($1 == 15) {
      set %momeraths.tl.lang ja_en
    }
    if ($1 == 16) {
      set %momeraths.tl.lang ko_en
    }
    if ($1 == 17) {
      set %momeraths.tl.lang pt_en
    }
    if ($1 == 18) {
      set %momeraths.tl.lang ru_en
    }
    if ($1 == 19) {
      set %momeraths.tl.lang es_en
    }
    if ($2 == -m) {
      set %momeraths.tl.parameter $active
      set %momeraths.tl.text $3-
      set %momeraths.tl.text $replace(%momeraths.tl.text,$chr(32),+)
      sockopen momeraths.tl babel.altavista.com 80
    }
    else {
      set %momeraths.tl.text $2-
      set %momeraths.tl.text $replace(%momeraths.tl.text,$chr(32),+)
      sockopen momeraths.tl babel.altavista.com 80
    }
  }
  else {
    echo -a translation in progress, please wait...
  }
}

on *:sockopen:momeraths.tl:{
  sockwrite -tn momeraths.tl GET /babelfish/tr?lp= $+ %momeraths.tl.lang $+ &urltext= $+ %momeraths.tl.text HTTP/1.1
  sockwrite -tn momeraths.tl Host: babelfish.altavista.com
  sockwrite -tn momeraths.tl Connection-type: keep-alive
  sockwrite -tn momeraths.tl $crlf
  unset %momeraths.tl.text
  unset %momeraths.tl.lang
}

on *:sockread:momeraths.tl:{
  sockread %momeraths.tl
  if (style=padding:10px;> isin %momeraths.tl) {
    var %momeraths.tl $replace(%momeraths.tl,<,$chr(32))
    var %momeraths.tl $replace(%momeraths.tl,>,$chr(32))
    if (%momeraths.tl.parameter != $null) {
      msg %momeraths.tl.parameter $gettok(%momeraths.tl,8-,32)
      unset %momeraths.tl.parameter
    }
    else {
      echo -a $gettok(%momeraths.tl,8-,32)
    }
    sockclose momeraths.tl
  }
  unset %momeraths.tl
}
on *:TEXT:!tlf*:*:/tl 2 -m $2-
on *:TEXT:!tld*:*:/tl 3 -m $2-
on *:TEXT:!tli*:*:/tl 4 -m $2-
on *:TEXT:!tls*:*:/tl 8 -m $2-
on *:TEXT:!tlp*:*:/tl 7 -m $2-
#translate end