.key LineaParametro
.bra {
.ket }

;
; $VER: GMPlay-Handler 1.1 (17.10.96)
;
; PARA OIR FICHEROS MIDI CON GMPlay DE UNA FORMA BUENA, RAPIDA Y
; COMODA... SOBRE TODO CON EL MC68060 ;-)
;
; Acepta un parámetro, el nombre de un fichero midi
;
; Autor :
;               K B I T    de
;      ___              _______,        ___               ____
;    g#####x            ########        ##F             _g####m_
;   0########           ########        ##F            J########_
;  d##"   X##K  ww  ww,   J##      _awwJ##F   _www_    ##@   "###  aww__
;  ##F     0##  ##  ##F   J##     g#######F  d#####_  0##      ##L 0####L
; J##      J##  ##  ##F   J##    J##@""###F J##@@###  ###      ##Q 0####F
; J##L     j##  ##  ##F   J##    d##    ##F 0#F   ##L ##Q      ### 0##F"
;  ##&     0##  ##  ##F   J##    0##    ##F ##F   ##F 0##_    J##F 0##
;  9###__a0##F  ##KJ##F   J##    ]##K__d##F 0##__g##   ###w__w###  0##
;   ########F   ######F   J##     ########F  ######F   `########   0##
;    "####@"    *##@##F   J##      ####M##F   *###"      #####P    0##
;
;  Correo electrónico:
;                      kbit@arrakis.es (Javier Fuentes)
;
;  Página WWW:
;              www.arrakis.es/~kbit (allí hay otros scripts...)
;
;  IRC:
;       ¿?.undernet.org     #iberamiga    kbit
;       irc.arrakis.es      #croms        kbit
;
;   ... Espero que este programa no sea modificado, para cualquier
;   sugerencia ponte en contacto conmigo...
;

FailAt 15

SET GMPlayVersion GMPlay-HANDLER V1.1

ECHO $GMPlayVersion - Copyright (c) 1996 Javier Fuentes (Kbit / OuTdoOr)
ECHO ""

IF NOT EXISTS GM:
   ECHO Asigne GM: al directorio del programa GMPlay
   SKIP Final
ENDIF

IF EXISTS ENVARC:GMPlay-HANDLERPrefs/GMPlayParametros
   SET GMPlayParametros `TYPE ENVARC:GMPlay-HANDLERPrefs/GMPlayParametros`
ELSE
   MAKEDIR >NIL: ENVARC:GMPlay-HANDLERPrefs
ENDIF

LAB PideFichero

IF *{LineaParametro} EQ *
   SET GMPlayFICHERO `REQUESTFILE TITLE "Selecciona el fichero MIDI" POSITIVE "¡Aquí está!" NEGATIVE "CANCELA" NOICONS`
ELSE
   SET GMPlayFICHERO {LineaParametro}
ENDIF

IF NOT EXISTS "$GMPlayFICHERO"
   ECHO El fichero no existe o no se especificó
   SKIP Final
ENDIF

IF EXISTS ENVARC:GMPlay-HANDLERPrefs/Noreq
   SKIP EjecutarGMPlay
ENDIF

   IF EXISTS ENVARC:GMPlay-HANDLERPrefs/GMPlayParametros
      SET GMPlayPrefijados `REQUESTCHOICE TITLE "$GMPlayVersion" BODY "¿Utilizo los valores prefijados?" GADGETS Sí No "Sí... Y no quiero más esta pregunta"`
   ENDIF

   IF $GMPlayPrefijados EQ 1
      UNSET GMPlayPrefijados
      SKIP EjecutarGMPlay
   ELSE

      IF $GMPlayPrefijados EQ 0
         UNSET GMPlayPrefijados
         ECHO "Kbit/OuTdoOr" TO ENVARC:GMPlay-HANDLERPrefs/Noreq
         REQUESTCHOICE >NIL: TITLE "$GMPlayVersion" BODY "Seleccionada la opción de no preguntas..." GADGETS "...Borra ENVARC:GMPlay-HANDLERPrefs/Noreq para desactivarla"
         SKIP EjecutarGMPlay
      ENDIF

   ENDIF

   UNSET GMPlayPrefijados

ENDIF

SET GMPlayParametros VOL 450 VERBOSE
SET GMPlayFREQ `REQUESTCHOICE TITLE "$GMPlayVersion" BODY "Frecuencia de samples (Hz)" GADGETS 14433 21649 28867 36083 43300`

IF $GMPlayFREQ EQ 0
   SET GMPlayParametros $GMPlayParametros FREQ=43300
ELSE

   IF $GMPlayFREQ EQ 1
      SET GMPlayParametros $GMPlayParametros FREQ=14433
   ELSE

      IF $GMPlayFREQ EQ 2
         SET GMPlayParametros $GMPlayParametros FREQ=21649
      ELSE

         IF $GMPlayFREQ EQ 3
            SET GMPlayParametros $GMPlayParametros FREQ=28867
         ELSE

            IF $GMPlayFREQ EQ 4
               SET GMPlayParametros $GMPlayParametros FREQ=36083
            ENDIF

         ENDIF

      ENDIF

   ENDIF

ENDIF

UNSET GMPlayFREQ

SET GMPlayPolifonia `REQUESTCHOICE TITLE "$GMPlayVersion" BODY "Polifonía de canales..." GADGETS 4 8 16 24 32`

IF $GMPlayPolifonia EQ 0
   SET GMPlayParametros $GMPlayParametros POLY 32
ELSE

   IF $GMPlayPolifonia EQ 1
      SET GMPlayParametros $GMPlayParametros POLY 4
   ELSE

      IF $GMPlayPolifonia EQ 2
         SET GMPlayParametros $GMPlayParametros POLY 8
      ELSE

         IF $GMPlayPolifonia EQ 3
            SET GMPlayParametros $GMPlayParametros POLY 16
         ELSE

            IF $GMPlayPolifonia EQ 4
               SET GMPlayParametros $GMPlayParametros POLY 24
            ENDIF

         ENDIF

      ENDIF

   ENDIF

ENDIF

UNSET GMPlayPolifonia
SET GMPlayFiltro `REQUESTCHOICE TITLE "$GMPlayVersion" BODY "¿Activo el filtro?" GADGETS Sí No`

IF $GMPlayFiltro EQ 0
   SET GMPlayParametros $GMPlayParametros NFL
   ELSE
   SET GMPlayParametros $GMPlayParametros FL
ENDIF

UNSET GMPlayFiltro
ECHO $GMPlayParametros TO ENVARC:GMPlay-HANDLERPrefs/GMPlayParametros

LAB EjecutarGMPlay

GM:GMPlay $GMPlayParametros "$GMPlayFICHERO"
UNSET GMPlayFICHERO

IF *{LineaParametro} EQ *
   SKIP PideFichero BACK
ENDIF

LAB Final

ECHO ""
ECHO Correo electrónico:
ECHO " kbit@arrakis.es"
ECHO Página Web:
ECHO " http://www.arrakis.es/~kbit"

UNSET GMPlayVersion
UNSET GMPlayParametros