;***************************************************************************
; * $VER: Player-Setup for Opus MPEGA (OpusMPEGA.dopus5) 3.1
; * Script written by Eckhard Ludwig
;***************************************************************************

(set current_version "3.1")
(set lng @language)
;****************************************************************************

(set #intro1 (cat "\n\Opus MPEGA Preferences " current_version "\n******************************\n© 1998 by Eckhard Ludwig"))

;***************************************************************************
; deutsche Texte                               *****************************
;***************************************************************************

(if (= lng "deutsch")
(
(set PrefsPrompt  (cat  "Willkommen zum Konfigurationsprogramm für OpusMPEGA.\n\n"
			"Wählen sie die gewünschte Wiedergabe für MPEG-Audiofiles aus."
			" Möglich sind MPEG-Karten, Soundkarten oder Amigaaudio, für Player Power-PC oder 68K.\n\n"
			"Soweit ihre Installation nicht dem Standard entspricht, werden die Pfade zu den"
			" Playerprogrammen gesetzt.")
)

(set MPEGPlayPrompt     "\nZur Wiedergabe über die Soundkarte Melody, über die MPEG-Karte Peggy-Plus und über das CD32 FMV-Modul wird der Player MPEGPlay (© 1997 by Thorsten Hansen) benutzt. Bitte wählen Sie die Schublade, wo MPEGPlay installiert wurde, oder 'Weiter' !")
(set MPEGPlayERROR      "\nMPEGPlay ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:MPEGPlay\" benutzen, falls sie MPEGPlay noch nicht installiert haben?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")

(set PlayMPEGAPrompt    "\nZur Analyse der MPEG-Audiodateien (notwendig für MPEGA, Power-PC und MPEG-Karten), und zur Wiedergabe über Amigaaudio und AHI audio system V4.14+ wird der Player MPEGA ab V3.3 by Stephane TAVENARD benutzt.\n\nBitte wählen Sie den Pfad zu der für ihren Amiga geeigneten Version von MPEGA aus!")
(set #PlayMPEGAPrompt   "Bitte MPEGA auswählen oder Weiter.")
(set PlayMPEGAERROR     "\nMPEGA ist nicht unter dem gewählten Namen installiert, oder die gewählte Schublade ist falsch!\n\nSoll ich die Voreinstellung benutzen, falls sie MPEGA noch nicht installiert haben?\n\nMit 'Nein' können sie erneut den Pfad auswählen.\n\nVoreinstellung: ")

(set #PlaySelectPrompt  "Bitte Schublade auswählen oder Weiter.")
(set PlayPPCPrompt  (cat"\nZur MPEG Wiedergabe für Power-PC wird der auf der PowerUp CDROM beiliegende PPCMpegPlayer benutzt.\n\n"
			"Bitte wählen Sie die Schublade aus, in welcher die Programme PPCMpegPlayer und PPCMpeg.elf installiert wurden!"
))
(set PlayPPCERROR      	"\nPPCMpegPlayer ist nicht in der gewählten Schublade installiert!\n\nSoll ich die Voreinstellung benutzen, falls sie die Programme noch nicht installiert haben?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
(set UnitPrompt		"\nWählen Sie Unit 0 bis 3. Siehe ausführliche Hilfe.\n")
(set UnitHelp	(cat	"Eine korrekt installierte AHI Konfiguration ist Grundvoraussetzung für eine gute Audiowiedergabe.\n"
			"Starten Sie zunächst das AHI Setup Programm im Prefs-Verzeichnis. Wählen Sie eins der Units 0 bis 3 (nicht das Music Unit)."
			" Wenn sie noch kein Unit anderweitig verwenden, sollten sie Unit 0 einstellen.\n"
			"Wählen sie einen der Fast Stereo++ AudioModes aus, der sich mit der Soundkarte verträgt.\n"
			"Stellen sie die Samplingrate entsprechend ihrer MPEG-Files ein. Normalerweise ist dies 44100Hz.\n"
))
(set BREAKPrompt    	"Das Tool BreakName (©1994 by Kai Iske, Public Domain) wird benutzt, um die Soundwiedergabe über MPEGA/PPCMpegPlayer vorzeitig abzubrechen. Bitte wählen Sie die Schublade aus, wo BreakName installiert wurde, oder Weiter!")
(set BREAKERROR     	"\n'BreakName' ist nicht installiert, oder der gewählte Dateipfad ist falsch!\n\nSoll ich die Voreinstellung \"C:BreakName\" benutzen, falls sie das Tool noch nicht installiert haben?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")

(set HELPPrompt    	"Die Guide zu Opus MPEGA ist nicht im Help-Verzeichnis von DOpus5 installiert. Bitte wählen Sie die Schublade aus, wo die Guide installiert wurde, oder Weiter!")
(set HELPERROR     	"\nOpusMPEGA.guide ist nicht installiert, oder der gewählte Dateipfad ist falsch!\n\nSoll ich die Voreinstellung \"DOpus5:Help\" benutzen, falls sie die Guide nicht installiert haben?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")

(set SETUPPrompt    	"Dieses Preferences Programm (OpusMPEGA) wurde nicht im Prefs-Verzeichnis der Workbench installiert. Bitte wählen Sie die Schublade aus, wo OpusMPEGA installiert wurde, oder Weiter!")
(set SETUPERROR     	"\nOpusMPEGA (Preferences) ist nicht installiert, oder der gewählte Dateipfad ist falsch!\n\nSoll ich die Voreinstellung \"SYS:Prefs\" benutzen, falls sie dieses noch nicht installiert haben?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")

(set CounterPrompt    	"\nBitte wählen, ob der Timer im Fortgangsindikator vor- oder rückwärts zählt?!\n")
(set #COUNT1     	"Vorwärts")
(set #COUNT2 	    	"Rückwärts")

(set PLAYOFFPrompt    	"\nWählen Sie, ob der interne Directory Opus Befehl Play ersetzt werden soll. Falls sie den Befehl nicht ersetzen, müssen sie gemäß Anleitung einen MPEG Audioplayer Button installieren.\n")
(set #PLAYOFF1    	"Play ersetzen")
(set #PLAYOFF2	    	"Play belassen")
(set ICONOFFPrompt     	"\nWählen sie, ob Directory Opus bereits bei Programmstart ein Applicationsicon für MPEG-Audiofiles auf seiner Oberfläche ablegt.\n")
(set #ICON1     	"Applicationsicon")
(set #ICON2 	    	"Kein Applicationsicon")
(set LOADPATHPrompt    	"Sie können ihr bevorzugtes Verzeichnis für MPEG Audiofiles wählen. Dieses wird bei Anwahl des Menüpunktes Öffne File(s) (PopUp Menü des AppIcon) aufgelistet.")

(set LISTERPrompt    	"\nWählen sie, welche Informationen innerhalb eines Abspielfensters dargestellt werden.\n")
(set #LIST1    		"Titel (Wird immer dargestellt)")
(set #LIST2	    	"Größe in Bytes")
(set #LIST3	    	"Dateikommentar")

(set PlayerPrompt       "Wählen sie eine Soundkarte, oder für PPC den PPCMpegPlayer aus.\nWeitere Informationen sind unter Hilfe verfügbar.")
(set PlayerHelp         (cat
			"MPEG Audiowiedergabe (Format Layer-2) wird direkt von den Karten Melody und PeggyPlus, sowie von CD32 mit FMV-Modul unterstützt.\n"
			"Die Soundkarte MELODY unterstützt zusätzlich Layer-3 unter Verwendung von AHI.\n\n"
			"Das CD32 und PeggyPlus MPEGPlay benötigen den Player MPEGPlay by Thorsten Hansen!\n\n"
			"Die weiteren Soundkarten sowie Layer-3 Audiodateien benötigen den Player MPEGA V3.3+ by Stephane TAVENARD,"
			" oder für Power-PC den mitgelieferten PPCMpegPlayer, und AHI audio system V4.14+ by Martin Blom (ausser AMIGA Paula).\n\n"
			"Bei Auswahl einer für Layer-3 ungeeigneten MPEG-Karte, erfolgt im nächsten Schritt die Auswahl einer weiteren Soundkarte bzw. Amigaaudio für die Layer-3 Wiedergabe.\n\n"
			"Für Power PC wählen sie gegebenenfalls die MPEG-Karte (Melody, Peggy-Plus), ansonst wählen sie PPC MpegPlayer. Bei vorhandener MPEG-Karte erfolgt Layer-2 Wiedergabe"
			" über Hardwaredecodierung, für Layer-3 Wiedergabe wählen sie erst im nächsten Schritt den PPC MpegPlayer aus.\n"
			"Die Soundkarte für PPC wird im nächsten Schritt über UNIT gewählt und mit dem AHI Konfigurationsprogramm eingestellt."
	))
(set #t_oldinstaller	(cat
			"Die benutzte Version des Programmes Installer ist leider zu alt!"
			" Benötigt wird Version 43.3 oder neuer. Die Konfiguration kann"
			" fortgesetzt werden, es können allerdings Fehler auftreten!\n\n"
			"Möchten sie fortfahren?"
	))
(set #t_oldinstallerhelp (cat
			" Die aktuelle Version des Installers findest du im AMINET im util/misc Directory."
			" Der aktuelle File Name ist \"Installer-43_3.lha\":\n"
			" <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
	))

(set PlayerL3Prompt     "Wählen sie für Layer-3 entweder PPC MpegPlayer, oder für 68k eine Soundkarte aus. Weitere Informationen sind unter Hilfe verfügbar.")
(set PlayerL3Help   (cat"\nMPEG Audiowiedergabe im Format Layer-3 (mp3) benötigen den AHI Treiber (Ausser für AMIGA Paula, Wiedergabe in 8bit)"
			" und den Player MPEGA, oder für Power PC den mitgelieferten PPCMpegPlayer.\n\n"
			"Wählen sie gegebenenfalls PPC MpegPlayer, ansonst direkt die verfügbare Soundkarte oder Amigaaudio aus.\n\n"
			"Die Soundkarte für PPC wird im nächsten Schritt über UNIT gewählt und mit dem AHI Konfigurationsprogramm eingestellt."
))
(set DelfinaPrompt      "Wählen sie den gewünschten Wiedergabemodus für Ihre Soundkarte:")
(set MelodyPrompt       "\nWählen sie den gewünschten Layer-3 Wiedergabemodus für die Melody:\n")
(set AmigaPrompt      	"Wählen sie den gewünschten Wiedergabemodus aus:")
(set AHIPrompt      	"Tragen sie die Mode ID in das Feld ein: (Siehe Hilfe)")
(set AHIHelp      	"\nDie Mode ID des für ihre Soundkarte/ Amiga Paula gewählten Mode Settings erfahren sie in dem AHI Preferences-Programm. Übernehmen sie den Wert aus dem Feld Mode ID, ohne das führende 0x00.\n\nDer aktuelle Eintrag dient als ein Beispiel, überschreiben sie die abweichenden Ziffern.\n\nWenn sie alle Einträge im Feld löschen, öffnet MPEGA immer einen Auswahlrequester.")

(set MPEG_1Prompt       "MPEGA Konfiguration:\n\nWählen Sie die mögliche Ausgabequalität, je nach CPU-Typ.\nBei Wiedergabe Problemen die niedrigere Qualität auswählen.\n")
(set MPEG_2Prompt       "MPEGA Konfiguration:\n\nWählen Sie die Ausgabefrequenz.\nNormal ist nicht möglich bei PAL/NTSC-Bildschirmmode!\n")
(set MPEG_3Prompt       "MPEGA Konfiguration:\n\nDie Prozess Priorität für den MPEGA Audioplayer sollte nur durch erfahrene Anwender geändert werden!\n")
(set #askchange		"\nDie Konfiguration für Opus MPEGA wurde erfolgreich abgeschlossen.\nZur Übernahme der neuen Einstellungen beenden Sie gegebenenfalls Opus MPEGA zuerst (Menüpunkt Schließen)!\n")
(set #loop1		"Konfiguration beenden")
(set #loop2		"Konfiguration wiederholen")

)

;******************************************************************************************************
; english

(
(set PrefsPrompt (cat	
			"Welcome to the configuration utilitie for OpusMPEGA.\n\n"
			"Selecting it desired playback for MPEG Audiofiles out."
			" Possible are MPEG cards, sound cards or Amiga audio, for player PowerPC or 68K.\n\n"
			"So far their installation the standard do not correspond, the paths to the"
			" Player programe are set.\n\n"
			"English translation by http://www.systransoft.com"
))
(set MPEGPlayPrompt 	"\nPlayback over the sound card Melody, over which MPEG card Peggy plus and used over the CD32 FMV module the Player MPEGPlay (© 1997 by Thorsten Hansen).  Please you select the drawer, where MPEGPlay was installed, or 'Proceed'!")
(set MPEGPlayERROR 	"\nMPEGPlay is not installed or under a deviating name, or which is selected drawer falsely!\n\nI the default \"C:MPEGPlay\" uses, if they cannot select MPEGPlay yet installed?\n\nWith 'no' it again a drawer.")

(set PlayMPEGAPrompt 	"\nFor analysis of the MPEG Audio files (necessary for MPEGA, power PC and MPEG cards), and to playback over Amiga audio and AHI audio system V4.14+ will the Player MPEGA starting by Stephane TAVENARD.\n\nPlease to select it the path to the version from MPEGA, suitable for their Amiga!")
(set #PlayMPEGAPrompt   "Please select MPEGA path or Proceed.")
(set PlayMPEGAERROR 	"\nMPEGA is not installed under the selected name, or which is selected drawer false!\n\nI the default uses, if they do not know MPEGA yet installed?\n\nWith 'no' it again the path.\n\nDefault: ")
(set #PlaySelectPrompt  "Please select drawer or Proceed.")
(set PlayPPCPrompt     	"\nMPEG Play over Power-PC to use PPCMpegPlayer. The Player used AHI audio system V4.14+.\n\nPleaee select drawer, to installed PPCMpegPlayer and PPCMpeg.elf !")

(set PlayPPCPrompt (cat	"\nFor MPEG playback over power PC will select on the PowerUp CDROM which are attached PPCMpegPlayer.\n\n"
			"Request you the drawer out, in which the programs PPCMpegPlayer and PPCMpeg.elf were installed!"
))
(set PlayPPCERROR 	"\nPPCMpegPlayer is not in the selected drawer installed!\n\nI the default uses, if they cannot select the programs yet installed?\n\nWith 'no' it again a drawer.")
(set UnitPrompt		"Select one of the units from 0 to 3. See Help.")
(set UnitHelp  	(cat	"First of all run the AHI setup program in your Prefs drawer. Select one of the units from 0 to 3 but not the Music unit."
			" If you don't use unit 0 for anything already I recommend using that one.\n"
			"Select one of the fast stereo++ audiomodes that matches your audio hardware."
			" Now you need to know what sampling rate most of your MPEG files have. Probably it's 44100 Hz because that's the standard CD rate.\n"
			"It is important to set the frequency slider to your mostly used frequency."
			" For example, if you're going to playback lots of 44100 Hz MPEGs, set the Frequency slider to 44100 Hz.\n"
			"If you don't plan to have several programs playing back audio at the same time, please leave the Channels slider at position 1."
			" The remaining settings depend on your audio hardware.\n"
))
(set BREAKPrompt    	"OpusMPEGA needed the Tool BreakName (©1994 by Kai Iske, Public Domain). Please select the drawer where BreakName was installed, or 'Proceed'!")
(set BREAKERROR 	"\n'BreakName' is not installed, or which is selected file path false!\n\nI the default \"C:BreakName\" uses, if they cannot select the Tool yet installed?\n\nWith 'no' it again a drawer.")
(set HELPPrompt 	"The Guide to Opus MPEGA is not installed in the Help directory of DOpus5. Please you select the drawer, where the Guide was installed, or far ones!")

(set HELPERROR     	"\nOpusMPEGA.guide is not installed or error to path!\nSelect 'yes' for standard \"DOpus5:Help\" or 'no' for repeat.")
(set HELPERROR 		"\nOpusMPEGA.guide is not installed, or selected file path is false!\n\nWith 'no' it again a drawer.")

(set SETUPPrompt 	"This Preferences program (OpusMPEGA) was not installed in the Prefs directory of the Workbench. Please you select the drawer, where OpusMPEGA was installed, or far ones!")
(set SETUPERROR     	"\nOpusMPEGA is not installed or error to selected path !\n\nSelect 'yes' for the standard path \"SYS:Prefs\" or 'no' for repeat.")

(set CounterPrompt 	"\nPlease selects whether the timer in the continuation indicator forwards or backwards?!\n")
(set #COUNT1     	"forwards")
(set #COUNT2 	    	"backwards")

(set PLAYOFFPrompt 	"\nThe internal directory Opus commands Play is to be replaced. If they do not replace the instruction, they must in accordance with guide a Audioplayer Button install.\n")
(set #PLAYOFF1    	"to replace Play")
(set #PLAYOFF2	    	"to not replace Play")

(set ICONOFFPrompt     	"\nAdd your own AppIcons to the DOpus screen?\n")
(set #ICON1     	"Add AppIcon")
(set #ICON2 	    	"Non AppIcon")
(set LOADPATHPrompt    	"Their preferential directory for MPEG audio files can select set you. This listed with selection of the menu option open file(s) (PopUp menu of the AppIcon).")
(set LISTERPrompt    	"\nSets the display items for the Play lister.\n")
(set #LIST1    		"file name")
(set #LIST2	    	"file size (Bytes)")
(set #LIST3	    	"comment")

(set PlayerPrompt 	"Selecting it a sound card, or for PPC the PPCMpegPlayer.\nMore information are available under Help.")
(set PlayerHelp (cat 	"MPEG audio playback (format Layer-2) becomes directly by the cards Melody and PeggyPlus, as well by CD32 with FMV module.\n"
			"The sound card MELODY supported additionally Layer-3 using of AHI.\n\n"
			"The CD32 and the PeggyPlus MPEGPlay need the Player MPEGPlay by Thorsten Hansen!\n\n"
			"The further sound cards as well as Layer-3 audio files need the Player MPEGA V3.3+ by Stephane TAVENARD,"
			" or for powerPC the provided PPCMpegPlayer, and AHI audio system V4.14+ by Martin Blom (except AMIGA Paula).\n\n"
			"With selection of a MPEG card unsuitable for Layer-3, takes place in the next step the selection of a further sound card or Amiga audio for Layer-3.\n\n"
))
(set #t_oldinstaller	(cat
			" You have an old version of the Installer. I'll probably"
			" need version 43.3 or greater. You can continue anyway"
			" but there is no guarantee it will work as it's supposed"
			" to do.\n"
			" Do you wish to continue anyway?"
	))
(set #t_oldinstallerhelp (cat
			" The version of Installer you use is too old. You can"
			" find a more recent version on the Internet, for example"
			" on Aminet, in the util/misc directory. The current"
			" file name is \"Installer-43_3.lha\":\n"
			" <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
	))

(set PlayerL3Prompt     "Please select your Soundcard for Layer-3 (See Help).")
(set PlayerL3Help       "\nLayer-3 (Soundcards, AMIGA AHI) needed MPEGA by Stephane TAVENARD, or PPCMpegPlayer for Power-Up, and AHI-Drivers by Martin Blom.\nAMIGA Paula needed MPEGA/PPCMpegPlayer.")
(set PlayerL3Help (cat	"\nMPEG need for audio playback in the format Layer-3 (mp3) the AHI driver (except for AMIGA Paula, playback in 8-bits)"
			" and the Player MPEGA, or for powerPC the provided PPCMpegPlayer.\n\n"
			"Selecting it PPC MpegPlayer, directly the available sound card or Amiga audio.\n\n"
			"The sound card for PPC in the next step over UNIT is selected if necessary and adjusted with the AHI configuration program."
))
(set DelfinaPrompt      "Select Mode for Your Soundcard:")
(set MelodyPrompt       "Select Layer-3 Mode for Your Melody Card:")
(set AmigaPrompt      	"Select your Mode:")
(set AHIPrompt      	"Specify the MODE ID of your AHI driver (See Help):")
(set AHIHelp      	"\nSee AHI Preferences field Mode ID, cut 0x00.")
(set AHIHelp 		"\nMode ID for its sound card/ Amiga Paula selected mode Settings experiences it in the AHI Preferences program. Take over they the value from the field mode ID, without which prominent 0x00.\n\nThe current entry serves as an example, overwrites it the deviating numbers.\n")

(set MPEG_1Prompt       "mpega-setup:\nDefines the decoding quality, and also the decoding speed.\nSlow CPU users, select Low quality ...")
(set MPEG_2Prompt       "mpega-setup:\nDefines the output decoding frequency. You can only use Normal mode if you have a screenmode >15kHz and a fast CPU !")
(set MPEG_3Prompt       "mpega-setup:\nSelect Priority for MPEGA (Default 0!).")

(set #askchange		"\nPlayer Setup complete.\n")
(set #loop1		"Quit")
(set #loop2		"Repeat")
))
 
;***************************************************************************
;Play-MPAudio.prefs
;***************************************************************************

(if (= DirOpus 99) (welcome) )
(set @default-dest "ENVARC:Play-MPAudio.prefs")

(if (< @installer-version (+ (* 43 65536) 3))
(
	(if (not (askbool
		(prompt #t_oldinstaller)
		(help #t_oldinstallerhelp)
	))
	(
		(abort (cat "\n\n" #t_oldinstallerhelp))
	))
))

(message #intro1 "\n\n" Prefsprompt)

;***************************************************************************
(set looping 1)

(while (<> looping 0)

(set KARTE 4)

(if (= 1 (exists "DEVS:ahi.device" (noreq)))
	(set KARTE 9))
(if (= 1 (exists "LIBS:maestix.library" (noreq)))
	(set KARTE 8))
(if (= 1 (exists "DEVS:mpeg.device" (noreq)))
	(set KARTE 1))
(if (= 1 (exists "LIBS:ppc.library" (noreq)))
	(set KARTE 11))
(if (= 1 (exists "DEVS:peggympeg.device" (noreq)))
	(set KARTE 3))
(if (= 1 (exists "DEVS:melodympeg.device" (noreq)))
	(set KARTE 0))

(set CPUVERS (DATABASE "cpu"))

(set PLAYER (askchoice
	(prompt PlayerPrompt)
	(help PlayerHelp)
	(choices "MELODY" "CD32/FMV" "PEGGY-Plus MPEGPlay" "PEGGY-Plus Peggyplayer" "AMIGA (MPEGA+Paula)" "DELFINA (MPEGA+AHI)" 
		 "TOCCATA (MPEGA+AHI)" "PRELUDE (MPEGA+AHI)" "MAESTRO Pro (MPEGA+AHI)" "AMIGA (MPEGA+AHI)" 
		 "Other (MPEGA+AHI)" "PPC MPEGplayer (AHI)")
	(default KARTE)
 ))

(set PLAYERL3 9)
(set KARTE 1)

(if (= 1 (exists "DEVS:ahi.device" (noreq)))
	(set KARTE 5))
(if (= 1 (exists "LIBS:maestix.library" (noreq)))
	(set KARTE 5))
(if (= 1 (exists "DEVS:melodympeg.device" (noreq)))
	(set KARTE 0))
(if (= 1 (exists "LIBS:ppc.library" (noreq)))
	(set KARTE 8))

(if (AND (>= PLAYER 0) (<= PLAYER 3))

  (set PLAYERL3 (askchoice
	(prompt PlayerL3Prompt)
	(help PlayerL3Help)
	(choices "MELODY (MPEGA+AHI)" "AMIGA (MPEGA+Paula)" "DELFINA (MPEGA+AHI)" "TOCCATA (MPEGA+AHI)" "PRELUDE (MPEGA+AHI)" "MAESTRO PRO (MPEGA+AHI)" "AMIGA (MPEGA+AHI)" "Other AHI audio system driver (MPEGA)" "PPC MPEGplayer (AHI)")
	(default KARTE)
 ))
)

(set PLAYNAME (select PLAYER "MELODY" "CD32" "PEGGYMELODY" "PEGGYPLAYER" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "PPC"))
(set MPEGASTRING " -T -f0 -d1 -q2 ")
(set FLAG_5 0)

(if (= PLAYERL3 0)
    ((set MPEGAOPT (askchoice
	(prompt MelodyPrompt)
	(help @askchoice-help)
	(choices "MELODY: 16bit Mono" "MELODY: 16bit Stereo" "MELODY: 16bit Stereo++" "MELODY: Fast 16bit Mono" "MELODY: Fast 16bit Stereo" "MELODY: Fast 16bit Stereo++")
	(default 5)
        ))
    (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "060005" "060003" "060001" "060006" "060004" "060002")))
))

(if (OR (= PLAYER 5) (= PLAYERL3 2))
    ((set MPEGAOPT (askchoice
	(prompt DelfinaPrompt)
	(help @askchoice-help)
	(choices "DELFINA: 16bit Mono" "DELFINA: 16bit stereo++" "DELFINA: AnyFreq 16bit mono" "DELFINA: AnyFreq 16bit Stereo++" "DELFINA: Fast 16bit mono" "DELFINA: Fast 16bit Stereo++" "DELFINA: Fast AnyFreq 16bit mono" "DELFINA: Fast AnyFreq 16bit stereo++")
	(default 5)
    ))
    (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0100007" "0100003" "0100005" "0100001" "0100008" "0100004" "0100006" "0100002")))
))

(if (OR (= PLAYER 6) (= PLAYERL3 3))
    ((set MPEGAOPT (askchoice
	(prompt DelfinaPrompt)
	(help @askchoice-help)
	(choices "TOCCATA: 16bit Mono" "TOCCATA: 16bit Stereo" "TOCCATA: 16bit Stereo++" "TOCCATA: Fast 16bit Mono" "TOCCATA: Fast 16bit Stereo" "TOCCATA: Fast 16bit Stereo++" "TOCCATA: Hifi 16bit Mono" "TOCCATA: Hifi 16bit Stereo" "TOCCATA: Hifi 16bit Stereo++")
	(default 5)
        ))
    (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0A0005" "0A0003" "0A0001" "0A0006" "0A0004" "0A0002" "0A0009" "0A0008" "0A0007")))
))

(if (OR (= PLAYER 7) (= PLAYERL3 4))
    ((set MPEGAOPT (askchoice
	(prompt DelfinaPrompt)
	(help @askchoice-help)
	(choices "PRELUDE: 16bit Stereo" "PRELUDE: 16bit Stereo++" "PRELUDE: 16bit Stereo realtime" "PRELUDE: 16bit Stereo++ realtime")
	(default 3)
        ))
    (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0C0001" "0C0002" "0C0003" "0C0004")))
))

(if (OR (= PLAYER 8) (= PLAYERL3 5))
    ((set MPEGAOPT (askchoice
	(prompt DelfinaPrompt)
	(help @askchoice-help)
	(choices "MAESTRO PRO: Fix 48k" "MAESTRO PRO: Input 32k" "MAESTRO PRO: Input 44.1k" "MAESTRO PRO: Input 48k" "MAESTRO PRO: Fix 48k ++" "MAESTRO PRO: Input 32k ++" "MAESTRO PRO: Input 44.1k ++" "MAESTRO PRO: Input 48k ++")
	(default 4)
        ))
    (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0E0001" "0E0004" "0E0003" "0E0002" "0E0005" "0E0008" "0E0007" "0E0006")))
))

(set CPUFLAG 0)
(if (= CPUVERS "68040")
	(set CPUFLAG 1)
)
(if (= CPUVERS "68060")
	(set CPUFLAG 2)
)
(set CPUNFLAG (- 2 CPUFLAG)
)

(if (OR (= PLAYER 9) (= PLAYERL3 6))
    (
    (set FLAG_3 (askchoice
	(prompt MPEG_1Prompt)
	(help @askchoice-help)
	(choices "Low (68030)" "Medium (68040)" "High (68060)")
	(default CPUFLAG)
 ))

    (set FLAG_4 (askchoice
	(prompt MPEG_2Prompt)
	(help @askchoice-help)
	(choices "Normal  44100Hz (68060)" "1/2  22050Hz" "1/4  11025Hz")
	(default CPUNFLAG)
 ))

 (set MPEGAQUAL (select FLAG_3 1 2 4))
 (set MPEGADIV (select FLAG_4 1 2 4))

    (set MPEGAOPT (askchoice
	(prompt AmigaPrompt)
	(help @askchoice-help)
	(choices "PAULA: 14bit Mono" "PAULA: 14bit Stereo" "PAULA: 14bit Stereo++" "PAULA: 8bit Mono" "PAULA: 8bit Stereo" "PAULA: 8bit Stereo++" "PAULA: Fast 14bit Mono calibrated" "PAULA: Fast 14bit Stereo calibrated" "PAULA: 14bit Stereo++ calibrated" "PAULA: Fast 8bit Mono" "PAULA: Fast 8bit Stereo" "PAULA: Fast 8bit Stereo++" 
		 "PAULA: Hifi 14bit Mono calibrated" "PAULA: Hifi 14bit Stereo calibrated" "PAULA: Hifi Stereo++ calibrated" "PAULA: Hifi 8bit Mono" "PAULA: Hifi 8bit Stereo" "PAULA: Hifi 8bit Stereo+")
	(default 8)
 	))
    (set MPEGASTRING (cat " -T -f0 -d" MPEGADIV " -q" MPEGAQUAL " -I" (select MPEGAOPT "020005" "020003" "020001" "02000B" "020009" "020007" "020006" "020004" "020002" "02000C" "02000A" "020008" "02000F" "02000E" "02000D" "020012" "020011" "020010")))
))

(if (OR (= PLAYER 10) (= PLAYERL3 7))
    (set MPEGASTRING (cat " -T -I"
	(askstring
	(prompt AHIPrompt)
	(help AHIhelp)
	(default "02000A")
 )))
)

(if (OR (= PLAYER 4) (= PLAYERL3 1))
    (
    (set FLAG_3 (askchoice
	(prompt MPEG_1Prompt)
	(help @askchoice-help)
	(choices "Low (68030)" "Medium (68040)" "High (68060)")
	(default CPUFLAG)
 ))

    (set FLAG_4 (askchoice
	(prompt MPEG_2Prompt)
	(help @askchoice-help)
	(choices "Normal  44100Hz (68060)" "1/2  22050Hz" "1/4  11025Hz")
	(default CPUNFLAG)
 ))

    (set FLAG_5 (askchoice
	(prompt MPEG_3Prompt)
	(help @askchoice-help)
	(choices "0 (Default)" "1" "2" "5")
	(default 0)
 )
)

 (set MPEGAQUAL (select FLAG_3 1 2 4))
 (set MPEGADIV (select FLAG_4 1 2 4))

 (set MPEGASTRING (cat  " -T -f0 -d" MPEGADIV " -q" MPEGAQUAL))
))

(set MPEGPlayDir "C:")
(set BREAKDir "C:")
(set FLAG_0 0)

(if (AND (>= PLAYER 0) (<= PLAYER 2))
    (if (<> 1 (exists (tackon MPEGPlayDir "MPEGPlay") (noreq)))
	((message MPEGPlayPrompt)
     	(until (= FLAG_0 1)
           ((set MPEGPlayDir (askdir
	        (prompt #PlaySelectPrompt)
	        (help	@askdir-help)
	        (default "SYS:")
                ))
           (if (<> 1 (exists (tackon MPEGPlayDir "MPEGPlay") (noreq)))
             (if (askbool
                 (prompt MPEGPlayERROR)
                 (help " "))
                 ((set FLAG_0 1)
                 (set MPEGPlayDir "C:")))
                 (set FLAG_0 1))
           ))
    )             
))

(set DEFMPEGA "MPEGA.020")
(if (OR (= CPUVERS "68040") (= CPUVERS "68060"))
	(set DEFMPEGA "MPEGA.040")
)

(set PlayMPEGA (tackon "C:" DEFMPEGA))
(set FLAG_1 0)

(if (<> 1 (exists PlayMPEGA (noreq)))
	((message PlayMPEGAPrompt)
	(until (= FLAG_1 1)
           ((set PlayMPEGA (askfile
	        (prompt #PlayMPEGAPrompt)
	        (help	@askfile-help)
	        (default (tackon "C:" DEFMPEGA))
                ))
           (if (<> 1 (exists (PlayMPEGA) (noreq)))
             (if (askbool
                 (prompt (cat PlayMPEGAERROR (tackon "C:" DEFMPEGA)))
                 (help " "))
             ((set FLAG_1 1)
                 (set PlayMPEGA (tackon "C:" DEFMPEGA))
		 ))
                 (set FLAG_1 1))
           ))
))

(if (OR (= PLAYER 11) (= PLAYERL3 8))
	(set F_UNIT (askchoice
		(prompt UnitPrompt)
		(help UnitHelp)
		(choices "UNIT 0"  "UNIT 1" "UNIT 2" "UNIT 3")
		(default 0)
	 )
	)
)

(set PlayPPC "SYS:C")
(set FLAG_1 0)
(if (AND (OR (= 8 PLAYERL3) (= 11 PLAYER)) (<> 1 (exists (tackon PlayPPC "PPCMpegPlayer") (noreq))))
	((message PlayPPCPrompt)
	(until (= FLAG_1 1)
           ((set PlayPPC (askdir
	        (prompt #PlaySelectPrompt)
	        (help	@askdir-help)
	        (default "SYS:C")
                ))
           (if (<> 1 (exists (tackon PlayPPC "PPCMpegPlayer") (noreq)))
             (if (askbool
                 (prompt PlayPPCERROR)
                 (help " "))
             ((set FLAG_1 1)
                 (set PlayPPC "SYS:C")
		 ))
                 (set FLAG_1 1))
           ))
))

(if (= PLAYER 11)
	(set PLAYERL3 8))

(set FLAG_2 0)
(if (OR (= 2 @user-level) (<> 1 (exists (tackon BREAKDir "BreakName") (noreq))))
     (until (= FLAG_2 1)
           ((set BREAKDir (askdir
	        (prompt BREAKPrompt)
	        (help	@askdir-help)
	        (default "SYS:")
                ))
           (if (<> 1 (exists (tackon BREAKDir "BreakName") (noreq)))
             (if (askbool
                 (prompt BREAKERROR)
                 (help " "))
                 ((set FLAG_2 1)
                 (set BREAKDir "C:")))
                 (set FLAG_2 1))
           ))
)           

(if (<> PLAYERL3 8)
 (if (AND (<> PLAYER 4) (<> PLAYERL3 1))
    (set FLAG_5 (askchoice
	(prompt MPEG_3Prompt)
	(help @askchoice-help)
	(choices "0 (Default)" "1" "2" "5")
	(default 0)
 ))
 )
)

(set HELPDir "DOpus5:Help")
(set FLAG_6 0)
(if (<> 1 (exists (tackon HELPDir "OpusMPEGA.guide") (noreq)))
     (until (= FLAG_6 1)
           ((set HELPDir (askdir
	        (prompt HELPPrompt)
	        (help	@askdir-help)
	        (default "DOpus5:Help")
                ))
           (if (<> 1 (exists (tackon HELPDir "OpusMPEGA.guide") (noreq)))
             (if (askbool
                 (prompt HELPERROR)
                 (help " "))
                 ((set FLAG_6 1)
                 (set HELPDir "DOpus5:Help")))
                 (set FLAG_6 1))
           ))
)           

(set SETUPDir "SYS:Prefs")
(set FLAG_7 0)
(if (<> 1 (exists (tackon SETUPDir "OpusMPEGA") (noreq)))
     (until (= FLAG_7 1)
           ((set SETUPDir (askdir
	        (prompt SETUPPrompt)
	        (help	@askdir-help)
	        (default "SYS:Prefs")
                ))
           (if (<> 1 (exists (tackon SETUPDir "OpusMPEGA") (noreq)))
             (if (askbool
                 (prompt SETUPERROR)
                 (help " "))
                 ((set FLAG_7 1)
                 (set SETUPDir "SYS:Prefs")))
                 (set FLAG_7 1))
           ))
)           

(set FLAG_8 (askchoice
	(prompt CounterPrompt)
	(help @askchoice-help)
	(choices #COUNT1 #COUNT2)
	(default 0)
 )
)

(set FLAG_9 (askchoice
	(prompt PLAYOFFPrompt)
	(help @askchoice-help)
	(choices #PLAYOFF1 #PLAYOFF2)
	(default 0)
 )
)

(set FLAG_10 (askchoice
	(prompt ICONOFFPrompt)
	(help @askchoice-help)
	(choices #ICON1 #ICON2)
	(default 0)
 )
)

(set #LOADPATH (askdir
	        (prompt LOADPATHPrompt)
	        (help	@askdir-help)
	        (default "RAM:" )
                ))

(set FLAG_11 (askoptions
	(prompt LISTERPrompt)
	(help @askoptions-help)
	(choices #LIST1 #LIST2 #LIST3)
	(default 1)
 )
)
(set #MPPRIO (select FLAG_5 0 1 2 5))
(set #COUNTER (select FLAG_8 "FOR" "BACK"))
(set #POFF (select FLAG_9 "PLAY" "PLAYOFF"))
(set #IOFF (select FLAG_10 "ICON" "ICONOFF"))
(set #MP3PLAY "")

(set #SIZE "SIZEOFF")
(set #comm "COMMENTOFF")
(if (bitand FLAG_11 2)
	(set #SIZE "SIZEON"))
(if (bitand FLAG_11 4)
	(set #COMM "COMMENTON"))

(if (OR (= PLAYER 11) (= PLAYERL3 8))
	(set #MP3PLAY "PPCMpegPlayer"))

(set #PREF01 (cat ";$VER: Prefs for Opus MPEGA 3.1\n" (tackon MPEGPlayDir "MPEGPlay") "\n" PlayMPEGA "\n" (tackon BREAKDir "BreakNAME") "\n" (cat "-p" #MPPRIO MPEGASTRING) "\n" PLAYNAME "\n"))
(set #PREF02 (cat #POFF "\n" #IOFF "\n" #SIZE "\n" #COMM "\n" #LOADPATH "\n" (tackon HELPDir "OpusMPEGA.guide") "\n" (tackon SETUPDir "OpusMPEGA") "\n" #COUNTER "\n" PlayPPC "\n" #MP3PLAY "\n" F_UNIT "\n"))
(textfile 
	(dest "ENVARC:OpusMPEGA.prefs")
        (append #PREF01 #PREF02)
 )
(textfile 
	(dest "ENV:OpusMPEGA.prefs")
        (append #PREF01 #PREF02)
 )
;***************************************************************************
 (set looping 
	(askchoice 
		(choices #loop1 #loop2)
                (prompt #askchange)
                (help   #askchange)
       	        (default 0)
          )
 ))
(exit (quiet))