home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Painting / HF-DS2.DMS / in.adf / Install < prev    next >
Encoding:
Text File  |  1996-11-10  |  3.9 KB  |  179 lines
  1. ; DrawStudio Installer Utility
  2. ;
  3. ; This script is Copyright ©1995,1996 Graham Dean and Andy Dean
  4. ;
  5.  
  6. (
  7.     ; Welcome
  8.  
  9.     (message "Welcome to DrawStudio, the premier drawing and "
  10.         "illustration package for the Amiga range of computers.\n\n"
  11.         "v1.0.2\n\n"
  12.         "©1995,1996 Graham Dean and Andy Dean")
  13.  
  14.  
  15.     ; Ask where to install it...
  16.  
  17.     (set destdir
  18.         (askdir
  19.             (prompt "Select where you would like to install "
  20.                 "DrawStudio. A drawer called 'DrawStudio' will "
  21.                 "be created here.")
  22.             (help "DrawStudio and all necessary files will be "
  23.                 "installed in the directory of your choice. You "
  24.                 "may wish to create a new directory for "
  25.                 "DrawStudio by using the 'Make New Drawer' "
  26.                 "gadget.\n")
  27.             (default @default-dest)
  28.             (disk)
  29.         )
  30.     )
  31.  
  32.     (set destdir
  33.         (tackon destdir "DrawStudio")
  34.     )
  35.  
  36.     (set @default-dest destdir)
  37.  
  38.     ; See whether this directory exists, if so warn the user
  39.  
  40.     (if (exists @default-dest) 
  41.         (
  42.             (if (= 0 (askbool
  43.                     (prompt "The 'DrawStudio' directory "
  44.                         "already exists, overwrite?")
  45.                     (help "You may stop the install to "
  46.                         "avoid overwriting your current "
  47.                         "version of DrawStudio.\n\n"
  48.                         "Continuing the install will "
  49.                         "overwrite your current files "
  50.                         "and you will loose your current "
  51.                         "preferences.")
  52.                     (choices "Yes" "Quit")
  53.                 ))
  54.  
  55.                 (
  56.  
  57.                 ; User wishes to quit
  58.  
  59.                 (exit (quiet))
  60.                 )
  61.  
  62.             )
  63.         )
  64.     )
  65.  
  66.     (message "DrawStudio will be installed in " @default-dest)        
  67.  
  68.     (complete 0)
  69.  
  70.     ; Shall we install the FPU version ?
  71.  
  72.     (set fpuversion
  73.         (askchoice
  74.             (prompt "Choose which version of DrawStudio to install "
  75.                 "based on your processor. Only choose the"
  76.                 "\"FPU optimised\" version of the program "
  77.                 "if you know your Amiga has a Floating "
  78.                 "Point Unit (i.e. a maths coprocessor). "
  79.                 "If you are unsure, install the standard "
  80.                 "version.")
  81.             (help "If you are running an Amiga without "
  82.                 "a floating point unit (FPU), choose "
  83.                 "the standard version of DrawStudio. "
  84.                 "If you have an FPU, or a 68040 or 68060 "
  85.                 "processor, choose the FPU optimised "
  86.                 "version.")
  87.             (choices "Standard" "FPU optimised")
  88.         )
  89.     )
  90.  
  91.     ; Set up decompressor to work with
  92.  
  93.     (working "Setting up files...")
  94.  
  95.     (copyfiles
  96.         (source ("DrawStudio_1:"))
  97.         (dest ("T:"))
  98.         (choices "LX" "pcefis")
  99.     )
  100.  
  101.     (working "Installing DrawStudio Program...")
  102.  
  103.     ; Create the directory if it doesn't exist
  104.  
  105.     (if (= 0 (exists @default-dest))
  106.         (
  107.             (makedir @default-dest
  108.                 (prompt "Creating 'DrawStudio' directory")
  109.                 (infos)
  110.             )
  111.         )
  112.     )
  113.  
  114.     ; DISK 1
  115.  
  116.     (complete 10)
  117.  
  118.     (working "Decompressing DrawStudio directory (part 1)...")
  119.  
  120.     (run ("t:pcefis DrawStudio_1:DSdir1.lha \"%s\"" @default-dest))
  121.  
  122.     (complete 30)
  123.  
  124.     (working "Decompressing DrawStudio executable...")
  125.  
  126.     (if (= 0 fpuversion)
  127.         (
  128.             (run ("t:pcefis DrawStudio_1:DrawStudioNON.lha \"%s\""
  129.                 @default-dest))
  130.         )
  131.  
  132.         (
  133.             (askdisk (dest "DrawStudio_2") (assigns)
  134.             (prompt "Please insert disk DrawStudio_2")
  135.             (help "Insert Disk 2 in any drive. You may "
  136.                 "remove Disk 1, it will not be needed again."))
  137.  
  138.             (working "Decompressing DrawStudio program...")
  139.  
  140.             (run ("t:pcefis DrawStudio_2:DrawStudio881.lha \"%s\""
  141.                 @default-dest))
  142.         )
  143.     )
  144.     
  145.     ; DISK 2
  146.  
  147.     (complete 60)
  148.  
  149.     (askdisk (dest "DrawStudio_2") (assigns)
  150.     (prompt "Please insert disk DrawStudio_2")
  151.     (help "Insert Disk 2 in any drive. You may "
  152.         "remove Disk 1, it will not be needed again."))
  153.  
  154.     (working "Decompressing DrawStudio directory (part 2)...")
  155.  
  156.     (run ("t:pcefis DrawStudio_2:DSdir2.lha \"%s\""
  157.         @default-dest))
  158.  
  159.     ; Say goodbye
  160.  
  161.     (set endmessage (cat "Many thanks for choosing DrawStudio and "
  162.         "supporting the Amiga.\n\n"
  163.         "If you have any questions, "
  164.         "please contact: LH Publishing, 13 Gairloch Avenue, "
  165.         "Bletchley, MK2 3DH, ENGLAND\n\n"
  166.         "or visit our Web pages at\n\n"
  167.         "http://www.ajdean.demon.co.uk/~studio/ds.html\n\n"
  168.         "Many thanks - Graham and Andy Dean"))
  169.  
  170.     (complete 100)
  171.  
  172.     (message endmessage)
  173.  
  174.     ; Cleanup
  175.  
  176.     (delete ("t:LX"))
  177.     (delete ("t:pcefis"))
  178. )
  179.