home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3069.dms / 3069.adf / Install-SS < prev    next >
Text File  |  1994-01-28  |  3KB  |  152 lines
  1. ; script to install StereoScopic
  2.  
  3.  
  4.     ; set up a error cleanup routine
  5.  
  6. (onerror
  7.     (makeassign "StereoScopic_Disk" (safe))    
  8. )
  9.  
  10. (complete 0)
  11.  
  12.     ; just in case the installation was restarted
  13.  
  14. (makeassign "StereoScopic_Disk" (safe))        ; start fresh
  15.  
  16.  
  17.  
  18.     ; get a location for program
  19. ; 
  20.     (set StereoScopic_dest
  21.         (tackon
  22.             (askdir
  23.                 (prompt "In which disk or drawer should StereoScopic be installed?")
  24.                 (help @askdir-help)
  25.                 (default @default-dest)
  26.             )
  27.             "StereoScopic"
  28.         )
  29.     )
  30.  
  31.  
  32.     ; now lock on to volume 'StereoScopic_Install'
  33.  
  34. (askdisk
  35.     (prompt "Please insert \n the master program disk \n labeled \"StereoScopic\".")
  36.     (help    "The StereoScopic program and other options will be copied "
  37.             "from the \"StereoScopic\" into your system.")
  38.     (dest  "StereoScopic_Install")
  39.     (newname "StereoScopic_Disk")
  40. )
  41.  
  42.     ; make StereoScopic drawers & icons
  43.  
  44. (makedir StereoScopic_dest (infos))
  45.  
  46. (makedir (tackon StereoScopic_dest "Images"))
  47.  
  48.     ; at this point we have a valid destination, so we tell installer where
  49.     ; the application will end up so the exit page will be correct -- also,
  50.     ; the installation log file (if any) will be copied to the destination
  51.  
  52. (set @default-dest StereoScopic_dest)
  53.  
  54.  
  55. (copyfiles
  56.     (source "StereoScopic_Disk:libs/arp.library")
  57.     (dest "LIBS:")
  58. )
  59.  
  60. (copyfiles
  61.     (source "StereoScopic_Disk:libs/hisoftbasic.library")
  62.     (dest "LIBS:")
  63. )
  64.  
  65. (copyfiles
  66.     (source "StereoScopic_Disk:StereoScopic")
  67.     (dest StereoScopic_dest)
  68. )
  69.  
  70. (copyfiles
  71.     (source "StereoScopic_Disk:StereoScopic.info")
  72.     (dest StereoScopic_dest)
  73. )
  74.  
  75.  
  76. (copyfiles
  77.     (source "StereoScopic_Disk:StereoScopic.doc")
  78.     (dest StereoScopic_dest)
  79. )
  80.  
  81. (copyfiles
  82.     (source "StereoScopic_Disk:StereoScopic.doc.info")
  83.     (dest StereoScopic_dest)
  84. )
  85.  
  86. (copyfiles
  87.     (source "StereoScopic_Disk:more")
  88.     (dest StereoScopic_dest)
  89. )
  90.  
  91. (copyfiles
  92.     (source "StereoScopic_Disk:ShowIFF")
  93.     (dest StereoScopic_dest)
  94. )
  95.  
  96. (copyfiles
  97.     (source "StereoScopic_Disk:Images")
  98.     (dest (tackon StereoScopic_dest "Images"))
  99.     (all)
  100. )
  101.  
  102. (copyfiles
  103.     (source "StereoScopic_Disk:S/StereoScopic.cfg")
  104.     (dest "S:")
  105. )
  106.  
  107.  
  108.     ; reinitialize assigns
  109.  
  110. (if (not @pretend)
  111.     (makeassign "StereoScopic" StereoScopic_dest)
  112.     
  113. )
  114.  
  115.     ; decompress files
  116.  
  117. (run
  118.     "StereoScopic_Install:C/LHA e StereoScopic:Images/Samples.LHA StereoScopic:Images/"
  119. )
  120.  
  121. (run
  122.     "StereoScopic_Install:C/LHA e StereoScopic:Images/Source.LHA StereoScopic:Images/"
  123. )
  124.  
  125. (run
  126.     "StereoScopic_Install:C/LHA e StereoScopic:Images/StereoScopic.LHA StereoScopic:Images/"
  127. )
  128.  
  129.     ; reset icons
  130.  
  131. (tooltype
  132.     (dest "StereoScopic:StereoScopic")
  133.     (noposition)
  134. )
  135. (tooltype
  136.     (dest "StereoScopic:StereoScopic.doc")
  137.     (noposition)
  138. )
  139.  
  140.     ; cleanup
  141.  
  142. (delete "StereoScopic:Images/Samples.LHA")
  143. (delete "StereoScopic:Images/Source.LHA")
  144. (delete "StereoScopic:Images/StereoScopic.LHA")
  145. (makeassign "StereoScopic_Disk" (safe))
  146.  
  147.     ; this is not strictly necessary, but doesn't hurt -- there is always
  148.     ; a default (exit) at the end of any script
  149.  
  150. (exit)
  151.  
  152.