home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD1.iso / DEMOS / 3AD_MUS2.DMS / in.adf / HD_Install < prev    next >
Encoding:
Text File  |  1994-12-29  |  5.1 KB  |  184 lines
  1.  
  2. ; APPNAME=Musical Sensation I
  3. ; MINUSER=AVERAGE
  4. ; LOG=FALSE
  5.     
  6.  
  7. ; Installer Code By: Cruiser/TRiAD
  8.  
  9. ;                    Address:     Kent Persson
  10. ;                              Betesv.22
  11. ;                               S-240 10 Dalby
  12. ;                                Sweden
  13.  
  14.  
  15. ; Musical Sensation Installer Script
  16. ; ----------------------------------
  17.  
  18. ; Musical Sensation Volumes
  19. ; -------------------------
  20.  
  21. (set Musical_disk1 "Musical Sensation #1:")
  22. (set Musical_disk2 "Musical Sensation #2:")
  23. (set Musical_drawer "Musical_Sensation")
  24.  
  25.  
  26.  
  27. ; Ask Disk procedure
  28. ; ------------------
  29.  
  30. (procedure Musical_askdisk
  31.     (askdisk
  32.         (prompt "Please.. insert " Musical_disk " in any drive...")
  33.         (dest (substr Musical_disk 0 (- (strlen Musical_disk) 1)))
  34.         (help @askdisk-help)
  35.     )
  36. )
  37.  
  38.  
  39. ; Fetch System Configuration
  40. ; --------------------------
  41.  
  42.  (set Musical_cpu        (database "cpu"))
  43. ; (set Musical_video      (database "vblank"))
  44. (set Musical_version    (/ (getversion) 65536))
  45.  
  46.  
  47. ; Must be 68020/30/40 machine 
  48. ; ---------------------------
  49.  
  50. (if (OR (= Musical_cpu "68000") (= Musical_cpu "68010"))
  51.     (if (= 0 
  52.         (askbool
  53.             (prompt "Sorry but you need an AGA machine to run this program\nDo you really want to install Musical Sensation to your " Musical_cpu " based system?")
  54.             (help "   ")
  55.             (default 1)
  56.         ))
  57.         (abort "Musical Sesnation Cannot be run on\n" Musical_cpu " based machines")
  58.     )
  59. )
  60.  
  61.  
  62. ; Ask the destination directory
  63. ; -----------------------------
  64.  
  65. (set @default-dest "Musical_Sensation:")
  66.  
  67. (set version (/ (getversion) 65536))
  68. (set Musical_dest   
  69.     (askdir (prompt "Select the location to install the Musical Sensation directory")
  70.         (default @default-dest)
  71.         (help "Choose a destination partition or directory to contain "
  72.               "Musical Sensation. A directory called 'Musical Sensation' will be created "
  73.               "and program files copied in the location you choose."
  74.         )
  75.     )
  76. )
  77.  
  78. (set Musical_dest1 (tackon Musical_dest Musical_drawer))
  79. (set @default-dest Musical_dest1)
  80. (message "Musical Sensation will be installed in " Musical_dest1 )
  81.  
  82.  
  83. ; Create Musical Sensation directory 
  84. ; ------------------------
  85.  
  86. (set error (trap 4 (makedir Musical_dest1 (infos))))
  87. (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
  88. (set @execute-dir Musical_dest1)
  89.  
  90.  
  91. ; Install Disk2
  92. ; -------------
  93.  
  94. ( set MusicPath (Musical_dest1))
  95.  
  96. (set Musical_disk Musical_disk2) (Musical_askdisk)
  97.  
  98.    (makedir (tackon Musical_dest1 "Music")) ; Empty drawers need this
  99.  
  100.     (set destination (tackon Musical_dest1 "Music"))
  101.     (set KeyPath Musical_dest1)
  102.  
  103.     (copyfiles (optional "nofail")
  104.         (source (cat Musical_disk2, "Music/Tune1.TPc"))
  105.         (dest destination ))
  106.     (copyfiles (optional "nofail")
  107.         (source (cat Musical_disk2, "Music/Tune2.TPc"))
  108.         (dest destination ))
  109.     (copyfiles (optional "nofail")
  110.         (source (cat Musical_disk2, "Music/Tune3.TPc"))
  111.         (dest destination ))
  112.     (copyfiles (optional "nofail")
  113.         (source (cat Musical_disk2, "Music/Tune4.TPc"))
  114.         (dest destination ))
  115.  
  116.  
  117. ; Install Disk 1
  118. ; --------------
  119.  
  120. (set Musical_disk Musical_disk1) (Musical_askdisk)
  121.  
  122. ( set MusicPath (Musical_dest1))
  123.  
  124.     (copyfiles
  125.         (source (tackon Musical_disk1 "MS.exe"))
  126.         (dest MusicPath))
  127.  
  128. ; Cleanup 
  129. ; -------
  130.  
  131. (delete ("RAM:%s" Musical_comp))
  132.  
  133.  
  134. ; Modify Startup-sequence
  135. ;------------------------
  136.  
  137. (set error 1)
  138. (until (= error 0)
  139.    (
  140.       (set error (trap 4
  141.          (startup "Musical Sensation 1"
  142.             (prompt ("The assigns for Musical Sensation has been created"))
  143.             (command ('assign "Musical Sensation #1:" %s' Musical_dest1) "\n")
  144.             (command ('assign "Musical Sensation #2:" %s' Musical_dest1) "\n") 
  145.             (command ('assign "MS:" %s' Musical_dest1))
  146.             (help   "Installer will add assigns to your user-startup script\n"
  147.             )
  148.          )
  149.       ))
  150.       (if (> error 0)
  151.          (if (or (= @ioerr 222) (or (= @ioerr 223) (= @ioerr 224)))
  152.             (message "Startup file is write protected. Use protect "
  153.                     "to write enable the file, and select Proceed" )
  154.             ;else other type of error
  155.             (
  156.                 (message "Non-Standard startup sequence detected. You must add "
  157.                      "the following line by hand.\n\n"
  158.                      "    assign 'Musical Sensation #1:' " Musical_dest1 "\n"
  159.                      "    assign 'Musical Sensation #2:' " Musical_dest1 "\n"
  160.                      "    assign 'MS:' " Musical_dest1 "\n"
  161.                 )
  162.                 (set error 0)
  163.             )                
  164.          )         
  165.       )   
  166.    )
  167. )
  168.  
  169. (makeassign "Musical Sensation #1:" Musical_dest1)
  170. (makeassign "Musical Sensation #2:" Musical_dest1)
  171. (makeassign "MS:" Musical_dest1)
  172.  
  173.        (message 
  174.     "                                                     "
  175.     "                                                     "
  176.     "                                                     "
  177.     "                                                     "
  178.     "                                                     "
  179.     "Please Reboot Your Machine To Run\n"
  180.     "MUSICAL SENSATION!!!\n\n"
  181.     "After reboot type 'MS:MS.exe' directly in your CLI to run!")
  182.  
  183. (complete 100)
  184.