home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 5 / CD_Magazyn_EXEC_nr_5.iso / Programy / Muzyczne / SamX26.lha / Sample-X / Install_Sample-X < prev    next >
Text File  |  1999-06-10  |  2KB  |  102 lines
  1. ; $VER: Sample-X Install 1.0 (31-5-97)
  2. ; Script by S.Olatubosun 
  3. ;
  4. ; Copy over all needed files
  5. ; add assigns, path changes to user-startup
  6. ; copy xphantom driver, modify Music-X tooltypes
  7.  
  8.  
  9. ; =========WELCOME=======
  10.  
  11.  
  12. (set #chosen_dir
  13.     (askdir
  14.         (prompt "Please specify where to install the software. A new\nsubdirectory entitled 'Sample-X' will be created.")
  15.         (help @askdir-help)
  16.         (default "Work:")
  17.     )
  18. )
  19.  
  20.  
  21. (set #sxdir (tackon #chosen_dir "Sample-X"))
  22.  
  23. (makedir #sxdir
  24.     (prompt "Creating new directory\n\n" #sxdir)
  25.     (help @makedir-help)
  26.     (confirm)
  27. )
  28.  
  29.  
  30. (copyfiles
  31.     (prompt "Copying Sample-X files...")
  32.     (help @copyfiles-help)
  33.     (source "" )
  34.     (dest #sxdir)
  35.     (pattern "~(Install#?)")
  36.     (confirm)
  37. )
  38.  
  39. ; copy the Sample-X.info file to parent of #sxdir!!!
  40. (makeassign "SX" #sxdir)
  41.  
  42. (copyfiles
  43.     (source "drw_Sample-X.info" )
  44.     (dest "SX:/Sample-X.info" )
  45. )
  46.  
  47.  
  48. ; install xphantom driver 
  49.  
  50. (set #install_mx
  51.     (askbool
  52.         (prompt "Do you wish to install the 'xphantom' driver?")
  53.         (help "This driver is needed to allow Music-X to communicate with Sample-X")
  54.         (choices "Yes" "No")
  55.         (default 0)
  56.     )
  57. )
  58.  
  59.  
  60. (if #install_mx
  61.     (if (exists "DEVS:midi" (noreq) )
  62.  
  63. ; in future, check for newer version of xphantom
  64.         (run "copy drivers/xphantom DEVS:midi" )
  65.  
  66.         (abort "the DEVS:midi drawer does not exist. Music-X is not installed on this system\n")
  67.     )
  68. )
  69.  
  70.  
  71. ; change Music-X tooltype
  72.  
  73. (set #install_mx
  74.     (askbool
  75.         (prompt "Do you wish to change MIDIPORT tooltype for Music-X?")
  76.         (help "Music-X needs to know the various ports to which it can send MIDI data.")
  77.         (choices "Yes" "No")
  78.         (default 0)
  79.     )
  80. )
  81.  
  82. (if #install_mx
  83.     (
  84.         (set #mxfile 
  85.             (askfile
  86.                 (prompt "Please select the Music-X executable file")
  87.                 (default "Work:")
  88.                 (help "Since the installer program does not know where Music-X is kept, the user must specify it. This is required so that the MIDIPORT tooltype of Music-X can be changed")
  89.             )
  90.         )
  91.     
  92.         (tooltype 
  93.             (prompt "Changing one Music-X tooltype to read\n\nMIDIPORTS=internal,1A|xphantom,2A\n\nIf you are using other serial ports, please see the Sample-X documentation")
  94.             (help "No help here either")
  95.             (dest #mxfile)
  96.             (settooltype "MIDIPORTS" "internal,1A|xphantom,2A")
  97.             (confirm)
  98.         )
  99.     )
  100. )
  101.  
  102.