1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

menu channel {
  Translate:{ d2_translate $$?="Enter Word:" }
}
alias trans { d2_translate $$1 }
alias d2_translate { sockclose d2_translate | sockopen d2_translate info.babylon.com 80 | hadd -m d2_translate word $$1 | echo $color(info) -at *** Sende Anfrage zur Ãœbersetzung von ' $+ $$1 $+ ' (Deutsch-Englisch und Englisch-Deutsch) }
on *:sockopen:d2_translate:{
  sockwrite -nt $sockname GET $+(http://www.info.babylon.com/cgi-bin/info.cgi?s=yahoo&p=1&list=2522%2C904&word= $+ $hget(d2_translate,word)) HTTP/1.0
  sockwrite -t $sockname $str($crlf,2)
}
on *:sockread:d2_translate:{
  sockread %temp  
  if (Kein Suchergebnis isin %temp) { echo $color(info) -at *** Kein Suchergebnis für ' $+ $hget(d2_translate,word) $+ ' :( }
  if (Englisch - Deutsch isin %temp) { hadd -m d2_translate typ Englisch - Deutsch }
  if (Deutsch - Englisch isin %temp) { hadd -m d2_translate typ Deutsch - Englisch }
  if ($hget(d2_translate,s) != 1) { if (%temp == Suchergebnis für <i>) { hadd -m d2_translate s 1 } }
  elseif (%temp != $null) && (%temp != $chr(32)) { hadd -m d2_translate s 0 | hadd -m d2_translate word2 %temp }
  if ($hget(d2_translate,a) != 1) { if (%temp == </i>:<br><b>) { hadd -m d2_translate a 1 } }
  elseif (%temp != $null) && ($hget(d2_translate,typ)) {
    hadd -m d2_translate a 0
    echo $color(info) -at *** Suchergebnis zu ' $+ $hget(d2_translate,word2) $+ ' ( $+ $hget(d2_translate,typ) $+ ): $replace($remove(%temp,<FONT COLOR="BLUE">,</FONT>),<hr>,$chr(160) / $chr(160))
  }
}