.key LineaParametro
.bra {
.ket }

;
; $VER: GMPlay-Handler 1.1 (17.10.96)
;
; This program is designed for play MIDI files with GMPlay very easily
; and fastly... Faster with a MC68060 ;-)
;
; GMPlay-Handler accept one parameter, this must be a MIDI file
;
;  Author :
;               K B I T    of
;      ___              _______,        ___               ____
;    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##
;
;  E-mail:
;          kbit@arrakis.es (Javier Fuentes)
;
;  WWW Page:
;            www.arrakis.es/~kbit (There are other scripts...)
;
;  IRC:
;       ¿?.undernet.org     #iberamiga    kbit
;       irc.arrakis.es      #croms        kbit
;
;  If you have any problem don't forget contact with me!
;

Failat 15

SET GMPlayVersion GMPlay-HANDLER V1.1

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

IF NOT EXISTS GM:
   ECHO GMPlay must be in GM:
   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 "Select MIDI file" POSITIVE "There is!" NEGATIVE "Cancel" NOICONS`
ELSE
   SET GMPlayFICHERO {LineaParametro}
ENDIF

IF NOT EXISTS "$GMPlayFICHERO"
   ECHO The file doesn't exist
   SKIP Final
ENDIF

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

   IF EXISTS ENVARC:GMPlay-HANDLERPrefs/GMPlayParametros
      SET GMPlayPrefijados `REQUESTCHOICE TITLE "$GMPlayVersion" BODY "Can I use the last values?" GADGETS Yeah No "Yeah... And enable the No requesters mode"`
   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 "No requesters mode is enabled..." GADGETS "...Delete ENVARC:GMPlay-HANDLERPrefs/Noreq for disable it"
         SKIP EjecutarGMPlay
      ENDIF

   ENDIF

   UNSET GMPlayPrefijados

ENDIF

SET GMPlayParametros VOL 450 VERBOSE
SET GMPlayFREQ `REQUESTCHOICE TITLE "$GMPlayVersion" BODY "Sample Rate (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 "Polyphony" 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 "Can I enable the filter?" GADGETS Yeah 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 E-Mail:
ECHO " kbit@arrakis.es"
ECHO WWW Page:
ECHO " http://www.arrakis.es/~kbit"

UNSET GMPlayVersion
UNSET GMPlayParametros