home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / graphic / imagefx20demo.lha / Install < prev    next >
Text File  |  1995-01-07  |  4KB  |  118 lines
  1. ; ImageFX 2.0 Demo Installer Utility
  2. ;
  3. ; Written by Thomas Krehbiel
  4. ; Copyright © 1994 Nova Design, Inc.
  5. ;
  6.  
  7. (
  8.  
  9.    ;================================================================
  10.    ; Setup
  11.    ;================================================================
  12.  
  13.    ; script variables...
  14.  
  15.    (set programname "ImageFX 2.0 Demo")      ; name of program
  16.    (set drawername "ImageFX2_Demo")          ; name of drawer to make for program
  17.    (set assignname "ImageFX_Demo")           ; assign to make for program
  18.    (set diskname1 "")                        ; install disk name
  19.    (set bytesreq "1.0MB")                    ; HD space required
  20.  
  21.    ; system information...
  22.  
  23.    (set osver (/ (getversion) 65536))        ; os version
  24.    (set cputype (database "cpu"))            ; cpu type
  25.  
  26.    ;-------------------
  27.    ; Pick a default directory for the installation...
  28.    (set initialdir @default-dest)            ; defaults to biggest drive
  29.  
  30.    ;-------------------
  31.    ; Ask where to install it...
  32.    (set wheredir
  33.       (askdir
  34.          (prompt "Select a directory where you would like to install the " programname
  35.                  " software.  "
  36.                  "(Note:  About " bytesreq " of free space is required for "
  37.                  "complete installation.)")
  38.          (help "A directory will be created automatically in the location "
  39.                "you specify.")
  40.          (default initialdir)
  41.       )
  42.    )
  43.  
  44.    ;-------------------
  45.    ; Determine whether we are upgrading or installing new
  46.    (
  47.       ; Create ImageFX directory.
  48.  
  49.       ; Ask expert user the name of the drawer to create
  50.       (if (> @user-level 1)
  51.          (set drawername
  52.             (askstring
  53.                (prompt "This installation will create a drawer named `" drawername
  54.                        "' for the ImageFX software.  If you would like to change "
  55.                        "the name of this drawer, type the new name below.")
  56.                (help @askstring-help)
  57.                (default drawername)
  58.             )
  59.          )
  60.       )
  61.       (set wheredir (tackon wheredir drawername))
  62.       (set writeover 0)
  63.       (message programname " will be installed in a new drawer called `" wheredir "'.  If this is correct, click `Proceed'.")
  64.    )
  65.  
  66.    ;-------------------
  67.    ; Create destination directory if it doesn't already exist.
  68.    ;(onerror
  69.    ;   (abort "Cannot create directory `%ls'.  (There may be a file "
  70.    ;          "already there with the same name.)" wheredir)
  71.    ;)
  72.    (makedir wheredir (infos))
  73.  
  74.    (set @default-dest wheredir)
  75.  
  76.    ;-------------------
  77.    ; Copy LHEX to RAM: for speediness
  78.    (copyfiles
  79.       (prompt "")
  80.       (help "")
  81.       (source diskname1)
  82.       (dest "RAM:")
  83.       (choices "lhex")
  84.    )
  85.  
  86.    ;================================================================
  87.    ; DISK 1
  88.    ;================================================================
  89.  
  90.    (complete 0)
  91.  
  92.    (working "Installing Program...")
  93.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sProgram.lha" wheredir diskname1))
  94.  
  95.    (working "Installing Arexx Programs...")
  96.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sRexx.lha" wheredir diskname1))
  97.  
  98.    (working "Installing Modules...")
  99.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sModules.lha" wheredir diskname1))
  100.  
  101.    (working "Installing Hooks...")
  102.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sHooks.lha" wheredir diskname1))
  103.  
  104.    (working "Installing README Document...")
  105.    (copyfiles
  106.       (prompt "")
  107.       (help @copyfiles-help)
  108.       (source diskname1)
  109.       (dest wheredir)
  110.       (choices "README" "README.info")
  111.    )
  112.  
  113.    (complete 100)
  114.  
  115.    ; Installation complete!
  116. )
  117.  
  118.