home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Cruncher / UNPACK18.LHA / UNPacker_v1.8 / Install < prev    next >
Encoding:
Text File  |  1995-08-23  |  2.2 KB  |  84 lines
  1. ; UNPacker Installation Script
  2. ; Copyright © 1993-1995 by Ralph Torchia
  3. ; $VER:UNPacker v1.8 (08.23.95)
  4.  
  5. (set @PRGVersion "1.8")
  6.  
  7. (welcome
  8.   ("\nWelcome to the UNPacker %s installer script.\n\n" @PRGVersion)
  9.   ("    This version of UNPacker has documentation in AmigaGuide format.\n")
  10.   ("    Follow the installer script's instructions to install UNPacker.\n")
  11. )
  12.  
  13. (set @default-dest "SYS:Utilities")
  14.  
  15. (set @default-dest
  16.   (askdir
  17.     (prompt "Where would you like UNPacker installed?")
  18.     (help " The Utilities directory on your boot disk is a good place to put UNPacker.")
  19.     (default @default-dest)
  20.   )
  21. )
  22.  
  23. (copyfiles
  24.   (prompt "Copying UNPacker to %s" @default-dest)
  25.   (help @copyfiles-help)
  26.   (source "UNPacker")
  27.   (dest @default-dest)
  28. )
  29.  
  30. (
  31.   (if
  32.     (askbool
  33.       (prompt "Would you like to edit the prefs file now with Ed?")
  34.       (help " The prefs file needs to be modified if the default settings are not appropirate for your use.  This can be done before the installer is started, right now, or at a later time.")
  35.     )
  36.   (run "C:Ed UNPacker.prefs" (safe))
  37.   (message "Make sure when editing the UNPacker.prefs file that both th ENVARC: and ENV: copies are changed.")
  38.  )
  39. )
  40.  
  41.  
  42. (
  43.   (copyfiles
  44.     (prompt "Copying UNPacker.prefs to ENVARC:")
  45.     (help @copyfiles-help)
  46.     (source "UNPacker.prefs")
  47.     (dest "ENV:")
  48.   )
  49.   (copyfiles
  50.     (prompt "Copying UNPacker.prefs to ENV:")
  51.     (help @copyfiles-help)
  52.     (source "UNPacker.prefs")
  53.     (dest "ENV:")
  54.   )
  55. )
  56.  
  57. (set @icon-choice "UNPacker_Std")
  58. (
  59.   (set @choice
  60.     (askchoice
  61.       (prompt "Which icon would you like to have installed for UNPacker?")
  62.       (choices ("MagicWB Icon")
  63.                ("Standard Workbench Icon")
  64.               ("Standard Icon in 8 Colors")
  65.  
  66.       )
  67.       (help " The MagicWB icon is a larger, 8 color icon.  The standard icon and the 8 color icon follows Commodore's color and size standard.")
  68.     )
  69.   )
  70.   (if (= @choice 0) (set @icon-choice "UNPacker_Magic"))
  71.   (if (= @choice 1) (set @icon-choice "UNPacker_Std"))
  72.   (if (= @choice 2) (set @icon-choice "UNPacker_8col"))
  73. )
  74.  
  75. (copyfiles
  76.   (prompt "Copying icon for %s" @default-dest)
  77.   (help @copyfiles-help)
  78.   (source @icon-choice)
  79.   (dest @default-dest)
  80.   (newname "UNPacker.info")
  81. )
  82.  
  83. (exit)
  84.