home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / opus / v5 / cd_mm_opus5 / install < prev    next >
Text File  |  1996-04-13  |  48KB  |  1,195 lines
  1. ;***************************************************************************
  2. ; * $VER: Install Multimedia for Opus5 1.0 (11-04-96)
  3. ; * Script written by Eckhard Ludwig
  4. ;***************************************************************************
  5.  
  6. (complete 0)
  7.  
  8. (set defaultdest        "DOpus5:Arexx")
  9. (set GuideDir           "Dopus5:")
  10. (set CDPrefsDir         "Dopus5:")
  11. (set Opt 2)
  12. (set BOpt 1)
  13. (set INFO               "This script installs an CDDA & VideoCD player interface (incl. CDDA-saver), and an mpeg audio system for DirectoryOpus5, and installs filetypes and players for samples IFF 8SVX, RAW, AIFF, WAVE, MPEG Layer 1&2, ADPCM 2&3, AU and VOC.\n\nInstall buttons \"CD_Player_Buttons & more\" to 'Dopus5:Buttons', optional new user menu & toolbar for run the players, and for convert samples to WAVE, AIFF, 8SVX, ADPCM 2&3, MPEG Layer 2.")
  14. (set PrefsPrompt        "Multimedia for Opus5 it not yet configured ?\nFor optional functions you should first configure the players etc.")
  15. (set PlayMMPrompt       "I found old settings for PlayCD_MM.dopus5.\n\nFor new configuration of PlayCD_MM.dopus5 select the No gadget, or Yes for proceed.")
  16. (set PlayHifiPrompt     "I found old settings for PlayHifi.dopus5 or/and PlayHifi_DT.dopus5.\n\nFor new setup select the No gadget, or Yes for proceed.")
  17. (set cdrom_Prompt    "Which CDROM drive is connected ?")
  18. (set VideoPrompt        "PlayCD_MM.dopus5 needed for play VideoCD the external Programm \"ScalaMMPlayer\".\nPlease select drawer or path to ScalaMMPlayer !")
  19. (set VideoERROR         "ScalaMMPlayer is not installed or error to path !\nPlease install ScalaMMPlayer to Work:Scala/ScalaMMPlayer and select yes for default settings, or no for repeat.")
  20. (set CEEDPrompt         "PlayCD_MM.dopus5 needed CeeD (Freeware, © 1994-1995 by Peter Urbanec).\nPlease select drawer or path to CeeD !")
  21. (set CEEDCAT1Prompt     "For show CDDA/VideoCD title and songnames needed CeeD a catalog.\nPlease select drawer to catalog (Standard DOpus5:CeeD) !")
  22. (set CEEDERROR          "CeeD is not installed or error to path !\nPlease install CeeD to DOpus5:CEED/CeeD and select yes for default settings, or no for repeat.")
  23. (set CEEDCATERROR       "The CD-cataloge is not installed or error to path !\nPlease select no for repeat select drawer, or select yes and install \"Disks\" to DOpus5:CeeD.")
  24. (set scsihaPrompt       "Which hostadaptor is connected ?")
  25. (set scsidev_Prompt     "Specify the name of your hostadaptor driver software (exec device):")
  26. (set scsiunit_prompt    "Specify the unit address your CDROM drive is connected to:")
  27. (set CDDAPrompt         "Save audio-cd title to AIFF, IFF 8SVX needed CDDA V1.12.\nPlease select drawer or path to CDDA !")
  28. (set CDDAERROR          "CDDA is not installed or error to path !\nPlease install CDDA to SYS:C and select yes for default settings, or no for repeat.")
  29. (set CDRPrompt          "Save audio-cd title to ADPCM 2&3 needed X2ADPCM.\nPlease select drawer or path to X2ADPCM !")
  30. (set CDRERROR           "X2ADPCM is not installed or error to path !\nPlease install to C:X2ADPCM and select yes for default settings, or no for repeat.")
  31. (set ASIMPrompt          "Save audio-cd title to RAW, AIFF, WAVE, VOC, AU needed optional AsimCDFS Filesystem (© Asimware Innov. Inc.).\nPlease select your CDROM Devicename.")
  32. (set SOXERROR           "AmiSOX is not installed or error to path !\nSelect yes for default settings, or no for repeat.")
  33. (set SOXPrompt          "Save audio-cd title to AIFF, WAVE, VOC, AU needed AmiSOX.\nPlease select drawer and the datei AmiSOX (sox, sox020, sox881 or sox020881).")
  34. (set TIMEPrompt         "Please entry for second end of track, (min. 0, max. 4).")
  35. (set Play16Prompt       "PlayHifi.dopus5 and PlayHifi_DT.dopus5 needed Play16 1.5 (© 1995 by Thomas Wenzel). Please select drawer or path to Play16 !")
  36. (set Play16ERROR        "'Play16' is not installed or error to path !\nSelect 'yes' for standard \"C:play16\" or 'no' for repeat. Please install Play16 to SYS:C.")
  37. (set PlayADPCMPrompt    "PlayHifi.dopus5 and PlayHifi_DT.dopus5 needed for play adpcm-sound PlayADPCM. Please select drawer to PlayADPCM !")
  38. (set PlayADPCMERROR     "'PlayADPCM' is not installed or error to path. Select yes for default settings, or no for repeat.")
  39. (set PlayMPEGPrompt     "PlayHifi.dopus5 and PlayHifi_DT.dopus5 needed mpega (© 1995 by Stephane Tavenard). Please select drawer to mpega !")
  40. (set PlayMPEGERROR      "'mpega' is not installed or error to path !\n\nSelect 'yes' for standard \"C:mpega\" or 'no' for repeat.")
  41. (set MPEGAudioPrompt    " needed for encoding MPEG audio-streams. Please select drawer to install the programm !")
  42. (set MPEGAudioERROR     " is not installed or error to path !\n\nSelect 'yes' for standard \"DOpus5:mpegaudio\" or 'no' for repeat.")
  43. (set AmigaPrompt        "Play16-setup:\nFor correct playback speed, i need your screenmode of DirectoryOpus5.")
  44. (set PlayPrompt         "Play16-setup:\nPlease select the method of audio-output.\nFor 68020 and better select 14bit (see play16.doc).")
  45. (set MPEG_1Prompt       "mpega-setup:\nDefines the decoding quality, and also the decoding speed.\nSlow CPU users, select Low quality ...")
  46. (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 !")
  47. (set MPEG_3Prompt       "mpega-setup:\nOutput: In 8 bits mode, play 8-bit audio samples.\nIn 14 bits mode, play 14-bit audio samples (better).")
  48. (set MPEGAU_1Prompt     "Encoding mpegaudio-setup:\nWhich mode do you want ?")
  49. (set MPEGAU_2Prompt     "Encoding mpegaudio-setup:\nWhat is the total bitrate ?")
  50. (set MPEGAU_3Prompt     "Encoding mpegaudio-setup:\nWhat type of de-emphasis should the decoder use ?")
  51. (set GuidePrompt        "For programmes exists guide, sorry only german (AmigGuide®-Format), and english readme-datei.")
  52. (set GuideDirPrompt     "Please select destination, for the guide drawer (CD_MM_Docs).")
  53. (set CDPrefsPrompt      "For programmes exists CD_MM_Preferences.\nPlease choose the drawer for install the preferences.")
  54. (set CDPrefsDirPrompt     "Please select destination, for the preferences drawer (CD_MM_Prefs).")
  55. (set InstallPrompt      "Which of the following locale should be installed ?\nItems marked as (n/a) are not available in the current installation archive !")
  56. (set Opus5DirPrompt     "DirectoryOpus not found ?\nPlease select path to DirectoryOpus !")
  57. (set Opus5Message       "Is DirectoryOpus correct installed ?\nPlease select drawer to DirectoryOpus5 or install DirectoryOpus5 first !")
  58. (set Opus5Help          "Is DirectoryOpus correct installed ?\nPlease install DirectoryOpus5 first !")
  59. (set Opus5Old           "Version of DirectoryOpus is not 5.11 or later.\nInstall programmes ?")
  60. (set Deinstallprompt    "There is already an newer version of PlayCD_MM.dopus5 installed in the directory !\nDo you want to deinstall it ???")
  61. (set Opus5OHelp         "I need Version 5.11 or later of Directory Opus! Update your DirOpus, see guide.")
  62. (set ArexxDirPrompt     "Please select Arexx-Drawer for Playerscripts!")
  63. (set RexxPrompt        "I need Arexx for run the programmes.\n\nKlick 'Proceed' for adding\n'SYS:System/Rexxmast >NIL:'\nto your 'User-Startup' file.")
  64. (set ButtonLangPrompt   "Which languages for buttons and optional user-menu should be installed ?")
  65. (set USERMENUPrompt     "New versions of the user menus is available.\n\nDo you wish to install this and rename the old one as\n'user menu_old'\n\nFor more see Help.")
  66. (set UserMenuHelp    "The user menu has the same functions as the default user menu.")
  67. (set ToolbarPrompt    "Install the 8 color magic workbench toolbar?\n\nYour current toolbar will be renamed to 'toolbar_old'.\n\nFor more see Help.")
  68. (set ToolbarHelp    "By installing the 8 color toolbar you will be able to use the lister toolbar buttons for working on both normal directories and LhADir listed archives.\n\nThe 8 color toolbar has more functions as the default lister toolbar or the Lha toolbar.")
  69. (set PRPrompt             "Please select your prozessor")
  70. (set PlayerCopy1Prompt  "Copy cd players/saver ...")
  71. (set PlayerCopy2Prompt  "Copy sampleplayers ...")
  72. (set PlayerCopy3Prompt  "Copy cataloges for AudioCD & VideoCD ...")
  73. (set LocaleCopyPrompt   "Copy cataloges ...")
  74. (set ButtonCopyPrompt   "Copy buttons ...")
  75. (set FiletypesPrompt    "Copy filetypes ...")
  76. (set MPEGPrompt         "Copy mpeg audio-encoder ...")
  77. (set GuideCopyPrompt    "Copy guide & pics ...")
  78. (set CDPrefsCopyPrompt    "Copy preferences ...")
  79. (set GuideCopyPrompt2    "Copy checktools ...")
  80. (set ToolsCopyPrompt    "Copy tools ...")
  81. (set OpusEdit           "Defaultdir for script is not standard (Dopus5:Arexx)!\nEdit Arexx-path CD-Buttons and Filetypes.")
  82. (SET #exitMsg           "For play CDDA/VideoCD or samples:\nPlease select to opus5-menu 'Button/Load/CD_Player_Buttons' the button\n'CD Multimedia', 'CD MM GUI' (GUI for edit the cd-cataloge) or 'Play Hifi', or play samples over doubleklick.\nMuch fun with Script\nfor DirOpus5 wish you\nEckhard Ludwig")
  83. (SET #exitMsg1          "For play CDDA/VideoCD or samples:\nPlease select to user-menu 'CD Multimedia', 'CD MM GUI' (GUI for edit the cd-cataloge) or 'Hifi Player', or play samples over doubleklick.\n\nMuch fun with Script\nfor DirOpus5 wish you\nEckhard Ludwig")
  84.  
  85. ;***************************************************************************
  86. ; deutsche Texte                               *****************************
  87. ;***************************************************************************
  88.  
  89. (IF (= @language "deutsch")
  90. (
  91. (set Opt 1)
  92. (set BOpt 0)
  93. (set INFO               "Diese Installation ergänzt Directory Opus5 um die Funktionen eines komfortablen AudioCD & VideoCD Spielers (inklusive CDDA-Saver), installiert ein MPEG Audiosystem, und Filetypen und Player für Samples der Formate IFF 8SVX, RAW, AIFF, WAVE, MPEG Layer 1&2, ADPCM 2&3, AU und VOC.\n\nWeiterhin werden Knopfbänke (CD_Player_Buttons u.a.) nach 'Dopus5:Buttons', sowie optional neue Toolbar und Usermenü installiert. Diese ermöglichen den Aufruf der Player, und das Konvertieren von Samples.")
  94. (set PrefsPrompt        "Die neu installierten Programme sollten jetzt konfiguriert werden.\n\nEs werden Angaben zu Ihrem Amigasystem benötigt.\n\nFür eine jederzeit nachträglich mögliche Änderung der Konfiguration wird ein Preferences-Programm installiert.")
  95. (set PlayMMPrompt       "Es ist bereits eine Konfigurationsdatei für PlayCD_MM.dopus5 vorhanden.\n\nSollen die alten Einstellungen übernommen werden ?")
  96. (set PlayHifiPrompt     "Es ist bereits eine Konfigurationsdatei für PlayHifi.dopus5 bzw. PlayHifi_DT.dopus5 vorhanden.\n\nSollen die alten Einstellungen übernommen werden ?")
  97. (set cdrom_Prompt    "Welches CDROM Laufwerk ist angeschlossen ?")
  98. (set VideoPrompt        "PlayCD_MM.dopus5 benötigt als externen Video-Player den ScalaMMPlayer (Im Lieferumfang aller Escom-Amiga mit HD). Bitte wählen Sie die Schublade, wo der ScalaMMPlayer installiert wurde, oder 'Weiter' !")
  99. (set VideoERROR         "ScalaMMPlayer ist nicht installiert oder fehlerhafte Eingabe !\n\nBitte den Player nach Work:Scala/ScalaMMPlayer installieren.\n\nMit NEIN können Sie eine neue Auswahl treffen.")
  100. (set CEEDPrompt         "PlayCD_MM.dopus5 benötigt als CD-Player CeeD (Freeware, © 1994-1995 by Peter Urbanec). Bitte wählen Sie die Schublade, wo CeeD installiert wurde, oder 'Weiter' !")
  101. (set CEEDCAT1Prompt     "CeeD identifiziert den Namen und die Titel einer CD anhand einer Datenbank (CEED/Disks). Bitte wählen Sie das Verzeichnis aus, wo die Schublade \"Disks\" installiert wurde.")
  102. (set CEEDERROR          "'CeeD' ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"DOpus5:CeeD/CeeD\" benutzen, falls sie CeeD noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  103. (set CEEDCATERROR       "Die Schublade für CD-Kataloge ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"DOpus5:CeeD\" benutzen, falls sie CeeD noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  104. (set scsihaPrompt       "Welcher Hostadapter ist für das CDROM Laufwerk angeschlossen ?")
  105. (set scsiunit_Prompt    "Welche Unit Nummer ist an Ihrem CDROM Laufwerk eingestellt ?\nFür Wechselsysteme bzw. mehrere Hostadapter ist die mehrstellige Nummer einzugeben.")
  106. (set scsidev_Prompt    "Wie ist der Treibername (xxxx.device) des für das CDROM benutzten Hostadapters ?\nBitte Groß-/Kleinschreibung für xxxx genau beachten !")
  107. (set CDDAPrompt         "Zum Speichern von CDDA Audiodaten in AIFF und IFF 8SVX wird das externe Programm CDDA V1.12 benötigt. Bitte wählen Sie die Schublade, wo CDDA installiert wurde !")
  108. (set CDDAERROR          "'CDDA' ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:CDDA\" benutzen, falls sie CDDA (noch) nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  109. (set CDRPrompt          "Zum Speichern von CDDA Audiodaten in ADPCM 2 und 3 wird das externe Programm X2ADPCM benötigt. Bitte wählen Sie die Schublade, wo X2ADPCM installiert wurde !")
  110. (set CDRERROR           "'X2ADPCM' ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:X2ADPCM\" benutzen, falls sie X2ADPCM (noch) nicht installiert haben bzw. nicht benötigen ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  111. (set ASIMPrompt          "Zum Speichern von CDDA Audiodaten in RAW, WAVE, VOC, AU, AIFF und MP2 wird optional (Nicht für Toshiba- und Sony-Laufwerke) das AsimCDFS Filesystem (© Asimware Innov. Inc.) benötigt. Bitte wählen Sie den für das CD-Laufwerk verwendeten Devicenamen.")
  112. (set SOXERROR           "AmiSOX ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung benutzen, falls Sie AmiSOX nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  113. (set SOXPrompt          "Zum Speichern von CDDA Audiodaten in AIFF, WAVE, VOC und AU wird das externe Programm AmiSOX benötigt. Bitte wählen Sie die Schublade und die Datei AmiSOX aus (sox, sox020, sox881 oder sox020881).")
  114. (set TIMEPrompt         "Bitte wählen Sie die Auslaufzeit in Sekunden. Diese Angabe bestimmt, wann das Spielen eines Titel beendet wird, um die Pause zwischen 2 Titeln zu überspringen. (min. 0, max. 4)")
  115. (set Play16Prompt       "PlayHifi.dopus5 und PlayHifi_DT.dopus5 benötigen als externen Player Play16 1.5 (© 1995 by Thomas Wenzel). Bitte wählen Sie die Schublade, wo Play16 installiert wurde, oder 'Weiter' !")
  116. (set Play16ERROR        "'Play16' ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:Play16\" benutzen, falls sie Play16 noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  117. (set PlayADPCMPrompt    "PlayHifi.dopus5 und PlayHifi_DT.dopus5 benötigen für ADPCM-Sounddateien den externen Player PlayADPCM. Bitte wählen Sie die Schublade, wo PlayADPCM installiert wurde, oder 'Weiter' !")
  118. (set PlayADPCMERROR     "'PlayADPCM' ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:PlayADPCM\" benutzen, falls sie PlayADPCM noch nicht installiert haben bzw. nicht benötigen ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  119. (set PlayMPEGPrompt     "PlayHifi.dopus5 und PlayHifi_DT.dopus5 benötigen als externen Player mpega (© 1995 by Stephane Tavenard). Bitte wählen Sie die Schublade, wo mpega installiert wurde, oder 'Weiter' !")
  120. (set PlayMPEGERROR      "'mpega' ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"C:mpega\" benutzen, falls sie mpega noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  121. (set MPEGAudioPrompt    " wird zum Encodieren von MPEG Audiostreams benötigt. Bitte wählen Sie die Schublade, wo das Programm installiert wurde, oder 'Weiter' !")
  122. (set MPEGAudioERROR     " ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung \"DOpus5:mpegaudio\" benutzen, falls sie mpegaudio noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  123. (set AmigaPrompt        "Play16-Konfiguration:\nUm die korrekte Abspielrate zu setzen, benötige ich den für DirectoryOpus5 benutzten Bildschirmmode.")
  124. (set PlayPrompt         "Play16-Konfiguration:\nWählen Sie die gewünschte Wiedergabequalität. Für 68020 und besser wird 14bit empfohlen (siehe play16.dok).")
  125. (set MPEG_1Prompt       "mpega-Konfiguration:\nWählen Sie die mögliche Ausgabequalität, je nach CPU-Typ/Taktfrequenz.\nBei Problemen die niedrigere Qualität auswählen.")
  126. (set MPEG_2Prompt       "mpega-Konfiguration:\nWählen Sie die Ausgabefrequenz.\nNormal (nicht bei PAL/NTSC-Bildschirmmode !) benötigt eine schnelle CPU !")
  127. (set MPEG_3Prompt       "mpega-Konfiguration:\nWählen Sie die gewünschte Wiedergabequalität.")
  128. (set MPEGAU_1Prompt     "Encoder mpegaudio-Konfiguration:\nWählen Sie den Kanal-Mode, entweder stereo oder joint stereo (Voreinstellung). Dual channel und single channel sind nur für spezielle Anwendungen sinnvoll.")
  129. (set MPEGAU_2Prompt     "Encoder mpegaudio-Konfiguration:\nWählen Sie die maximale bitrate. Empfohlen werden 192kbps (CD-Qualität) oder 128kbps (Hifi-Qualität, höhere Kompression).")
  130. (set MPEGAU_3Prompt     "Encoder mpegaudio-Konfiguration:\nWählen Sie die Deemphasis. Standard sind CCITT j.17.")
  131. (set GuidePrompt        "Für die Programme existiert eine umfangreiche deutschsprachige Anleitung im AmigaGuide®-Format.\n\nDiese können sie jetzt in ein beliebiges Verzeichnis kopieren, wobei eine eigene Schublade (CD_MM_Docs) angelegt wird.")
  132. (set GuideDirPrompt     "Wohin soll die Schublade CD_MM_Docs, mit der deutschen Anleitung kopiert werden?")
  133. (set CDPrefsPrompt      "Um die Programme nachträglich konfigurieren zu können, existiert ein entsprechendes Konfigurations-Programm.\n\nDieses können sie jetzt in ein beliebiges Verzeichnis kopieren, wobei eine eigene Schublade (CD_MM_Prefs) angelegt wird.")
  134. (set CDPrefsDirPrompt     "Wohin soll die Schublade CD_MM_Prefs mit dem Konfigurations-Programm kopiert werden?")
  135. (set Installprompt      "Bitte wählen Sie für die Programme Ihre bevorzugte(n) Sprachversion(en).")
  136. (set Opus5DirPrompt     "Bitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde!")
  137. (set Opus5Message       "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\n\nIst DirectoryOpus5 korrekt installiert wurden ?\n\nBitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde oder installieren sie DirectoryOpus5 zuerst !")
  138. (set Opus5Help          "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\nIst DirectoryOpus5 korrekt installiert wurden ?\nBitte installieren sie DirectoryOpus5 zuerst !")
  139. (set Opus5Old           "Ihre Version von DirectoryOpus ist leider zu alt.\nFür die zu installierenden Programme wird mindesten Version 5.11 von DirectoryOpus benötigt.\nSollen die Programme trotzdem installiert werden ?")
  140. (set Deinstallprompt    "Es ist bereits eine neuere Version von PlayCD_MM.dopus5 installiert!\nSoll dieser wirklich ersetzt werden ?")
  141. (set Opus5OHelp         "Ich benötige mindesten V5.11 von DirectoryOpus! Lesen Sie CD_MM_guide.dt.")
  142. (set ArexxDirPrompt     "Die Programme sollten in das Arexx-Verzeichnis von DirOpus5 installiert werden!\nBitte wählen Sie eine Schublade für die Player-Scripte !")
  143. (set RexxPrompt        "Die Skript-Sprache ARexx ist im Lieferumfang von AmigaDOS enthalten, jedoch nicht verfügbar, bevor Sie nicht das Programm 'RexxMast' aufgerufen haben.\nEs wird empfohlen, ARexx immer zu starten.\nWenn Sie ARexx automatisch starten lassen möchten, klicken Sie auf 'Weiter', um ARexx von Ihrer 'User-Startup' aus starten zu lassen.")
  144. (set ButtonLangPrompt   "Wählen Sie bitte die gewünschte Sprache für die zu installierenden Knopfbänke.")
  145. (set USERMENUPrompt     "Soll ich ein erweitertes User-Menü, mit zusätzlichen Einträgen für den Aufruf der Player bzw. Converter installieren ?\n\nDas aktuelle User-Menü wird umbenannt nach\n'user menu_old'.\n\nWeitere Informationen sind unter 'Hilfe' verfügbar.")
  146. (set UserMenuHelp    "Das User-Menü hat die gleichen Funktionen wie das originale Opus5-Usermenü, erweitert um Einträge für den Aufruf der Player/Converter. Das alte Menü wird gesichert, und kann gegebenenfalls wieder benutzt werden.")
  147. (set ToolbarPrompt    "Soll ich die 8 Farben Magic Workbench Werkzeugleiste installieren ?\n\nDie Standard-Werkzeugleiste wird umbenannt nach 'toolbar_old'.\n\nWeitere Informationen sind unter 'Hilfe' verfügbar.")
  148. (set ToolbarHelp    "DirOpus sollte für diese Installation auf mind. 8 Farben eingestellt sein. Die zu installierende Werkzeugleiste hat die gleichen Funktionen wie die originale, erweitert um Einträge für in DirOpus5 vorhandene Funktionen. Falls LhADir installiert ist, wird dieses ebenfalls unterstützt. Die alte Werkzeugleiste wird gesichert, und kann gegebenenfalls wieder benutzt werden.")
  149. (set PRPrompt             "Bitte wählen Sie den Prozessortyp ihres Amiga.")
  150. (set PlayerCopy1Prompt  "Kopiere CD Player/Saver ...")
  151. (set PlayerCopy2Prompt  "Kopiere Sample Player ...")
  152. (set PlayerCopy3Prompt  "Kopiere Kataloge für Audio & Video-CD ...")
  153. (set LocaleCopyPrompt   "Kopiere Cataloge ...")
  154. (set ButtonCopyPrompt   "Kopiere Knopfbank ...")
  155. (set FiletypesPrompt    "Kopiere Opus5-Filetypes ...")
  156. (set MPEGPrompt         "Kopiere MPEG Audio-Encoder ...")
  157. (set GuideCopyPrompt    "Kopiere Anleitung und Bilder...")
  158. (set CDPrefsCopyPrompt    "Kopiere Preferences ...")
  159. (set GuideCopyPrompt2    "Kopiere Checktools ...")
  160. (set ToolsCopyPrompt    "Kopiere Tools ...")
  161. (set OpusEdit           "Das gewählte Playerverzeichnis entspricht nicht dem Standard (Dopus5:Arexx)!\n Die Arexx-Pfade in CD Button und Datatypes müssen entsprechend ediert werden!")
  162. (SET #exitMsg           "Zum Spielen von Audio/Video-CD oder Samples:\nStarten Sie DirOpus5 neu. Wählen Sie im Opus5-Menü 'Knöpfe/Laden/' die Datei 'CD_Player_Buttons' an. Klicken Sie die Knöpfe 'CD Multimedia' bzw. 'CD MM GUI' oder 'Play Hifi', oder spielen Sie Samples per Doppelklick.\nViel Spaß mit den Script\nfür DirOpus5 wünscht\nEckhard Ludwig")
  163. (SET #exitMsg1          "Zum Spielen von Audio/Video-CD oder Samples:\nStarten Sie DirOpus5 neu. Wählen Sie im Benutzermenü 'CD Multimedia' 'CD MM GUI' (GUI zum Erstellen von CD-Katalogen) bzw. 'Hifi Spieler', oder spielen Sie Samples per Doppelklick.\n\nViel Spaß mit den Script\nfür DirOpus5 wünscht\nEckhard Ludwig")
  164. )
  165. )
  166.  
  167. ;***************************************************************************
  168. ; check if Directory Opus 5 is already installed
  169. ; check Version
  170. ;***************************************************************************
  171.  
  172. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  173.     ((message Opus5Message)
  174.     (set Opus5path (askdir
  175.     (prompt Opus5DirPrompt)
  176.     (help @askdir-help)
  177.     (default "Work:")))
  178.     (if (not (exists (tackon Opus5path "DirectoryOpus") (noreq)))
  179.        (abort Opus5Help))    
  180.     (makeassign "Dopus5" Opus5path (safe))
  181. ))
  182.  
  183. (if (> 327691 (getversion "DOpus5:DirectoryOpus"))
  184.     (if (not (askbool
  185.        (prompt Opus5Old)
  186.        (help Opus5OHelp)
  187.        (default 0)))
  188.     (abort Opus5OHelp))    
  189. )
  190.  
  191. ;***************************************************************************
  192. ; test Dopus5:Arexx exists & versionstest newer version PlayCD_MM.dopus5
  193. ;***************************************************************************
  194.  
  195. (if (= @user-level 2)
  196.   (if (not (exists defaultdest (noreq)))
  197.     (set defaultdest (askdir
  198.     (prompt ArexxDirPrompt)
  199.     (help    @askdir-help)
  200.     (default "Rexx:")
  201. ))))
  202.  
  203. (set @default-dest defaultdest)
  204.  
  205. (if (exists (tackon defaultdest "PlayCD_MM.dopus5") (noreq))
  206.    ((set version (getversion (tackon defaultdest "PlayCD_MM.dopus5")))
  207.    (if (> version (getversion "Arexx/PlayCD_MM.dopus5"))
  208.        (if (not (askbool 
  209.        (prompt Deinstallprompt)
  210.        (help @askbool-help)
  211.        (default 0)))
  212.           (exit (quiet)))
  213. )))
  214.  
  215. ;***************************************************************************
  216. ; copy the files
  217. ;***************************************************************************
  218.  
  219. (message INFO)
  220.  
  221. (copyfiles
  222.    (prompt PlayerCopy1Prompt)
  223.    (help @copyfiles-help)
  224.    (source "arexx")
  225.    (dest defaultdest)
  226.    (pattern "PlayCD_MM.dopus5")
  227.    (confirm "EXPERT")
  228.    (optional "force")
  229. )
  230.  
  231. (copyfiles
  232.    (prompt PlayerCopy2Prompt)
  233.    (help @copyfiles-help)
  234.    (source "arexx")
  235.    (dest defaultdest)
  236.    (pattern "PlayHifi#?")
  237.    (confirm "EXPERT")
  238.    (optional "force")
  239. )
  240.  
  241. (complete 15)
  242.  
  243. ;***************************************************************************
  244. ;install cataloge
  245. ;***************************************************************************
  246.  
  247. (IF (= @language "All")
  248.     (set Opt 511))
  249.  
  250. (set installchoice
  251.    (askoptions
  252.    (prompt InstallPrompt)
  253.    (help @askoptions-help)
  254.    (choices "Deutsch" "English" "dansk" "français" "italiano" "nederlands" "norsk" "suomi" "svenska")
  255.    (default Opt)
  256. ))
  257.  
  258. (set n 0)
  259.  
  260. (while (<> n 2)
  261.  
  262.   ((set filepat
  263.       (select n "PlayCD_MM.catalog" "PlayHifi.catalog"))
  264.  
  265.    (set n (+ n 1))
  266.  
  267. (IF (BITAND installchoice 1)
  268.   (copyfiles
  269.    (prompt LocaleCopyPrompt)
  270.    (help @copyfiles-help)
  271.    (source "Locale/Catalogs/deutsch")
  272.    (dest "SYS:Locale/Catalogs/deutsch")
  273.    (pattern filepat)
  274.    (confirm "EXPERT")
  275.    (optional "force")
  276.   ))
  277.  
  278. (IF (OR (<> @language "deutsch") (BITAND installchoice 2))
  279.   (copyfiles
  280.    (prompt LocaleCopyPrompt)
  281.    (help @copyfiles-help)
  282.    (source "Locale/Catalogs/english")
  283.    (dest "SYS:Locale/Catalogs/english")
  284.    (pattern filepat)
  285.    (confirm "EXPERT")
  286.    (optional "force")
  287.   ))
  288.  
  289. (IF (BITAND installchoice 4)
  290.   (copyfiles
  291.    (prompt LocaleCopyPrompt)
  292.    (help @copyfiles-help)
  293.    (source "Locale/Catalogs/dansk")
  294.    (dest "SYS:Locale/Catalogs/dansk")
  295.    (pattern filepat)
  296.    (confirm "EXPERT")
  297.    (optional "force")
  298.   ))
  299.  
  300. (IF (BITAND installchoice 8)
  301.   (copyfiles
  302.    (prompt LocaleCopyPrompt)
  303.    (help @copyfiles-help)
  304.    (source "Locale/Catalogs/français")
  305.    (dest "SYS:Locale/Catalogs/français")
  306.    (pattern filepat)
  307.    (confirm "EXPERT")
  308.    (optional "force")
  309.   ))
  310.  
  311. (IF (BITAND installchoice 16)
  312.   (copyfiles
  313.    (prompt LocaleCopyPrompt)
  314.    (help @copyfiles-help)
  315.    (source "Locale/Catalogs/italiano")
  316.    (dest "SYS:Locale/Catalogs/italiano")
  317.    (pattern filepat)
  318.    (confirm "EXPERT")
  319.    (optional "force")
  320.   ))
  321.  
  322. (IF (BITAND installchoice 32)
  323.   (copyfiles
  324.    (prompt LocaleCopyPrompt)
  325.    (help @copyfiles-help)
  326.    (source "Locale/Catalogs/nederlands")
  327.    (dest "SYS:Locale/Catalogs/nederlands")
  328.    (pattern filepat)
  329.    (confirm "EXPERT")
  330.    (optional "force")
  331.   ))
  332.  
  333. (IF (BITAND installchoice 64)
  334.   (copyfiles
  335.    (prompt LocaleCopyPrompt)
  336.    (help @copyfiles-help)
  337.    (source "Locale/Catalogs/norsk")
  338.    (dest "SYS:Locale/Catalogs/norsk")
  339.    (pattern filepat)
  340.    (confirm "EXPERT")
  341.    (optional "force")
  342.   ))
  343.  
  344. (IF (BITAND installchoice 128)
  345.   (copyfiles
  346.    (prompt LocaleCopyPrompt)
  347.    (help @copyfiles-help)
  348.    (source "Locale/Catalogs/suomi")
  349.    (dest "SYS:Locale/Catalogs/suomi")
  350.    (pattern filepat)
  351.    (confirm "EXPERT")
  352.    (optional "force")
  353.   ))
  354.  
  355. (IF (BITAND installchoice 256)
  356.   (copyfiles
  357.    (prompt LocaleCopyPrompt)
  358.    (help @copyfiles-help)
  359.    (source "Locale/Catalogs/svenska")
  360.    (dest "SYS:Locale/Catalogs/svenska")
  361.    (pattern filepat)
  362.    (confirm "EXPERT")
  363.    (optional "force")
  364.   ))
  365.  
  366. ))
  367.  
  368. (complete 25)
  369.  
  370. (IF (<> @language "deutsch")
  371. (message
  372. (cat    "\n\nIf you want to create own versions of\n"
  373.     "the catalogs please have a look at the\n"
  374.     "distributions Locale directory. You will\n"
  375.     "find the .cd files there. If you\n"
  376.     "have created you own translations, please\n"
  377.     "don`t keep it a secret"
  378. )))
  379.  
  380. ;***************************************************************************
  381. ; copy buttons
  382. ;***************************************************************************
  383.  
  384. (set buttonchoice
  385.    (askchoice
  386.    (prompt ButtonLangPrompt)
  387.    (help @askchoice-help)
  388.    (choices "deutsch" "english" "italiano" "nederlands" "norsk")
  389.    (default BOpt)
  390. ))
  391.  
  392. (set buttonpattern
  393.   (select buttonchoice "#?_deutsch" "#?_english" "#?_IT" "#?_nederlands" "#?_norsk")
  394. )
  395.  
  396. (set USERMENU
  397.   (select buttonchoice "user menu_deutsch" "user menu_english" "user menu_IT" "user menu_nederlands" "user menu_norsk")
  398. )
  399.  
  400. (set CDBUTTON
  401.   (select buttonchoice "CD_Player_Buttons_deutsch" "CD_Player_Buttons_english" "CD_Player_Buttons_IT" "CD_Player_Buttons_nederlands" "CD_Player_Buttons_norsk")
  402. )
  403.  
  404. (copyfiles
  405.      (source "buttons")
  406.      (dest "DOpus5:buttons")
  407.      (optional "force")
  408.      (pattern buttonpattern)
  409.      (safe)
  410.      (files)
  411. )
  412.  
  413. (copyfiles
  414.      (source "buttons/SoundConverter")
  415.      (dest "DOpus5:buttons")
  416.      (optional "force")
  417.      (safe)
  418. )
  419.  
  420. (copyfiles
  421.        (source (tackon "DOpus5:Buttons" CDBUTTON))
  422.        (dest "DOpus5:Buttons")
  423.        (optional "force")
  424.        (safe)
  425.        (newname "CD_Player_Buttons")
  426.      )
  427.  
  428. ; make user menu the default
  429.  
  430. (if
  431.    (askbool
  432.       (prompt USERMENUPrompt)
  433.       (help UserMenuHelp)
  434.       (default 1)
  435.    )
  436.    (
  437.        (rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
  438.        (copyfiles
  439.           (source (tackon "DOpus5:Buttons" USERMENU))
  440.           (dest "DOpus5:Buttons")
  441.           (optional "force")
  442.           (newname "user menu")
  443.        )
  444.        (set #exitmsg #exitmsg1)
  445. ))
  446.  
  447. ; make toolbar the default
  448.  
  449. (if
  450.    (askbool
  451.       (prompt ToolbarPrompt)
  452.       (help ToolbarHelp)
  453.       )
  454.  
  455.    (
  456.    (set TOOLBAR "toolbar_standard")
  457.    (if (exists (tackon defaultdest "LhADir.dopus5") (noreq))
  458.        (set TOOLBAR "toolbar_LhaDir"))
  459.  
  460.       (rename "DOpus5:buttons/toolbar" "DOpus5:buttons/toolbar_old")
  461.       (copyfiles
  462.          (source (tackon "buttons" TOOLBAR))
  463.          (dest "DOpus5:buttons")
  464.          (newname "toolbar")
  465.       )
  466.       (copyfiles
  467.          (source "Images.magic")
  468.          (dest "DOpus5:Images.magic")
  469.       (pattern "#?")
  470.         (optional "force")
  471.           (files)
  472.       )
  473.    )
  474. )
  475.  
  476. (complete 40)
  477.  
  478. ;***************************************************************************
  479. ; copy filetypes
  480. ;***************************************************************************
  481.  
  482. (copyfiles
  483.    (prompt FiletypesPrompt)
  484.    (help @copyfiles-help)
  485.    (source "filetypes")
  486.    (dest "DOpus5:filetypes")
  487.    (optional "force")
  488.    (confirm "EXPERT")
  489.    (pattern "#?")
  490.    (files)
  491. )
  492.  
  493. ; Delete Error Opus5-Filetype
  494. (delete "DOpus5:Filetypes/IFF File")
  495.  
  496. (complete 55)
  497.  
  498. ;***************************************************************************
  499. ; Install CeeD
  500. ;***************************************************************************
  501.  
  502. (copyfiles
  503.    (prompt PlayerCopy1Prompt)
  504.    (help @copyfiles-help)
  505.    (source "CeeD")
  506.    (dest "DOpus5:CeeD")
  507.    (optional "force")
  508.    (confirm "EXPERT")
  509.    (pattern "#?")
  510.    (files)
  511.    (infos)
  512. )
  513. (copyfiles
  514.    (prompt PlayerCopy3Prompt)
  515.    (help @copyfiles-help)
  516.    (source "CeeD/Disks")
  517.    (dest "DOpus5:CeeD/Disks")
  518.    (optional "force")
  519.    (confirm "EXPERT")
  520.    (pattern "#?")
  521.    (files)
  522. )
  523.  
  524. (copylib
  525.      (source "CeeD/easyrexx.library")
  526.      (dest "LIBS:")
  527.      (optional "force")
  528.      (safe)
  529. )
  530.  
  531.  
  532. ;***************************************************************************
  533. ; Deinstallation old mpegaudio
  534. ;***************************************************************************
  535.  
  536. (if (exists "Dopus5:mpegaudio" (noreq))
  537.      ((run "DELETE ALL QUIET FORCE Dopus5:mpegaudio/tables")
  538.      (run "DELETE ALL QUIET FORCE Dopus5:mpegaudio")
  539. )
  540. )
  541.  
  542. ;***************************************************************************
  543. ; copy mpegaudio
  544. ;***************************************************************************
  545.  
  546. ((set PROZ (askchoice
  547.     (prompt PRPrompt)
  548.     (help @askchoice-help)
  549.     (choices "68040/68060" "68020/68030" "68030 + FPU")
  550.     (default 2)
  551.  )))
  552.  
  553. (set SOXPAT
  554.   (select PROZ "sox020881" "sox020" "sox020881")
  555.   )
  556.  
  557. (set MPEGENC "musicin.040FPU")
  558.  (if (> PROZ 0)
  559.     ((set MPEGENC "musicin.030FPU")
  560.       (copyfiles
  561.          (source "buttons/SoundConverter.030FPU")
  562.          (dest "DOpus5:buttons")
  563.              (newname "SoundConverter")
  564.          (optional "force")
  565.          (safe))
  566. ))
  567.  
  568. (copyfiles
  569.    (prompt MPEGPrompt)
  570.    (help @copyfiles-help)
  571.    (source "mpegaudio")
  572.    (dest "DOpus5:mpegaudio")
  573.    (optional "force")
  574.    (confirm "EXPERT")
  575.    (pattern MPEGENC)
  576.    (files)
  577. )
  578. (copyfiles
  579.    (prompt MPEGPrompt)
  580.    (help @copyfiles-help)
  581.    (source "mpegaudio/tables")
  582.    (dest "DOpus5:mpegaudio/tables")
  583.    (optional "force")
  584.    (confirm "EXPERT")
  585.    (pattern "#?")
  586.    (files)
  587. )
  588.  
  589. (complete 55)
  590.  
  591. ;***************************************************************************
  592. ; copy tools
  593. ;***************************************************************************
  594.  
  595. (copyfiles
  596.    (prompt ToolsCopyPrompt)
  597.    (help @copyfiles-help)
  598.    (source "c")
  599.    (dest "SYS:C")
  600.    (pattern "#?")
  601.    (optional "force")
  602.    (confirm "EXPERT")
  603.    (files)
  604. )
  605.  
  606. (copyfiles
  607.    (prompt ToolsCopyPrompt)
  608.    (help @copyfiles-help)
  609.    (source "SOX")
  610.    (dest "SYS:C")
  611.    (pattern SOXPAT)
  612.    (optional "force")
  613.    (confirm "EXPERT")
  614.    (files)
  615. )
  616.  
  617. (complete 65)
  618.  
  619. ;***************************************************************************
  620. ; ADD REXX TO USER-STARTUP
  621. ;***************************************************************************
  622.  
  623. (if
  624.     (startup "ARexx"
  625.         (prompt RexxPrompt)
  626.         (help @startup-help)
  627.         (command "SYS:System/RexxMast >NIL:")
  628.     )
  629.     (run "SYS:System/RexxMast >NIL:")
  630. )
  631.  
  632. (complete 75)
  633.  
  634. ;***************************************************************************
  635. ; set guidedir
  636. ;***************************************************************************
  637.  
  638. (message GuidePrompt)
  639. (if (>= @user-level 1)
  640. (set GuideDir (askdir
  641.     (prompt GuideDirPrompt)
  642.     (help    @askdir-help)
  643.     (default "DOpus5:")
  644. )))
  645.  
  646. ;***************************************************************************
  647. ; install guide
  648. ;***************************************************************************
  649.  
  650. (copyfiles
  651.     (prompt    GuideCopyPrompt)
  652.     (help    @copyfiles-help)
  653.         (source "CD_MM_Docs")
  654.         (dest (tackon GuideDir "CD_MM_Docs"))
  655.         (confirm "EXPERT")
  656.      (pattern "#?")
  657.         (optional "force")
  658.         (files)
  659.     (infos)
  660. )
  661.  
  662.  
  663. (copyfiles
  664.     (source "CD_MM_Docs.info")
  665.         (dest GuideDir)
  666.         (optional "force")
  667. )
  668.  
  669. (complete 90)
  670.  
  671. ;***************************************************************************
  672. ; set Prefsdir
  673. ;***************************************************************************
  674.  
  675. (message CDPrefsPrompt)
  676. (if (>= @user-level 1)
  677. (set CDPrefsDir (askdir
  678.     (prompt CDPrefsDirPrompt)
  679.     (help    @askdir-help)
  680.     (default "DOpus5:")
  681. )))
  682.  
  683. (copyfiles
  684.     (prompt    CDPrefsCopyPrompt)
  685.     (help    @copyfiles-help)
  686.         (source "CD_MM_Prefs")
  687.         (dest (tackon CDPrefsDir "CD_MM_Prefs"))
  688.         (confirm "EXPERT")
  689.      (pattern "#?")
  690.         (optional "force")
  691.         (files)
  692.     (infos)
  693. )
  694.  
  695.  
  696. (copyfiles
  697.     (source "CD_MM_Prefs.info")
  698.         (dest CDPrefsDir)
  699.         (optional "force")
  700. )
  701.  
  702. (if (<> 1 (exists "SYS:C/Installer" (noreq)))
  703.  (copyfiles
  704.     (source "Installer")
  705.         (dest "SYS:C")
  706.         (optional "force")
  707.   ))
  708.  
  709.  
  710. (complete 100)
  711.  
  712. ;***************************************************************************
  713. ; set prefs PlayCD_MM.dopus5
  714. ;***************************************************************************
  715.  
  716. (message PrefsPrompt)
  717.  
  718. (if (exists (tackon defaultdest "PlayCD_MM.dopus5") (noreq))
  719.     ((set CEED_flag 1)
  720.      (if (exists ("ENVARC:PlayCD_MM.prefs") (noreq))
  721.          (if (askbool
  722.              (prompt PlayMMPrompt)
  723.              (help " ")
  724.              (default 1))
  725.              (set CEED_flag 0))    
  726.  
  727.     )))
  728.  
  729. (if (= CEED_flag 1)
  730. (
  731.  ((set CEEDDir "Dopus5:CeeD")
  732.     (if (<> 1 (exists (tackon CEEDDir "CeeD") (noreq)))
  733.      (until (= flag_8 1)
  734.            ((set CEEDDir (askdir
  735.             (prompt CEEDPrompt)
  736.             (help    @askdir-help)
  737.             (default "Work:")
  738.                 ))
  739.            (if (<> 1 (exists (tackon CEEDDir "CeeD") (noreq)))
  740.              (if (askbool
  741.                  (prompt CEEDERROR)
  742.                  (help " "))
  743.                  ((set flag_8 1)
  744.                  (set CEEDDir "Dopus5:CeeD")))
  745.                  (set flag_8 1))
  746.            ))
  747.     )             
  748.  )
  749.  
  750.  ((set CEEDCATDir CEEDDir)
  751.     (if (<> 2 (exists (tackon CEEDCATDir "Disks") (noreq)))
  752.      (until (= flag_12 1)
  753.            ((set CEEDCATDir (askdir
  754.             (prompt CEEDCAT1Prompt)
  755.             (help    @askdir-help)
  756.             (default "Work:")
  757.                 ))
  758.            (if (<> 2 (exists (tackon CEEDCATDir "Disks") (noreq)))
  759.              (if (askbool
  760.                  (prompt CEEDCATERROR)
  761.                  (help " "))
  762.                  ((set flag_12 1)
  763.                  (set CEEDCATDir CEEDDir)))
  764.                  (set flag_12 1))
  765.            ))
  766.     )             
  767.  )
  768.  
  769.  ((set ScalaMMDir "Work:Scala")
  770.     (if (<> 1 (exists (tackon ScalaMMDir "ScalaMMPlayer") (noreq)))
  771.      (until (= flag_1 1)
  772.            ((set ScalaMMDir (askdir
  773.             (prompt VideoPrompt)
  774.             (help    @askdir-help)
  775.             (default "Work:")
  776.                 ))
  777.            (if (<> 1 (exists (tackon ScalaMMDir "ScalaMMPlayer") (noreq)))
  778.              (if (askbool
  779.                  (prompt VideoERROR)
  780.                  (help " "))
  781.                  ((set flag_1 1)
  782.                  (set ScalaMMDir "Work:Scala")))
  783.                  (set flag_1 1))
  784.            ))
  785.     )             
  786.  )
  787.  
  788.  (set TIME "2")
  789.  
  790.  (if (= @user-level 2)
  791.   (
  792.  
  793.  (set TIME (askstring
  794.     (prompt TIMEPrompt)
  795.     (help @askstring-help)
  796.     (default "2")
  797.    ))
  798.  ))
  799.  
  800.  (if (or (> TIME "4") (< TIME "0"))
  801.      (set TIME 2))
  802.  
  803.  ((set CDDADir "C:")
  804.     (if (<> 1 (exists (tackon CDDADir "CDDA") (noreq)))
  805.      (until (= flag_9 1)
  806.            ((set CDDADir (askdir
  807.             (prompt CDDAPrompt)
  808.             (help    @askdir-help)
  809.             (default "SYS:")
  810.                 ))
  811.            (if (<> 1 (exists (tackon CDDADir "CDDA") (noreq)))
  812.              (if (askbool
  813.                  (prompt CDDAERROR)
  814.                  (help " "))
  815.                  ((set flag_9 1)
  816.                  (set CDDADir "C:")))
  817.                  (set flag_9 1))
  818.            ))
  819.     )             
  820.  )
  821.  
  822.  ((set CDRDir "C:")
  823.     (if (<> 1 (exists (tackon CDRDir "X2ADPCM") (noreq)))
  824.      (until (= flag_10 1)
  825.            ((set CDRDir (askdir
  826.             (prompt CDRPrompt)
  827.             (help    @askdir-help)
  828.             (default "SYS:")
  829.                 ))
  830.            (if (<> 1 (exists (tackon CDRDir "X2ADPCM") (noreq)))
  831.              (if (askbool
  832.                  (prompt CDRERROR)
  833.                  (help " "))
  834.                  ((set flag_10 1)
  835.                  (set CDRDir "C:")))
  836.                  (set flag_10 1))
  837.            ))
  838.     )             
  839.  )
  840.  
  841.  ((set ASIMCD "CD0:")
  842.  ((if (= 1 (exists "L:AsimCDFS" (noreq)))
  843.   (set ASIMCD (askstring
  844.     (prompt ASIMPrompt)
  845.     (help @askstring-help)
  846.     (default "CD0:")
  847.    ))
  848.  )))
  849.  
  850.  ((set SOXFile (tackon "C:" SOXPAT))
  851.     (if (<> 1 (exists SOXFILE (noreq)))
  852.      (until (= flag_13 1)
  853.            ((set SOXFile (askfile
  854.             (prompt SOXPrompt)
  855.             (help    @askfile-help)
  856.             (default "SYS:C/sox020")
  857.                 ))
  858.            (if (<> 1 (exists SOXFile (noreq)))
  859.              (if (askbool
  860.                  (prompt SOXERROR)
  861.                  (help " "))
  862.                  ((set flag_13 1)
  863.                  (set SOXFile (tackon "C:" SOXPAT))))
  864.                  (set flag_13 1))
  865.            ))
  866.  )
  867.  )
  868.  
  869.  (set Unit 3)
  870.  
  871.  (set scsi_flag (askchoice
  872.         (prompt scsihaPrompt)
  873.         (help @askchoice-help)
  874.         (choices    "Commodore A590/A2091"
  875.                 "Commodore A3000"
  876.                 "Commodore A4091"
  877.                 "Commodore CDTV/A570"
  878.                 "bsc Oktagon 508/2008"    
  879.                 "bsc Alf-3"
  880.                 "VOB Breitfeld"
  881.                 "bsc Tandem CD+IDE"
  882.                 "bsc Tandem PCMCIA"
  883.                 "bsc Tandem AT/IDE"
  884.                 "Evolution"
  885.                 "Fastlane Z3"
  886.                 "next page (Weiter)"
  887.                 )
  888.         (default 12)
  889.     ))
  890.  
  891.  (if (= scsi_flag 12)
  892.    ((set scsi_flag (askchoice
  893.         (prompt scsihaPrompt)
  894.         (help @askchoice-help)
  895.         (choices
  896.                 "GVP Series-I/II"
  897.                 "Kupke (Golem)"
  898.                 "IVS Trumpcard"
  899.                 "IVS Trumpcard Pro"
  900.                 "ICD Advantage/AdSCSI"
  901.                 "Microbot. HardFrame"
  902.                 "California Access"
  903.                 "Nexus"
  904.                 "Supra 2000 Wordsync"
  905.                 "Supra 3.0"
  906.                 "Cyberstorm SCSI"
  907.                 "Blizzard 1230/III SCSI"
  908.                 "Archos Overdrive"
  909.                 "Other (Anderer)"
  910.                 )
  911.         (default 10)
  912.     ))
  913.    (set scsi_flag (+ scsi_flag 12))
  914.  ))
  915.  (if (or (= scsi_flag 3) (= scsi_flag 6) (= scsi_flag 7) (= scsi_flag 8) (= scsi_flag 9) (= scsi_flag 24))
  916.   (set Unit 0)
  917.     )
  918.  
  919.  (set Device (select scsi_flag    "scsi.device"
  920.                 "scsi.device"
  921.                 "2nd.scsi.device"
  922.                 "cdtv.device"
  923.                 "oktagon.device"
  924.                 "ALF.device"
  925.                 "vobscsi.device"
  926.                 "tandemcd.device"
  927.                 "tandem_pcmcia.device"
  928.                 "tandemat.device"
  929.                 "Evolution.device"
  930.                 "z3scsi.device"
  931.                 "gvpscsi.device"
  932.                 "scsi3.device"
  933.                 "IVS_SCSI.device"
  934.                 "IVS_SCSIpro.device"
  935.                 "icddisk.device"
  936.                 "HardFrame.device"
  937.                 "Malibu.device"
  938.                 "Nexus.device"
  939.                 "supradirect.device"
  940.                 "suprascsi.device"
  941.                 "cybscsi.device"
  942.                 "1230scsi.device"
  943.                 "cd.device"
  944.                 "scsi.device"
  945.         )
  946.     )
  947.  
  948.  
  949.    (set cdrom_flag (askchoice
  950.         (prompt cdrom_Prompt)
  951.         (help    @askchoice-help)
  952.         (choices
  953.                 "Toshiba"
  954.                 "Sony"
  955.                 "Other"
  956.                         )
  957.         (default 0)
  958.    )) 
  959.  
  960.  (set CDROM (select cdrom_flag  "TOSHIBA"
  961.                 "SONY"
  962.                 "NOT DEFINIERT"    
  963.     )
  964.  )
  965.  
  966.  
  967.  (if (or (= @user-level 2) (= scsi_flag 25))
  968.    (set Device  (askstring
  969.             (prompt scsidev_Prompt)
  970.             (help    @askstring-help)
  971.             (default Device)
  972.             )
  973.  ))
  974.  
  975.  (if (or (<> Unit 0) (= @user-level 2))
  976.   (set Unit
  977.     (asknumber
  978.         (prompt scsiunit_prompt)
  979.         (help    @asknumber-help)
  980.         (range 0 999)
  981.         (default Unit)
  982.     )
  983.  ))
  984.  
  985.  ((set MPEGAudioDir "DOpus5:mpegaudio")
  986.     (if (<> 1 (exists (tackon MPEGAudioDir MPEGENC) (noreq)))
  987.      (until (= mpegflag 1)
  988.            ((set MPEGAudioDir (askdir
  989.             (prompt (CAT MPEGENC MPEGAudioPrompt))
  990.             (help    @askdir-help)
  991.             (default "Work:")
  992.                 ))
  993.            (if (<> 1 (exists (tackon MPEGAudioDir MPEGENC) (noreq)))
  994.              (if (askbool
  995.                  (prompt (CAT MPEGENC MPEGAudioERROR))
  996.                  (help " "))
  997.                  ((set mpegflag 1)
  998.                  (set MPEGAudioDir "DOpus5:mpegaudio")))
  999.                  (set mpegflag 1))
  1000.            ))
  1001.     )             
  1002.  )
  1003.  
  1004.     (set mpegflag_1 (askchoice
  1005.     (prompt MPEGAU_1Prompt)
  1006.     (help @askchoice-help)
  1007.     (choices "stereo" "joint stereo (default)" "dual channel" "single channel")
  1008.     (default 1)
  1009.  ))
  1010.  
  1011.     (set mpegflag_2 (askchoice
  1012.     (prompt MPEGAU_2Prompt)
  1013.     (help @askchoice-help)
  1014.     (choices "112 kbps" "128kbps" "192kbps (default)")
  1015.     (default 2)
  1016.  ))
  1017.  
  1018.     (set mpegflag_3 (askchoice
  1019.     (prompt MPEGAU_3Prompt)
  1020.     (help @askchoice-help)
  1021.     (choices "none" "50/15 microsec" "CCITT J.17 (default)")
  1022.     (default 2)
  1023.  ))
  1024.  
  1025. (set mpegmo
  1026.   (select mpegflag_1 " -m s" " -m j" " -m d" " -m m")
  1027. )
  1028. (set mpegbitr
  1029.   (select mpegflag_2 " -b 112" " -b 128" " -b 192")
  1030. )
  1031. (set mpegdeemp
  1032.   (select mpegflag_3 " -d n" " -d 5" " -d c")
  1033. )
  1034.  
  1035.  (textfile 
  1036.     (dest "ENVARC:PlayCD_MM.prefs")
  1037.         (append ";$VER: Prefs for PlayCD_MM.dopus5 1.0\n" (tackon CEEDDir "CeeD") "\n" (tackon CDDADir "CDDA") "\n" TIME "\n" Device "\n" Unit "\n" (tackon CEEDCATDir "Disks") "\n" SOXFile "\n" (CAT (tackon MPEGAudioDir MPEGENC) mpegmo mpegbitr mpegdeemp) "\n" (tackon MPEGAudioDir "Tables") "\n" (tackon CDRDir "X2ADPCM") "\n" ASIMCD "\n" CDROM "\n" (tackon ScalaMMDir "ScalaMMPlayer") "\n" )
  1038.  )
  1039.  (textfile
  1040.     (dest "ENV:PlayCD_MM.prefs")
  1041.         (append ";$VER: Prefs for PlayCD_MM.dopus5 1.0\n" (tackon CEEDDir "CeeD") "\n" (tackon CDDADir "CDDA") "\n" TIME "\n" Device "\n" Unit "\n" (tackon CEEDCATDir "Disks") "\n" SOXFile "\n" (CAT (tackon MPEGAudioDir MPEGENC) mpegmo mpegbitr mpegdeemp) "\n" (tackon MPEGAudioDir "Tables") "\n" (tackon CDRDir "X2ADPCM") "\n" ASIMCD "\n" CDROM "\n" (tackon ScalaMMDir "ScalaMMPlayer") "\n" )
  1042.  )
  1043. ))
  1044.  
  1045. ;***************************************************************************
  1046. ;PlayHifi.prefs
  1047. ;***************************************************************************
  1048.  
  1049. (if
  1050.     (exists (tackon defaultdest "PlayHifi.dopus5") (noreq))
  1051.      ((set Hifi_flag 1)
  1052.       (if (exists ("ENVARC:PlayHifi.prefs") (noreq))
  1053.          (if (askbool
  1054.              (prompt PlayHifiPrompt)
  1055.              (help " ")
  1056.              (default 1))
  1057.              (set Hifi_flag 0))    
  1058.  
  1059.     )))
  1060.  
  1061. (if (= Hifi_flag 1)
  1062. (
  1063.  ((set Play16Dir "C:")
  1064.     (if (<> 1 (exists (tackon Play16Dir "Play16") (noreq)))
  1065.      (until (= flag_4 1)
  1066.            ((set Play16Dir (askdir
  1067.             (prompt Play16Prompt)
  1068.             (help    @askdir-help)
  1069.             (default "Work:")
  1070.                 ))
  1071.            (if (<> 1 (exists (tackon Play16Dir "Play16") (noreq)))
  1072.              (if (askbool
  1073.                  (prompt Play16ERROR)
  1074.                  (help " "))
  1075.                  ((set flag_4 1)
  1076.                  (set PlayDir "C:")))
  1077.                  (set flag_4 1))
  1078.            ))
  1079.     )             
  1080.  )
  1081.  
  1082.  ((set PlayADPCMDir "C:")
  1083.     (if (<> 1 (exists (tackon PlayADPCMDir "PlayADPCM") (noreq)))
  1084.      (until (= flag_5 1)
  1085.            ((set PlayADPCMDir (askdir
  1086.             (prompt PlayADPCMPrompt)
  1087.             (help    @askdir-help)
  1088.             (default "Work:")
  1089.                 ))
  1090.            (if (<> 1 (exists (tackon PlayADPCMDir "PlayADPCM") (noreq)))
  1091.              (if (askbool
  1092.                  (prompt PlayADPCMERROR)
  1093.                  (help " "))
  1094.                  ((set flag_5 1)
  1095.                  (set PlayADPCMDir "C:")))
  1096.                  (set flag_5 1))
  1097.            ))
  1098.     )             
  1099.  )
  1100.  
  1101.  ((set PlayMPEGDir "C:")
  1102.     (if (<> 1 (exists (tackon PlayMPEGDir "mpega") (noreq)))
  1103.      (until (= flag_6 1)
  1104.            ((set PlayMPEGDir (askdir
  1105.             (prompt PlayMPEGPrompt)
  1106.             (help    @askdir-help)
  1107.             (default "Work:")
  1108.                 ))
  1109.            (if (<> 1 (exists (tackon PlayMPEGDir "mpega") (noreq)))
  1110.              (if (askbool
  1111.                  (prompt PlayMPEGERROR)
  1112.                  (help " "))
  1113.                  ((set flag_6 1)
  1114.                  (set PlayMPEGDir "C:")))
  1115.                  (set flag_6 1))
  1116.            ))
  1117.     )             
  1118.  )
  1119.  
  1120.     (set flag_1 (askchoice
  1121.     (prompt AmigaPrompt)
  1122.     (help @askchoice-help)
  1123.     (choices "PAL/NTSC" "DblPAL/DblNTSC/Multiscan/Euro72/Super72" "Graphic-Card")
  1124.     (default 1)
  1125.  ))
  1126.  
  1127.     (set flag_2 (askchoice
  1128.     (prompt PlayPrompt)
  1129.     (help @askchoice-help)
  1130.     (choices "Standard 8Bit" "Standard 14Bit" "14Bit CyberSound System" "MacroSystem MaestroPro Board")
  1131.     (default 1)
  1132.  ))
  1133.  
  1134.     (set flag_3 (askchoice
  1135.     (prompt MPEG_1Prompt)
  1136.     (help @askchoice-help)
  1137.     (choices "Low (68020)" "Medium (68030)" "High (68040/60)")
  1138.     (default 1)
  1139.  ))
  1140.  
  1141.     (set flag_4 (askchoice
  1142.     (prompt MPEG_2Prompt)
  1143.     (help @askchoice-help)
  1144.     (choices "Normal (44100Hz) no PAL/NTSC !" "1/2 (22050Hz)" "1/4 (11025Hz)")
  1145.     (default 1)
  1146.  ))
  1147.  
  1148.     (set flag_5 (askchoice
  1149.     (prompt MPEG_3Prompt)
  1150.     (help @askchoice-help)
  1151.     (choices "8Bit" "14Bit")
  1152.     (default 1)
  1153.  ))
  1154.  
  1155.  (if (= flag_2 0)
  1156.      (set OUTPUT "Paula8 "))
  1157.  (if (= flag_2 1)
  1158.      (set OUTPUT "Paula14 "))
  1159.  (if (= flag_2 2)
  1160.      (set OUTPUT "Paula14c "))
  1161.  (if (= flag_2 3)
  1162.      (set OUTPUT "MPro "))
  1163.  (if (<> flag_1 0)
  1164.      (set PL16OP "FAST FILTER=OFF"))
  1165.  (if (= flag_1 0)
  1166.      (set PL16OP "FILTER=OFF"))
  1167.  
  1168.  (if (= flag_4 0)
  1169.      (set flag_6 1))
  1170.  (if (= flag_4 1)
  1171.      (set flag_6 2))
  1172.  (if (= flag_4 2)
  1173.      (set flag_6 4))
  1174.  
  1175.  (if (= flag_5 0)
  1176.      (set flag_7 " -e8"))
  1177.  
  1178.  
  1179.  (textfile 
  1180.     (dest "ENVARC:PlayHifi.prefs")
  1181.         (append ";$VER: Settings file for PlayHifi.dopus5 & PlayHifi_DT.dopus5\n" (tackon Play16Dir "Play16") "\n" (tackon PlayADPCMDir "PlayADPCM") "\n" (tackon PlayMPEGDir "mpega") "\n" (cat OUTPUT PL16OP) "\n" (cat "-p -f0 -d" flag_6 " -q" flag_3 flag_7) "\n")
  1182.  )
  1183.  (textfile 
  1184.     (dest "ENV:PlayHifi.prefs")
  1185.         (append ";$VER: Settings file for PlayHifi.dopus5 & PlayHifi_DT.dopus5\n" (tackon Play16Dir "Play16") "\n" (tackon PlayADPCMDir "PlayADPCM") "\n" (tackon PlayMPEGDir "mpega") "\n" (cat OUTPUT PL16OP) "\n" (cat "-p -f0 -d" flag_6 " -q" flag_3 flag_7) "\n")
  1186.  )
  1187.  
  1188. ))
  1189.  
  1190.  
  1191. (if (<> defaultdest "DOpus5:Arexx")
  1192.     (message OpusEdit))
  1193.  
  1194. (exit #exitMsg)
  1195.