home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Workbench / DOpus / OpusMPEGA.lha / opusmpega / Install < prev    next >
Text File  |  1998-04-22  |  24KB  |  727 lines
  1. ;***************************************************************************
  2. ; * $VER: Install Opus MPEGA 3.1 (04-31-98)
  3. ; * Script written by Eckhard Ludwig
  4. ;***************************************************************************
  5.  
  6. (set #defaultdest "DOpus5:")
  7. (set #current_version "3.1")
  8. (set #lng @language)
  9. (complete 0)
  10.  
  11. ;****************************************************************************
  12.  
  13. (set #intro1 (cat 
  14.         "Opus MPEGA PPC " 
  15.         #current_version 
  16.         "\nThe Definitive MPEG Audio Player for Directory Opus5\n"
  17.           "****************************************************\n"
  18.         "⌐1998 by Eckhard Ludwig"
  19.         ))
  20.  
  21. ;***************************************************************************
  22. ; deutsche Texte
  23. ;***************************************************************************
  24.  
  25. (if (= #lng "deutsch")
  26. (
  27. (set #Opt 1)
  28. (set #INFO  (cat    "Sie installieren OpusMPEGA, den besten MPEG Audioplayer fⁿr Directory Opus5.\n\n"
  29.             "V3.1 unterstⁿtzt 68k-Amigas und PowerUp-Boards by phase5.\n"
  30.             "Das OpusMPEGA Konfigurationsprogramm erm÷glicht die Auswahl von Amigaaudio und"
  31.             " Soundkarten ⁿber das AHI audio system by Martin Blom."
  32. ))
  33. (set GuidePrompt  (cat  "\nFⁿr Opus MPEGA existiert eine umfangreiche deutschsprachige Anleitung im AmigaGuide«-Format."
  34.             " Diese lΣ▀t sich jederzeit ⁿber das Applicationsicon Menⁿ aufrufen.\n\n"
  35.              "WΣhlen sie das Zielverzeichnis. Normalerweise ist dies DOpus5:Help, wie in der Voreinstellung."
  36. ))
  37. (set GuidedirPrompt    "Bitte Schublade fⁿr Guide wΣhlen.")
  38. (set PrefsdirPrompt    "Bitte Schublade fⁿr Prefs (OpusMPEGA) wΣhlen.")
  39. (set PrefsPrompt  (cat    "\n\nUm OpusMPEGA auf verschiedene Soundkarten bzw. Amigaaudio konfigurieren zu k÷nnen,"
  40.             " und zum Setzen der Pfade von MPEGA bzw. PPCMpegPlayer, existiert ein Konfigurations Programm.\n\n"
  41.             "Dieses Programm k÷nnen sie in ein beliebiges Verzeichnis kopieren, normalerweise ist dies das"
  42.             " Prefs Verzeichnis der Workbench.\n"
  43.             "Das Konfigurationsprogramm kann direkt ⁿber das Applicationsicon Menⁿ aufrufen werden."
  44. ))
  45. (set Installprompt      "Bitte wΣhlen sie die bevorzugte(n) Sprachversion(en).")
  46. (set Opus5DirPrompt     "Bitte wΣhlen Sie die Schublade, wo DirectoryOpus installiert wurde!")
  47. (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!")
  48. (set Opus5Help          "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\nIst DirectoryOpus5 korrekt installiert wurden ?\nBitte installieren sie DirectoryOpus5 zuerst!")
  49. (set Deinstallprompt    "Es ist bereits eine neuere Version von OpusMPEGA installiert!\nSoll diese wirklich ersetzt werden!?")
  50. (set ArexxDirPrompt     "Das Arexx-Verzeichnis von DirOpus5 existiert nicht?!\nBitte wΣhlen Sie eine Schublade fⁿr die ARexx-Skripte!")
  51. (set ModulesDirPrompt   "Das Modules-Verzeichnis von DirOpus5 existiert nicht?!\nBitte installieren sie Directory Opus5 neu!")
  52. (set RexxPrompt        "\nDie 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.")
  53. (set #Oldplayprompt    "\nM÷chten sie zum Spielen per Doppelklick die alte Version (Fortgangsindikator) benutzen, oder Song's ⁿber OpusMPEGA (eigenes Abspielfenster mit Fortgangsindikator, und Appicon) spielen.\nFⁿr PPCMpegPlayer wird OpusMPEGA empfohlen.\nWeitere Angaben unter Hilfe.\n")
  54. (set #Oldplayhelp    "Es werden unterschiedliche Filetypes installiert. Die Filetypes der nicht gewΣhlten Version werden nach DOpus5:Storage kopiert! Fⁿr Old ist Opus Magellan (V5.6) erforderlich.")
  55. (set PlayerCopy1Prompt  "Kopiere Modules ...")
  56. (set PlayerCopy2Prompt  "Kopiere Skripte ...")
  57. (set ButtonPrompt      "Kopiere Buttons ...")
  58. (set LocaleCopyPrompt   "Kopiere Cataloge ...")
  59. (set ButtonCopyPrompt   "Kopiere Knopfbank ...")
  60. (set FiletypesPrompt    "Kopiere Opus5-Filetypes ...")
  61. (set StoragesPrompt        "Kopiere Opus5-Filetypes (Storage) ...")
  62. (set IconsPrompt        "Kopiere Opus5-ApplicationsIcons ...")
  63. (set GuideCopyPrompt    "Kopiere Anleitung und Bilder...")
  64. (set PrefsCopyPrompt    "Kopiere Preferences ...")
  65. (set ToolsCopyPrompt    "Kopiere Tools ...")
  66. (set #t_oldinstaller
  67.         (cat
  68.             "Die benutzte Version des Programmes Installer ist leider zu alt!"
  69.             " Ben÷tigt wird Version 43.3 oder neuer. Die Konfiguration kann"
  70.             " fortgesetzt werden, es k÷nnen allerdings Fehler auftreten!\n\n"
  71.             "M÷chten sie fortfahren?"
  72.         ))
  73. (set #t_oldinstallerhelp 
  74.         (cat
  75.             " Die aktuelle Version des Installers findest du im AMINET im util/misc Directory."
  76.             " Der aktuelle File Name ist \"Installer-43_3.lha\":\n"
  77.             " <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
  78.         ))
  79.  
  80. (set #Removeold
  81.         (cat
  82.             "\nEine Σltere Version von Opus MPEGA (PlayMP2.dopus5) wurde gefunden. Bevor die neue Version "
  83.             "installiert wird, mu▀ Directory Opus5 aufgerΣumt werden."
  84.         )
  85. )
  86. (set #exitMsg   (cat
  87.             "Zum Spielen von MPEG Audio Song's:\n\n"
  88.             "Setzen sie ⁿber Prefs/OpusMPEGA ihre Soundhardware und die Pfade zu den Programmen. Starten Sie DirectoryOpus5 neu.\n"
  89.             "Spielen sie selektierte Samples ⁿber den Knopf 'Play' oder spielen sie Samples direkt per Doppelklick.\n\n"
  90.             "Viel Spa▀ mit Opus MPEGA\nfⁿr Directory Opus5.5+ wⁿnscht\nEckhard Ludwig")
  91.         )
  92. )
  93.  
  94. ;******************************************************************************************************
  95. ; english
  96.  
  97. (
  98. (set #Opt 2)
  99.  
  100. (set #info     (cat     "You install OpusMPEGA, the best MPEG Audioplayer for Directory Opus5.\n\n" 
  101.             "V3.1 supported for 68k-Amigas and PowerUP board by phase5.\n"
  102.             "The OpusMPEGA configuration program enable the selection of Amiga audio and"
  103.              " sound cards over the AHI audio system by Martin Blom.\n\n"
  104.             "English translation by http://www.systransoft.com"
  105. ))
  106. (set GuidePrompt (cat     "\nFor Opus MPEGA exists an extensive guidance in the AmigaGuide« format."  
  107.             " This leaves itself over the Appicon menu.\n\n"
  108.             "Selecting it at any time the target directory. Normally this DOpus5:Help is, like in the default."
  109. ))
  110. (set PrefsPrompt          "\n\nFor Preferences Soundcards and Paths exists Program (OpusMPEGA).\nPlease choose the drawer for install the preferences (Default SYS:Prefs).")
  111. (set GuidedirPrompt    "Please select guide drawer.")
  112.  
  113. (set PrefsPrompt (cat     "\n\nOpusMPEGA on different sound cards or Amiga audio to configure to be able," 
  114.             "and for setting the paths of MPEGA or PPCMpegPlayer, exists to configurations a Programm.\n\n"
  115.             "This program they can copy into any directory, normally are this"
  116.             " the Prefs directory of the Workbench.\n"
  117.             "The configuration program can directly over the Applicationsicon menu will call."
  118. ))
  119. (set PrefsdirPrompt    "Please select Prefs drawer (OpusMPEGA).")
  120. (set InstallPrompt      "Which of the following locale should be installed ?\nItems marked as (n/a) are not available in the current installation archive !")
  121. (set Opus5DirPrompt     "Please select the drawer, where DirectoryOpus was installed!")  
  122. (set Opus5Message     "The programs which can be installed are only from DirectoryOpus5 from usable!\n\nIs DirectoryOpus5 were correctly installed?\n\nPlease to select you the drawer, where DirectoryOpus was installed or to installit for DirectoryOpus5 first!")
  123. (set Opus5Help         "The programs which can be installed are only from DirectoryOpus5 from usable!\nIs DirectoryOpus5 were correctly installed?\nPlease to install it DirectoryOpus5 first!")
  124. (set Deinstallprompt    "There is already an newer version of OpusMPEGA installed in the directory!\nDo you want to deinstall it?")
  125. (set ArexxDirPrompt     "DOpus5:ARexx not exists?! Please select Drawer for ARexx-scripts!")
  126. (set ModulesDirPrompt   "DOpus5:Modules not exists?! Please install DirectoryOpus new!")
  127. (set RexxPrompt     "\nThe script language ARexx is in the scope of supply of Amiga DOS contained, however not available, before it the program RexxMast called.\nRecommended, ARexx always too start.\nIt ARexx start to let automatic would like, click on proceed to let start around ARexx of your user-Startup out.")
  128. (set #Oldplayprompt     "\nSelect for playing by doubleclick the old version (continuation indicator), or plays Song's over OpusMPEGA (own playing window with continuation indicator, and Appicon).\nFor PPCMpegPlayer use OpusMPEGA.\n")
  129. (set #Oldplayhelp    "Type of file of the not selected version from DOpus5:Storage are copied! For old Opus Magellan (V5.6) is necessary.")
  130.  
  131. (set PlayerCopy1Prompt  "Copy modules ...")
  132. (set PlayerCopy2Prompt  "Copy script ...")
  133. (set ButtonPrompt      "Copy buttons ...")
  134. (set LocaleCopyPrompt   "Copy cataloges ...")
  135. (set ButtonCopyPrompt   "Copy buttons ...")
  136. (set FiletypesPrompt    "Copy filetypes ...")
  137. (set StoragesPrompt        "Copy filetypes (Storage) ...")
  138. (set IconsPrompt        "Copy Appicons ...")
  139. (set GuideCopyPrompt    "Copy guide & pics ...")
  140. (set PrefsCopyPrompt    "Copy preferences ...")
  141. (set ToolsCopyPrompt    "Copy tools ...")
  142. (set #t_oldinstaller
  143.         (cat
  144.             " You have an old version of the Installer. I'll probably"
  145.             " need version 43.3 or greater. You can continue anyway"
  146.             " but there is no guarantee it will work as it's supposed"
  147.             " to do.\n\n"
  148.             " Do you wish to continue anyway?"
  149.     ))
  150. (set #exitMsg   (cat    "To playing MPEG audio Song's:\n\n"
  151.             "First setting it over Prefs/OpusMPEGA its sound hardware and the paths to the programs.\n"
  152.             "Plays it selected Samples over the button 'Play' or play them directly Samples by doubleclick.\n\n"
  153.             "Much fun with Opus MPEGA for DirectoryOpus5.5+ wish you\nEckhard Ludwig")
  154.         )
  155. ))
  156.  
  157. ;*********************************************
  158.  
  159. (onerror (CLEANUP))
  160.  
  161. ; Cleanup any temporary mess we created
  162. (procedure CLEANUP
  163.     (delete "t:Background")
  164.     (delete "t:Background.prefs")
  165.     (delete "t:Logopic")
  166.     (delete "t:Logopic.prefs")
  167. )
  168.  
  169. (run "copy OpusMPEGA.ilbm TO T:Background")
  170. (run "copy Background.prefs TO T:Background.prefs")
  171. (run "copy PowerUp.ilbm TO T:Logopic")
  172. (run "copy LogoPic.prefs TO T:Logopic.prefs")
  173.  
  174. (run "run InstallerFX t:background")
  175. (run "wait 1")
  176.  
  177. ;***************************************************************************
  178.  
  179. (if (< @installer-version (+ (* 43 65536) 3))
  180. (
  181.     (if (not (askbool
  182.         (prompt #t_oldinstaller)
  183.         (help #t_oldinstallerhelp)
  184.     ))
  185.     (
  186.         (abort (cat "\n\n" #t_oldinstallerhelp))
  187.     ))
  188. ))
  189.  
  190. ;***************************************************************************
  191.  
  192. (message #intro1 "\n\n" #INFO)
  193. (welcome)
  194.  
  195. ;***************************************************************************
  196. ; check if Directory Opus 5 is already installed
  197. ;***************************************************************************
  198.  
  199. (if (not (exists (tackon #defaultdest "DirectoryOpus") (noreq)))
  200.     ((message Opus5Message)
  201.     (set Opus5path 
  202.     (askdir
  203.         (prompt Opus5DirPrompt)
  204.         (help @askdir-help)
  205.         (default "Work:")
  206.     ))
  207.     (if (not (exists (tackon Opus5path "DirectoryOpus") (noreq)))
  208.        (abort Opus5Help)
  209.     )    
  210.     (makeassign "Dopus5" Opus5path (safe))
  211. ))
  212.  
  213. ;***************************************************************************
  214. ; test Dopus5:Arexx & Modules exists & versionstest newer version
  215. ;***************************************************************************
  216.  
  217. (set #arexxdest (tackon #defaultdest "ARexx"))
  218. (if (= @user-level 2)
  219.   (if (not (exists #arexxdest (noreq)))
  220.     (set #arexxdest (askdir
  221.     (prompt ArexxDirPrompt)
  222.     (help    @askdir-help)
  223.     (default "Rexx:")
  224. ))))
  225.  
  226. (set #modulesdest (tackon #defaultdest "Modules"))
  227.   (if (not (exists #modulesdest (noreq)))
  228.     (exit (ModulesDirPrompt))
  229.   )
  230.  
  231.  
  232. (if (exists (tackon #modulesdest "OpusMPEGA.dopus5") (noreq))
  233.    ((set version (getversion (tackon #modulesdest "OpusMPEGA.dopus5")))
  234.    (if (> version (getversion "Modules/OpusMPEGA.dopus5"))
  235.        (if (not (askbool 
  236.        (prompt Deinstallprompt)
  237.        (help @askbool-help)
  238.        (default 0)))
  239.           (exit (quiet)))
  240. )))
  241.  
  242. (if (exists (tackon #arexxdest "Play-MPAudio.dopus5") (noreq))
  243.    ((set version (getversion (tackon #arexxdest "Play-MPAudio.dopus5")))
  244.    (if (> version (getversion "ARexx/Play-MPAudio.dopus5"))
  245.        (if (not (askbool 
  246.        (prompt Deinstallprompt)
  247.        (help @askbool-help)
  248.        (default 0)))
  249.           (exit (quiet)))
  250. )))
  251.  
  252. ;***************************************************************************
  253. ; delete older version
  254. ;***************************************************************************
  255.  
  256. (if (exists (tackon #arexxdest "PlayerMP2.dopus5") (noreq))
  257.     (delete (tackon #arexxdest "PlayerMP2.dopus5")
  258.         (prompt #Removeold)
  259.         (help " ")
  260.         (confirm "EXPERT")
  261.         (optional "nofail" "askuser")
  262.     )
  263. )
  264. (if (exists (tackon #arexxdest "PlayMP2.dopus5") (noreq))
  265.     (delete (tackon #arexxdest "PlayMP2.dopus5")
  266.        (optional "force")
  267.     )
  268. )
  269. (if (exists (tackon #defaultdest "Buttons/mpegplayer_default") (noreq))
  270.     (delete (tackon #defaultdest "Buttons/mpegplayer_default")
  271.        (optional "force")
  272.     )
  273. )
  274. (if (exists (tackon #defaultdest "docs/MPEGA-Player.guide") (noreq))
  275.     (delete (tackon #defaultdest "docs/MPEGA-Player.guide")
  276.        (optional "force")
  277.     )
  278. )
  279. (if (exists (tackon #defaultdest "docs/MPEGA-Player.guide.info") (noreq))
  280.     (delete (tackon #defaultdest "docs/MPEGA-Player.guide.info")
  281.        (optional "force")
  282.     )
  283. )
  284. (if (exists "SYS:Prefs/Player-setup" (noreq))
  285.     (delete "SYS:Prefs/Player-setup"
  286.        (optional "force")
  287.     )
  288. )
  289. (if (exists "SYS:Prefs/Player-setup.info" (noreq))
  290.     (delete "SYS:Prefs/Player-setup.info"
  291.        (optional "force")
  292.     )
  293. )
  294. (if (exists (tackon #defaultdest "Filetypes/Compressed sound, MPEG Layer2") (noreq))
  295.     (delete (tackon #defaultdest "Filetypes/Compressed sound, MPEG Layer2")
  296.        (optional "force")
  297.     )
  298. )
  299. (if (exists (tackon #defaultdest "Filetypes/Compressed sound, MPEG Layer3") (noreq))
  300.     (delete (tackon #defaultdest "Filetypes/Compressed sound, MPEG Layer3")
  301.        (optional "force")
  302.     )
  303. )
  304. (if (exists (tackon #defaultdest "Filetypes/Compressed sound, MPEG") (noreq))
  305.     (delete (tackon #defaultdest "Filetypes/Compressed sound, MPEG")
  306.        (optional "force")
  307.     )
  308. )
  309.  
  310. ;***************************************************************************
  311. ;install cataloge
  312. ;***************************************************************************
  313.  
  314. (IF (= #lng "All")
  315.         (set #Opt 511))
  316.  
  317. (set installchoice
  318.        (askoptions
  319.        (prompt InstallPrompt)
  320.        (help @askoptions-help)
  321.        (choices "Deutsch" "English" "dansk" "franτais" "italiano" "nederlands" "norsk" "suomi" "svenska")
  322.        (default #Opt)
  323. ))
  324.  
  325. (set n 0)
  326.  
  327. (while (<> n 1)
  328.  
  329.   ((set filepat
  330.           (select n "OpusMPEGA.catalog"))
  331.  
  332.    (set n (+ n 1))
  333.  
  334. (IF (BITAND installchoice 1)
  335.   (copyfiles
  336.        (prompt LocaleCopyPrompt)
  337.        (help @copyfiles-help)
  338.        (source "Locale/Catalogs/deutsch")
  339.        (dest "SYS:Locale/Catalogs/deutsch")
  340.        (pattern filepat)
  341.        (confirm "EXPERT")
  342.        (optional "force" "askuser" "nofail")
  343.   ))
  344.  
  345. (IF (OR (<> @language "deutsch") (BITAND installchoice 2))
  346.   (copyfiles
  347.        (prompt LocaleCopyPrompt)
  348.        (help @copyfiles-help)
  349.        (source "Locale/Catalogs/english")
  350.        (dest "SYS:Locale/Catalogs/english")
  351.        (pattern filepat)
  352.        (confirm "EXPERT")
  353.        (optional "force" "askuser" "nofail")
  354.   ))
  355.  
  356. (IF (BITAND installchoice 4)
  357.   (copyfiles
  358.        (prompt LocaleCopyPrompt)
  359.        (help @copyfiles-help)
  360.        (source "Locale/Catalogs/dansk")
  361.        (dest "SYS:Locale/Catalogs/dansk")
  362.        (pattern filepat)
  363.        (confirm "EXPERT")
  364.        (optional "force" "askuser" "nofail")
  365.   ))
  366.  
  367. (IF (BITAND installchoice 8)
  368.   (copyfiles
  369.        (prompt LocaleCopyPrompt)
  370.        (help @copyfiles-help)
  371.        (source "Locale/Catalogs/franτais")
  372.        (dest "SYS:Locale/Catalogs/franτais")
  373.        (pattern filepat)
  374.        (confirm "EXPERT")
  375.        (optional "force" "askuser" "nofail")
  376.   ))
  377.  
  378. (IF (BITAND installchoice 16)
  379.   (copyfiles
  380.        (prompt LocaleCopyPrompt)
  381.        (help @copyfiles-help)
  382.        (source "Locale/Catalogs/italiano")
  383.        (dest "SYS:Locale/Catalogs/italiano")
  384.        (pattern filepat)
  385.        (confirm "EXPERT")
  386.        (optional "force" "askuser" "nofail")
  387.   ))
  388.  
  389. (IF (BITAND installchoice 32)
  390.   (copyfiles
  391.        (prompt LocaleCopyPrompt)
  392.        (help @copyfiles-help)
  393.        (source "Locale/Catalogs/nederlands")
  394.        (dest "SYS:Locale/Catalogs/nederlands")
  395.        (pattern filepat)
  396.        (confirm "EXPERT")
  397.        (optional "force" "askuser" "nofail")
  398.   ))
  399.  
  400. (IF (BITAND installchoice 64)
  401.   (copyfiles
  402.        (prompt LocaleCopyPrompt)
  403.        (help @copyfiles-help)
  404.        (source "Locale/Catalogs/norsk")
  405.        (dest "SYS:Locale/Catalogs/norsk")
  406.        (pattern filepat)
  407.        (confirm "EXPERT")
  408.        (optional "force" "askuser" "nofail")
  409.   ))
  410.  
  411. (IF (BITAND installchoice 128)
  412.   (copyfiles
  413.        (prompt LocaleCopyPrompt)
  414.        (help @copyfiles-help)
  415.        (source "Locale/Catalogs/suomi")
  416.        (dest "SYS:Locale/Catalogs/suomi")
  417.        (pattern filepat)
  418.        (confirm "EXPERT")
  419.        (optional "force" "askuser" "nofail")
  420.   ))
  421.  
  422. (IF (BITAND installchoice 256)
  423.   (copyfiles
  424.        (prompt LocaleCopyPrompt)
  425.        (help @copyfiles-help)
  426.        (source "Locale/Catalogs/svenska")
  427.        (dest "SYS:Locale/Catalogs/svenska")
  428.        (pattern filepat)
  429.       (confirm "EXPERT")
  430.        (optional "force" "askuser" "nofail")
  431.   ))
  432.  
  433. ))
  434.  
  435. (complete 15)
  436.  
  437. (IF (<> #lng "deutsch")
  438.     (message
  439.     (cat    "\n\nIf you want to create own versions of\n"
  440.         "the catalogs please have a look at the\n"
  441.         "distributions Locale directory. You will\n"
  442.         "find the .cd files there. If you\n"
  443.         "have created you own translations, please\n"
  444.         "don`t keep it a secret"
  445.     ))
  446. )
  447.  
  448. ;***************************************************************************
  449. ; copy appicons
  450. ;***************************************************************************
  451.  
  452. (copyfiles
  453.        (prompt IconsPrompt)
  454.        (help @copyfiles-help)
  455.        (source "Icons")
  456.        (dest (tackon #defaultdest "Icons"))
  457.        (optional "force" "askuser")
  458.        (confirm "EXPERT")
  459.        (pattern "#?")
  460.        (files)
  461.        (infos)
  462. )
  463.  
  464. (complete 20)
  465.  
  466. (copyfiles
  467.        (prompt IconsPrompt)
  468.        (help @copyfiles-help)
  469.        (source "Icons/FileTypes")
  470.        (dest (tackon #defaultdest "Icons/FileTypes"))
  471.        (optional "force" "askuser")
  472.        (confirm "EXPERT")
  473.        (pattern "#?")
  474.        (files)
  475.        (infos)
  476. )
  477.  
  478. (complete 25)
  479.  
  480. ;***************************************************************************
  481. ; copy the files
  482. ;***************************************************************************
  483.  
  484. (copyfiles
  485.        (prompt PlayerCopy1Prompt)
  486.        (help @copyfiles-help)
  487.        (source "Modules")
  488.        (dest #modulesdest)
  489.        (pattern "#?")
  490.        (confirm "EXPERT")
  491.        (optional "force" "askuser")
  492. )
  493.  
  494. (complete 30)
  495.  
  496. (copyfiles
  497.        (prompt PlayerCopy2Prompt)
  498.        (help @copyfiles-help)
  499.        (source "ARexx")
  500.        (dest #arexxdest)
  501.        (pattern "#?")
  502.        (confirm "EXPERT")
  503.        (optional "force" "askuser")
  504. )
  505.  
  506. (complete 35)
  507.  
  508. ;***************************************************************************
  509. ; copy buttons
  510. ;***************************************************************************
  511.  
  512. (copyfiles
  513.        (prompt ButtonPrompt)
  514.        (help @copyfiles-help)
  515.          (source "buttons")
  516.          (dest (tackon #defaultdest "Buttons"))
  517.          (optional "force" "askuser")
  518.          (safe)
  519.          (pattern "#?")
  520.          (files)
  521. )
  522.  
  523. (copyfiles
  524.        (prompt ButtonPrompt)
  525.        (help @copyfiles-help)
  526.          (source "Images")
  527.          (dest (tackon #defaultdest "Images"))
  528.          (optional "force" "askuser")
  529.          (safe)
  530.          (pattern "#?")
  531.          (files)
  532. )
  533.  
  534. (complete 40)
  535.  
  536. ;***************************************************************************
  537. ; copy filetypes
  538. ;***************************************************************************
  539.  
  540. (run "run InstallerFX t:Logopic")
  541.  
  542. (set #Dir1 "Filetypes")
  543. (set #Dir2 "Storage")
  544. (set #PPC (exists "LIBS:ppc.library"))
  545.  
  546. (if (>= @user-level 1)
  547.     (
  548.     (set #OldPlay (askchoice
  549.         (prompt #Oldplayprompt)
  550.         (help    #Oldplayhelp)
  551.         (choices "Old (Opus Magellan required)" "Opus MPEGA")
  552.         (default #PPC)
  553.     ))
  554.  
  555.     (if (= #OldPlay 1)
  556.         (set #Dir2 "Filetypes")
  557.         (set #Dir1 "Storage")
  558.     )
  559. ))
  560.  
  561. (complete 45)
  562.  
  563. (copyfiles
  564.        (prompt FiletypesPrompt)
  565.        (help @copyfiles-help)
  566.        (source #Dir1)
  567.        (dest (tackon #defaultdest "Filetypes"))
  568.        (optional "force" "askuser")
  569.        (confirm "EXPERT")
  570.        (pattern "#?")
  571.        (files)
  572.        (infos)
  573. )
  574.  
  575. (complete 50)
  576.  
  577. (copyfiles
  578.        (prompt StoragesPrompt)
  579.        (help @copyfiles-help)
  580.        (source #Dir2)
  581.        (dest (tackon #defaultdest "Storage"))
  582.        (optional "force" "askuser")
  583.        (confirm "EXPERT")
  584.        (pattern "#?")
  585.        (files)
  586.        (infos)
  587. )
  588.  
  589. (complete 55)
  590.  
  591. ;***************************************************************************
  592. ; copy cli-tools
  593. ;***************************************************************************
  594.  
  595. (if (<> 1 (exists "SYS:C/BreakName" (noreq)))
  596.     (copyfiles
  597.        (prompt ToolsCopyPrompt)
  598.        (help @copyfiles-help)
  599.        (source "c")
  600.        (dest "SYS:C")
  601.        (pattern "#?")
  602.        (optional "force" "askuser")
  603.        (confirm "EXPERT")
  604.        (files)
  605. ))
  606.  
  607. (complete 60)
  608.  
  609. ;***************************************************************************
  610. ; ADD REXX TO USER-STARTUP
  611. ;***************************************************************************
  612.  
  613. (if
  614.     (startup "ARexx"
  615.         (prompt RexxPrompt)
  616.         (help @startup-help)
  617.         (command "SYS:System/RexxMast >NIL:")
  618.     )
  619.     (run "SYS:System/RexxMast >NIL:")
  620. )
  621.  
  622. (complete 65)
  623.  
  624. ;***************************************************************************
  625. ; set #guidedir
  626. ;***************************************************************************
  627.  
  628. (set #GuideDir (tackon #defaultdest "Help"))
  629. (if (= @user-level 2)
  630.     (
  631.     (message GuidePrompt)
  632.     (set #GuideDir (askdir
  633.         (prompt GuidedirPrompt)
  634.         (help    @askdir-help)
  635.         (default (tackon #defaultdest "Help"))
  636.     )
  637. )))
  638.  
  639. (complete 70)
  640.  
  641. ;***************************************************************************
  642. ; install guide
  643. ;***************************************************************************
  644.  
  645. (if (exists (tackon #GuideDir "OpusMPEGA.guide") (noreq))
  646.     (delete (tackon #GuideDir "OpusMPEGA.guide")
  647.         (prompt "Deleting old Guide")
  648.         (help " ")
  649.         (confirm "EXPERT")
  650.         (optional "nofail" "askuser")
  651.     )
  652. )
  653.  
  654. (if (= #Opt 1)
  655.     (copyfiles
  656.     (prompt    GuideCopyPrompt)
  657.     (help    @copyfiles-help)
  658.         (source "Help/OpusMPEGA.guide")
  659.         (dest #GuideDir)
  660.         (confirm "EXPERT")
  661.         (optional "force" "askuser")
  662.         (files)
  663.     (infos)
  664. ))
  665.  
  666. (if (<> #Opt 1)
  667.     (
  668.     (copyfiles
  669.     (prompt    GuideCopyPrompt)
  670.     (help    @copyfiles-help)
  671.         (source "Help/OpusMPEGA.guide.english")
  672.         (dest #GuideDir)
  673.         (confirm "EXPERT")
  674.         (optional "force" "askuser")
  675.         (files)
  676.     (infos)
  677.     )
  678.     (run ("rename \"%s\" \"%s\"" (tackon #GuideDir "OpusMPEGA.guide.english") (tackon #GuideDir "OpusMPEGA.guide")))
  679.     (run ("rename \"%s\" \"%s\"" (tackon #GuideDir "OpusMPEGA.guide.english.info") (tackon #GuideDir "OpusMPEGA.guide.info")))
  680. )
  681. )
  682.  
  683. (complete 80)
  684.  
  685. ;***************************************************************************
  686. ; set Prefsdir
  687. ;***************************************************************************
  688.  
  689. (set #PrefsDir "SYS:PREFS")
  690. (if (= @user-level 2)
  691.     (
  692.     (message PrefsPrompt)
  693.     (set #PrefsDir (askdir
  694.         (prompt PrefsdirPrompt)
  695.         (help    @askdir-help)
  696.         (default "SYS:PREFS")
  697.     )))
  698. )
  699.  
  700. (complete 85)
  701.  
  702. (copyfiles
  703.     (prompt    PrefsCopyPrompt)
  704.     (help    @copyfiles-help)
  705.         (source "Prefs")
  706.         (dest     #PrefsDir)
  707.         (confirm "EXPERT")
  708.      (pattern "#?")
  709.         (optional "force" "askuser")
  710.         (files)
  711.     (infos)
  712. )
  713.  
  714. (complete 95)
  715.  
  716. (if (<> 1 (exists "SYS:C/Installer" (noreq)))
  717.      (copyfiles
  718.         (source "Installer")
  719.             (dest "SYS:C")
  720.             (optional "force" "askuser")
  721.       )
  722. )
  723.  
  724. (complete 100)
  725. (CLEANUP)
  726. (exit #exitMsg (quiet))
  727.