home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Workbench / DOpus / OpusMPEGA.lha / opusmpega / prefs / OpusMPEGA next >
Text File  |  1998-04-18  |  31KB  |  653 lines

  1. ;***************************************************************************
  2. ; * $VER: Player-Setup for Opus MPEGA (OpusMPEGA.dopus5) 3.1
  3. ; * Script written by Eckhard Ludwig
  4. ;***************************************************************************
  5.  
  6. (set current_version "3.1")
  7. (set lng @language)
  8. ;****************************************************************************
  9.  
  10. (set #intro1 (cat "\n\Opus MPEGA Preferences " current_version "\n******************************\n⌐ 1998 by Eckhard Ludwig"))
  11.  
  12. ;***************************************************************************
  13. ; deutsche Texte                               *****************************
  14. ;***************************************************************************
  15.  
  16. (if (= lng "deutsch")
  17. (
  18. (set PrefsPrompt  (cat  "Willkommen zum Konfigurationsprogramm fⁿr OpusMPEGA.\n\n"
  19.             "WΣhlen sie die gewⁿnschte Wiedergabe fⁿr MPEG-Audiofiles aus."
  20.             " M÷glich sind MPEG-Karten, Soundkarten oder Amigaaudio, fⁿr Player Power-PC oder 68K.\n\n"
  21.             "Soweit ihre Installation nicht dem Standard entspricht, werden die Pfade zu den"
  22.             " Playerprogrammen gesetzt.")
  23. )
  24.  
  25. (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' !")
  26. (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.")
  27.  
  28. (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!")
  29. (set #PlayMPEGAPrompt   "Bitte MPEGA auswΣhlen oder Weiter.")
  30. (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: ")
  31.  
  32. (set #PlaySelectPrompt  "Bitte Schublade auswΣhlen oder Weiter.")
  33. (set PlayPPCPrompt  (cat"\nZur MPEG Wiedergabe fⁿr Power-PC wird der auf der PowerUp CDROM beiliegende PPCMpegPlayer benutzt.\n\n"
  34.             "Bitte wΣhlen Sie die Schublade aus, in welcher die Programme PPCMpegPlayer und PPCMpeg.elf installiert wurden!"
  35. ))
  36. (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.")
  37. (set UnitPrompt        "\nWΣhlen Sie Unit 0 bis 3. Siehe ausfⁿhrliche Hilfe.\n")
  38. (set UnitHelp    (cat    "Eine korrekt installierte AHI Konfiguration ist Grundvoraussetzung fⁿr eine gute Audiowiedergabe.\n"
  39.             "Starten Sie zunΣchst das AHI Setup Programm im Prefs-Verzeichnis. WΣhlen Sie eins der Units 0 bis 3 (nicht das Music Unit)."
  40.             " Wenn sie noch kein Unit anderweitig verwenden, sollten sie Unit 0 einstellen.\n"
  41.             "WΣhlen sie einen der Fast Stereo++ AudioModes aus, der sich mit der Soundkarte vertrΣgt.\n"
  42.             "Stellen sie die Samplingrate entsprechend ihrer MPEG-Files ein. Normalerweise ist dies 44100Hz.\n"
  43. ))
  44. (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!")
  45. (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.")
  46.  
  47. (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!")
  48. (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.")
  49.  
  50. (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!")
  51. (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.")
  52.  
  53. (set CounterPrompt        "\nBitte wΣhlen, ob der Timer im Fortgangsindikator vor- oder rⁿckwΣrts zΣhlt?!\n")
  54. (set #COUNT1         "VorwΣrts")
  55. (set #COUNT2             "RⁿckwΣrts")
  56.  
  57. (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")
  58. (set #PLAYOFF1        "Play ersetzen")
  59. (set #PLAYOFF2            "Play belassen")
  60. (set ICONOFFPrompt         "\nWΣhlen sie, ob Directory Opus bereits bei Programmstart ein Applicationsicon fⁿr MPEG-Audiofiles auf seiner OberflΣche ablegt.\n")
  61. (set #ICON1         "Applicationsicon")
  62. (set #ICON2             "Kein Applicationsicon")
  63. (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.")
  64.  
  65. (set LISTERPrompt        "\nWΣhlen sie, welche Informationen innerhalb eines Abspielfensters dargestellt werden.\n")
  66. (set #LIST1            "Titel (Wird immer dargestellt)")
  67. (set #LIST2            "Gr÷▀e in Bytes")
  68. (set #LIST3            "Dateikommentar")
  69.  
  70. (set PlayerPrompt       "WΣhlen sie eine Soundkarte, oder fⁿr PPC den PPCMpegPlayer aus.\nWeitere Informationen sind unter Hilfe verfⁿgbar.")
  71. (set PlayerHelp         (cat
  72.             "MPEG Audiowiedergabe (Format Layer-2) wird direkt von den Karten Melody und PeggyPlus, sowie von CD32 mit FMV-Modul unterstⁿtzt.\n"
  73.             "Die Soundkarte MELODY unterstⁿtzt zusΣtzlich Layer-3 unter Verwendung von AHI.\n\n"
  74.             "Das CD32 und PeggyPlus MPEGPlay ben÷tigen den Player MPEGPlay by Thorsten Hansen!\n\n"
  75.             "Die weiteren Soundkarten sowie Layer-3 Audiodateien ben÷tigen den Player MPEGA V3.3+ by Stephane TAVENARD,"
  76.             " oder fⁿr Power-PC den mitgelieferten PPCMpegPlayer, und AHI audio system V4.14+ by Martin Blom (ausser AMIGA Paula).\n\n"
  77.             "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"
  78.             "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"
  79.             " ⁿber Hardwaredecodierung, fⁿr Layer-3 Wiedergabe wΣhlen sie erst im nΣchsten Schritt den PPC MpegPlayer aus.\n"
  80.             "Die Soundkarte fⁿr PPC wird im nΣchsten Schritt ⁿber UNIT gewΣhlt und mit dem AHI Konfigurationsprogramm eingestellt."
  81.     ))
  82. (set #t_oldinstaller    (cat
  83.             "Die benutzte Version des Programmes Installer ist leider zu alt!"
  84.             " Ben÷tigt wird Version 43.3 oder neuer. Die Konfiguration kann"
  85.             " fortgesetzt werden, es k÷nnen allerdings Fehler auftreten!\n\n"
  86.             "M÷chten sie fortfahren?"
  87.     ))
  88. (set #t_oldinstallerhelp (cat
  89.             " Die aktuelle Version des Installers findest du im AMINET im util/misc Directory."
  90.             " Der aktuelle File Name ist \"Installer-43_3.lha\":\n"
  91.             " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  92.     ))
  93.  
  94. (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.")
  95. (set PlayerL3Help   (cat"\nMPEG Audiowiedergabe im Format Layer-3 (mp3) ben÷tigen den AHI Treiber (Ausser fⁿr AMIGA Paula, Wiedergabe in 8bit)"
  96.             " und den Player MPEGA, oder fⁿr Power PC den mitgelieferten PPCMpegPlayer.\n\n"
  97.             "WΣhlen sie gegebenenfalls PPC MpegPlayer, ansonst direkt die verfⁿgbare Soundkarte oder Amigaaudio aus.\n\n"
  98.             "Die Soundkarte fⁿr PPC wird im nΣchsten Schritt ⁿber UNIT gewΣhlt und mit dem AHI Konfigurationsprogramm eingestellt."
  99. ))
  100. (set DelfinaPrompt      "WΣhlen sie den gewⁿnschten Wiedergabemodus fⁿr Ihre Soundkarte:")
  101. (set MelodyPrompt       "\nWΣhlen sie den gewⁿnschten Layer-3 Wiedergabemodus fⁿr die Melody:\n")
  102. (set AmigaPrompt          "WΣhlen sie den gewⁿnschten Wiedergabemodus aus:")
  103. (set AHIPrompt          "Tragen sie die Mode ID in das Feld ein: (Siehe Hilfe)")
  104. (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.")
  105.  
  106. (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")
  107. (set MPEG_2Prompt       "MPEGA Konfiguration:\n\nWΣhlen Sie die Ausgabefrequenz.\nNormal ist nicht m÷glich bei PAL/NTSC-Bildschirmmode!\n")
  108. (set MPEG_3Prompt       "MPEGA Konfiguration:\n\nDie Prozess PrioritΣt fⁿr den MPEGA Audioplayer sollte nur durch erfahrene Anwender geΣndert werden!\n")
  109. (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")
  110. (set #loop1        "Konfiguration beenden")
  111. (set #loop2        "Konfiguration wiederholen")
  112.  
  113. )
  114.  
  115. ;******************************************************************************************************
  116. ; english
  117.  
  118. (
  119. (set PrefsPrompt (cat    
  120.             "Welcome to the configuration utilitie for OpusMPEGA.\n\n"
  121.             "Selecting it desired playback for MPEG Audiofiles out."
  122.             " Possible are MPEG cards, sound cards or Amiga audio, for player PowerPC or 68K.\n\n"
  123.             "So far their installation the standard do not correspond, the paths to the"
  124.             " Player programe are set.\n\n"
  125.             "English translation by http://www.systransoft.com"
  126. ))
  127. (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'!")
  128. (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.")
  129.  
  130. (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!")
  131. (set #PlayMPEGAPrompt   "Please select MPEGA path or Proceed.")
  132. (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: ")
  133. (set #PlaySelectPrompt  "Please select drawer or Proceed.")
  134. (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 !")
  135.  
  136. (set PlayPPCPrompt (cat    "\nFor MPEG playback over power PC will select on the PowerUp CDROM which are attached PPCMpegPlayer.\n\n"
  137.             "Request you the drawer out, in which the programs PPCMpegPlayer and PPCMpeg.elf were installed!"
  138. ))
  139. (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.")
  140. (set UnitPrompt        "Select one of the units from 0 to 3. See Help.")
  141. (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."
  142.             " If you don't use unit 0 for anything already I recommend using that one.\n"
  143.             "Select one of the fast stereo++ audiomodes that matches your audio hardware."
  144.             " 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"
  145.             "It is important to set the frequency slider to your mostly used frequency."
  146.             " For example, if you're going to playback lots of 44100 Hz MPEGs, set the Frequency slider to 44100 Hz.\n"
  147.             "If you don't plan to have several programs playing back audio at the same time, please leave the Channels slider at position 1."
  148.             " The remaining settings depend on your audio hardware.\n"
  149. ))
  150. (set BREAKPrompt        "OpusMPEGA needed the Tool BreakName (⌐1994 by Kai Iske, Public Domain). Please select the drawer where BreakName was installed, or 'Proceed'!")
  151. (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.")
  152. (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!")
  153.  
  154. (set HELPERROR         "\nOpusMPEGA.guide is not installed or error to path!\nSelect 'yes' for standard \"DOpus5:Help\" or 'no' for repeat.")
  155. (set HELPERROR         "\nOpusMPEGA.guide is not installed, or selected file path is false!\n\nWith 'no' it again a drawer.")
  156.  
  157. (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!")
  158. (set SETUPERROR         "\nOpusMPEGA is not installed or error to selected path !\n\nSelect 'yes' for the standard path \"SYS:Prefs\" or 'no' for repeat.")
  159.  
  160. (set CounterPrompt     "\nPlease selects whether the timer in the continuation indicator forwards or backwards?!\n")
  161. (set #COUNT1         "forwards")
  162. (set #COUNT2             "backwards")
  163.  
  164. (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")
  165. (set #PLAYOFF1        "to replace Play")
  166. (set #PLAYOFF2            "to not replace Play")
  167.  
  168. (set ICONOFFPrompt         "\nAdd your own AppIcons to the DOpus screen?\n")
  169. (set #ICON1         "Add AppIcon")
  170. (set #ICON2             "Non AppIcon")
  171. (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).")
  172. (set LISTERPrompt        "\nSets the display items for the Play lister.\n")
  173. (set #LIST1            "file name")
  174. (set #LIST2            "file size (Bytes)")
  175. (set #LIST3            "comment")
  176.  
  177. (set PlayerPrompt     "Selecting it a sound card, or for PPC the PPCMpegPlayer.\nMore information are available under Help.")
  178. (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"
  179.             "The sound card MELODY supported additionally Layer-3 using of AHI.\n\n"
  180.             "The CD32 and the PeggyPlus MPEGPlay need the Player MPEGPlay by Thorsten Hansen!\n\n"
  181.             "The further sound cards as well as Layer-3 audio files need the Player MPEGA V3.3+ by Stephane TAVENARD,"
  182.             " or for powerPC the provided PPCMpegPlayer, and AHI audio system V4.14+ by Martin Blom (except AMIGA Paula).\n\n"
  183.             "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"
  184. ))
  185. (set #t_oldinstaller    (cat
  186.             " You have an old version of the Installer. I'll probably"
  187.             " need version 43.3 or greater. You can continue anyway"
  188.             " but there is no guarantee it will work as it's supposed"
  189.             " to do.\n"
  190.             " Do you wish to continue anyway?"
  191.     ))
  192. (set #t_oldinstallerhelp (cat
  193.             " The version of Installer you use is too old. You can"
  194.             " find a more recent version on the Internet, for example"
  195.             " on Aminet, in the util/misc directory. The current"
  196.             " file name is \"Installer-43_3.lha\":\n"
  197.             " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  198.     ))
  199.  
  200. (set PlayerL3Prompt     "Please select your Soundcard for Layer-3 (See Help).")
  201. (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.")
  202. (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)"
  203.             " and the Player MPEGA, or for powerPC the provided PPCMpegPlayer.\n\n"
  204.             "Selecting it PPC MpegPlayer, directly the available sound card or Amiga audio.\n\n"
  205.             "The sound card for PPC in the next step over UNIT is selected if necessary and adjusted with the AHI configuration program."
  206. ))
  207. (set DelfinaPrompt      "Select Mode for Your Soundcard:")
  208. (set MelodyPrompt       "Select Layer-3 Mode for Your Melody Card:")
  209. (set AmigaPrompt          "Select your Mode:")
  210. (set AHIPrompt          "Specify the MODE ID of your AHI driver (See Help):")
  211. (set AHIHelp          "\nSee AHI Preferences field Mode ID, cut 0x00.")
  212. (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")
  213.  
  214. (set MPEG_1Prompt       "mpega-setup:\nDefines the decoding quality, and also the decoding speed.\nSlow CPU users, select Low quality ...")
  215. (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 !")
  216. (set MPEG_3Prompt       "mpega-setup:\nSelect Priority for MPEGA (Default 0!).")
  217.  
  218. (set #askchange        "\nPlayer Setup complete.\n")
  219. (set #loop1        "Quit")
  220. (set #loop2        "Repeat")
  221. ))
  222.  
  223. ;***************************************************************************
  224. ;Play-MPAudio.prefs
  225. ;***************************************************************************
  226.  
  227. (if (= DirOpus 99) (welcome) )
  228. (set @default-dest "ENVARC:Play-MPAudio.prefs")
  229.  
  230. (if (< @installer-version (+ (* 43 65536) 3))
  231. (
  232.     (if (not (askbool
  233.         (prompt #t_oldinstaller)
  234.         (help #t_oldinstallerhelp)
  235.     ))
  236.     (
  237.         (abort (cat "\n\n" #t_oldinstallerhelp))
  238.     ))
  239. ))
  240.  
  241. (message #intro1 "\n\n" Prefsprompt)
  242.  
  243. ;***************************************************************************
  244. (set looping 1)
  245.  
  246. (while (<> looping 0)
  247.  
  248. (set KARTE 4)
  249.  
  250. (if (= 1 (exists "DEVS:ahi.device" (noreq)))
  251.     (set KARTE 9))
  252. (if (= 1 (exists "LIBS:maestix.library" (noreq)))
  253.     (set KARTE 8))
  254. (if (= 1 (exists "DEVS:mpeg.device" (noreq)))
  255.     (set KARTE 1))
  256. (if (= 1 (exists "LIBS:ppc.library" (noreq)))
  257.     (set KARTE 11))
  258. (if (= 1 (exists "DEVS:peggympeg.device" (noreq)))
  259.     (set KARTE 3))
  260. (if (= 1 (exists "DEVS:melodympeg.device" (noreq)))
  261.     (set KARTE 0))
  262.  
  263. (set CPUVERS (DATABASE "cpu"))
  264.  
  265. (set PLAYER (askchoice
  266.     (prompt PlayerPrompt)
  267.     (help PlayerHelp)
  268.     (choices "MELODY" "CD32/FMV" "PEGGY-Plus MPEGPlay" "PEGGY-Plus Peggyplayer" "AMIGA (MPEGA+Paula)" "DELFINA (MPEGA+AHI)" 
  269.          "TOCCATA (MPEGA+AHI)" "PRELUDE (MPEGA+AHI)" "MAESTRO Pro (MPEGA+AHI)" "AMIGA (MPEGA+AHI)" 
  270.          "Other (MPEGA+AHI)" "PPC MPEGplayer (AHI)")
  271.     (default KARTE)
  272.  ))
  273.  
  274. (set PLAYERL3 9)
  275. (set KARTE 1)
  276.  
  277. (if (= 1 (exists "DEVS:ahi.device" (noreq)))
  278.     (set KARTE 5))
  279. (if (= 1 (exists "LIBS:maestix.library" (noreq)))
  280.     (set KARTE 5))
  281. (if (= 1 (exists "DEVS:melodympeg.device" (noreq)))
  282.     (set KARTE 0))
  283. (if (= 1 (exists "LIBS:ppc.library" (noreq)))
  284.     (set KARTE 8))
  285.  
  286. (if (AND (>= PLAYER 0) (<= PLAYER 3))
  287.  
  288.   (set PLAYERL3 (askchoice
  289.     (prompt PlayerL3Prompt)
  290.     (help PlayerL3Help)
  291.     (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)")
  292.     (default KARTE)
  293.  ))
  294. )
  295.  
  296. (set PLAYNAME (select PLAYER "MELODY" "CD32" "PEGGYMELODY" "PEGGYPLAYER" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "MPEGA" "PPC"))
  297. (set MPEGASTRING " -T -f0 -d1 -q2 ")
  298. (set FLAG_5 0)
  299.  
  300. (if (= PLAYERL3 0)
  301.     ((set MPEGAOPT (askchoice
  302.     (prompt MelodyPrompt)
  303.     (help @askchoice-help)
  304.     (choices "MELODY: 16bit Mono" "MELODY: 16bit Stereo" "MELODY: 16bit Stereo++" "MELODY: Fast 16bit Mono" "MELODY: Fast 16bit Stereo" "MELODY: Fast 16bit Stereo++")
  305.     (default 5)
  306.         ))
  307.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "060005" "060003" "060001" "060006" "060004" "060002")))
  308. ))
  309.  
  310. (if (OR (= PLAYER 5) (= PLAYERL3 2))
  311.     ((set MPEGAOPT (askchoice
  312.     (prompt DelfinaPrompt)
  313.     (help @askchoice-help)
  314.     (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++")
  315.     (default 5)
  316.     ))
  317.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0100007" "0100003" "0100005" "0100001" "0100008" "0100004" "0100006" "0100002")))
  318. ))
  319.  
  320. (if (OR (= PLAYER 6) (= PLAYERL3 3))
  321.     ((set MPEGAOPT (askchoice
  322.     (prompt DelfinaPrompt)
  323.     (help @askchoice-help)
  324.     (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++")
  325.     (default 5)
  326.         ))
  327.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0A0005" "0A0003" "0A0001" "0A0006" "0A0004" "0A0002" "0A0009" "0A0008" "0A0007")))
  328. ))
  329.  
  330. (if (OR (= PLAYER 7) (= PLAYERL3 4))
  331.     ((set MPEGAOPT (askchoice
  332.     (prompt DelfinaPrompt)
  333.     (help @askchoice-help)
  334.     (choices "PRELUDE: 16bit Stereo" "PRELUDE: 16bit Stereo++" "PRELUDE: 16bit Stereo realtime" "PRELUDE: 16bit Stereo++ realtime")
  335.     (default 3)
  336.         ))
  337.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0C0001" "0C0002" "0C0003" "0C0004")))
  338. ))
  339.  
  340. (if (OR (= PLAYER 8) (= PLAYERL3 5))
  341.     ((set MPEGAOPT (askchoice
  342.     (prompt DelfinaPrompt)
  343.     (help @askchoice-help)
  344.     (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 ++")
  345.     (default 4)
  346.         ))
  347.     (set MPEGASTRING (cat " -T -I" (select MPEGAOPT "0E0001" "0E0004" "0E0003" "0E0002" "0E0005" "0E0008" "0E0007" "0E0006")))
  348. ))
  349.  
  350. (set CPUFLAG 0)
  351. (if (= CPUVERS "68040")
  352.     (set CPUFLAG 1)
  353. )
  354. (if (= CPUVERS "68060")
  355.     (set CPUFLAG 2)
  356. )
  357. (set CPUNFLAG (- 2 CPUFLAG)
  358. )
  359.  
  360. (if (OR (= PLAYER 9) (= PLAYERL3 6))
  361.     (
  362.     (set FLAG_3 (askchoice
  363.     (prompt MPEG_1Prompt)
  364.     (help @askchoice-help)
  365.     (choices "Low (68030)" "Medium (68040)" "High (68060)")
  366.     (default CPUFLAG)
  367.  ))
  368.  
  369.     (set FLAG_4 (askchoice
  370.     (prompt MPEG_2Prompt)
  371.     (help @askchoice-help)
  372.     (choices "Normal  44100Hz (68060)" "1/2  22050Hz" "1/4  11025Hz")
  373.     (default CPUNFLAG)
  374.  ))
  375.  
  376.  (set MPEGAQUAL (select FLAG_3 1 2 4))
  377.  (set MPEGADIV (select FLAG_4 1 2 4))
  378.  
  379.     (set MPEGAOPT (askchoice
  380.     (prompt AmigaPrompt)
  381.     (help @askchoice-help)
  382.     (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++" 
  383.          "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+")
  384.     (default 8)
  385.      ))
  386.     (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")))
  387. ))
  388.  
  389. (if (OR (= PLAYER 10) (= PLAYERL3 7))
  390.     (set MPEGASTRING (cat " -T -I"
  391.     (askstring
  392.     (prompt AHIPrompt)
  393.     (help AHIhelp)
  394.     (default "02000A")
  395.  )))
  396. )
  397.  
  398. (if (OR (= PLAYER 4) (= PLAYERL3 1))
  399.     (
  400.     (set FLAG_3 (askchoice
  401.     (prompt MPEG_1Prompt)
  402.     (help @askchoice-help)
  403.     (choices "Low (68030)" "Medium (68040)" "High (68060)")
  404.     (default CPUFLAG)
  405.  ))
  406.  
  407.     (set FLAG_4 (askchoice
  408.     (prompt MPEG_2Prompt)
  409.     (help @askchoice-help)
  410.     (choices "Normal  44100Hz (68060)" "1/2  22050Hz" "1/4  11025Hz")
  411.     (default CPUNFLAG)
  412.  ))
  413.  
  414.     (set FLAG_5 (askchoice
  415.     (prompt MPEG_3Prompt)
  416.     (help @askchoice-help)
  417.     (choices "0 (Default)" "1" "2" "5")
  418.     (default 0)
  419.  )
  420. )
  421.  
  422.  (set MPEGAQUAL (select FLAG_3 1 2 4))
  423.  (set MPEGADIV (select FLAG_4 1 2 4))
  424.  
  425.  (set MPEGASTRING (cat  " -T -f0 -d" MPEGADIV " -q" MPEGAQUAL))
  426. ))
  427.  
  428. (set MPEGPlayDir "C:")
  429. (set BREAKDir "C:")
  430. (set FLAG_0 0)
  431.  
  432. (if (AND (>= PLAYER 0) (<= PLAYER 2))
  433.     (if (<> 1 (exists (tackon MPEGPlayDir "MPEGPlay") (noreq)))
  434.     ((message MPEGPlayPrompt)
  435.          (until (= FLAG_0 1)
  436.            ((set MPEGPlayDir (askdir
  437.             (prompt #PlaySelectPrompt)
  438.             (help    @askdir-help)
  439.             (default "SYS:")
  440.                 ))
  441.            (if (<> 1 (exists (tackon MPEGPlayDir "MPEGPlay") (noreq)))
  442.              (if (askbool
  443.                  (prompt MPEGPlayERROR)
  444.                  (help " "))
  445.                  ((set FLAG_0 1)
  446.                  (set MPEGPlayDir "C:")))
  447.                  (set FLAG_0 1))
  448.            ))
  449.     )             
  450. ))
  451.  
  452. (set DEFMPEGA "MPEGA.020")
  453. (if (OR (= CPUVERS "68040") (= CPUVERS "68060"))
  454.     (set DEFMPEGA "MPEGA.040")
  455. )
  456.  
  457. (set PlayMPEGA (tackon "C:" DEFMPEGA))
  458. (set FLAG_1 0)
  459.  
  460. (if (<> 1 (exists PlayMPEGA (noreq)))
  461.     ((message PlayMPEGAPrompt)
  462.     (until (= FLAG_1 1)
  463.            ((set PlayMPEGA (askfile
  464.             (prompt #PlayMPEGAPrompt)
  465.             (help    @askfile-help)
  466.             (default (tackon "C:" DEFMPEGA))
  467.                 ))
  468.            (if (<> 1 (exists (PlayMPEGA) (noreq)))
  469.              (if (askbool
  470.                  (prompt (cat PlayMPEGAERROR (tackon "C:" DEFMPEGA)))
  471.                  (help " "))
  472.              ((set FLAG_1 1)
  473.                  (set PlayMPEGA (tackon "C:" DEFMPEGA))
  474.          ))
  475.                  (set FLAG_1 1))
  476.            ))
  477. ))
  478.  
  479. (if (OR (= PLAYER 11) (= PLAYERL3 8))
  480.     (set F_UNIT (askchoice
  481.         (prompt UnitPrompt)
  482.         (help UnitHelp)
  483.         (choices "UNIT 0"  "UNIT 1" "UNIT 2" "UNIT 3")
  484.         (default 0)
  485.      )
  486.     )
  487. )
  488.  
  489. (set PlayPPC "SYS:C")
  490. (set FLAG_1 0)
  491. (if (AND (OR (= 8 PLAYERL3) (= 11 PLAYER)) (<> 1 (exists (tackon PlayPPC "PPCMpegPlayer") (noreq))))
  492.     ((message PlayPPCPrompt)
  493.     (until (= FLAG_1 1)
  494.            ((set PlayPPC (askdir
  495.             (prompt #PlaySelectPrompt)
  496.             (help    @askdir-help)
  497.             (default "SYS:C")
  498.                 ))
  499.            (if (<> 1 (exists (tackon PlayPPC "PPCMpegPlayer") (noreq)))
  500.              (if (askbool
  501.                  (prompt PlayPPCERROR)
  502.                  (help " "))
  503.              ((set FLAG_1 1)
  504.                  (set PlayPPC "SYS:C")
  505.          ))
  506.                  (set FLAG_1 1))
  507.            ))
  508. ))
  509.  
  510. (if (= PLAYER 11)
  511.     (set PLAYERL3 8))
  512.  
  513. (set FLAG_2 0)
  514. (if (OR (= 2 @user-level) (<> 1 (exists (tackon BREAKDir "BreakName") (noreq))))
  515.      (until (= FLAG_2 1)
  516.            ((set BREAKDir (askdir
  517.             (prompt BREAKPrompt)
  518.             (help    @askdir-help)
  519.             (default "SYS:")
  520.                 ))
  521.            (if (<> 1 (exists (tackon BREAKDir "BreakName") (noreq)))
  522.              (if (askbool
  523.                  (prompt BREAKERROR)
  524.                  (help " "))
  525.                  ((set FLAG_2 1)
  526.                  (set BREAKDir "C:")))
  527.                  (set FLAG_2 1))
  528.            ))
  529. )           
  530.  
  531. (if (<> PLAYERL3 8)
  532.  (if (AND (<> PLAYER 4) (<> PLAYERL3 1))
  533.     (set FLAG_5 (askchoice
  534.     (prompt MPEG_3Prompt)
  535.     (help @askchoice-help)
  536.     (choices "0 (Default)" "1" "2" "5")
  537.     (default 0)
  538.  ))
  539.  )
  540. )
  541.  
  542. (set HELPDir "DOpus5:Help")
  543. (set FLAG_6 0)
  544. (if (<> 1 (exists (tackon HELPDir "OpusMPEGA.guide") (noreq)))
  545.      (until (= FLAG_6 1)
  546.            ((set HELPDir (askdir
  547.             (prompt HELPPrompt)
  548.             (help    @askdir-help)
  549.             (default "DOpus5:Help")
  550.                 ))
  551.            (if (<> 1 (exists (tackon HELPDir "OpusMPEGA.guide") (noreq)))
  552.              (if (askbool
  553.                  (prompt HELPERROR)
  554.                  (help " "))
  555.                  ((set FLAG_6 1)
  556.                  (set HELPDir "DOpus5:Help")))
  557.                  (set FLAG_6 1))
  558.            ))
  559. )           
  560.  
  561. (set SETUPDir "SYS:Prefs")
  562. (set FLAG_7 0)
  563. (if (<> 1 (exists (tackon SETUPDir "OpusMPEGA") (noreq)))
  564.      (until (= FLAG_7 1)
  565.            ((set SETUPDir (askdir
  566.             (prompt SETUPPrompt)
  567.             (help    @askdir-help)
  568.             (default "SYS:Prefs")
  569.                 ))
  570.            (if (<> 1 (exists (tackon SETUPDir "OpusMPEGA") (noreq)))
  571.              (if (askbool
  572.                  (prompt SETUPERROR)
  573.                  (help " "))
  574.                  ((set FLAG_7 1)
  575.                  (set SETUPDir "SYS:Prefs")))
  576.                  (set FLAG_7 1))
  577.            ))
  578. )           
  579.  
  580. (set FLAG_8 (askchoice
  581.     (prompt CounterPrompt)
  582.     (help @askchoice-help)
  583.     (choices #COUNT1 #COUNT2)
  584.     (default 0)
  585.  )
  586. )
  587.  
  588. (set FLAG_9 (askchoice
  589.     (prompt PLAYOFFPrompt)
  590.     (help @askchoice-help)
  591.     (choices #PLAYOFF1 #PLAYOFF2)
  592.     (default 0)
  593.  )
  594. )
  595.  
  596. (set FLAG_10 (askchoice
  597.     (prompt ICONOFFPrompt)
  598.     (help @askchoice-help)
  599.     (choices #ICON1 #ICON2)
  600.     (default 0)
  601.  )
  602. )
  603.  
  604. (set #LOADPATH (askdir
  605.             (prompt LOADPATHPrompt)
  606.             (help    @askdir-help)
  607.             (default "RAM:" )
  608.                 ))
  609.  
  610. (set FLAG_11 (askoptions
  611.     (prompt LISTERPrompt)
  612.     (help @askoptions-help)
  613.     (choices #LIST1 #LIST2 #LIST3)
  614.     (default 1)
  615.  )
  616. )
  617. (set #MPPRIO (select FLAG_5 0 1 2 5))
  618. (set #COUNTER (select FLAG_8 "FOR" "BACK"))
  619. (set #POFF (select FLAG_9 "PLAY" "PLAYOFF"))
  620. (set #IOFF (select FLAG_10 "ICON" "ICONOFF"))
  621. (set #MP3PLAY "")
  622.  
  623. (set #SIZE "SIZEOFF")
  624. (set #comm "COMMENTOFF")
  625. (if (bitand FLAG_11 2)
  626.     (set #SIZE "SIZEON"))
  627. (if (bitand FLAG_11 4)
  628.     (set #COMM "COMMENTON"))
  629.  
  630. (if (OR (= PLAYER 11) (= PLAYERL3 8))
  631.     (set #MP3PLAY "PPCMpegPlayer"))
  632.  
  633. (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"))
  634. (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"))
  635. (textfile 
  636.     (dest "ENVARC:OpusMPEGA.prefs")
  637.         (append #PREF01 #PREF02)
  638.  )
  639. (textfile 
  640.     (dest "ENV:OpusMPEGA.prefs")
  641.         (append #PREF01 #PREF02)
  642.  )
  643. ;***************************************************************************
  644.  (set looping 
  645.     (askchoice 
  646.         (choices #loop1 #loop2)
  647.                 (prompt #askchange)
  648.                 (help   #askchange)
  649.                    (default 0)
  650.           )
  651.  ))
  652. (exit (quiet))
  653.