home *** CD-ROM | disk | FTP | other *** search
- ; ImageFX Extras Installer Utility
- ;
- ; For ImageFX Release 2.6
- ;
- ; Written by Thomas Krehbiel
- ; Copyright © 1994,1995 Nova Design, Inc.
- ;
-
- (
-
- ;================================================================
- ; Setup
- ;================================================================
-
- ; script variables...
-
- (set diskname1 "ImageFX26_Disk1:") ; install disk name
- (set diskname2 "ImageFX26_Disk2:") ; second install disk name
- (set diskname3 "ImageFX26_Disk3:") ; third install disk name
- (set diskname4 "ImageFX26_Disk4:") ; third install disk name
- (set diskname5 "ImageFX26_Disk5:") ; fourth install disk name
-
- ; system information...
-
- (set osver (/ (getversion) 65536)) ; os version
- (set cputype (database "cpu")) ; cpu type
-
- ;-------------------
- ; Warn user.
- (message "These hooks and modules were either not created by Nova Design, Inc., "
- "or are based on software not created or supported by Nova Design. "
- "Because of this, Nova Design cannot provide technical support or "
- "upgrades or enhancements for these extras. They are "
- "provided for your amusement only; use them at your own risk. "
- "If you do not want to install them, click `Abort Install' now.")
-
- ;-------------------
- ; Pick a default directory for the installation...
- (set initialdir @default-dest) ; defaults to biggest drive
- (if (getassign "ImageFX")
- (
- (set initialdir (getassign "ImageFX"))
- )
- )
-
- ;-------------------
- ; Ask where to install it...
- (set wheredir
- (askdir
- (prompt "Select the directory where you would like to install the "
- "ImageFX Extras.")
- (help "Select the directory where you have installed ImageFX. The "
- "extras will not work in any other directory.")
- (default initialdir)
- )
- )
-
- (set @default-dest wheredir)
-
- ;-------------------
- ; Ask what to install...
- ; 2.1: added JSTREAM and Cybergraphics
- (set todo
- (askoptions
- (prompt "Select the extras you would like to install:")
- (help "Check the boxes to indicate which extras you would "
- "like installed on your system.")
- (choices
- "MPEG Utilities"
- "PostScript® Loader"
- "PAR_PEG Loader"
- "Photo CDROM Loader"
- "JSTREAM Loader & Saver"
- "Grafexa (Harlequin) Render Module"
- "CyberGraphX Render Module"
- )
- )
- )
-
- (set mask_mpeg 1)
- (set mask_post 2)
- (set mask_parpeg 4)
- (set mask_pcd 8)
- (set mask_jstr 16)
- (set mask_grfx 32)
- (set mask_cyber 64)
-
- ;-------------------
- ; Copy LHEX to RAM: for speediness
- (copyfiles
- (prompt "")
- (help "")
- (source diskname1)
- (dest "RAM:")
- (choices "lhex")
- )
-
- ;================================================================
- ; DISK 5
- ;================================================================
-
- (askdisk
- (prompt "Please insert ImageFX Disk 5 in any drive.")
- (help "")
- (dest (substr diskname5 0 (- (strlen diskname5) 1)))
- (assigns)
- )
-
- (if (BITAND mask_mpeg todo)
- (
- (working "Installing MPEG Utilities...")
- (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=%s x %sExtras3.lha" wheredir diskname5))
- (tooltype
- (prompt "")
- (help "")
- (dest (tackon wheredir "Browser"))
- (settooltype "MPEG" (tackon wheredir "MPEG/mp"))
- )
- )
- )
- (if (BITAND mask_parpeg todo)
- (
- (working "Installing PAR_PEG Loader...")
- (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=%s x %sExtras2.lha Modules/Loaders/PAR_PEG" wheredir diskname5))
- )
- )
- (if (BITAND mask_pcd todo)
- (
- (working "Installing Photo CDROM Loader...")
- (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=%s x %sExtras2.lha Modules/Loaders/PCD" wheredir diskname5))
- )
- )
- (if (BITAND mask_grfx todo)
- (
- (working "Installing Grafexa Render Module...")
- (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=%s x %sExtras2.lha Modules/Render/Grafexa" wheredir diskname5))
- )
- )
-
- (if (BITAND mask_post todo)
- (
-
- (working "Installing PostScript Loader...")
- (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=%s x %sExtras1.lha" wheredir diskname5))
-
- ; backup existing copies of libraries just in case ...
-
- (if (exists "LIBS:post.library")
- (
- (if (exists "LIBS:post.library.backup")
- (delete "LIBS:post.library.backup")
- )
- (rename "LIBS:post.library" "LIBS:post.library.backup")
- )
- )
-
- (if (exists "LIBS:hwgpost.library")
- (
- (if (exists "LIBS:hwgpost.library.backup")
- (delete "LIBS:hwgpost.library.backup")
- )
- (rename "LIBS:hwgpost.library" "LIBS:hwgpost.library.backup")
- )
- )
-
- (if (OR (= cputype "68000") (= cputype "68010"))
- (
- (copylib
- (prompt "")
- (help @copylib-help)
- (source (tackon wheredir "libs/post.library"))
- (dest "LIBS:")
- (newname "post.library")
- )
- )
- ; else
- (
- (copylib
- (prompt "")
- (help @copylib-help)
- (source (tackon wheredir "libs/post.library.20"))
- (dest "LIBS:")
- (newname "post.library")
- )
- )
- )
- (run ("delete %s all quiet" (tackon wheredir "libs")))
-
- )
- )
-
- ; 2.1:
- (if (BITAND mask_jstr todo)
- (
- (working "Installing JSTREAM Modules...")
- (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=%s x %sExtras4.lha Modules/Loaders/JSTREAM.#? Modules/Savers/JSTREAM.#? JStream.guide JStream.guide.info" wheredir diskname5))
- )
- )
-
- ; 2.1:
- (if (BITAND mask_cyber todo)
- (
- (working "Installing Cybergraphics Render Module...")
- (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=%s x %sExtras4.lha Modules/Render/CyberGraphics.#?" wheredir diskname5))
- )
- )
-
- ;================================================================
- ; Miscellaneous Setup
- ;================================================================
-
- ;================================================================
- ; Cleanup
- ;================================================================
-
- (run "Delete RAM:lhex QUIET")
-
- (complete 100)
-
- ; Installation complete!
- )
-
- ;-----------------------------------------------------------------------
- ; Revision History:
- ;
- ; 8/25/94 tek
- ; Created.
- ;
- ; 9/02/94 tek
- ; Fixed so it actually works.
- ;
- ; 4/06/95 tek (2.1)
- ; Added JSTREAM and Cybergraphics render module.
- ; Revised for new 2.1 disk layout.
- ;
- ; 4/23/96 tek (2.6)
- ; Updated post.library installation.
- ;
-