home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 2 / amigaformatcd02.iso / demos / mmexperience / install-libs&fonts < prev    next >
Encoding:
Text File  |  1996-05-20  |  1.7 KB  |  53 lines
  1. ; $VER: Install-??? - generic installation script
  2. ; Installation script to install a program to hard disk using the
  3. ; Commodore Installer utility
  4. ; Script copyright (c) Optonica Limited 1995 All Rights Reserved
  5.  
  6. (set ProgramName "MMExperience Demo")
  7. (set sourceName (pathonly @icon) )
  8.  
  9. (welcome (cat "Install" ProgamName))
  10.  
  11.              (set msgtext "This install script will copy library and \n")
  12. (set msgtext (cat msgtext "font files to your system disk so that the\n"))
  13. (set msgtext (cat msgtext "MMExperience DEMO will run from this CD   \n"))
  14. (set msgtext (cat msgtext "\nDo you wish to continue?"))
  15.  
  16. (if (<> (askbool (prompt msgtext) (help @askbool-help)) 1)
  17.     (
  18.     (message "\n\nInstallation Aborted")
  19.     (exit (quiet))
  20.     )
  21. )
  22.  
  23. ; LIBRARIES        Copy newer version of the required librarys
  24. (working "Copying Libraries")
  25. (set sourceLibs (tackon sourceName "Libs"))
  26. (if (<> (exists sourceLibs) 0)
  27.     (
  28.         (working "Copying Libraries to Libs: directory")
  29.         (foreach sourceLibs "#?.library" (copylib (source (tackon sourceLibs @each-name)) (dest "Libs:") (help @copylib-help) ) )
  30.     )
  31. )
  32.  
  33. ; FONTS            Only install fonts that are not already available
  34. (working "Copying Fonts")
  35. (set sourceFonts (tackon sourceName "Fonts"))
  36. (if (<> (exists sourceFonts) 0)
  37.     (
  38.         (working "Copying Fonts to Fonts: directory")
  39.         (foreach sourceFonts "#?.font"
  40.             (if (= (exists (tackon "Fonts:" @each-name)) 0)
  41.                 (
  42.                     (set fontdir (substr @each-name 0 (- (strlen @each-name) 5)))
  43.                     (copyfiles (source (tackon sourceFonts fontdir)) (dest (tackon "Fonts:" fontdir)) (all) (help @copyfiles-help))
  44.                     (copyfiles (source (tackon sourceFonts @each-name)) (dest "Fonts:") (help @copyfiles-help))
  45.                 )
  46.             )
  47.         )
  48.     )
  49. )
  50.  
  51. (message "\n\nInstallation Complete")
  52. (exit (quiet))
  53.