home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / STEROSCOPIC.DMS / in.adf / Install-SS < prev    next >
Encoding:
Text File  |  1994-02-10  |  3.4 KB  |  177 lines
  1. ; Installer installation 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.     ;Title Screen
  18.  
  19. (message "\nStereoScopic Installation\n\n\n"
  20.          "This script installs StereoScopic\n"
  21.          "on your Amiga.\n\n\n\n"
  22.          "StereoScopic © 1993-1994 Timothy Eckel\n"
  23.          "All rights reserved."
  24. )
  25.  
  26.     ; get a location for program
  27.  
  28.     (set StereoScopic_dest
  29.         (tackon
  30.             (askdir
  31.                 (prompt "In which disk or drawer should StereoScopic be installed?")
  32.                 (help @askdir-help)
  33.                 (default @default-dest)
  34.             )
  35.             "StereoScopic"
  36.         )
  37.     )
  38.  
  39.  
  40.     ; now lock on to volume 'StereoScopic_Install'
  41.  
  42. (askdisk
  43.     (prompt "Please insert \n the master program disk \n labeled \"StereoScopic\".")
  44.     (help    "The StereoScopic program and other options will be copied "
  45.             "from the \"StereoScopic\" into your system.")
  46.     (dest  "StereoScopic_Install")
  47.     (newname "StereoScopic_Disk")
  48. )
  49.  
  50.     ; make StereoScopic drawers & icons
  51.  
  52. (makedir StereoScopic_dest (infos))
  53.  
  54. (makedir (tackon StereoScopic_dest "Images"))
  55.  
  56.     ; at this point we have a valid destination, so we tell installer where
  57.     ; the application will end up so the exit page will be correct -- also,
  58.     ; the installation log file (if any) will be copied to the destination
  59.  
  60. (set @default-dest StereoScopic_dest)
  61.  
  62. (complete 10)
  63.  
  64. (copylib
  65.     (prompt "\nCopying Arp.library to LIBS:...")
  66.     (help "Arp.library contains requestor info.\n\n"
  67.            @copylib-help)
  68.     (source "StereoScopic_Disk:libs/arp.library")
  69.     (dest "LIBS:")
  70.     (confirm)
  71. )
  72.  
  73. (complete 20)
  74.  
  75. (copylib
  76.     (prompt "\nCopying HisoftBasic.library to LIBS:...")
  77.     (help "HisoftBasic.library is necessary\n"
  78.           "for StereoScopic to run!\n\n"
  79.            ©lib-help)
  80.     (source "StereoScopic_Disk:libs/hisoftbasic.library")
  81.     (dest "LIBS:")
  82.     (confirm)
  83. )
  84.  
  85. (complete 30)
  86.  
  87. (copyfiles
  88.     (source "StereoScopic_Disk:StereoScopic")
  89.     (dest StereoScopic_dest)
  90. )
  91.  
  92. (copyfiles
  93.     (source "StereoScopic_Disk:StereoScopic.info")
  94.     (dest StereoScopic_dest)
  95. )
  96.  
  97. (complete 40)
  98.  
  99. (copyfiles
  100.     (source "StereoScopic_Disk:StereoScopic.doc")
  101.     (dest StereoScopic_dest)
  102. )
  103.  
  104. (copyfiles
  105.     (source "StereoScopic_Disk:StereoScopic.doc.info")
  106.     (dest StereoScopic_dest)
  107. )
  108.  
  109. (copyfiles
  110.     (source "StereoScopic_Disk:S/StereoScopic.cfg")
  111.     (dest "S:")
  112. )
  113.  
  114. (complete 50)
  115.  
  116. (copyfiles
  117.     (source "StereoScopic_Disk:more")
  118.     (dest StereoScopic_dest)
  119. )
  120.  
  121. (copyfiles
  122.     (source "StereoScopic_Disk:ShowIFF")
  123.     (dest StereoScopic_dest)
  124. )
  125.  
  126. (complete 60)
  127.  
  128. (copyfiles
  129.     (source "StereoScopic_Disk:Images")
  130.     (dest (tackon StereoScopic_dest "Images"))
  131.     (all)
  132. )
  133.  
  134.     ; reinitialize assigns
  135.  
  136. (if (not @pretend)
  137.     (makeassign "StereoScopic" StereoScopic_dest)
  138.     
  139. )
  140.  
  141.     ; decompress files
  142.  
  143. (message "\n\nDecompressing Image Files...\n\n\n"
  144.          "Select 'Proceed' to decompress.\n"
  145. )
  146.  
  147. (complete 70)
  148.  
  149. (run
  150.     "StereoScopic_Install:C/LHA e StereoScopic:Images/Samples.LHA StereoScopic:Images/"
  151. )
  152.  
  153. (complete 80)
  154.  
  155. (run
  156.     "StereoScopic_Install:C/LHA e StereoScopic:Images/Source.LHA StereoScopic:Images/"
  157. )
  158.  
  159. (complete 90)
  160.  
  161. (run
  162.     "StereoScopic_Install:C/LHA e StereoScopic:Images/StereoScopic.LHA StereoScopic:Images/"
  163. )
  164.  
  165.     ; cleanup
  166.  
  167. (delete "StereoScopic:Images/Samples.LHA")
  168. (delete "StereoScopic:Images/Source.LHA")
  169. (delete "StereoScopic:Images/StereoScopic.LHA")
  170. (makeassign "StereoScopic_Disk" (safe))
  171.  
  172.  
  173. (complete 100)
  174. (exit)
  175.  
  176.     ; Bring up title screen first!
  177. (welcome)