home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Global Amiga Experience
/
globalamigaexperience.iso
/
compressed
/
graphic
/
imagefx20demo.lha
/
Install
< prev
next >
Wrap
Text File
|
1995-01-07
|
4KB
|
118 lines
; ImageFX 2.0 Demo Installer Utility
;
; Written by Thomas Krehbiel
; Copyright © 1994 Nova Design, Inc.
;
(
;================================================================
; Setup
;================================================================
; script variables...
(set programname "ImageFX 2.0 Demo") ; name of program
(set drawername "ImageFX2_Demo") ; name of drawer to make for program
(set assignname "ImageFX_Demo") ; assign to make for program
(set diskname1 "") ; install disk name
(set bytesreq "1.0MB") ; HD space required
; system information...
(set osver (/ (getversion) 65536)) ; os version
(set cputype (database "cpu")) ; cpu type
;-------------------
; Pick a default directory for the installation...
(set initialdir @default-dest) ; defaults to biggest drive
;-------------------
; Ask where to install it...
(set wheredir
(askdir
(prompt "Select a directory where you would like to install the " programname
" software. "
"(Note: About " bytesreq " of free space is required for "
"complete installation.)")
(help "A directory will be created automatically in the location "
"you specify.")
(default initialdir)
)
)
;-------------------
; Determine whether we are upgrading or installing new
(
; Create ImageFX directory.
; Ask expert user the name of the drawer to create
(if (> @user-level 1)
(set drawername
(askstring
(prompt "This installation will create a drawer named `" drawername
"' for the ImageFX software. If you would like to change "
"the name of this drawer, type the new name below.")
(help @askstring-help)
(default drawername)
)
)
)
(set wheredir (tackon wheredir drawername))
(set writeover 0)
(message programname " will be installed in a new drawer called `" wheredir "'. If this is correct, click `Proceed'.")
)
;-------------------
; Create destination directory if it doesn't already exist.
;(onerror
; (abort "Cannot create directory `%ls'. (There may be a file "
; "already there with the same name.)" wheredir)
;)
(makedir wheredir (infos))
(set @default-dest wheredir)
;-------------------
; Copy LHEX to RAM: for speediness
(copyfiles
(prompt "")
(help "")
(source diskname1)
(dest "RAM:")
(choices "lhex")
)
;================================================================
; DISK 1
;================================================================
(complete 0)
(working "Installing Program...")
(run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sProgram.lha" wheredir diskname1))
(working "Installing Arexx Programs...")
(run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sRexx.lha" wheredir diskname1))
(working "Installing Modules...")
(run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sModules.lha" wheredir diskname1))
(working "Installing Hooks...")
(run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sHooks.lha" wheredir diskname1))
(working "Installing README Document...")
(copyfiles
(prompt "")
(help @copyfiles-help)
(source diskname1)
(dest wheredir)
(choices "README" "README.info")
)
(complete 100)
; Installation complete!
)