home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / musicmaniii_inst / install_musicmaniii < prev    next >
Text File  |  1997-08-25  |  35KB  |  1,245 lines
  1. ; $VER: MusicManIII-Install (04.08.97)
  2.  
  3. ; --- English texts ---------
  4.  
  5. (SET #WelcomeMsg (CAT "Welcome to the installation of 'MusicManIII'!\n\n"
  6.                                             "This installer-script allows you to install MusicManIII, "
  7.                                             "Update MusicManIII or to remove MusicManIII from your system.\n\n"
  8.                                             "Please read the documentation after you've installed MusicManIII!\n\n\n"
  9.                                             "Have lots of fun while working with 'MusicManIII'\n\n"
  10.                                             "Andreas Mair"
  11.                                  )
  12. )
  13.  
  14. (SET #AskInstChoiceMsg "Please select...")
  15.  
  16. (SET #InstallMMChc "Install MusicManIII")
  17.  
  18. (SET #UpdateMMChc "Install MusicManIII-Update")
  19.  
  20. (SET #RemoveMMChc "Remove MusicManIII")
  21.  
  22. (SET #InstChoiceHelp (CAT "There are three choices:\n\n"
  23.                                                     "Install MusicManIII\n"
  24.                                                     "-------------------\n"
  25.                                                     "MusicManIII will be installed in directory of your choice.\n\n"
  26.                                                     "Install MusicManIII-Update\n"
  27.                                                     "--------------------------\n"
  28.                                                     "This is the same as the above, but Icons aren't replaced.\n\n"
  29.                                                     "Remove MusicManIII\n"
  30.                                                     "------------------\n"
  31.                                                     "You have to select the directory you've installed MusicManIII to. "
  32.                                                     "Then the whole directory will be deleted. All files in this "
  33.                                                     "directory and your keyfile will get lost. The directory "
  34.                                                     "ENVARC:MusicManIII where your settings are stored will be "
  35.                                                     "deleted, too.\nIf you installed the files 'reqtools.library' "
  36.                                                     "and 'cdplayer.library' in your LIBS:-directory, they won't be "
  37.                                                     "deleted automatically by this script."
  38.                                          )
  39. )
  40.  
  41. (SET #SelRemPathMsg "Please select the MusicManIII directory:")
  42.  
  43. (SET #RemoveHelp (CAT "Please select the directory where you have installed MusicManIII. "
  44.                                             "The whole directory will bet deleted.\n\n"
  45.                                             @askdir-help
  46.                                  )
  47. )
  48.  
  49. (SET #ReallyDeleteHelp (CAT "Please select 'Yes' if you are sure to delete the "
  50.                                                         "whole MusicManIII directory. All files contained "
  51.                                                         "will get lost!"
  52.                                              )
  53. )
  54.  
  55. (SET #AskReallyDeleteMsg (CAT "Do you really want to delete the whole directory\n\n"
  56.                                                             "'%s'?\n\n\n"
  57.                                                             "All files and your keyfile will get deleted!"
  58.                                                  )
  59. )
  60.  
  61. (SET #MMRemovedMsg (CAT "MusicManIII has been removed from your system. If "
  62.                                                 "you want to re-install it you just have to execute "
  63.                                                 "this installer-script again."
  64.                                      )
  65. )
  66.  
  67. (SET #RemoveCanceledMsg "Deletion has been canceled.")
  68.  
  69. (SET #RemoveErrorMsg (CAT "MusicManIII can only be deleted if it's installed "
  70.                                                     "in a directory named 'MusicManIII'!"
  71.                                          )
  72. )
  73.  
  74. (SET #SelUpdPathMsg "Please select the MusicManIII directory:")
  75.  
  76. (SET #UpdateHelp (CAT "Please select the directory where you have installed MusicManIII.\n\n"
  77.                                             @askdir-help
  78.                                  )
  79. )
  80.  
  81. (SET #AskUpdateKeyMsg "Do you want to overwrite the keyfile?")
  82.  
  83. (SET #AskUpdateKeyHelp (CAT "If you are a registered users of MusicManIII "
  84.                                                         "you'd better select 'No' if you've already installed "
  85.                                                         "the keyfile for the full release. In every other case "
  86.                                                         "don't mind to select 'Yes'."
  87.                                              )
  88. )
  89.  
  90. (SET #InstallHelp (CAT "Please select the directory where you want to install "
  91.                                              "MusicManIII.\nA directory 'MusicManIII' will be created "
  92.                                              "automatically.\n\n"
  93.                                              @askdir-help
  94.                                     )
  95. )
  96.  
  97. (SET #SelInstPathMsg (CAT "Please select the directory where you'd like to install "
  98.                                                     "'MusicManIII'.\nA directory 'MusicManIII' will be created "
  99.                                                     "automatically!"
  100.                                          )
  101. )
  102.  
  103. (SET #DestCPUHelp (CAT "MusicManIII exists in releases compiled for certain processors:\n\n"
  104.                                              "MC68000\n"
  105.                                              "-------\n"
  106.                                              "For an Amiga with MC68000- or MC68010-Processor.\n\n"
  107.                                              "MC68020+\n"
  108.                                              "--------\n"
  109.                                              "For an Amiga with at least a MC68020-Processor."
  110.                                     )
  111. )
  112.  
  113. (SET #AskDestCPUMsg (CAT "MusicManIII has been compiled to support certain processors.\n"
  114.                                                  "Please select the one installed in your system!"
  115.                                         )
  116. )
  117.  
  118. (SET #DestLanguageHelp (CAT "From Workbench V2.1 on MusicManIII supports localisation. "
  119.                                                         "That means you can use it in your prefered language if "
  120.                                                         "a catalog-file exists."
  121.                                              )
  122. )
  123.  
  124. (SET #AskDestLanguageMsg (CAT "MusicManIII can work in different languages.\n"
  125.                                                             "Please select one out of the currently supported."
  126.                                                  )
  127. )
  128.  
  129. (SET #InstallOnlineHelpHelp (CAT "MusicManIII offers an extensive Online-Help. That means "
  130.                                                                  "you can press the HELP key in the program to get help "
  131.                                                                  "on the current window or menu item. If you want to use "
  132.                                                                  "this feature you have to install this file."
  133.                                                         )
  134. )
  135.  
  136. (SET #AskInstallOnlineHelpMsg (CAT "MusicManIII offers an extensive Online-Help.\n"
  137.                                                                      "Do you want to install it?"
  138.                                                             )
  139. )
  140.  
  141. (SET #InstallDocuHelp (CAT "If you want to install the documentation in the AmigaGuide-format "
  142.                                                      "you have to select 'Yes'. Documentation is only provided in "
  143.                                                      "the AmigaGuide-format."
  144.                                             )
  145. )
  146.  
  147. (SET #AskInstallDocuMsg "Do you want to install the documentation in the AmigaGuide-format?")
  148.  
  149. (SET #InstallRT2LibsHelp (CAT "Here you can select wether you want to install the 'reqtools.library' "
  150.                                                             "to the LIBS: directory or to the 'MusicManIII directory. If you install "
  151.                                                             "it in the MusicManIII directory it will be removed if you de-install "
  152.                                                             "MusicManIII. If you install it in the LIBS: directory it may be used "
  153.                                                             "by other applications."
  154.                                                  )
  155. )
  156.  
  157. (SET #AskInstallRT2LibsMsg (CAT "Do you want to install the 'reqtools.library' to LIBS:?\n"
  158.                                                                 "(else it will installed in the MusicManIII directory)"
  159.                                                      )
  160. )
  161.  
  162. (SET #InstallCDP2LibsHelp (CAT "Here you can select wether you want to install the 'cdplayer.library' "
  163.                                                              "to the LIBS: directory or to the 'MusicManIII directory. If you install "
  164.                                                              "it in the MusicManIII directory it will be removed if you de-install "
  165.                                                              "MusicManIII. If you install it in the LIBS: directory it may be used "
  166.                                                              "by other applications."
  167.                                                     )
  168. )
  169.  
  170. (SET #AskInstallCDP2LibsMsg (CAT "Do you want to install the 'cdplayer.library' to LIBS:?\n"
  171.                                                                 "(else it will installed in the MusicManIII directory)"
  172.                                                         )
  173. )
  174.  
  175. (SET #InstallBGUI2LibsHelp (CAT "Here you can select wether you want to install the 'bgui.library' "
  176.                                                              "to the LIBS: directory or to the 'MusicManIII directory. If you install "
  177.                                                              "it in the MusicManIII directory it will be removed if you de-install "
  178.                                                              "MusicManIII. If you install it in the LIBS: directory it may be used "
  179.                                                              "by other applications."
  180.                                                     )
  181. )
  182.  
  183. (SET #AskInstallBGUI2LibsMsg (CAT "Do you want to install the 'bgui.library' to LIBS:?\n"
  184.                                                                 "(else it will installed in the MusicManIII directory)"
  185.                                                         )
  186. )
  187.  
  188. (SET #InstallPopUp2LibsHelp (CAT "Here you can select wether you want to install the 'popupmenu.library' "
  189.                                                                  "to the LIBS: directory or to the 'MusicManIII directory. If you install "
  190.                                                                  "it in the MusicManIII directory it will be removed if you de-install "
  191.                                                                  "MusicManIII. If you install it in the LIBS: directory it may be used "
  192.                                                                  "by other applications."
  193.                                                     )
  194. )
  195.  
  196. (SET #AskInstallPopUp2LibsMsg (CAT "Do you want to install the 'popupmenu.library' to LIBS:?\n"
  197.                                                                      "(else it will installed in the MusicManIII directory)"
  198.                                                         )
  199. )
  200.  
  201. (SET #KonvFilesHelp (CAT "If you've already worked with MusicManII you'll surely have "
  202.                                                  "created lots of records. As MusicManIII uses a file-format "
  203.                                                  "not compatible to MusicManII you have to convert them. If you "
  204.                                                  "answer this question with 'Yes' the program to convert them "
  205.                                                  "is started at the end of this installation."
  206.                                         )
  207. )
  208.  
  209. (SET #UpdateFilesHelp (CAT "If you've already worked with MusicManII you'll surely have "
  210.                                                      "created lots of records. As MusicManIII has written errors "
  211.                                                      "in your files with version before 3.06, you should do the "
  212.                                                      "convertion in any case now."
  213.                                                 )
  214. )
  215.  
  216. (SET #AskUpdateFilesMsg (CAT "If you've already worked with any MusicManIII-version before "
  217.                                                          "V3.06 you should convert your files now. Else there might "
  218.                                                          "arise problems with newer MusicManIII-version. "
  219.                                                          "\nDo you want to convert your files?"
  220.                                                 )
  221. )
  222.  
  223. (SET #AskKonvFilesMsg (CAT "Do you want to convert your old MusicManII-Files to the new "
  224.                                                      "MusicManIII-format?"
  225.                                             )
  226. )
  227.  
  228. (SET #StartInstallMsg (CAT "\nAll user inputs are done.\n\n"
  229.                                                      "Installation will start..."
  230.                                             )
  231. )
  232.  
  233. (SET #AskFilesDirMsg (CAT "Where can I find your MusicManIII-files?"
  234.                                          )
  235. )
  236.  
  237. (SET #AskFilesDirHelp (CAT "Please enter the path to your MusicManIII-files."
  238.                                             )
  239. )
  240.  
  241. (SET #DefFilesDir "Files"
  242. )
  243.  
  244.  
  245. ; --- German texts ----------
  246.  
  247. (IF (= @language "deutsch")
  248.     (
  249.     (SET #WelcomeMsg (CAT "Willkommen zur Installation von 'MusicManIII'!\n\n"
  250.                                                 "Mit diesem Installation-Skript können Sie MusicManIII "
  251.                                                 "neu installieren, ein Update installieren und ihn "
  252.                                                 "von Ihrem System entfernen.\n\n"
  253.                                                 "Bitte lesen Sie nach der Installation die Anleitung!\n\n\n"
  254.                                                 "Viel Spaß bei der Arbeit mit 'MusicManIII' wünscht Ihnen\n\n"
  255.                                                 "Andreas Mair"
  256.                                      )
  257.     )
  258.  
  259.     (SET #AskInstChoiceMsg "Bitte wählen Sie...")
  260.  
  261.     (SET #InstallMMChc "MusicManIII neu installieren")
  262.  
  263.     (SET #UpdateMMChc "MusicManIII-Update installieren")
  264.  
  265.     (SET #RemoveMMChc "MusicManIII-Installation entfernen")
  266.  
  267.     (SET #InstChoiceHelp (CAT "Sie haben drei Möglichkeiten:\n\n"
  268.                                                         "MusicManIII neu installieren\n"
  269.                                                         "----------------------------\n"
  270.                                                         "MusicManIII wird in einem von Ihnen auswählbaren "
  271.                                                         "Verzeichnis installiert.\n\n"
  272.                                                         "MusicManIII-Update installieren\n"
  273.                                                         "-------------------------------\n"
  274.                                                         "Dieser Punkt entspricht dem vorherigen mit der "
  275.                                                         "Ausnahme, daß Piktogramme nicht überschrieben werden.\n\n"
  276.                                                         "MusicManIII-Installation entfernen\n"
  277.                                                         "----------------------------------\n"
  278.                                                         "Sie müssen das Verzeichnis, in dem MusicManIII "
  279.                                                         "installiert wurde, auswählen. Anschließend wird "
  280.                                                         "das ganze Verzeichnis gelöscht. Dateien und Keyfiles, "
  281.                                                         "die in diesem Verzeichnis enthalten waren, gehen "
  282.                                                         "dadurch verloren. Das Verzeichnis 'ENVARC:MusicManIII', "
  283.                                                         "in dem sich die Voreinstellungen befinden, wird "
  284.                                                         "ebenfalls gelöscht.\nSollten Sie die Dateien "
  285.                                                         "'reqtools.library' und 'cdplayer.library' in das "
  286.                                                         "LIBS:-Verzeichnis installiert haben, so werden "
  287.                                                         "diese von diesem Skript nicht automatisch entfernt."
  288.                                              )
  289.     )
  290.  
  291.     (SET #SelRemPathMsg "Bitte wählen Sie das MusicManIII-Verzeichnis:")
  292.  
  293.     (SET #RemoveHelp (CAT "Wählen Sie bitte das Verzeichnis aus, in dem Sie "
  294.                                                 "MusicManIII installiert haben. Das ganze Verzeichnis "
  295.                                                 "wird daraufhin gelöscht.\n\n"
  296.                                                 @askdir-help
  297.                                      )
  298.     )
  299.  
  300.     (SET #ReallyDeleteHelp (CAT "Wenn Sie hier auf 'Ja' klicken, wird das ganze "
  301.                                                             "'MusicManIII'-Verzeichnis gelöscht. Alle enthaltenen "
  302.                                                             "Daten gehen verloren!"
  303.                                                  )
  304.     )
  305.  
  306.     (SET #AskReallyDeleteMsg (CAT "Wollen Sie wirklich das gesamte Verzeichnis\n\n"
  307.                                                                 "'%s'\n\nlöschen?\n\n\n"
  308.                                                                 "Es werden auch alle Daten und das Keyfile gelöscht."
  309.                                                      )
  310.     )
  311.  
  312.     (SET #MMRemovedMsg (CAT "MusicManIII wurde von Ihrem System entfernt. Wenn "
  313.                                                     "Sie ihn wieder installieren wollen, führen Sie "
  314.                                                     "dieses Installations-Programm wieder aus."
  315.                                          )
  316.     )
  317.  
  318.     (SET #RemoveCanceledMsg "Der Löschvorgang wurde abbgebrochen.")
  319.  
  320.     (SET #RemoveErrorMsg (CAT "MusicManIII kann nur gelöscht werden, wenn er sich "
  321.                                                         "im Verzeichnis 'MusicManIII' befindet!"
  322.                                              )
  323.     )
  324.  
  325.     (SET #SelUpdPathMsg "Bitte wählen Sie das MusicmanIII-Verzeichnis:")
  326.  
  327.     (SET #UpdateHelp (CAT "Bitte wählen Sie das Verzeichnis aus, in dem "
  328.                                                 "MusicManIII installiert ist.\n\n"
  329.                                                 @askdir-help
  330.                                      )
  331.     )
  332.  
  333.     (SET #AskUpdateKeyMsg "Soll das Keyfile aktualisiert werden?")
  334.  
  335.     (SET #AskUpdateKeyHelp (CAT "Wenn Sie registrierter Benutzer von MusicManIII "
  336.                                                             "sind, sollten Sie hier 'Nein' anwählen, wenn Sie "
  337.                                                             "bereits das Keyfile für die Voll-Version installiert "
  338.                                                             "haben. In allen anderen Fällen können Sie ruhigen "
  339.                                                             "Gewissens 'Ja' anklicken."
  340.                                                  )
  341.     )
  342.  
  343.     (SET #InstallHelp (CAT "Wählen Sie hier das Verzeichnis aus, in dem "
  344.                                                  "MusicManIII installiert werden soll. Es wird "
  345.                                                  "ein Verzeichnis 'MusicManIII' angelegt.\n\n"
  346.                                                  @askdir-help
  347.                                         )
  348.     )
  349.  
  350.     (SET #SelInstPathMsg (CAT "Bitte wählen Sie das Verzeichnis aus, in dem 'MusicManIII' "
  351.                                                         "installiert werden soll.\nEin Verzeichnis 'MusicManIII' wird "
  352.                                                         "automatisch erstellt!"
  353.                                              )
  354.     )
  355.  
  356.     (SET #DestCPUHelp (CAT "Von MusicManIII existieren verschiedene Versionen, die für "
  357.                                                  "bestimmte Prozessoren übersetzt wurden:\n\n"
  358.                                                  "MC68000\n"
  359.                                                  "-------\n"
  360.                                                  "Für einen Amiga mit MC68000- oder MC68010-Prozessor.\n\n"
  361.                                                  "MC68020\n"
  362.                                                  "-------\n"
  363.                                                  "Für einen Amiga mit mindestens einem MC68020-Prozessor.\n\n"
  364.                                         )
  365.     )
  366.  
  367.     (SET #AskDestCPUMsg (CAT "MusicManIII steht in speziell für verschiedene Prozessoren "
  368.                                                      "übersetzten Versionen zur Verfügung.\n"
  369.                                                      "Wählen Sie den für Ihr System zutreffenden aus!"
  370.                                             )
  371.     )
  372.  
  373.     (SET #DestLanguageHelp (CAT "MusicManIII unterstützt ab Workbench V2.1 Lokalisierung. D.h. "
  374.                                                             "daß Sie ihn in Ihrer bevorzugten Sprache benutzen können, "
  375.                                                             "wenn dafür eine Katalog-Datei existiert."
  376.                                                  )
  377.     )
  378.  
  379.     (SET #AskDestLanguageMsg (CAT "MusicManIII kann in verschiedenen Sprachen arbeiten.\n"
  380.                                                                 "Wählen Sie aus den derzeit unterstützten Sprachen eine aus."
  381.                                                      )
  382.     )
  383.  
  384.     (SET #InstallOnlineHelpHelp (CAT "MusicManIII stellt eine umfangreiche Online-Hilfe zur Verfügung. "
  385.                                                                      "D.h. Sie können im Programm die HELP-Taste drücken und erhalten "
  386.                                                                      "daraufhin eine Hilfestellung zum aktuellen Fenster oder Menüpunkt. "
  387.                                                                      "Wenn Sie diese Funktion nutzen wollen, müssen Sie diese Datei "
  388.                                                                      "installieren."
  389.                                                             )
  390.     )
  391.  
  392.     (SET #AskInstallOnlineHelpMsg (CAT "MusicManIII bietet eine umfangreiche Online-Hilfe.\n"
  393.                                                                          "Wollen Sie sie installieren?"
  394.                                                                 )
  395.     )
  396.  
  397.     (SET #InstallDocuHelp (CAT "Wenn Sie die Dokumentation im AmigaGuide-Format installieren wollen, "
  398.                                                             "müssen Sie 'Ja' anklicken. Die Dokumentation steht nur im "
  399.                                                             "AmigaGuide-Format zur Verfügung."
  400.                                                 )
  401.     )
  402.  
  403.     (SET #AskInstallDocuMsg "Wollen Sie die Anleitung im AmigaGuide-Format installieren?")
  404.  
  405.     (SET #InstallRT2LibsHelp (CAT "Hier können Sie wählen, ob die 'reqtools.library' im LIBS:-Verzeichnis "
  406.                                                                 "oder im MusicManIII-Verzeichnis installiert werden soll. Wenn Sie "
  407.                                                                 "sie im MusicManIII-Verzeichnis installieren, kann sie beim De-Installieren "
  408.                                                                 "entfernt werden. Installieren Sie sie jedoch im LIBS:-Verzeichnis, kann "
  409.                                                                 "sie von anderen Programmen verwendet werden."
  410.                                                      )
  411.     )
  412.  
  413.     (SET #AskInstallRT2LibsMsg (CAT "Wollen Sie die 'reqtools.library' nach LIBS: kopieren?\n"
  414.                                                                     "(Ansonsten wird Sie ins MusicManIII-Verzeichnis kopiert.)"
  415.                                                          )
  416.     )
  417.  
  418.     (SET #InstallCDP2LibsHelp (CAT "Hier können Sie wählen, ob die 'cdplayer.library' im LIBS:-Verzeichnis "
  419.                                                                  "oder im MusicManIII-Verzeichnis installiert werden soll. Wenn Sie "
  420.                                                                  "sie im MusicManIII-Verzeichnis installieren, kann sie beim De-Installieren "
  421.                                                                  "entfernt werden. Installieren Sie sie jedoch im LIBS:-Verzeichnis, kann "
  422.                                                                  "sie von anderen Programmen verwendet werden."
  423.                                                         )
  424.     )
  425.  
  426.     (SET #AskInstallCDP2LibsMsg (CAT "Wollen Sie die 'cdplayer.library' nach LIBS: kopieren?\n"
  427.                                                                      "(Ansonsten wird Sie ins MusicManIII-Verzeichnis kopiert.)"
  428.                                                             )
  429.     )
  430.  
  431.     (SET #InstallBGUI2LibsHelp (CAT "Hier können Sie wählen, ob die 'bgui.library' im LIBS:-Verzeichnis "
  432.                                                                  "oder im MusicManIII-Verzeichnis installiert werden soll. Wenn Sie "
  433.                                                                  "sie im MusicManIII-Verzeichnis installieren, kann sie beim De-Installieren "
  434.                                                                  "entfernt werden. Installieren Sie sie jedoch im LIBS:-Verzeichnis, kann "
  435.                                                                  "sie von anderen Programmen verwendet werden."
  436.                                                         )
  437.     )
  438.  
  439.     (SET #AskInstallBGUI2LibsMsg (CAT "Wollen Sie die 'bgui.library' nach LIBS: kopieren?\n"
  440.                                                                      "(Ansonsten wird Sie ins MusicManIII-Verzeichnis kopiert.)"
  441.                                                             )
  442.     )
  443.  
  444.     (SET #InstallPopUp2LibsHelp (CAT "Hier können Sie wählen, ob die 'popupmenu.library' im LIBS:-Verzeichnis "
  445.                                                                      "oder im MusicManIII-Verzeichnis installiert werden soll. Wenn Sie "
  446.                                                                      "sie im MusicManIII-Verzeichnis installieren, kann sie beim De-Installieren "
  447.                                                                      "entfernt werden. Installieren Sie sie jedoch im LIBS:-Verzeichnis, kann "
  448.                                                                      "sie von anderen Programmen verwendet werden."
  449.                                                         )
  450.     )
  451.  
  452.     (SET #AskInstallPopUp2LibsMsg (CAT "Wollen Sie die 'popupmenu.library' nach LIBS: kopieren?\n"
  453.                                                                          "(Ansonsten wird Sie ins MusicManIII-Verzeichnis kopiert.)"
  454.                                                             )
  455.     )
  456.  
  457.     (SET #KonvFilesHelp (CAT "Wenn Sie bereits MusicManII verwendet haben, werden Sie sicherlich "
  458.                                                      "schon eine Menge Datensätze angelegt haben. Da MusicManIII ein "
  459.                                                      "zu MusicManII inkompatibles Dateiformat verwendet, müssen Sie die "
  460.                                                      "Dateien konvertieren. Wenn Sie diese Abfrage mit 'Ja' beantworten, "
  461.                                                      "wird am Installationsende das Konvertierungsprogramm gestartet."
  462.                                             )
  463.     )
  464.  
  465.     (SET #AskKonvFilesMsg (CAT "Wollen Sie Ihre alten MusicManII-Dateien ins neue MusicManIII-"
  466.                                                          "Format konvertieren?"
  467.                                                 )
  468.     )
  469.  
  470.     (SET #StartInstallMsg (CAT "\nEs wurden jetzt alle Benutzerabfragen erledigt.\n\n"
  471.                                                          "Die Installation beginnt..."
  472.                                                 )
  473.     )
  474.  
  475.     (SET #UpdateFilesHelp (CAT "Wenn Sie bereits MusicManIII verwendet haben, werden Sie sicherlich "
  476.                                                          "schon eine Menge Datensätze angelegt haben. Da MusicManIII vor der "
  477.                                                          "Version 3.06 unter Umständen Fehler in Ihre Dateien brachte, sollten "
  478.                                                          "Sie die Konvertierung auf alle Fälle jetzt durchführen."
  479.                                                     )
  480.     )
  481.  
  482.     (SET #AskUpdateFilesMsg (CAT "Wenn Sie bereits mit einer MusicManIII-Version vor V3.06 gearbeitet "
  483.                                                              "haben, sollten Sie Ihre damit angelegten Dateien jetzt konvertieren. "
  484.                                                              "Ansonsten kann es zu Problemen mit neueren MusicManIII-Version kommen. "
  485.                                                              "\n\nWollen Sie die Konvertierung durchführen?"
  486.                                                     )
  487.     )
  488.  
  489.     (SET #AskFilesDirMsg (CAT "Wo befinden sich Ihre MusicManIII-Dateien?"
  490.                                              )
  491.     )
  492.  
  493.     (SET #AskFilesDirHelp (CAT "Geben Sie hier den Pfad zu Ihren MusicManIII-Dateien an."
  494.                                                 )
  495.     )
  496.  
  497.     (SET #DefFilesDir "Dateien"
  498.     )
  499.     )
  500. )
  501.  
  502.  
  503. ; --- Constants -------------
  504.  
  505. (SET #Inst_new    0)
  506. (SET #Inst_update 1)
  507. (SET #Inst_remove 2)
  508.  
  509. (SET #MC68000 0)
  510. (SET #MC68020 1)
  511.  
  512. (SET #ENGLISH 0)
  513. (SET #GERMAN  1)
  514.  
  515.  
  516. ; --- Some default ----------
  517.  
  518. (SET #ReallyDelete      0)
  519. (SET #InstallOnlineHelp 1)
  520. (SET #InstallDocu       1)
  521. (SET #InstallRT2Libs    0)
  522. (SET #InstallCDP2Libs   0)
  523. (SET #InstallBGUI2Libs  0)
  524. (SET #InstallPopUp2Libs 0)
  525. (SET #KonvFiles         1)
  526. (SET #UpdateFiles       1)
  527.  
  528. (SET #InstChoice        1)
  529.  
  530. ; ---------------------------
  531.  
  532. (PROCEDURE p_remove
  533.  
  534.     (SET #InstPath (ASKDIR (PROMPT #SelRemPathMsg)
  535.                                                  (DEFAULT @default-dest)
  536.                                                  (HELP #RemoveHelp)
  537.                                  )
  538.     )
  539.  
  540.     (SET @default-dest #InstPath)
  541.     (SET #AllOK 1)
  542.  
  543.     (IF (NOT (= (SUBSTR #InstPath (- (STRLEN #InstPath) (STRLEN "MusicManIII"))) "MusicManIII"))
  544.         (
  545.         (SET #InstPath (TACKON #InstPath "MusicManIII"))
  546.  
  547.         (IF (NOT (EXISTS #InstPath))
  548.             (SET #AllOK 0)
  549.         )
  550.         )
  551.     )
  552.  
  553.     (IF #AllOK
  554.         (
  555.         (SET #ReallyDelete (ASKBOOL (PROMPT (#AskReallyDeleteMsg #InstPath))
  556.                                                                 (DEFAULT #ReallyDelete)
  557.                                                                 (HELP #ReallyDeleteHelp)
  558.                                              )
  559.         )
  560.  
  561.         (IF #ReallyDelete
  562.             (
  563.             (RUN ("delete >NIL: %s all quiet force" #InstPath))
  564.             (DELETE ("%s.info" #InstPath))
  565.             (RUN "delete ENVARC:MusicManIII all quiet force")
  566.             (RUN "delete ENV:MusicManIII all quiet force")
  567.  
  568.             (MESSAGE #MMRemovedMsg)
  569.             )
  570.             ; else
  571.             (MESSAGE #RemoveCanceledMsg)
  572.         )
  573.         )
  574.         ; else
  575.         (MESSAGE #RemoveErrorMsg)
  576.     )
  577.  
  578.     (EXIT (QUIET))
  579. )
  580.  
  581.  
  582. ; ---------------------------
  583.  
  584. (PROCEDURE p_install
  585.  
  586.     (SET #InstPath (ASKDIR (PROMPT #SelInstPathMsg)
  587.                                                  (DEFAULT @default-dest)
  588.                                                  (HELP #InstallHelp)
  589.                                  )
  590.     )
  591.  
  592.     (SET #InstPath (TACKON #InstPath "MusicManIII"))
  593.     (SET @default-dest #InstPath)
  594.  
  595.     (SET #CPU (DATABASE "cpu"))
  596.  
  597.  
  598.     (IF (OR (= #CPU "68000") (= #CPU "68010"))
  599.         (SET #DestCPU #MC68000)
  600.         ; else
  601.         (SET #DestCPU #MC68020)
  602.     )
  603.  
  604.     (IF (= @user-level 2)
  605.         (SET #DestCPU (ASKCHOICE (PROMPT #AskDestCPUMsg)
  606.                                                          (CHOICES "MC68000" "MC68020+")
  607.                                                          (DEFAULT #DestCPU)
  608.                                                          (HELP #DestCPUHelp)
  609.                                     )
  610.         )
  611.     )
  612.  
  613.     (SET #DestLanguage #ENGLISH)
  614.  
  615.     (IF (= @language "deutsch")
  616.         (SET #DestLanguage #GERMAN)
  617.     )
  618.  
  619.     (IF (= @user-level 2)
  620.         (SET #DestLanguage (ASKCHOICE (PROMPT #AskDestLanguage)
  621.                                                                     (CHOICES "English" "Deutsch")
  622.                                                                     (DEFAULT #DestLanguage)
  623.                                                                     (HELP #DestLanguageHelp)
  624.                                              )
  625.         )
  626.     )
  627.  
  628.     (SET #InstallOnlineHelp (ASKBOOL (PROMPT #AskInstallOnlineHelpMsg)
  629.                                                                      (DEFAULT #InstallOnlineHelp)
  630.                                                                      (HELP #InstallOnlineHelpHelp)
  631.                                                     )
  632.     )
  633.  
  634.     (SET #InstallDocu (ASKBOOL (PROMPT #AskInstallDocuMsg)
  635.                                                          (DEFAULT #InstallDocu)
  636.                                                          (HELP #InstallDocuHelp)
  637.                                         )
  638.     )
  639.  
  640.     (IF (= @user-level 2)
  641.         (
  642.         (SET #InstallRT2Libs (ASKBOOL (PROMPT #AskInstallRT2LibsMsg)
  643.                                                                     (DEFAULT #InstallRT2Libs)
  644.                                                                     (HELP #InstallRT2LibsHelp)
  645.                                                  )
  646.         )
  647.  
  648.         (SET #InstallCDP2Libs (ASKBOOL (PROMPT #AskInstallCDP2LibsMsg)
  649.                                                                     (DEFAULT #InstallCDP2Libs)
  650.                                                                     (HELP #InstallCDP2LibsHelp)
  651.                                                  )
  652.         )
  653.         (SET #InstallBGUI2Libs (ASKBOOL (PROMPT #AskInstallBGUI2LibsMsg)
  654.                                                                         (DEFAULT #InstallBGUI2Libs)
  655.                                                                         (HELP #InstallBGUI2LibsHelp)
  656.                                                  )
  657.         )
  658.  
  659.         (SET #InstallPopUp2Libs (ASKBOOL (PROMPT #AskInstallPopUp2LibsMsg)
  660.                                                                          (DEFAULT #InstallPopUp2Libs)
  661.                                                                          (HELP #InstallPopUp2LibsHelp)
  662.                                                  )
  663.         )
  664.         )
  665.     )
  666.  
  667.     (SET #KonvFiles (ASKBOOL (PROMPT #AskKonvFilesMsg)
  668.                                                      (DEFAULT #KonvFiles)
  669.                                                      (HELP #KonvFilesHelp)
  670.                                     )
  671.     )
  672.  
  673.     (SET #UpdateFiles (ASKBOOL (PROMPT #AskUpdateFilesMsg)
  674.                                                          (DEFAULT #UpdateFiles)
  675.                                                          (HELP #UpdateFilesHelp)
  676.                                         )
  677.     )
  678.  
  679.     (IF #UpdateFiles
  680.         (SET #FilesDir (ASKDIR (PROMPT #AskFilesDirMsg)
  681.                                                      (DEFAULT (TACKON #InstPath #DefFilesDir))
  682.                                                      (HELP #AskFilesDirHelp)
  683.                                      )
  684.         )
  685.     )
  686.  
  687.     (MESSAGE #StartInstallMsg)
  688.  
  689.     (MAKEDIR #InstPath (INFOS))
  690.  
  691.     (COMPLETE 0)
  692.  
  693.     (IF (= #DestCPU #MC68000)
  694.         (COPYFILES (SOURCE "data/MusicManIII.000")
  695.                              (DEST #InstPath)
  696.                              (NEWNAME "MusicManIII")
  697.         )
  698.         ; else
  699.         (COPYFILES (SOURCE "data/MusicManIII.020")
  700.                              (DEST #InstPath)
  701.                              (NEWNAME "MusicManIII")
  702.         )
  703.     )
  704.  
  705.     (COPYFILES (SOURCE "data/MusicManIII.info")
  706.                          (DEST #InstPath)
  707.                          (INFOS) (NOPOSITION)
  708.     )
  709.  
  710.     (COMPLETE 12)
  711.  
  712.     (IF (= #DestLanguage #GERMAN)
  713.         (
  714.         (MAKEDIR (TACKON #InstPath "catalogs"))
  715.         (MAKEDIR (TACKON #InstPath "catalogs/deutsch"))
  716.  
  717.         (COPYFILES (SOURCE "data/catalogs/deutsch/MusicManIII.catalog")
  718.                              (DEST (TACKON #InstPath "catalogs/deutsch"))
  719.         )
  720.  
  721.         (COMPLETE 25)
  722.  
  723.         (IF #InstallOnlineHelp
  724.             (
  725.             (MAKEDIR (TACKON #InstPath "Help"))
  726.             (MAKEDIR (TACKON #InstPath "Help/Deutsch"))
  727.  
  728.             (COPYFILES (SOURCE "data/Doc/deutsch/MusicManIII.guide")
  729.                                  (DEST (TACKON #InstPath "Help/deutsch/"))
  730.                                  (NEWNAME "MusicManIII_Help.guide")
  731.             )
  732.             )
  733.         )
  734.  
  735.         (COMPLETE 37)
  736.  
  737.         (IF #InstallDocu
  738.             (
  739.             (MAKEDIR (TACKON #InstPath "Doc") (INFOS))
  740.  
  741.             (COPYFILES (SOURCE "data/Doc/deutsch/MusicManIII.guide")
  742.                                  (DEST (TACKON #InstPath "Doc"))
  743.                                  (INFOS) (NOPOSITION)
  744.             )
  745.             )
  746.         )
  747.         )
  748.         ; else
  749.         (
  750.         (IF #InstallOnlineHelp
  751.             (
  752.             (MAKEDIR (TACKON #InstPath "Help"))
  753.             (MAKEDIR (TACKON #InstPath "Help/English"))
  754.  
  755.             (COPYFILES (SOURCE "data/Doc/English/MusicManIII.guide")
  756.                                  (DEST (TACKON #InstPath "Help/English/"))
  757.                                  (NEWNAME "MusicManIII_Help.guide")
  758.             )
  759.             )
  760.         )
  761.  
  762.         (COMPLETE 37)
  763.  
  764.         (IF #InstallDocu
  765.             (
  766.             (MAKEDIR (TACKON #InstPath "Doc") (INFOS))
  767.  
  768.             (COPYFILES (SOURCE "data/Doc/English/MusicManIII.guide")
  769.                                  (DEST (TACKON #InstPath "Doc"))
  770.                                  (INFOS) (NOPOSITION)
  771.             )
  772.             )
  773.         )
  774.         )
  775.     )
  776.  
  777.     (COMPLETE 50)
  778.  
  779.     (IF #InstallRT2Libs
  780.         (COPYLIB (SOURCE "data/Libs/reqtools.library")
  781.                          (DEST "LIBS:")
  782.         )
  783.         ; else
  784.         (COPYLIB (SOURCE "data/Libs/reqtools.library")
  785.                          (DEST #InstPath)
  786.         )
  787.     )
  788.  
  789.     (COMPLETE 58)
  790.  
  791.     (IF #InstallCDP2Libs
  792.         (COPYLIB (SOURCE "data/Libs/cdplayer.library")
  793.                          (DEST "LIBS:")
  794.         )
  795.         ; else
  796.         (COPYLIB (SOURCE "data/Libs/cdplayer.library")
  797.                          (DEST #InstPath)
  798.         )
  799.     )
  800.  
  801.     (COMPLETE 64)
  802.  
  803.     (IF #InstallBGUI2Libs
  804.         (IF (AND (>= #vernum 39) (= #DestCPU #MC68020))
  805.             (COPYLIB (SOURCE "data/Libs/bgui.library_e")
  806.                              (DEST "LIBS:")
  807.                              (NEWNAME "bgui.library")
  808.             )
  809.             ; else
  810.             (COPYLIB (SOURCE "data/Libs/bgui.library")
  811.                              (DEST "LIBS:")
  812.             )
  813.         )
  814.         ; else
  815.         (IF (AND (>= #vernum 39) (= #DestCPU #MC68020))
  816.             (COPYLIB (SOURCE "data/Libs/bgui.library_e")
  817.                              (DEST #InstPath)
  818.                              (NEWNAME "bgui.library")
  819.             )
  820.             ; else
  821.             (COPYLIB (SOURCE "data/Libs/bgui.library")
  822.                              (DEST #InstPath)
  823.             )
  824.         )
  825.     )
  826.  
  827.     (COMPLETE 70)
  828.  
  829.     (IF #InstallPopUp2Libs
  830.         (IF (>= #vernum 39)
  831.             (COPYLIB (SOURCE "data/Libs/popupmenu.library5")
  832.                              (DEST "LIBS:")
  833.                              (NEWNAME "popupmenu.library")
  834.             )
  835.             ; else
  836.             (COPYLIB (SOURCE "data/Libs/popupmenu.library")
  837.                              (DEST "LIBS:")
  838.             )
  839.         )
  840.         ; else
  841.         (IF (>= #vernum 39)
  842.             (COPYLIB (SOURCE "data/Libs/popupmenu.library5")
  843.                              (DEST #InstPath)
  844.                              (NEWNAME "popupmenu.library")
  845.             )
  846.             ; else
  847.             (COPYLIB (SOURCE "data/Libs/popupmenu.library")
  848.                              (DEST #InstPath)
  849.             )
  850.         )
  851.     )
  852.  
  853.     (COMPLETE 75)
  854.  
  855.     (IF #KonvFiles
  856.         (RUN "data/ConvII2III")
  857.     )
  858.  
  859.     (COMPLETE 83)
  860.  
  861.     (IF #UpdateFiles
  862.         (RUN (CAT "data/Conv30x306 " #FilesDir))
  863.     )
  864.  
  865.     (COMPLETE 93)
  866.  
  867.     (COPYFILES (SOURCE "data/MusicManIII.key")
  868.                          (DEST #InstPath)
  869.     )
  870.  
  871.     (COPYFILES (SOURCE "Registration.asc")
  872.                          (DEST #InstPath)
  873.                          (INFOS) (NOPOSITION)
  874.     )
  875.  
  876.     (MAKEDIR "ENVARC:MusicManIII")
  877.     (COPYFILES (SOURCE "data/Prefs/MusicManIII")
  878.                          (DEST "ENVARC:MusicManIII")
  879.                          (ALL) (INFOS) (NOPOSITION)
  880.     )
  881.     (RUN ("echo >ENVARC:MusicManIII/Install_Dir %s" #InstPath))
  882.  
  883.  
  884.     (MAKEDIR "ENV:MusicManIII")
  885.     (COPYFILES (SOURCE "data/Prefs/MusicManIII")
  886.                          (DEST "ENV:MusicManIII")
  887.                          (ALL) (INFOS) (NOPOSITION)
  888.     )
  889.  
  890.     (COMPLETE 100)
  891.  
  892.     (EXIT)
  893. )
  894.  
  895.  
  896. ; ---------------------------
  897.  
  898. (PROCEDURE p_update
  899.  
  900.     (SET #InstPath (ASKDIR (PROMPT #SelUpdPathMsg)
  901.                                                  (DEFAULT @default-dest)
  902.                                                  (HELP #UpdateHelp)
  903.                                  )
  904.     )
  905.  
  906.     (SET @default-dest #InstPath)
  907.     (SET #AllOK 1)
  908.  
  909.     (IF (NOT (= (SUBSTR #InstPath (- (STRLEN #InstPath) (STRLEN "MusicManIII"))) "MusicManIII"))
  910.         (
  911.         (SET #InstPath (TACKON #InstPath "MusicManIII"))
  912.  
  913.         (IF (NOT (EXISTS #InstPath))
  914.             (SET #AllOK 0)
  915.         )
  916.         )
  917.     )
  918.  
  919.     (IF #AllOK
  920.         (
  921.         (SET #CPU (DATABASE "cpu"))
  922.  
  923.         (IF (OR (= #CPU "68000") (= #CPU "68010"))
  924.             (SET #DestCPU #MC68000)
  925.             ; else
  926.             (SET #DestCPU #MC68020)
  927.         )
  928.  
  929.         (IF (= @user-level 2)
  930.             (SET #DestCPU (ASKCHOICE (PROMPT #AskDestCPUMsg)
  931.                                                              (CHOICES "MC68000" "MC68020")
  932.                                                              (DEFAULT #DestCPU)
  933.                                                              (HELP #DestCPUHelp)
  934.                                         )
  935.             )
  936.         )
  937.  
  938.         (SET #DestLanguage #ENGLISH)
  939.  
  940.         (IF (= @language "deutsch")
  941.             (SET #DestLanguage #GERMAN)
  942.         )
  943.  
  944.         (IF (= @user-level 2)
  945.             (SET #DestLanguage (ASKCHOICE (PROMPT #AskDestLanguageMsg)
  946.                                                                         (CHOICES "English" "Deutsch")
  947.                                                                         (DEFAULT #DestLanguage)
  948.                                                                         (HELP #DestLanuageHelp)
  949.                                                  )
  950.             )
  951.         )
  952.  
  953.         (SET #InstallOnlineHelp (ASKBOOL (PROMPT #AskInstallOnlineHelpMsg)
  954.                                                                          (DEFAULT #InstallOnlineHelp)
  955.                                                                          (HELP #InstallOnlineHelpHelp)
  956.                                                         )
  957.         )
  958.  
  959.         (SET #InstallDocu (ASKBOOL (PROMPT #AskInstallDocuMsg)
  960.                                                              (DEFAULT #InstallDocu)
  961.                                                              (HELP #InstallDocuHelp)
  962.                                             )
  963.         )
  964.  
  965.         (IF (= @user-level 2)
  966.             (
  967.             (SET #InstallRT2Libs (ASKBOOL (PROMPT #AskInstallRT2LibsMsg)
  968.                                                                         (DEFAULT #InstallRT2Libs)
  969.                                                                         (HELP #InstallRT2LibsHelp)
  970.                                                      )
  971.             )
  972.  
  973.             (SET #InstallCDP2Libs (ASKBOOL (PROMPT #AskInstallCDP2LibsMsg)
  974.                                                                          (DEFAULT #InstallCDP2Libs)
  975.                                                                          (HELP #InstallCDP2LibsHelp)
  976.                                                      )
  977.             )
  978.  
  979.             (SET #InstallBGUI2Libs (ASKBOOL (PROMPT #AskInstallBGUI2LibsMsg)
  980.                                                                             (DEFAULT #InstallBGUI2Libs)
  981.                                                                             (HELP #InstallBGUI2LibsHelp)
  982.                                                      )
  983.             )
  984.  
  985.             (SET #InstallPopUp2Libs (ASKBOOL (PROMPT #AskInstallPopUp2LibsMsg)
  986.                                                                              (DEFAULT #InstallPopUp2Libs)
  987.                                                                              (HELP #InstallPopUp2LibsHelp)
  988.                                                      )
  989.             )
  990.             )
  991.         )
  992.  
  993.         (SET #UpdateKey (ASKBOOL (PROMPT #AskUpdateKeyMsg)
  994.                                                          (DEFAULT #UpdateKey)
  995.                                                          (HELP #UpdateKeyHelp)
  996.                                         )
  997.         )
  998.  
  999.         (SET #KonvFiles (ASKBOOL (PROMPT #AskKonvFilesMsg)
  1000.                                                          (DEFAULT #KonvFiles)
  1001.                                                          (HELP #KonvFilesHelp)
  1002.                                         )
  1003.         )
  1004.  
  1005.         (SET #UpdateFiles (ASKBOOL (PROMPT #AskUpdateFilesMsg)
  1006.                                                              (DEFAULT #UpdateFiles)
  1007.                                                              (HELP #UpdateFilesHelp)
  1008.                                             )
  1009.         )
  1010.  
  1011.         (IF #UpdateFiles
  1012.             (SET #FilesDir (ASKDIR (PROMPT #AskFilesDirMsg)
  1013.                                                          (DEFAULT (TACKON #InstPath #DefFilesDir))
  1014.                                                          (HELP #AskFilesDirHelp)
  1015.                                          )
  1016.             )
  1017.         )
  1018.  
  1019.         (MESSAGE #StartInstallMsg)
  1020.  
  1021.         (MAKEDIR #InstPath)
  1022.  
  1023.         (COMPLETE 0)
  1024.  
  1025.         (IF (= #DestCPU #MC68000)
  1026.             (COPYFILES (SOURCE "data/MusicManIII.000")
  1027.                                  (DEST #InstPath)
  1028.                                  (NEWNAME "MusicManIII")
  1029.             )
  1030.             ; else
  1031.             (COPYFILES (SOURCE "data/MusicManIII.020")
  1032.                                  (DEST #InstPath)
  1033.                                  (NEWNAME "MusicManIII")
  1034.             )
  1035.         )
  1036.  
  1037.         (COMPLETE 20)
  1038.  
  1039.         (IF (= #DestLanguage #GERMAN)
  1040.             (
  1041.             (MAKEDIR (TACKON #InstPath "catalogs"))
  1042.             (MAKEDIR (TACKON #InstPath "catalogs/deutsch"))
  1043.  
  1044.             (COPYFILES (SOURCE "data/catalogs/deutsch/MusicManIII.catalog")
  1045.                                  (DEST (TACKON #InstPath "catalogs/deutsch"))
  1046.             )
  1047.  
  1048.             (COMPLETE 35)
  1049.  
  1050.             (IF #InstallOnlineHelp
  1051.                 (
  1052.                 (MAKEDIR (TACKON #InstPath "Help"))
  1053.                 (MAKEDIR (TACKON #InstPath "Help/Deutsch"))
  1054.  
  1055.                 (COPYFILES (SOURCE "data/Doc/deutsch/MusicManIII.guide")
  1056.                                      (DEST (TACKON #InstPath "Help/deutsch/"))
  1057.                                      (NEWNAME "MusicManIII_Help.guide")
  1058.                 )
  1059.                 )
  1060.             )
  1061.  
  1062.             (COMPLETE 50)
  1063.  
  1064.             (IF #InstallDocu
  1065.                 (
  1066.                 (MAKEDIR (TACKON #InstPath "Doc"))
  1067.  
  1068.                 (COPYFILES (SOURCE "data/Doc/deutsch/MusicManIII.guide")
  1069.                                      (DEST (TACKON #InstPath "Doc"))
  1070.                 )
  1071.                 )
  1072.             )
  1073.             )
  1074.             ; else
  1075.             (
  1076.             (IF #InstallOnlineHelp
  1077.                 (
  1078.                 (MAKEDIR (TACKON #InstPath "Help"))
  1079.                 (MAKEDIR (TACKON #InstPath "Help/english"))
  1080.  
  1081.                 (COPYFILES (SOURCE "data/Doc/english/MusicManIII.guide")
  1082.                                      (DEST (TACKON #InstPath "Help/english/"))
  1083.                                      (NEWNAME "MusicManIII_Help.guide")
  1084.                 )
  1085.                 )
  1086.             )
  1087.  
  1088.             (COMPLETE 50)
  1089.  
  1090.             (IF #InstallDocu
  1091.                 (
  1092.                 (MAKEDIR (TACKON #InstPath "Doc"))
  1093.  
  1094.                 (COPYFILES (SOURCE "data/Doc/english/MusicManIII.guide")
  1095.                                      (DEST (TACKON #InstPath "Doc"))
  1096.                 )
  1097.                 )
  1098.             )
  1099.             )
  1100.         )
  1101.  
  1102.         (COMPLETE 65)
  1103.  
  1104.         (IF #InstallRT2Libs
  1105.             (COPYLIB (SOURCE "data/Libs/reqtools.library")
  1106.                              (DEST "LIBS:")
  1107.             )
  1108.             ; else
  1109.             (COPYLIB (SOURCE "data/Libs/reqtools.library")
  1110.                              (DEST #InstPath)
  1111.             )
  1112.         )
  1113.  
  1114.         (COMPLETE 72)
  1115.  
  1116.         (IF #InstallCDP2Libs
  1117.             (COPYLIB (SOURCE "data/Libs/cdplayer.library")
  1118.                              (DEST "LIBS:")
  1119.             )
  1120.             ; else
  1121.             (COPYLIB (SOURCE "data/Libs/cdplayer.library")
  1122.                              (DEST #InstPath)
  1123.             )
  1124.         )
  1125.  
  1126.         (COMPLETE 76)
  1127.  
  1128.         (IF #InstallBGUI2Libs
  1129.             (IF (AND (>= #vernum 39) (= #DestCPU #MC68020))
  1130.                 (COPYLIB (SOURCE "data/Libs/bgui.library_e")
  1131.                                  (DEST "LIBS:")
  1132.                                  (NEWNAME "bgui.library")
  1133.                 )
  1134.                 ; else
  1135.                 (COPYLIB (SOURCE "data/Libs/bgui.library")
  1136.                                  (DEST "LIBS:")
  1137.                 )
  1138.             )
  1139.             ; else
  1140.             (IF (AND (>= #vernum 39) (= #DestCPU #MC68020))
  1141.                 (COPYLIB (SOURCE "data/Libs/bgui.library_e")
  1142.                                  (DEST #InstPath)
  1143.                                  (NEWNAME "bgui.library")
  1144.                 )
  1145.                 ; else
  1146.                 (COPYLIB (SOURCE "data/Libs/bgui.library")
  1147.                                  (DEST #InstPath)
  1148.                 )
  1149.             )
  1150.         )
  1151.  
  1152.         (COMPLETE 80)
  1153.  
  1154.         (IF #InstallPopUp2Libs
  1155.             (IF (>= #vernum 39)
  1156.                 (COPYLIB (SOURCE "data/Libs/popupmenu.library5")
  1157.                                  (DEST "LIBS:")
  1158.                                  (NEWNAME "popupmenu.library")
  1159.                 )
  1160.                 ; else
  1161.                 (COPYLIB (SOURCE "data/Libs/popupmenu.library")
  1162.                                  (DEST "LIBS:")
  1163.                 )
  1164.             )
  1165.             ; else
  1166.             (IF (>= #vernum 39)
  1167.                 (COPYLIB (SOURCE "data/Libs/popupmenu.library5")
  1168.                                  (DEST #InstPath)
  1169.                                  (NEWNAME "popupmenu.library")
  1170.                 )
  1171.                 ; else
  1172.                 (COPYLIB (SOURCE "data/Libs/popupmenu.library")
  1173.                                  (DEST #InstPath)
  1174.                 )
  1175.             )
  1176.         )
  1177.  
  1178.         (COMPLETE 85)
  1179.  
  1180.         (IF #UpdateKey
  1181.             (COPYFILES (SOURCE "data/MusicManIII.key")
  1182.                                  (DEST #InstPath)
  1183.             )
  1184.         )
  1185.  
  1186.         (COPYFILES (SOURCE "Registration.asc")
  1187.                              (DEST #InstPath)
  1188.         )
  1189.  
  1190.         (RUN ("echo >ENVARC:MusicManIII/Install_Dir %s" #InstPath))
  1191.  
  1192.  
  1193.         (COMPLETE 90)
  1194.  
  1195.         (IF #KonvFiles
  1196.             (RUN "data/ConvII2III")
  1197.         )
  1198.  
  1199.         (COMPLETE 95)
  1200.  
  1201.         (IF #UpdateFiles
  1202.             (RUN (CAT "data/Conv30x306 " #FilesDir))
  1203.         )
  1204.  
  1205.         (COMPLETE 100)
  1206.         )
  1207.     )
  1208.  
  1209.     (EXIT)
  1210. )
  1211.  
  1212.  
  1213. ; --- Main ------------------
  1214.  
  1215. (WELCOME)
  1216.  
  1217. (MESSAGE #WelcomeMsg)
  1218.  
  1219. (SET #vernum (GETVERSION))
  1220. (SET #ver (/ #vernum 65536))
  1221. (SET #rev (- #vernum (* ver 65536)))
  1222.  
  1223. (IF (EXISTS "ENV:MusicManIII/Install_Dir")
  1224.     (
  1225.     (SET @default-dest (GETENV "MusicManIII/Install_Dir"))
  1226.     (SET @default-dest (SUBSTR @default-dest 0 (- (STRLEN(@default-dest)) 1)))
  1227.  
  1228.     (SET #InstChoice (ASKCHOICE (PROMPT #AskInstChoiceMsg)
  1229.                                                             (CHOICES #InstallMMChc
  1230.                                                                              #UpdateMMChc
  1231.                                                                              #RemoveMMChc)
  1232.                                                             (DEFAULT #InstChoice)
  1233.                                                             (HELP #InstChoiceHelp)
  1234.                                      )
  1235.     )
  1236.  
  1237.     (IF (= #InstChoice #Inst_install) (p_install))
  1238.     (IF (= #InstChoice #Inst_update) (p_update))
  1239.     (IF (= #InstChoice #Inst_remove) (p_remove))
  1240.     )
  1241.     ; else
  1242.     (p_install)
  1243. )
  1244.  
  1245.