Something

;; mIRC Translator by eth0 ;;
menu channel {
  Translator:dialog $iif($dialog(Translator_dialog),-v,-ma Translator_dialog) Translator_dialog
}
 
alias translate { /dialog -ma Translator_dialog Translator_dialog } 
 
on *:DIALOG:Translator_dialog:sclick:4,1:{ 
  if ($did == 4) { /set %translate-from $did(4).seltext } 
  if ($did == 1) { /set %translate-too $did(1).seltext  } 
} 
on *:DIALOG:Translator_dialog:init:*:{ 
  did -a Translator_dialog 4 French 
  did -a Translator_dialog 4 Spanish 
  did -a Translator_dialog 4 German 
  did -a Translator_dialog 4 Italian 
  did -a Translator_dialog 4 English 
  did -a Translator_dialog 1 French 
  did -a Translator_dialog 1 Spanish 
  did -a Translator_dialog 1 German 
  did -a Translator_dialog 1 Italian 
  did -a Translator_dialog 1 English 
} 
 
on *:DIALOG:Translator_dialog:edit:8:{ /set %translate-text $replace($did(8),$chr(32),$+(%,2,0)) } 
on *:DIALOG:Translator_dialog:close:*:{ translate-text } 
 
dialog Translator_dialog { 
  title "mIRC Translator by eth0" 
  size -1 -1 188 141 
  option dbu 
  list 1, 124 28 50 50, sort size 
  button "Go!", 2, 12 123 78 12, ok 
  button "Cancel", 3, 99 123 75 12, cancel 
  list 4, 58 28 50 50, sort size 
  text "Translate from.", 5, 60 19 45 8 
  text "Translate too.", 6, 128 20 42 8 
  box "Translator", 7, 5 5 181 133 
  edit "", 8, 36 97 50 10, autohs 
  box "Text to translate:", 9, 24 88 72 26 
  box "Languages", 10, 55 11 129 70 
  text "Please select a language to translate from and translate to.", 11, 10 22 42 58 
} 
alias -l translate-text { 
  sockopen lang ets.freetranslation.com 80 
} 
on *:SOCKOPEN:lang:{ 
  sockwrite -n $sockname GET /?srcText= $+ %translate-text $+ &mode=html&template=results_en-us.htm&sequence=core&language= $+ %translate-from $+ $+(%,2,F) $+ %translate-too HTTP/1.1 
  sockwrite -n $sockname Host: ets.freetranslation.com $+ $crlf $+ $crlf 
} 
on *:SOCKREAD:lang:{ 
  if ($sockerr) { /echo -a Sorry $nick There was a problem connecting to the site, try again soon. | { /halt } } 
  else { 
    var %outcome-looks-? 
    sockread -f %outcome-looks-? 
    if (*textarea name="dsttext" cols="40" rows="6"* iswm %outcome-looks-?) { /dialog -ma Translator_Dialog_ Translator_Dialog_ | /did -a Translator_dialog_ 1 $html-just-ditch-it($remove(%outcome-looks-?,$chr(9))) | /unset %translate* %%outcome-looks-? | { /halt } } 
    if ($sockerr) { /echo -a Sorry $nick There was a problem connecting to the site, try again soon. } 
  } 
} 
alias -l html-just-ditch-it { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
} 
dialog Translator_Dialog_ { 
  title "Translator Dialog" 
  size -1 -1 169 88 
  option dbu 
  text "Here's your results.", 2, 17 16 144 16 
  box "Finished", 3, 8 5 157 79 
  button "Close", 4, 13 69 74 12, cancel 
  button "Translate again?", 5, 91 69 67 12, ok 
  combo 1, 18 34 132 34, size 
} 
on *:DIALOG:Translator_Dialog_:sclick:5:{ /.timer 1 1 /dialog -ma Translator_Dialog Translator_Dialog }