home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 98 / af098sub.adf / gallery.LZX / Gallery / Install < prev    next >
Text File  |  1990-02-03  |  2KB  |  74 lines
  1. ;  *** Gallery installation scipt ***
  2.  
  3.  
  4. ; *** Set some useful messages ***
  5.  
  6.     (set #install-msg (cat    "\n\nGallery installation script.\n"
  7.                                             "This script installs Gallery on your Amiga.\n\n"
  8.                                             "Read the documentation for\n"
  9.                                             "more information on the distribution\n"
  10.                                             "and commercial usage.\n\n"
  11.                                             "Gallery © 1996,97 by Markus Hillenbrand\n"
  12.                                             "All rights reserved."))
  13.     (set #welcome-msg      "Welcome to the Gallery installation!")
  14.     (set #bad-kick            "You must be using Kickstart 39 to use this program!")
  15.     (set #bad-installer            "You must be using Installer 43.x to install Gallery!")
  16.     (set #ask-prog-dir            "Where shall I install Gallery ?\nThis should be in your path.\n(A drawer will NOT be created)")
  17.     (set #ask-gfx-dir            "Where shall I install GfxCon ?\n(A drawer will NOT be created)\nRemember: this must be in your path!")
  18.  
  19. ; *** Welcome the user to the installation
  20.  
  21.     (message #install-msg)
  22.  
  23. ; *** Check for Kickstart version ***
  24.  
  25.     (if (< (/ (getversion) 65536) 39)
  26.         ((abort #bad-kick))
  27.     )
  28.  
  29. ; *** Check for Installer-Version ***
  30.  
  31.     (if (< (/ @installer-version 65536) 43)
  32.         ((abort #bad-installer))
  33.     )
  34.  
  35. ; *** Delete old version in C:
  36.  
  37.     (if (exists "C:Gallery") (delete "C:Gallery"))
  38.  
  39. ; *** Ask the user for the default-destinations ***
  40.  
  41.     (set #prog-dest    (askdir     (prompt #ask-prog-dir)
  42.                                   (help @askdir-help)
  43.                                   (default "SYS:Tools")
  44.                         )
  45.     )
  46.  
  47.     (set #gfx-dest    (askdir     (prompt #ask-gfx-dir)
  48.                                   (help @askdir-help)
  49.                                   (default "C:")
  50.                         )
  51.     )
  52.  
  53. ; *** Copy the programs ***
  54.  
  55.     (copyfiles (prompt "Copying Gallery to" #lib-dest)
  56.                 (help @copyfiles-help)
  57.                 (source "Gallery")
  58.                 (dest   #prog-dest)
  59.                 (infos)
  60.     )
  61.  
  62.     (copyfiles (prompt "Copying GfxCon to" #gfx-dest)
  63.                 (help @copyfiles-help)
  64.                 (source "GfxCon_68020")
  65.                 (dest   #gfx-dest)
  66.                 (confirm)
  67.     )
  68.     
  69. ; ** set return value of installer
  70.  
  71.     (set @default-dest #prog-dest)
  72.  
  73.  
  74.