home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 5 / CD_Magazyn_EXEC_nr_5.iso / Programy / Muzyczne / MMV8_Disk_1.lha / Install-MM < prev    next >
Text File  |  1994-04-27  |  15KB  |  605 lines
  1. ; $VER: MusicMaker_Install 3.0 (11 Jan 1994)
  2. ; MusicMaker Hard Disk Installation Script
  3.  
  4. (complete 0)
  5.  
  6. ;=============================================================================
  7. ; English strings
  8.  
  9. (set #ask-MusicMaker-dir
  10.    (cat
  11.       "Select drive, disk or drawer to create a \"MusicMaker\"-drawer:"
  12.    )
  13. )
  14.  
  15. (set #ask-MusicMaker-dir-help
  16.    (cat
  17.       "Here you specify where to install MusicMaker and all support files to."
  18.       "In all cases, a \"MusicMaker\"-drawer will be created, so eg. "
  19.       "select \"DH0:\" to install MusicMaker to drawer \"DH0:MusicMaker\".\n\n"
  20.    )
  21. )
  22.  
  23. (set #prompt-MusicMaker
  24.    (cat
  25.       "This will create a new drawer called \"MusicMaker\" and "
  26.       "copy several files and drawers, depending on your selection in "
  27.       "the very beginning of installation process."
  28.    )
  29. )
  30. (set #prompt-MusicMaker-help
  31.    (cat
  32.       "MusicMaker V8, the main program file, its icon, a german catalog "
  33.       "(in case LOCALE:-drawer exists) and a required PREFS-File "
  34.       "will now be copied. The \".script\"-file is an example.\n\n"
  35.    )
  36. )
  37. (set #prompt-Options-help
  38.    (cat
  39.       "T2MM, O2MM, S2MM - supplied conversion utilities.\n"
  40.       "Wurlitzer, Radio und 8Player - replayer example programs.\n"
  41.       "MusicMakerReceiver - required for SER-mode, running on second AMIGA.\n"
  42.       "READ.ME - read it!\n\n"
  43.    )
  44. )
  45.  
  46.  
  47. (set #bool-devkit
  48.    (cat
  49.       "Do you want to copy the files for Programmers, too?\n"
  50.       "This will create a drawer \"Developer\" and move "
  51.       "all supplied sources and other files."
  52.    )
  53. )
  54. (set #bool-devkit-help
  55.    (cat
  56.       "\nThe \"Developer\" drawer contains all files needed "
  57.       "for developing MusicMaker replayer-applications, eg. using "
  58.       "a link-module in your own program.\n\n"
  59.    )
  60. )
  61. (set #work-Programmer
  62.    (cat "De-archiving Developer Kit."
  63.    )
  64. )
  65. (set #ask-dev-dir
  66.    (cat "Select drive/drawer to install the Developer Kit drawer to:"
  67.    )
  68. )
  69. (set #ask-dev-dir-help
  70.    (cat
  71.       "Here you select a directory where the Developer Kit "
  72.       "(mainly replayer sources) will be installed into. In "
  73.       "all cases, a new drawer \"Developer\" will be created.\n\n"
  74.    )
  75. )
  76.  
  77.  
  78. (set #bool-demos-help
  79.    (cat "This will copy all supplied demos to a yet-to-create Sound-Demos drawer.\n"
  80.    )
  81. )
  82. (set #prompt-demos
  83.    (cat "Here we go...\n"
  84.    )
  85. )
  86.  
  87.  
  88. (set #bool-instrs-help
  89.    (cat "This will copy all supplied instruments to a yet-to-create MM_Instruments drawer.\n"
  90.    )
  91. )
  92. (set #prompt-instrs
  93.    (cat "Here we go...\n"
  94.    )
  95. )
  96.  
  97. (set #prompt-rexx
  98.    (cat "Processing REXX drawer\n"
  99.    )
  100. )
  101.  
  102.  
  103. (set #work-libs
  104.    (cat "Processing MM-libraries"
  105.    )
  106. )
  107.  
  108. (set #addassign
  109.    (cat "Add MMV8: assign to \"S:User-Startup\"?"
  110.    )
  111. )
  112.  
  113. (set #addassigns-help
  114.    (cat "This is needed for using the MMStartUp-file placed in WBStartup. "
  115.         "MMV8: is base for both the \"SD:\" and \"IN:\" assign, which are "
  116.         "very handy in MusicMaker's file requester.\n"
  117.          "Select YES to add assign to the User-Startup file.\n\n"
  118.    )
  119. )
  120.  
  121. (set #inst-options
  122.    (cat "If you are unfamiliar with the MusicMaker V3 installation process, "
  123.         "push the Help gadget now.\n"
  124.         "Otherwise, push either Proceed or Abort gadgets after "
  125.         "selecting the steps of the installation process you wish to perform."
  126.    )
  127. )
  128. (set #inst-options-help
  129.    (cat "Installation of MusicMaker is divided into a number of steps, you "
  130.         "can separatly disable now:\n"
  131.         "MusicMaker main: Only the main Program and its Prefs-file will be copied.\n"
  132.         "Standard Options: This includes the conversion utilities, the \"Wurlitzer\"-"
  133.         "replayer program, \"MusicMakerReceiver\" for usage of SER-Mode and a text file "
  134.         "you can obtain some more information from.\n"
  135.         "Developer Kit: A \"Developer\"-drawer will be created and all supplied "
  136.         "sources and obj-files will be moved there. If you don't consider writing "
  137.         "own programs using MusicMaker sound, you may skip this step.\n"
  138.         "Demos & Instruments: This will copy all demos and/or Instruments. It will "
  139.         "overall need approx.1MB of disk space.\n"
  140.         "REXX macros: If you're using ARexx, a REXX:-assign will exist. By this step, "
  141.         "all supplied MusicMaker REXX scripts will be copied. Otherwise, a REXX "
  142.         "drawer inside the MusicMaker drawer will be created.\n"
  143.         "Libraries: The replayer programs require these libraries.\n"
  144.    )
  145. )
  146.  
  147. ;=============================================================================
  148. ; German strings
  149.  
  150. (if (= @language "deutsch")
  151. (
  152.  
  153. (set #ask-MusicMaker-dir
  154.    (cat
  155.       "Auf welchem Gerät oder in welcher Schublade soll "
  156.       "eine neue Schublade \"MusicMaker\" erstellt werden, in "
  157.       "die alle Programmdateien installiert werden?"
  158.    )
  159. )
  160.  
  161. (set #ask-MusicMaker-dir-help
  162.    (cat
  163.       "Sie geben hier an, wo \"MusicMaker\" und alle "
  164.       "dazugehörenden Dateien installiert werden sollen. "
  165.       "Eine Schublade \"MusicMaker\" wird darin eingerichtet, "
  166.       "Sie brauchen also nur \"DH0:\" anzugeben um "
  167.       "MusicMaker in der Schublade \"DH0:MusicMaker\" zu installieren.\n\n"
  168.    )
  169. )
  170.  
  171. (set #prompt-MusicMaker
  172.    (cat
  173.       "Eine Schublade \"MusicMaker\" wird eingerichtet und "
  174.       "einige Dateien und Schubladen, abhängig von Ihrer Wahl zu Beginn, "
  175.       "werden in diese Schublade kopiert."
  176.    )
  177. )
  178.  
  179. (set #prompt-MusicMaker-help
  180.    (cat
  181.       "MusicMaker V8 - das Hauptprogramm, sein Icon, ein deutscher Karalog "
  182.       "(wenn es einen LOCALE:-Ordner gibt) sowie ein Prefs-File "
  183.       "werden nun kopiert. Das \".script\"-File ist ein Beispiel.\n\n"
  184.    )
  185. )
  186. (set #prompt-Options-help
  187.    (cat
  188.       "T2MM, O2MM, S2MM - Konvertierprogramme.\n"
  189.       "Wurlitzer, Radio und 8Player - drei Abpielprogramme.\n"
  190.       "MusicMakerReceiver - läuft bei Verwendung des SER-Mode am zweiten Amiga.\n"
  191.       "LIES.MICH - enthält ein paar weitere Informationen.\n"
  192.    )
  193. )
  194.  
  195.  
  196. (set #bool-devkit
  197.    (cat
  198.       "Wollen Sie die Dateien für Programmierer auch installieren?\n"
  199.       "Es wird dann ein neues Verzeichnis \"Developer\" erzeugt und darin alle "
  200.       "beiliegenden Quelldateien und Tools abgelegt.\n"
  201.       "Sollten Sie nicht vorhaben, eigene Abspielprogramme zu schreiben, "
  202.       "können Sie diesen Schritt überspringen.\n\n"
  203.    )
  204. )
  205. (set #bool-devkit-help
  206.    (cat
  207.       "Die Schublade \"Developer\" enthält alle Dateien, "
  208.       "die zum Programmieren eigener Abspielprogramme "
  209.       "nötig sind.\n\n"
  210.    )
  211. )
  212. (set #work-Programmer
  213.    (cat "Ent-archiviere Developer Kit"
  214.    )
  215. )
  216. (set #ask-dev-dir
  217.    (cat "Wohin soll der Developer Kit installiert werden?"
  218.    )
  219. )
  220. (set #ask-dev-dir-help
  221.    (cat "Der Developer Kit enthält hauptsächlich die Abspielprogramm-"
  222.         "Quellcodes. Wohin damit?\n"
  223.    )
  224. )
  225.  
  226.  
  227. (set #bool-demos-help
  228.    (cat "Es werden alle beiliegenden Demos in das Unterverzeichnis "
  229.         "\"Sound-Demos\" kopiert.\n"
  230.    )
  231. )
  232. (set #prompt-demos
  233.    (cat "Kopiere Demos\n"
  234.    )
  235. )
  236.  
  237.  
  238. (set #bool-instrs-help
  239.    (cat "Es wird ein Verzeichnis \"MM_Instruments\" angelegt, wo dann alle "
  240.         "beiliegenden Instrumente hinkopiert werden.\n\n"
  241.    )
  242. )
  243. (set #prompt-instrs
  244.    (cat "Kopiere Instrumente\n"
  245.    )
  246. )
  247.  
  248.  
  249. (set #prompt-rexx
  250.    (cat "Kopiere REXX Macros\n"
  251.    )
  252. )
  253.  
  254. (set #work-libs
  255.    (cat
  256.       "Kopiere/aktualisiere MM-libraries..."
  257.    )
  258. )
  259.  
  260. (set #addassign
  261.    (cat "Soll ein Assign \"MMV8:\" in \"S:User-Startup\" eingefÜgt werden?"
  262.    )
  263. )
  264.  
  265. (set #addassigns-help
  266.    (cat "Dieses Assign ist Grundlage für die Assigns \"SD:\" und \"IN:\", die "
  267.         "im Filerequester von MusicMaker sehr zweckmäßig sind, und im\n"
  268.         "Modul \"MMStartUp\", das im WBStartup-Verzeichnis abgelegt wurde, "
  269.         "ausgeführt werden.\n\n"
  270.         "Klicken Sie YES, um ein Assign einzufügen.\n\n"
  271.    )
  272. )
  273.  
  274. (set #inst-options
  275.    (cat "Sollten Sie mit der Installierung von MusicMaker Probleme haben, "
  276.         "klicken Sie jetzt das Help-Gadget an.\n"
  277.         "Ansonsten klicken Sie \"Proceed\", um mit der Installation der "
  278.         "angewählten Teile zu beginnen."
  279.    )
  280. )
  281. (set #inst-options-help
  282.    (cat "Die Installation kann begrenzt ausgeführt werden; sie ist in mehrere Schritte "
  283.         "eingeteilt:\n"
  284.         "MusicMaker Hauptprogramm: Kopiert nur das Hauptprogramm und ein Prefs-File\n"
  285.         "Standard Optionen: Es werden die Konvertierprogramme, das \"Wurlitzer\"-Abspielprogramm, "
  286.         "der SER-Mode-Empfängerteil sowie ein Textfile mit einigen Informationen kopiert.\n"
  287.         "Developer Kit: Hier wird ein Unterverzeichnis \"Developer\" angelegt, in das alle mitgelieferten "
  288.         "Sources und Objektmodule kopiert werden.\n"
  289.         "Demos, Instrumente: Mit MusicMaker werden auch eine Disk mit Instrumenten "
  290.         "und einige Demos geliefert. Sie können wahlweise mitinstalliert werden.\n"
  291.         "REXX Macros: MusicMaker ist REXX-fähig, und einige Macros liegen bei. Wenn "
  292.         "Sie Rexx benutzen, existiert ein REXX:-Assign. Wenn das nicht der Fall ist, "
  293.         "werden die Macros in ein eigenes REXX-Unterverzeichnis kopiert.\n"
  294.         "Libraries: MusicMaker Abspielprogramme benutzen meist eine der drei "
  295.         "Libraries, die, wenn gewünscht, in den LIBS:-Ordner kopiert werden.\n\n"
  296.         "Sie können die Installation durch Anklicken der Häkchen ganz nach Ihren "
  297.         "Wünschen begrenzen.\n"
  298.    )
  299. )
  300.  
  301.  
  302. ))
  303.  
  304. ;=============================================================================
  305. ; Main 'Program'
  306. ;=============================================================================
  307.  
  308. (set todo
  309.    (askoptions
  310.       (prompt #inst-options)
  311.       (help #inst-options-help)
  312.       (choices
  313.          "MusicMaker main program"     ;  1
  314.          "Standard Options"            ;  2
  315.          "Developer Kit"               ;  4
  316.          "Demos"                       ;  8
  317.          "Instruments"                 ; 16
  318.          "REXX macros"                 ; 32
  319.          "Libraries"                   ; 64
  320.       )
  321.    )
  322. )
  323.  
  324. (if (= todo 0)
  325.    (abort "You didn't select anything, so there's nothing to do. I quit.")
  326. )
  327.  
  328. (set MusicMaker_dest
  329.    (tackon
  330.       (askdir
  331.          (prompt #ask-MusicMaker-dir)
  332.          (help
  333.             #ask-MusicMaker-dir-help
  334.             @askdir-help
  335.          )
  336.          (default @default-dest)
  337.       )
  338.       "MusicMaker"
  339.    )
  340. )
  341.  
  342. (set @default-dest MusicMaker_dest)
  343.  
  344. (if (AND todo 1)
  345.  (
  346.   (copyfiles
  347.     (prompt #prompt-MusicMaker)
  348.     (source "MMV8:")
  349.     (dest MusicMaker_dest)
  350.     (pattern "(MusicMaker_V8|MusicMaker_V8.info|MM_V8.script#?)")
  351.     (infos)
  352.     (confirm)
  353.     (help
  354.        #prompt-MusicMaker-help
  355.        @copyfiles-help
  356.     )
  357.   )
  358.   (copyfiles
  359.     (source "MMV8:S/")
  360.     (dest "S:")
  361.     (pattern "MM_V8.prefs")
  362.     (infos)
  363.     (help "")
  364.   )
  365.   (copyfiles
  366.     (source "MMV8:S/")
  367.     (dest "S:")
  368.     (pattern "musicmaker-startup")
  369.     (infos)
  370.     (help "")
  371.   )
  372.   (if (<> (exists "LOCALE:Catalogs") 0)
  373.     (
  374.       (copyfiles
  375.         (source "MMV8:LOCALE/Catalogs/Deutsch/")
  376.         (dest "LOCALE:Catalogs/Deutsch/")
  377.         (pattern "MusicMaker.catalog")
  378.         (infos)
  379.         (help "")
  380.       )
  381.     )
  382.   )
  383.  )
  384. )
  385.  
  386.  
  387. (if (AND todo 2)
  388.  (
  389.   (copyfiles
  390.     (prompt #prompt-MusicMaker)
  391.     (source "MMV8:")
  392.     (dest MusicMaker_dest)
  393.     (pattern "(MusicMakerReceiver|READ.ME#?|LIES.MICH#?|?2MM|Wurlitzer#?|#?Radio|8Player)")
  394.     (infos)
  395.     (confirm)
  396.     (help
  397.        #prompt-Options-help
  398.        @copyfiles-help
  399.     )
  400.   )
  401.  )
  402. )
  403.  
  404. (complete 50)
  405.  
  406. (if (AND todo 27)
  407.  (
  408.    (if (<> (exists "SYS:WBStartup") 0)
  409.      (
  410.       (copyfiles
  411.         (prompt "MMStartup -> WBStartup")
  412.         (source "MMV8:S/")
  413.         (dest "SYS:WBStartup")
  414.         (pattern "(MMStartup|MMStartup.info)")
  415.         (infos)
  416.         (help "")
  417.       )
  418.      )
  419.    )
  420.  )
  421. )
  422.  
  423. (complete 60)
  424.  
  425. (procedure dearcdev
  426.   (working #work-Programmer)
  427.   (run ("DEARC >con:0/0/640/128/Archiver -m -wram: x MMV8:Developer/Developer.LZH %s/ #?" devkit_dest))
  428. )
  429.  
  430. (if (AND todo 4)
  431.  (
  432.   (set devkit_dest
  433.      (tackon
  434.         (askdir
  435.            (prompt #ask-dev-dir)
  436.            (help #ask-dev-dir-help
  437.                  @askdir-help
  438.            )
  439.            (default MusicMaker_Dest)
  440.         )
  441.         "Developer"
  442.      )
  443.   )
  444.   (if (= (exists devkit_dest) 0)
  445.          (makedir devkit_dest)
  446.   )
  447.   (dearcdev)
  448.  )
  449. )
  450.  
  451. (complete 80)
  452.  
  453.  
  454. (if (AND todo 8)
  455.  (
  456.    (set demos_dest
  457.          (tackon MusicMaker_dest
  458.                  "Sound-Demos"
  459.          )
  460.    )
  461.    (if (= (exists demos_dest) 0)
  462.           (makedir demos_dest)
  463.    )
  464.    (copyfiles
  465.      (prompt #prompt-demos)
  466.      (source "MMV8:Sound-Demos/")
  467.      (dest demos_dest)
  468.      (pattern "#?")
  469.      (infos)
  470.      (help
  471.         #bool-demos-help
  472.         @copyfiles-help
  473.      )
  474.    )
  475.    (copyfiles
  476.      (prompt #prompt-demos)
  477.      (source "MM_Instruments:Bonus-Tracks/")
  478.      (dest demos_dest)
  479.      (pattern "#?")
  480.      (infos)
  481.      (help
  482.         #bool-demos-help
  483.         @copyfiles-help
  484.      )
  485.    )
  486.    (copyfiles
  487.      (prompt #prompt-demos)
  488.      (source "Install-MM3:More-Bonus-Tracks/")
  489.      (dest demos_dest)
  490.      (pattern "#?")
  491.      (infos)
  492.      (help
  493.         #bool-demos-help
  494.         @copyfiles-help
  495.      )
  496.    )
  497.  )
  498. )
  499.  
  500. (if (AND todo 16)
  501.  (
  502.    (set instrs_dest
  503.          (tackon MusicMaker_dest
  504.                  "MM_Instruments"
  505.          )
  506.    )
  507.    (if (= (exists instrs_dest) 0)
  508.           (makedir instrs_dest)
  509.    )
  510.    (copyfiles
  511.      (prompt #prompt-instrs)
  512.      (source "MM_Instruments:")
  513.      (dest instrs_dest)
  514.      (files)
  515.      (pattern "#?")
  516.      (infos)
  517.      (help
  518.         #bool-instrs-help
  519.         @copyfiles-help
  520.      )
  521.    )
  522.  )
  523. )
  524.  
  525.  
  526. (if (AND todo 32)
  527.  (
  528.    (set rexx_dest "REXX:")
  529.      (if (= (exists rexx_dest) 0)
  530.         (
  531.           (if (=(exists (tackon (MusicMaker_dest "REXX"))) 0)
  532.             (  (makedir (tackon (MusicMaker_dest "REXX")))
  533.                (set rexx_dest (tackon (MusicMaker_dest "REXX")))
  534.             )
  535.           )
  536.         )
  537.      )
  538.    (copyfiles
  539.      (prompt #prompt-rexx)
  540.      (source "MMV8:REXX/")
  541.      (dest rexx_dest)
  542.      (pattern "#?.mmrx")
  543.      (infos)
  544.      (help "")
  545.    )
  546.  )
  547. )
  548.  
  549.  
  550. (complete 95)
  551.  
  552.  
  553. (if (AND todo 64)
  554.  (
  555.    (working #work-libs)
  556.    (set libs_dest "LIBS:")
  557.    (copylib
  558.      (source "MMV8:Libs/mmv8.library")
  559.      (prompt #prompt-Library)
  560.      (confirm)
  561.      (dest libs_dest)
  562.      (help
  563.         #ask-Library-dir-help
  564.         @copylib-help
  565.      )
  566.    )
  567.    (copylib
  568.      (source "MMV8:Libs/mmv88.library")
  569.      (prompt #prompt-Library)
  570.      (confirm)
  571.      (dest libs_dest)
  572.      (help
  573.         #ask-Library-dir-help
  574.         @copylib-help
  575.      )
  576.    )
  577.    (copylib
  578.      (source "MMV8:Libs/mmvx.library")
  579.      (prompt #prompt-Library)
  580.      (confirm)
  581.      (dest libs_dest)
  582.      (help
  583.         #ask-Library-dir-help
  584.         @copylib-help
  585.      )
  586.    )
  587.  )
  588. )
  589.  
  590. (set osversion (getversion)/65536)
  591. (if (>= osversion 36)
  592.   (startup
  593.     "MusicMaker V2.4"
  594.      (prompt #addassign)
  595.      (help #addassign-help
  596.            @startup-help
  597.      )
  598.      (command ("Assign MMV8: %s" Musicmaker_dest))
  599.   )
  600. )
  601.  
  602. (complete 100)
  603.  
  604. (exit)
  605.