home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 2 / SpanishScene2.iso / PROGRAMAS / KQPRODUCCIONS / DicDemo1.lzx / Dic_Demo.v1.01 / Dic_Wb < prev    next >
Text File  |  1998-11-24  |  2KB  |  76 lines
  1. ;Este script sirve para hacer mas amigable el Dic
  2. ;This script serve for make more friendly the Dic
  3. ;Dic_script.V1.0 ©JLQ/kqproduccions Oct/96
  4.  
  5. Alias Clr "Echo *"*E[0;0H*E[J*" "
  6.  
  7. lab inicio
  8.  
  9. ;pregunta el tipo de traducción que quieres hacer
  10. ;asks for the translate type who you wants to do
  11.  
  12. setenv temp `requestchoice TITLE "Dic..." BODY "Selecciona tipo de traducción.*n Select your translated type." GADGETS "Spanish->English|Inglés->Español"`
  13.  
  14. Clr
  15. echo ""
  16.  
  17. if $temp eq "1"
  18.   ;Now we ask the word to translate
  19.  
  20.      echo " Write the spanish word to translate."
  21.  
  22.    unset query 
  23.    ;unset query2
  24.    set >NIL: query ?
  25.    if "$query" EQ "*$query"
  26.         skip erroreng
  27.    endif
  28.    dic esp "$query"
  29.      echo ""
  30.      ask " Like you translate an other word? (Y/N)"
  31.      if warn
  32.         skip inicio BACK
  33.      else
  34.         quit
  35.      endif
  36.  
  37. else
  38.  
  39.      echo " Escribe la palabra inglesa a traducir"
  40.  
  41.      unset query 
  42.  
  43.      set >NIL: query ?
  44.      if "$query" EQ "*$query"
  45.         skip erroresp
  46.      endif
  47.      
  48.      dic ing "$query"
  49.      echo ""
  50.      ask " ¿Quieres traducir alguna otra palabra? (Y/N)"
  51.      if warn
  52.         skip inicio back
  53.      else
  54.         quit
  55.      endif
  56. endif
  57.  
  58. lab erroresp
  59.         Clr                                  
  60.         echo ""                                             
  61.         echo "         ¡¡¡Oye!!!"
  62.         echo " Se supone que has de poner algo"
  63.         echo "   Por ejemplo:"
  64.         echo "                'Despistado!!!!!!'"          
  65.  
  66. skip inicio BACK
  67. lab erroreng
  68.         Clr                                  
  69.         echo ""                                             
  70.         echo "         Heigh!!!"
  71.         echo " You are supposet to write something."
  72.         echo "   For exemple:"
  73.         echo "                'Absent-minded!!!!!!'"          
  74.  
  75. skip inicio BACK
  76.