#!/bin/bash 

#browser="lynx -dump -nolist -useragent=lynx "
browser="retawq --dump="

negro="\033[0;30;40m"
azul="\033[0;34;40m"
verde="\033[0;32;40m"
cyan="\033[0;36;40m"
rojo="\033[0;31;40m"
purpura="\033[0;35;40m"
marron="\033[0;33;40m"
gris_claro="\033[0;37;40m"

gris_oscuro="\033[1;30;40m"
azul_claro="\033[1;34;40m"
verde_claro="\033[1;32;40m"
cyan_claro="\033[1;36;40m"
rojo_claro="\033[1;31;40m"
purpura_claro="\033[1;35;40m"
amarillo="\033[1;33;40m"
blanco="\033[1;37;40m"


esen="http://www.wordreference.com/esen/$2"
enes="http://www.wordreference.com/enes/$2"
esfr="http://www.wordreference.com/esfr/$2"
fres="http://www.wordreference.com/fres/$2"
espt="http://www.wordreference.com/espt/$2"
ptes="http://www.wordreference.com/ptes/$2"
esit="http://it.dicios.com/esit/$2"
ites="http://it.dicios.com/ites/$2"
esde="http://diccionario.reverso.net/espanol-aleman/$2"
dees="http://diccionario.reverso.net/aleman-espanol/$2"
esal="http://www.foreignword.com/cgi-bin/albesp.pl?lengua=espalb&termbox=$2"
ales="http://www.foreignword.com/cgi-bin/albesp.pl?lengua=albesp&termbox=$2"
esca="http://dicts.info/2/catalan-spanish.php?word=$2&begin=Search"
caes="http://dicts.info/2/catalan-spanish.php?word=$2&begin=Search"
lates="http://dictionaries.travlang.com/LatinSpanish/dict.cgi?query=$2&max=50"
eslat="http://dictionaries.travlang.com/SpanishLatin/dict.cgi?query=$2&max=50" 
esfi="http://www.dicts.info/ud.php?k1=87&k2=31&w=$2"
fies="http://www.dicts.info/ud.php?k1=31&k2=87&w=$2"
esbu="http://www.dicts.info/ud.php?k1=87&k2=164&w=$2"
bues="http://www.dicts.info/ud.php?k1=164&k2=87&w=$2"
escz="http://www.dicts.info/ud.php?k1=87&k2=21&w=$2"
czes="http://www.dicts.info/ud.php?k1=21&k2=87&w=$2"
eshr="http://www.dicts.info/ud.php?k1=87&k2=170&w=$2"
hres="http://www.dicts.info/ud.php?k1=170&k2=87&w=$2"
esdk="http://www.dicts.info/ud.php?k1=87&k2=23&w=$2"
dkes="http://www.dicts.info/ud.php?k1=23&k2=87&w=$2"
esgr="http://www.dicts.info/ud.php?k1=87&k2=37&w=$2"
gres="http://www.dicts.info/ud.php?k1=37&k2=87&w=$2"
eshu="http://www.dicts.info/ud.php?k1=87&k2=43&w=$2"
hues="http://www.dicts.info/ud.php?k1=43&k2=87&w=$2"
esil="http://dicts.info/2/hebrew-spanish.php?word=$2&begin=Search"
iles=$esil
esjp="http://www.dicts.info/ud.php?k1=87&k2=55&w=$2"
jpes="http://www.dicts.info/ud.php?k1=55&k2=87&w=$2"
esar="http://www.dicts.info/ud.php?k1=118&k2=87&w=$2"
ares="http://www.dicts.info/ud.php?k1=87&k2=118&w=$2"
rues="http://www.dicts.info/ud.php?k1=81&k2=87&w=$2"
esru="http://www.dicts.info/ud.php?k1=87&k2=81&w=$2"
es="http://buscon.rae.es/draeI/SrvltGUIBusUsual?TIPO_%20HTML=2&LEMA=$2"
en="http://dictionary.reference.com/browse/$2"
it="http://www.dizionario-italiano.it/definizione-lemma.php?definizione=$2&lemma=C042C000"
fr="http://www.cnrtl.fr/definition/$2"
ast="http://mas.lne.es/diccionario/index.php?palabra=$2"
ca="http://dlc.iec.cat/results.asp?txtEntrada=$2&operEntrada=0"
ga="http://www.edu.xunta.es/diccionarios/BuscaTermo.jsp?Termo=$2"
encn="http://www.mandarintools.com/cgi-bin/wordlook.pl?word=$2&searchtype=english&where=whole"
cnen=$encn
zuen="http://www.websters-online-dictionary.org/translation/Zulu/$2"
enmal="http://www.dicts.info/ud.php?k1=1&k2=228&w=$2"
malen="http://www.dicts.info/ud.php?k1=228&k2=1&w=$2"
enro="http://www.dictionarenglezroman.ro/?cuvant=$2"
roen="http://www.dictionarromanenglez.ro/?cuvant=$2"
entag="http://www.foreignword.com/cgi-bin/engtag.cgi?language=engtag&termbox=$2&B1=Search"
tagen="http://www.foreignword.com/cgi-bin/engtag.cgi?language=tageng&termbox=$2&B1=Search"
enar="http://dictionary.sensagent.com/$2/en-ar/"
aren="http://dictionary.sensagent.com/$2/ar-en/"
ayuda()
{
echo
echo -e "$blanco Uso: $marron $(basename ${0}) idiomaidioma palabra"
echo -e "$blanco      $azul_claro $(basename ${0}) esjp perro $marron"
echo -e "       $(basename ${0}) idioma palabra, para el diccionario de definiciones "
echo -e "$blanco      $azul_claro $(basename ${0}) en dog $marron"
echo 
echo -e "Lista de idiomas: $gris_claro"
echo 
echo -e "es <--> al ar bu ca cz de dk en fi fr gr hr hu il it jp lat pt ru" 
echo -e "en <--> ar cn mal(tés) tag(alog) ro"
echo -e "zuen -> Zulú-Inglés $marron"
echo
echo -e "Diccionarios de definiciones:  es en it fr ast(uriano) ca(talá) ga(lego)"	
}



if [ $# -lt 2 ];
 then
  ayuda
  exit 1
fi

pp=$1
j=$pp
k=${!j}

${browser}${k} | less

exit 0