home *** CD-ROM | disk | FTP | other *** search
- ; $VER: Install-??? - generic installation script
- ; Installation script to install a program to hard disk using the
- ; Commodore Installer utility
- ; Script copyright (c) Optonica Limited 1995 All Rights Reserved
-
- (set ProgramName "MMExperience Demo")
- (set sourceName (pathonly @icon) )
-
- (welcome (cat "Install" ProgamName))
-
- (set msgtext "This install script will copy library and \n")
- (set msgtext (cat msgtext "font files to your system disk so that the\n"))
- (set msgtext (cat msgtext "MMExperience DEMO will run from this CD \n"))
- (set msgtext (cat msgtext "\nDo you wish to continue?"))
-
- (if (<> (askbool (prompt msgtext) (help @askbool-help)) 1)
- (
- (message "\n\nInstallation Aborted")
- (exit (quiet))
- )
- )
-
- ; LIBRARIES Copy newer version of the required librarys
- (working "Copying Libraries")
- (set sourceLibs (tackon sourceName "Libs"))
- (if (<> (exists sourceLibs) 0)
- (
- (working "Copying Libraries to Libs: directory")
- (foreach sourceLibs "#?.library" (copylib (source (tackon sourceLibs @each-name)) (dest "Libs:") (help @copylib-help) ) )
- )
- )
-
- ; FONTS Only install fonts that are not already available
- (working "Copying Fonts")
- (set sourceFonts (tackon sourceName "Fonts"))
- (if (<> (exists sourceFonts) 0)
- (
- (working "Copying Fonts to Fonts: directory")
- (foreach sourceFonts "#?.font"
- (if (= (exists (tackon "Fonts:" @each-name)) 0)
- (
- (set fontdir (substr @each-name 0 (- (strlen @each-name) 5)))
- (copyfiles (source (tackon sourceFonts fontdir)) (dest (tackon "Fonts:" fontdir)) (all) (help @copyfiles-help))
- (copyfiles (source (tackon sourceFonts @each-name)) (dest "Fonts:") (help @copyfiles-help))
- )
- )
- )
- )
- )
-
- (message "\n\nInstallation Complete")
- (exit (quiet))
-