home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Screenblanker / DESKTOP1.DMS / in.adf / Install-DM-HD < prev    next >
Encoding:
Text File  |  1994-06-02  |  18.2 KB  |  570 lines
  1. ;
  2. ; $VER: DesktopMAGIC Install Version 1.0 (May ,18 1994)
  3. ;
  4. ; Installation Script for DesktopMAGIC
  5. ; ====================================
  6. ;
  7. ; Copyright (c) 1994 by MediaDesk
  8. ;
  9. ; Attention DesktopMAGIC users:
  10. ; =============================
  11. ;
  12. ; Do You know somebody else who may be interested in purchasing this program
  13. ; for only $39.95*? Maybe a friend, your company, or your user group is
  14. ; interested. Discounted site licences for organizations are available also.
  15. ;
  16. ; Ordering is fast and easy - just have your VISA, MasterCard or
  17. ; American Express Card ready and call 1-800-30-MDESK (1-800-306-3375).
  18. ;
  19. ; Or simply print, complete and mail/fax the order form in the file
  20. ; "Attention_DM_Users!" on this disk!
  21. ;
  22. ; Important Announcements
  23. ; =======================
  24. ;
  25. ; · Want to get our developer kit to create your own screensaver modules?
  26. ; · Want more information on other MediaDesk products, for example
  27. ;   Cinema4D, the exciting new 3D rendering / raytracing / animation package?
  28. ; · Want free demo disks and information brochures on our products?
  29. ; · Want to save money through special discounts for user groups, organizations,
  30. ;   companies, volume buyers?
  31. ; · Want to take part in our success and become an authorized MediaDesk dealer?
  32. ; · Want to receive our free newsletter for hot infos, special offers and
  33. ;   tips and tricks on our products?
  34. ;
  35. ; Then call 1-800-30-MDESK (1-800-306-3375)!
  36. ;
  37. ; Or rush us a letter:
  38. ;
  39. ; 1875 South Bascom Avenue
  40. ; - Sales Desk #12 -
  41. ; Building 116, Suite 204
  42. ; Campbell, California 95008-2359
  43. ; U.S.A.
  44. ;
  45. ; Or send us a fax at:    (408) 374-7596
  46. ; Or send us e-mail:      mdesk@netcom.com   Internet
  47. ;                         73211,660          CompuServe
  48. ;
  49. ; Whatever is on your mind - don't put it off - contact us TODAY!
  50. ;
  51. ; --
  52. ;
  53. ; (*) Plus $5 s + h. Overnight delivery available. CA residents add 8.25% sales tax.
  54. ; "MediaDesk" and "DesktopMAGIC" are trademarks of MediaDesk. "Commodore" and "Amiga"
  55. ; are registered trademarks of Commodore-Amiga, Inc.
  56. ;
  57.  
  58. ;============================
  59. ;=== English Instructions ===
  60. ;============================
  61.  
  62. (set #introduction
  63.     (cat    "\nWelcome to the DesktopMAGIC hard drive installation.\n"
  64.             "Before proceeding, check the file \"Read_me_first!\"\n\n"
  65.             "A minimum of 2.4 MB should be available on your disk, "
  66.             "if you want to install all sounds and tunes.\n\n"
  67.             "NOTE: The installation is almost totally automatic.\n"
  68.             "However, YOU will have to create\nthe DesktopMAGIC destination drawer -\n"
  69.             "you will be given a chance to do that later.\n\n"
  70.             "Click on \"Proceed\" to continue.\n"
  71.             "Click on \"Abort\" to stop the whole installation."
  72.     )
  73. )
  74.  
  75. (set #askdir-help
  76. (cat    "   First select the partition on your hard drive where DesktopMAGIC "
  77.         "should be installed. Then click on \"Make New Drawer...\" and insert "
  78.         "the name of the new drawer after the colon (e.g. \"WORK:DMAGIC\"). "
  79.         "Then click on \"Proceed\" to start the installation process.\n\n"
  80.  
  81.         "Explaination of controls:\n\n"
  82.  
  83.         "   The large scrolling field in the middle of the window shows "
  84.         "the contents of the current floppy disk or drawer. Drawers are "
  85.         "marked with the inverted letters \"DRW\" followed by the name. "
  86.         "On the right is a slider where you can scroll through the list of "
  87.         "names if not all names can be displayed at the same time. "
  88.         "You can enter a drawer by clicking on its name.\n\n"
  89.  
  90.       "   \"Parent Drawer\" -- takes you to the higher drawer "
  91.       "hierarchy.\n\n"
  92.  
  93.       "   \"Show Drives\" -- shows internal and external disk and "
  94.       "hard drives which are connected to your machine. Click on the name "
  95.       "to see the contents of that drive.\n\n"
  96.  
  97.       "   \"Make New Drawer...\" -- allows you to create a new drawer. "
  98.       "The new drawer will appear in the directory which you are currently "
  99.       "working in.\n\n"
  100.  
  101.       "   \"Proceed\" -- accepts the new drawer and continues the "
  102.       "installation process.\n\n"
  103.  
  104.       "   \"Abort\" -- stops the installation process at this point. "
  105.       "No further changes will be made.\n\n"
  106.  
  107.       "   \"Help...\" -- brings up this text."))
  108.  
  109. (set #help-startup
  110. (cat "   The file \"user-startup\" is located in the Drawer \"S:\". "
  111.      "It calls all programs that also self-start after booting. "
  112.       "If you click \"Proceed\" DesktopMAGIC will also be called up in "
  113.       "your \"S:user-startup\". Click \"Skip this Part\" if you want to "
  114.       "bypass this part. In that case you will have to start DesktopMAGIC "
  115.       "either manually or by moving it in the \"WBStartup\" drawer on "
  116.       "your boot disk. Please consult your manual on how to do that.\n\n"
  117.  
  118.       "   \"Abort\" stops the whole installation process."))
  119.  
  120. (set #help-delete
  121. (cat    "   The File \"Assigns\" is only necessary if no changes are made to "
  122.         "\"S:user-startup\".\n\n"
  123.         "   Click \"Proceed\" to delete the file \"Assigns\".\n\n"
  124.         "   Click \"Skip this Part\" if you want to bypass this part.\n\n"
  125.         "\"Abort\" stops the whole installation process."))
  126.  
  127. ;(set #startup-help
  128. ;(cat    "Explaination of controls:\n\n"
  129. ;        "\"Install for Real\"\n"
  130. ;        "Starts the actual installation process. New drawers and files\n"
  131. ;        "will be created on the destination volume.\n\n"
  132. ;        "\"Pretend to Install\"\n"
  133. ;        "Goes through every step of the installation process, but\n"
  134. ;        "without touching the destination volume. No files or drawers will be\n"
  135. ;        "created or modified. Use this option if you want to be absolutely shure\n"
  136. ;        "what the installation process will do to the destination volume.\n"
  137. ;        "This is especially useful when used in addition to one\n"
  138. ;        "of the following options:\n\n"
  139. ;
  140. ;        "\"Printer\"\n"
  141. ;        "Outputs a list of all modifications the installer does (resp. pretends to do)\n"
  142. ;        "on the printer.\n\n".
  143. ;
  144. ;        "\"Log File\"\n"
  145. ;        "Outputs a list of all modifications the installer does (resp. pretends to do)\n"
  146. ;        "into a file. After the installation process, you will be told where the file is\n"
  147. ;        "located.\"\n\n"
  148. ;
  149. ;        "\"None\"\n"
  150. ;        "With this option selected, no protocol of the installation process\n"
  151. ;        "will be generated."))
  152.  
  153. (set #no-inst
  154. (cat    "There is not enough space in your chosen directory to copy the DesktopMAGIC "
  155.         "files.\n\n*** Installation aborted ***"))
  156.  
  157. (set #ERRORRAM (cat "The necessary files can't be copied into the RAM disk."))
  158.  
  159. (set #COPVERZ    (cat "\nTo which directory shall DesktopMAGIC be copied?"))
  160.  
  161. (set #which-modules
  162. (cat "Which Effects\nare to be installed?"))
  163.  
  164. (set #which-modules-help
  165. (cat    "Select which effects you would like to have installed on your system. "
  166.     "All effects with a checkmark will be installed when you click \"Proceed\"."))
  167.  
  168. (set #which-hardware
  169. (cat "Which hardware\nwill the effects be used with?"))
  170.  
  171. (set #which-hardware-help
  172. (cat "Explaination of controls:\n\n"
  173.       "\"   OCS/ECS/AA\" -- "
  174.       "Only those effects will be installed that run on OCS/ECS/AA systems "
  175.       "(Amiga 500, 600, 1000, 1200, 1500, 2500, 3000, 4000).\n\n"
  176.       "\"   Graphic Card\" -- "
  177.       "Only those effects will be installed that run on Amigas with additional graphic card.\n\n"
  178.       "\"   All Effects\" -- "
  179.       "All effects will be installed."))
  180.  
  181. (set #MAGICSIZE    800000)
  182. (set #DesktopMSize  2400000)
  183.  
  184. (set @abort-button "Abort")
  185. (set @language "English")
  186.  
  187. (Procedure Inst_NormFiles
  188.     (if (< (getdiskspace @Dest) @Size)
  189.         (abort #no-inst))
  190.  
  191.     (set @anzeige (cat "Copying "@FName" from "@SOURCE" \nto "@Dest))
  192.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  193. )
  194.  
  195. (Procedure Inst_PatternFiles
  196.     (if (< (getdiskspace @Dest) @Size)
  197.         (abort #no-inst))
  198.  
  199.     (set @anzeige (cat "Copying "@FName" from "@SOURCE" \nto "@Dest))
  200.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  201. )
  202.  
  203. (Procedure Inst_LhaFiles
  204.     ;(set @In_File (tackon @Source @FName.lha))
  205.     (set @TMP (tackon "RAM:" @FName.lha))
  206.     (set @Dest_File (tackon @default-dest @Dest))
  207.     (if                                          ; Verzeichnis erzeugen
  208.         (= (exists @Dest_File) 0)
  209.         (makedir (@Dest_File)(infos))
  210.     )
  211.  
  212.     (if (< (getdiskspace @Dest_File) @Size)
  213.         (abort #no-inst))
  214.  
  215.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  216.     (working @Working @Dest)
  217.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  218.     (delete @TMP)
  219. )
  220.  
  221. (Procedure Inst_LhaFilesnew
  222.     ;(set @In_File (tackon @Source @FName.lha))
  223.     (set @TMP (tackon "RAM:" @FName.lha))
  224.     (set @Dest_File (tackon @default-dest @Dest))
  225.     (makedir (@Dest_File)(infos))
  226.  
  227.     (if (< (getdiskspace @Dest_File) @Size)
  228.         (abort #no-inst))
  229.  
  230.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  231.     (working @Working @Dest)
  232.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  233.     (delete @TMP)
  234. )
  235.  
  236. ;--------------------------------------------------------------------------
  237. ; Here we go...
  238. ;--------------------------------------------------------------------------
  239.  
  240. (message #introduction)
  241. (welcome)
  242. (set old_level @user-level)
  243.  
  244. (complete 0)
  245.  
  246. (set @default-dest                           ; Choose DesktopMAGIC directory
  247.     (askdir
  248.         (prompt #COPVERZ)
  249.         (help    #askdir-help)
  250.         (default "WORK:DMAGIC")
  251.     )
  252. )
  253.  
  254. (if                                          ; Create directory
  255.     (= (exists @default-dest) 0)
  256.     (makedir @default-dest)
  257. )
  258.  
  259. ;--------------------------------------------------------------------------
  260. ; Ask for disk 1
  261. ;--------------------------------------------------------------------------
  262.  
  263. (askdisk
  264.     (prompt "\n\n\nPlease insert the disk labeled \"DesktopMAGIC 1\".")
  265.     (help
  266.         "   Please insert the disk \"DesktopMAGIC 1\" into any floppy drive "
  267.         "and click on \"Proceed\" to install the actual program, "
  268.         "the effects, the tunes, the animated sequences, the pictures "
  269.         "and the sounds on the first disk.\n\n"
  270.         "   In order to have a minimum DesktopMAGIC installation, you "
  271.         "MUST install at least the first disk. If you want to save "
  272.         "disk space, you may abort when asked to insert the second or third disk.\n\n"
  273.         "   In that case, DesktopMAGIC will still work fine, "
  274.         "but you will only have a limited selection of sounds and tunes."
  275.     )
  276.     (dest "DesktopMAGIC_1")
  277. )
  278.  
  279. ;--------------------------------------------------------------------------
  280. ; Copy DesktopMAGIC, DM_Prefs & Read_me_first! & Attention_DM_Users! files
  281. ;--------------------------------------------------------------------------
  282.  
  283. (
  284.     (set @Source "DesktopMAGIC_1:")
  285.     (set @Dest @default-dest)
  286.    (set @FName "DesktopMAGIC")
  287.     (set @Size #MAGICSIZE)
  288.     (Inst_NormFiles)
  289. )
  290.  
  291. (
  292.     (set @Source "DesktopMAGIC_1:")
  293.     (set @Dest @default-dest)
  294.    (set @FName "DM_Prefs")
  295.     (set @Size #MAGICSIZE)
  296.     (Inst_NormFiles)
  297. )
  298.  
  299. (
  300.     (set @Source "DesktopMAGIC_1:")
  301.     (set @Dest @default-dest)
  302.    (set @FName "Read_me_first!")
  303.     (set @Size #MAGICSIZE)
  304.     (Inst_NormFiles)
  305. )
  306.  
  307. (
  308.     (set @Source "DesktopMAGIC_1:")
  309.     (set @Dest @default-dest)
  310.    (set @FName "Attention_DM_Users!")
  311.     (set @Size #MAGICSIZE)
  312.     (Inst_NormFiles)
  313. )
  314.  
  315. ;--------------------------------------------------------------------------
  316. ; Copy rct.library for requesters and user interface
  317. ;--------------------------------------------------------------------------
  318.  
  319. (copylib
  320.     (prompt "Copying the \"rct.library\"...")
  321.     (help "The rct.library is needed to generate standard requesters."
  322.       "If this library is already installed on your boot volume, "
  323.         "it may be updated if necessary with the latest version here.\n\n"
  324.         @copyfiles-help
  325.     )
  326.     (source "DesktopMAGIC_1:libs/rct.library")
  327.     (dest "Libs:")
  328.     (confirm)
  329. )
  330.  
  331. ;--------------------------------------------------------------------------
  332. ; Copy Muchmore & PlayHSN
  333. ;--------------------------------------------------------------------------
  334.  
  335. (if
  336.    (= (exists "C:MuchMore") 0)
  337.     (copyfiles
  338.         (help @copyfiles-help)
  339.         (source "DesktopMAGIC_1:C")
  340.         (dest "C:")
  341.        (choices "MuchMore")
  342.     )
  343. )
  344.  
  345. (if
  346.    (= (exists "C:PlayHSN") 0)
  347.     (copyfiles
  348.         (help @copyfiles-help)
  349.         (source "DesktopMAGIC_1:C")
  350.         (dest "C:")
  351.        (choices "PlayHSN")
  352.     )
  353. )
  354.  
  355. (complete 5)
  356.  
  357. ;--------------------------------------------------------------------------
  358. ; Copy Sounds, Tunes, Pictures and Animations from Disk 1
  359. ;--------------------------------------------------------------------------
  360.  
  361. (
  362.     (set @Source "DesktopMAGIC_1:")
  363.     (set @Dest @default-dest)
  364.     (set @Size #MAGICSize)
  365.  
  366.    (set @Pattern "DM_Sounds")        (Inst_PatternFiles)    (complete 10)
  367.    (set @Pattern "DM_Tunes")        (Inst_PatternFiles)    (complete 15)
  368.    (set @Pattern "DM_Pictures")    (Inst_PatternFiles)    (complete 20)
  369.    (set @Pattern "DM_Anim")        (Inst_PatternFiles)    (complete 25)
  370. )
  371.  
  372. ;--------------------------------------------------------------------------
  373. ; Ask for hardware
  374. ;--------------------------------------------------------------------------
  375.  
  376. (set hardware
  377.     (askchoice
  378.         (prompt #which-hardware)
  379.         (help #which-hardware-help)
  380.         (choices
  381.             "OCS/ECS/AA"
  382.             "Graphic Card"
  383.             "All Effects"
  384.         )
  385.         (default 2)
  386.     )
  387. )
  388.  
  389. ;--------------------------------------------------------------------------
  390. ; Install ALL effects from disk 1
  391. ;--------------------------------------------------------------------------
  392.  
  393. (if (or (= 0 hardware) (= 2 hardware))
  394.     (    
  395.         (set @Source "DesktopMAGIC_1:")
  396.         (set @Dest @default-dest)
  397.         (set @Size #MAGICSize)
  398.        (set @Pattern "DM_Effects") (Inst_PatternFiles)
  399.     )
  400. )
  401.  
  402. ;--------------------------------------------------------------------------
  403. ; Install only graphic card compatible effects from disk 1
  404. ;--------------------------------------------------------------------------
  405.  
  406. (if (= 1 hardware)
  407.     (copyfiles
  408.         (source (cat "DesktopMAGIC_1:DM_Effects"))
  409.        (dest (tackon @default-dest "DM_Effects"))
  410.        (pattern
  411.             (cat
  412.                 "(%"
  413.                 "CrazyWorms.#?|"
  414.                 "Clock.#?|"
  415.                 "Eyes.#?|"
  416.                 "Meltdown.#?|"
  417.                 "Mountain.#?|"
  418.                 "MyPicture.#?|"
  419.                 "Puzzle.#?|"
  420.                 "Spotlights.#?"
  421.                 ")"
  422.             )
  423.         )
  424.     )
  425. )
  426.  
  427. (complete 33)
  428.  
  429. ;--------------------------------------------------------------------------
  430. ; Ask for disk 2
  431. ;--------------------------------------------------------------------------
  432.  
  433. (askdisk
  434.     (prompt "\n\n\nPlease insert the disk \"DesktopMAGIC 2\".")
  435.     (help "Please insert the disk \"DesktopMAGIC 2\"\n"
  436.     "and click on \"Proceed\" to install additional effects, sounds, tunes, pictures, and animated sequences.")
  437.     (dest "DesktopMAGIC_2")
  438. )
  439.  
  440. ;--------------------------------------------------------------------------
  441. ; Install remaining effects from disk 2. They run on every hardware.
  442. ;--------------------------------------------------------------------------
  443.  
  444. (
  445.     (set @Source "DesktopMAGIC_2:")
  446.     (set @Dest @default-dest)
  447.     (set @Size #MAGICSize)
  448.    (set @Pattern "DM_Effects") (Inst_PatternFiles) (complete 40)
  449. )
  450.  
  451. ;--------------------------------------------------------------------------
  452. ; Effects successfully installed.
  453. ; If we are running under Kickstart 1.3, delete effects that won't run.
  454. ;--------------------------------------------------------------------------
  455.  
  456. (if (< (/ (getversion) 65536) 35)
  457.     (
  458.          (set effpath (tackon @default-dest "DM_Effects"))
  459.  
  460.          (delete (tackon effpath "Flying Breakfast.mpf"))
  461.          (delete (tackon effpath "Flying Breakfast.mod"))
  462.  
  463.          (delete (tackon effpath "CheckeredRace.mpf"))
  464.          (delete (tackon effpath "CheckeredRace.mod"))
  465.  
  466.          (delete (tackon effpath "Cockroaches.mpf"))
  467.          (delete (tackon effpath "Cockroaches.mod"))
  468.  
  469.          (delete (tackon effpath "Curtain.mpf"))
  470.          (delete (tackon effpath "Curtain.mod"))
  471.  
  472.          (delete (tackon effpath "Tunnel.mpf"))
  473.          (delete (tackon effpath "Tunnel.mod"))
  474.     )
  475. )
  476.  
  477. ;--------------------------------------------------------------------------
  478. ; Copy Sounds, Tunes, Pictures and Animations from Disk 2
  479. ;--------------------------------------------------------------------------
  480.  
  481. (
  482.     (set @Source "DesktopMAGIC_2:")
  483.     (set @Dest @default-dest)
  484.     (set @Size #MAGICSize)
  485.  
  486.    (set @Pattern "DM_Sounds")        (Inst_PatternFiles)    (complete 45)
  487.    (set @Pattern "DM_Tunes")        (Inst_PatternFiles)    (complete 50)
  488.    (set @Pattern "DM_Pictures")    (Inst_PatternFiles)    (complete 60)
  489.    (set @Pattern "DM_Anim")        (Inst_PatternFiles)    (complete 67)
  490. )
  491.  
  492. ;--------------------------------------------------------------------------
  493. ; Ask for disk 3
  494. ;--------------------------------------------------------------------------
  495.  
  496. (askdisk
  497.     (prompt "\n\n\nPlease insert the disk \"DesktopMAGIC 3\".")
  498.     (help "Please insert the disk \"DesktopMAGIC 3\"\n"
  499.     "and click on \"Proceed\" to install even more sounds, tunes, pictures, and animated sequences.")
  500.     (dest "DesktopMAGIC_3")
  501. )
  502.  
  503. ;--------------------------------------------------------------------------
  504. ; Copy Sounds, Tunes, Pictures and Animations from Disk 3
  505. ;--------------------------------------------------------------------------
  506.  
  507. (
  508.     (set @Source "DesktopMAGIC_3:")
  509.     (set @prompt "Installing even more sounds, tunes, pictures, and animated sequences from disk 3.\n")
  510.     (set @Dest @default-dest)
  511.     (set @Size #MAGICSIZE)
  512.  
  513.    (set @Pattern "DM_Sounds")        (Inst_PatternFiles)    (complete 75)
  514.    (set @Pattern "DM_Tunes")        (Inst_PatternFiles)    (complete 80)
  515.    (set @Pattern "DM_Pictures")    (Inst_PatternFiles)    (complete 85)
  516.    (set @Pattern "DM_Anim")        (Inst_PatternFiles)    (complete 90)
  517. )
  518.  
  519. ;--------------------------------------------------------------------------
  520. ; Ask for user-startup modification - if yes, change it
  521. ;--------------------------------------------------------------------------
  522.  
  523. (set changechoice
  524.     (askchoice
  525.         (prompt "\nWould you like to have DesktopMAGIC automatically loaded after booting?\n"
  526.         "A new command will be inserted into the user-startup if you choose \"Yes\".")
  527.         (help @askchoice-help)
  528.         (choices "Yes" "No")
  529.         (default 0)
  530.     )
  531. )
  532.  
  533. (set command1 (tackon @default-dest "DesktopMAGIC"))
  534.  
  535. (if (not changechoice)
  536.     (    
  537.         (set command1.txt
  538.             (cat 
  539.                  "\n\n\nTo have DesktopMAGIC automatically loaded after booting,"
  540.               "a new command \"" command1 "\" must be inserted into \"S:user-startup\"."
  541.             )
  542.         )
  543.         (startup "DesktopMAGIC"
  544.             (prompt command1.txt)
  545.             (help #help-startup)
  546.             (command command1)
  547.         )
  548.     )
  549. )
  550.  
  551. (complete 100)
  552.  
  553. ;--------------------------------------------------------------------------
  554. ; That's it - we're outta here!
  555. ;--------------------------------------------------------------------------
  556.  
  557. (message (cat 
  558.     "\nIf there is no line \"" command1 "\"\n"
  559.     "in your \"S:user-startup\" you will have to insert it manually - or consult your manual "
  560.     "on how to put DesktopMAGIC into the \"WBStartup\" drawer.\n\n"
  561.    "Please remove the installation disk(s) now and start DesktopMAGIC - "
  562.     "either double-click on its icon or re-boot your system.\n\n"
  563.     "To access the Main Window, select \"DesktopMAGIC\" in the Workbench \"Tools\" menu "
  564.     "or press <SHIFT-F1>.\n\n"
  565.    "Have fun now with your \"DesktopMAGIC\" Amiga!")
  566. )
  567.  
  568. (exit)
  569.  
  570.