; this is an install script for Presentation Master
;
; the following two tooltypes should be on the invokation project icon:
;         MINUSER=AVERAGE
;         APPNAME=PMaster
;
; change log:
;   29 Jul 91 - changed names of disks for better usage.
;   04 Dec 91 - many changes in preparation for product release
;   10 Dec 91 - more changes to accomodate additional clipart
;   26 Dec 91 - some changes to try out installer 1.9 features
;   02 Jan 92 - finish changes for 1.9 installer stuff

(if (exists "s:.PM.settings") (execute "s:.PM.settings" (safe)))

(set pmaster_dest (getassign "PMaster"))

(copyfiles
   (source "PM1:.METAslideend")
   (dest "ram:")
   (infos)
)
(copyfiles
   (source "PM1:lharc")
   (dest "ram:")
   (infos)
)
(copyfiles
   (source "PM1:FilterSettings")
   (dest "ram:")
   (infos)
)

(onerror
   (delete "ram:.metaslideend" (safe))
   (delete "ram:lharc" (safe))
   (delete "ram:filtersettings" (safe))
   (makeassign "PMaster")
   (makeassign "PModules")
   (makeassign "PMpfonts")
   (makeassign "PMbfonts")
   (makeassign "PMclipart")
   (makeassign "PMtemplates")
   (makeassign "PMbackgrounds")
   (makeassign "PMshows")
   (makeassign "PMpics")
   (makeassign "PMhelp")
)

(if pmaster_dest
   (set pm_dest pmaster_dest)
   (set pm_dest (tackon @default-dest "PMaster"))
)

(set pm_dest
   (askdir
      (prompt "Where would you like to install Presentation Master?"
              "\nA full installation will require about 11.2Mb."
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pm_dest)
      )
      (help   "\nFull installation requires 11.2 megabytes"
              " on your hard disk.  Roughly half of this is ClipArt."
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pm_dest)
              ".  In addition all bitmap fonts provided require"
              " another 700Kb on the fonts: device."
              (cat ("\nYou currently have %ld bytes available in fonts:"
               (getdiskspace "fonts:")))
      )
      (newpath)
      (default pm_dest)
   )
)

(makedir pm_dest (infos))

(transcript ("Begin Installation: %ld" (getdiskspace pm_dest)))

(complete 0)

(set @default-dest pm_dest)

(copyfiles
   (source "PM1:icons")
   (dest pm_dest)
   (infos)
   (all)
   (confirm)
   (prompt "Install Misc Files")
   (help " These files include the default program setting"
         " file, the preferences setting program for Presentation"
         " Master, and a freely distributable slideshow program"
         " (which only plays vulcanized show files)"
   )
)

(transcript ("misc files installed: %ld" (getdiskspace pm_dest)))

(if (exists "libs:amigaguide.library")
   (
      (set vernum (getversion "libs:amigaguide.library"))
      (set ver (/ vernum 65536))
      (set rev (- vernum (* ver 65536) ) )
      (set newvernum (getversion "PM1:libs/amigaguide.library"))
      (set newver(/ newvernum 65536))
      (set newrev(- newvernum (* newver 65536)))
;      (message
;         ("You already have amigaguide.library version %ld.%ld" ver rev)
;         ("\nThe new amigaguide.library version is %ld.%ld" newver newrev)
;      )
      (if (> newvernum vernum)
         (if (askbool
               (prompt "Do you wish to replace the amigaguide.library"
                       " file into your libs: directory?  This library"
                       " is essential to the operation of the help"
                       " system in Presentation Master"
                       ("\nThe current library is version %ld.%ld" ver rev)
                       ("\nThe new library is version %ld.%ld" newver newrev)
               )
               (help "If you wish to be able to utilize the extensive help"
                     " system provided with Presentation Master then you"
                     " should install it."
               )
               (default 1)
            )
            (
               (copyfiles
                  (source "PM1:libs")
                  (dest "libs:")
                  (all)
                  (prompt "Copying AmigaGuide.Library File")
               )
            )
         )
      )
   )
   (
      (if (askbool
            (prompt "Do you wish to install the amigaguide.library"
                    " file into your libs: directory?  This library"
                    " is essential to the operation of the help"
                    " system in Presentation Master"
            )
            (help "If you wish to be able to utilize the extensive help"
                  " system provided with Presentation Master then you"
                  " should install it."
            )
            (default 1)
         )
         (
            (copyfiles
               (source "PM1:libs")
               (dest "libs:")
               (all)
               (prompt "Copying AmigaGuide.Library File")
            )
         )
      )
   )
)

(transcript ("AmigaGuide installed: %ld" (getdiskspace pm_dest)))

(set version
   (askchoice
      (prompt "Which Program Version Do You Want To Install\n"
              "(see HELP for more details)?")
      (help
            "** The overlay version uses segmentation to try to"
            " run reasonably well on an Amiga with limited ram."
            " This causes delays due to having to load in"
            " segments repeatedly, but will be more conservative"
            " of memory.  If you select this version, then more"
            " options will be presented later in the instalation"
            " to reduce memory requirements even further.\n"
            "Keep in mind that a 2Mb A3000 is really just 1.5Mb"
            " due to 1/2Mb used for operating system (until"
            " 2.0 is provided in ROM).  In this case you really"
            " should consider adding more ram to your A3000"
            " for proper operation of Presentation Master.\n"
            "** The non-overlay version requires on the order of"
            " 3Mb of ram, or more, but is much more responsive.\n")
      (choices ("Overlay Version For 2Mb Machines")
               ("Non-Overlay Version For 3+Mb Machines")
               ("Skip this part")
      )
      (default 0)
   )
)

(if (= version 0)
   (
      (askdisk
         (prompt "Please insert the disk labeled \"PM2\".")
         (help @askdisk-help)
         (dest  "PM2")
      )
      (delete (tackon pm_dest "PMaster"))
      (set arc_dest (tackon pm_dest "xxx"))
      (working
                 "UnCompressing Presentation Master program.\n"
                 "Overlay Version!!\n"
                 "\n**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (run (cat "ram:lharc >nil: -m -n x PM2:PMasterO.lzh \"" arc_dest "/\""))
      (rename (tackon arc_dest "PMaster") (tackon pm_dest "PMaster"))
      (delete arc_dest)
   )
)

(if (= version 1)
   (
      (askdisk
         (prompt "Please insert the disk labeled \"PM2\".")
         (help @askdisk-help)
         (dest  "PM2")
      )
      (delete (tackon pm_dest "PMaster"))
      (set arc_dest (tackon pm_dest "xxx"))
      (working
                 "UnCompressing Presentation Master program.\n"
                 "Non-Overlay Version!!\n"
                 "\n**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (run (cat "ram:lharc >nil: -m -n x PM2:PMaster.lzh \"" arc_dest "/\""))
      (rename (tackon arc_dest "PMaster") (tackon pm_dest "PMaster"))
      (delete arc_dest)
   )
)

(transcript ("PMaster installed: %ld" (getdiskspace pm_dest)))

(complete 30)

(set template_dest (tackon pm_dest "Templates"))
(set template_dest
   (askdir
      (prompt "Where are Templates to be located?")
      (help "Templates are used by Presentation Master as master"
            " slide formats.  They predefine the slide design as well"
            " as the layers present, the fonts, colors, etc.")
      (default template_dest)
      (newpath)
   )
)
(makedir template_dest (infos))

(set template_install
   (askbool
      (prompt "Do you wish to install Templates?")
      (help "While the path to the templates has to be specified,"
            " the actual installation is optional since one may already"
            " have his own templates installed and may not wish to use"
            " the distributed templates."
            "\nInstallation will require about 1Mb."
            (cat ("\nYou currently have %ld bytes available in "
             (getdiskspace pm_dest)) template_dest)
      )
      (default 1)
   )
)

(if template_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"Pfonts1\"."
                 "\n(Templates are installed from this disk)"
         )
         (help @askdisk-help)
         (dest  "Pfonts1")
      )
      (set arc_dest template_dest)
      (working
                 "UnCompressing Template files.\n"
                 "**********\n"
                 "This could take several minutes so please be patient!\n"
                 "**********"
      )
      (run (cat "ram:lharc >nil: -m -n x Pfonts1:Templates.lzh \"" arc_dest "/\""))
   )
)

(transcript ("Templates Installed: %ld" (getdiskspace pm_dest)))

(complete 40)

(set pfonts_dest (tackon pm_dest "PFonts"))
(set pfonts_dest
      (askdir
         (prompt "Where should Polygon Fonts be located?"
              "\nInstallation will require about 1/2Mb."
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pfonts_dest)
         )
         (help "These are proprietary scalable outline fonts "
               "used by Presentation Master for creation of "
               "text objects in the object based paint system.")
         (default pfonts_dest)
         (newpath)
      )
)
(makedir pfonts_dest (infos))


(set pfont_install
   (askbool
      (prompt "Do you wish to install Polygon Fonts?")
      (help "These are only necessary if you wish to utilize the"
            " PolyFont module to create editible paint objects"
            " based on a text string and a given font.  This is a"
            " very powerful capability allowing 3D distortion of"
            " text, fitting text to a circle or spiral, and many"
            " other effects.")
      (default 1)
   )
)

(if pfont_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"Pfonts1\".")
         (help @askdisk-help)
         (dest  "Pfonts1")
      )
      (set arc_dest pfonts_dest)
      (working
         "UnCompressing Polygon Fonts.\n"
         "**********\n"
         "This could take several minutes so please be patient!\n"
         "**********"
      )
      (run (cat "ram:lharc >nil: -m -n x Pfonts1:PFonts.lzh \"" arc_dest "/\""))
   )
)

(transcript ("Pfonts Installed: %ld" (getdiskspace pm_dest)))

(complete 50)

(set font_install
   (askbool
      (prompt "Do you wish to install bitmap Fonts to your fonts: drawer?\n"
              "These will require approximately 700,000 bytes in fonts:"
              " provided there are no duplications.\n"
              ("** You currently have %ld bytes available in fonts:"
               (getdiskspace "fonts:"))
              "\nYou need to at least have"
              " Lark (a Helvetica-like font) and Bullets (used for"
              " bulleted text) installed for proper operation."
      )
      (help "These bitmap fonts are standard Amiga fonts"
            " which will be installed into the Fonts: directory"
            " if you choose to do so.  They are primarily provided"
            " for on-screen representation of some of the PostScript"
            " fonts.  Also contained in them is the Bullets font"
            " which is required for use of bullets in Presentation"
            " Master!  It is recommended that you install them unless"
            " they have already been installed previously."
               "\nThese fonts are provided primarily as close on-screen"
               " representations of the standard PostScript fonts provided"
               " with most PostScript printers.  For full PostScript"
               " functionality, all of these fonts should be installed."
               " As a minimum, Lark and Bullets should be installed."
               "\n\nFonts Provided:"
               "\n      font name          equiv PostScript font   "
               "\n        Lark                 Helvetica           "
               "\n        Stork                Courier             "
               "\n        Finch                Times               "
               "\n        Flamingo             ZapfChancery        "
               "\n        Hawk                 NewCenturySchoolbook"
               "\n        Lark_N               Helvetica Narrow    "
               "\n        Raven                Palatino            "
               "\n        Swallow              Bookman"
               "\n        Swift                Avant Garde         "
               "\n        Dodo                 Symbols             "
               "\n        Kiwi                 ZapfDingbats        "
               "\n        Bullets              special bullet font "
      )
      (default 1)
   )
)

(if font_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"Afonts1\".")
         (help @askdisk-help)
         (dest  "Afonts1")
      )
      (copyfiles
         (source "Afonts1:fonts")
         (dest "fonts:")
         (fonts)
         (infos)
         (all)
         (confirm)
         (prompt "Copying Bitmap Fonts")
         (help "You can de-select any fonts not desired."
               " However, it is strongly recommended that you have"
               " at least Lark and Bullets installed for proper"
               " operation of Presentation Master."
               "\nThese fonts are provided primarily as close on-screen"
               " representations of the standard PostScript fonts provided"
               " with most PostScript printers.  For full PostScript"
               " functionality, all of these fonts should be installed."
               " As a minimum, Lark and Bullets should be installed."
               "\n\nFonts Provided:"
               "\n      font name          equiv PostScript font   "
               "\n        Lark                 Helvetica           "
               "\n        Stork                Courier             "
               "\n        Finch                Times               "
               "\n        Flamingo             ZapfChancery        "
               "\n        Hawk                 NewCenturySchoolbook"
               "\n        Lark_N               Helvetica Narrow    "
               "\n        Raven                Palatino            "
               "\n        Swallow              Bookman"
               "\n        Swift                Avant Garde         "
               "\n        Dodo                 Symbols             "
               "\n        Kiwi                 ZapfDingbats        "
               "\n        Bullets              special bullet font "
         )
      )
   )
)

(transcript ("Amiga Fonts Installed: %ld" (getdiskspace pm_dest)))

(complete 60)

(set bkgrnd_dest (tackon pm_dest "Backdrops"))
(set bkgrnd_dest
      (askdir
         (prompt "Where should IFF Backgrounds be located?")
         (help "IFF Backgrounds can be used by Presentation Master as"
               " backdrops for any layered slide.  They are compatible"
               " with color fonts (e.g. Kara Fonts) and with all the"
               " built in color palettes in Presentation Master, as"
               " well as with all the templates.")
         (default bkgrnd_dest)
         (newpath)
      )
)
(makedir bkgrnd_dest (infos))


(set bkgrnd_install
   (askchoice
      (prompt "Do you wish to install Backgrounds?\n"
              (cat ("** You currently have %ld bytes available in "
               (getdiskspace bkgrnd_dest)) bkgrnd_dest))
      (help "While the path to the backgrounds has to be specified,"
            " the actual installation is optional since one may already"
            " have his own backgrounds installed and may not wish to use"
            " the distributed backgrounds.\n"
            "** Minimum Install includes 23 brushes which are tiled to"
            " the background\n"
            "** Medium Install includes 23 brushes plus 11 full screen"
            " IFF backgrounds\n"
            "** Full Install includes 23 brushes plus 22 full screen"
            " IFF backgrounds")
      (choices ("Skip the Installation")
               ("Minimum Install (requires 63 Kbytes on disk)")
               ("Medium Install (requires 800 Kbytes on disk)")
               ("Full Install (requires 1.6 Mb  on disk)"))
      (default 3)
   )
)

(if (= bkgrnd_install 1)
   (
      (askdisk
         (prompt "Minimum Install\nPlease insert the disk labeled \"Backgrounds2\".")
         (help @askdisk-help)
         (dest  "Backgrounds2")
      )
      (copyfiles
         (source "Backgrounds2:")
         (pattern "#?.win")
         (dest bkgrnd_dest)
         (infos)
         (confirm)
         (prompt "Copying IFF Backdrops")
         (help "You can de-select any files not desired")
      )
   )
)

(if (= bkgrnd_install 2)
   (
      (askdisk
         (prompt "Medium Install\nPlease insert the disk labeled \"Backgrounds2\".")
         (help @askdisk-help)
         (dest  "Backgrounds2")
      )
      (copyfiles
         (source "Backgrounds2:")
         (dest bkgrnd_dest)
         (infos)
         (all)
         (confirm)
         (prompt "Copying IFF Backdrops")
         (help "You can de-select any files not desired")
      )
   )
)

(if (= bkgrnd_install 3)
   (
      (askdisk
         (prompt "Full Install\nPlease insert the disk labeled \"Backgrounds1\".")
         (help @askdisk-help)
         (dest  "Backgrounds1")
      )
      (copyfiles
         (source "Backgrounds1:")
         (dest bkgrnd_dest)
         (infos)
         (all)
         (confirm)
         (prompt "Copying IFF Backdrops")
         (help "You can de-select any files not desired")
      )
      (askdisk
         (prompt "Please insert the disk labeled \"Backgrounds2\".")
         (help @askdisk-help)
         (dest  "Backgrounds2")
      )
      (copyfiles
         (source "Backgrounds2:")
         (dest bkgrnd_dest)
         (infos)
         (all)
         (confirm)
         (prompt "Copying IFF Backdrops")
         (help "You can de-select any files not desired")
      )
   )
)

(transcript ("Backgrounds Installed: %ld" (getdiskspace pm_dest)))

(complete 70)

(set modules_dest (tackon pm_dest "Modules"))
(set modules_dest
      (askdir
         (prompt "Where should the program Modules be located?")
         (help "Modules are used by Presentation Master for many tasks"
               " such as PostScript output, creation of bar/pie charts"
               " manipulation of paint objects such as bending and 3D"
               " distortion and fit-to-circle, and many other things."
               " Without the modules, Presentation Master is severely"
               " crippled in its capabilities.")
         (default modules_dest)
         (newpath)
      )
)
(makedir modules_dest (infos))


(set modules_install
   (askbool
      (prompt "Do you wish to install Modules?")
      (help "It is recommended that you install them unless you really"
            " know what you are doing.")
      (default 1)
   )
)

(if modules_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"Modules1\".")
         (help @askdisk-help)
         (dest  "Modules1")
      )
      (copyfiles
         (source "Modules1:")
         (pattern "#?")
         (dest modules_dest)
         (infos)
         (confirm)
         (prompt "Copying Program Print Modules")
         (help "You can de-select any files not desired.\n"
               "This disk includes the following modules:\n"
               "** Bitmap Print - option this if you want to be able"
               " to do raster dump printing to a dot matrix printer"
               " via the standard Amiga printer drivers.\n"
               "** PostScript Print - option this if you want to be"
               " able to output PostScript files, or print direct to"
               " a PostScript printer.  N.B. that this is the primary"
               " output mode for Presentation Master.\n"
               "** Outline Print - option this if you wish to be able"
               " to output your show as an ascii outline which can be"
               " printed or brought into an editor or word processor.\n"
               "** Save IFF - option this if you wish to be able to save"
               " your show, or individual slides, as IFF files (compatible"
               " with Amiga paint programs)"
         )
      )
      (askdisk
         (prompt "Please insert the disk labeled \"Modules2\".")
         (help @askdisk-help)
         (dest  "Modules2")
      )
      (copyfiles
         (source "Modules2:modules")
         (pattern "#?")
         (dest modules_dest)
         (infos)
         (confirm)
         (prompt "Copying Program Modules")
         (help "You can de-select any files not desired.\n"
               "This disk includes the following modules:\n"
               "** Chart - option this if you wish to be able to"
               " generate bar, pie, line, or area charts either from"
               " imported or directly entered data.\n"
               "** SlideShow - option this to be able to preview or"
               " show your on-screen show from within Presentation Master.\n"
               "** Poly Text - option this to be able to create editable paint"
               " objects (in the object based paint system) based upon"
               " a text string, in any font provided in PolyFont format"
               " (a number of PolyFonts are included with Presentation"
               " Master).\n"
               "** Bullet Text - option this to be able to create editable"
               " paint objects based upon Amiga Bullet Outline Fonts."
               " Bullet fonts are included with the release 2.0 operating"
               " system and are also provided by other software vendors"
               " such as Gold Disk and Soft Logik.  They are also available"
               " from many font publishing companies including"
               " AGFA Compugraphic.\n"
               "** Import EPS - option this to be able to import EPS"
               " (Encapsulated PostScript) files, in Illustrator 1.1 format,"
               " directly into the object based paint system as editable"
               " paint objects.  Presentation Master actually recognizes"
               " a subset of the Illustrator format, so check the manual"
               " for a discussion of compatibility.\n"
               "** Distort Object - option this to be able to distort"
               " objects in the paint system in either a 2D or 3D (with"
               " 3D foreshortening) way.\n"
               "** Bend Object - option this to be able to bend objects"
               " (like text created by the PolyText or BulletText modules)"
               " into curved shapes defined by beziers.\n"
         )
      )
      (askdisk
         (prompt "Please insert the disk labeled \"Modules3\".")
         (help @askdisk-help)
         (dest  "Modules3")
      )
      (copyfiles
         (source "Modules3:modules")
         (pattern "#?")
         (dest modules_dest)
         (infos)
         (confirm)
         (prompt "Copying Program Modules")
         (help "You can de-select any files not desired.\n"
               "This disk includes the following modules:\n"
               "** Fit To Circle - option this to be able to bend"
               " any object in the object based paint system (such"
               " as a line of text created by the PolyText or BulletText"
               " modules) into a circle.  This can also be used to"
               " create spirals when combined with the DistortObject"
               " module.\n"
               "** Vulcanize - option this to be able to create"
               " transportable slideshows which can be shown by the"
               " freely distributable slideshow program PMshow.\n"
         )
      )
      (copyfiles
         (source "Modules3:printers")
         (pattern "#?")
         (dest modules_dest)
         (infos)
         (confirm)
         (prompt "Copying Printer Def Files for PostScript Module")
         (help "These files define various printer specific settings"
               " for the PostScript module to use in positioning"
               " the slide on the page.  These can also be used to"
               " predefine various other modes such as sheets of labels."
               " You can de-select any files not desired.")
      )
      (copyfiles
         (source "Modules3:colors")
         (pattern "#?")
         (dest modules_dest)
         (infos)
         (confirm)
         (prompt "Copying Process Color Definition Files")
         (help "These are definition files of cmyk values for"
               " standard process colors.  One could create"
               " one of these files for Pantone colors if"
               " desired, and given a great amount of enthusiasm."
               " You can de-select any files not desired.")
      )
   )
)

(transcript ("Modules Installed: %ld" (getdiskspace pm_dest)))

(complete 80)

; first the overall default path for clipart.  Then the installation of
; each sample collection.  Each install is separate, rather than use a
; loop, so the text can be customized for each publisher and collection.

(set clipart_dest (tackon pm_dest "ClipArt"))
(set clipart_dest
   (askdir
      (prompt "Where is the default Clipart disk path?"
            "\nThe entire collection will require 5.1Mb of space."
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pm_dest)
      )
      (help "This is the default path used by the Import EPS module."
            " While a path must be specified, if you do not intend to"
            " use clipart, then any path will do here."
            "\n\nThe entire collection will require 5.1Mb of space on"
            " your hard drive.\n"
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pm_dest)
      )
      (newpath)
      (default clipart_dest)
   )
)
(makedir clipart_dest (infos))

; ************ ClipArt1 *************

(transcript ("start clipart: %ld" (getdiskspace pm_dest)))

; ************ Cliptures *************

(set clipart_install
   (askbool
      (prompt "Do you wish to install Cliptures sample images?"
              "\nThis collection consists of 32 EPS images"
              " provided for your use by:"
              "\nDream Maker Software"
              "\n7217 Foothill Blvd"
              "\nTujunga, California 91042-9988"
              "\n1-818-353-2297"
              "\nSee the documentation for more information on their"
              " complete product line."
              "\nCliptures will require 1,300,000 bytes of space."
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pm_dest)
      )
      (help "While the default path to the clipart has to be specified,"
            " the actual installation is optional since one may already"
            " have his own clipart installed and may not wish to use"
            " the distributed sample images."
            "\nSee the enclosed ClipArt booklet for more information on"
            " this collection including pictorial representations of"
            " all provided images."
      )
      (default 1)
   )
)

(if clipart_install
   (
      (set arc_dest (tackon clipart_dest "Cliptures"))
      (askdisk
         (prompt "Please insert the disk labeled \"ClipArt1\".")
         (help @askdisk-help)
         (dest  "ClipArt1")
      )
      (working
         "\nDeCompressing Cliptures Sample Images.\n" "to:\n" arc_dest
         "\n\n**********\n"
         "This could take several minutes so please be patient!\n"
         "**********\n"
      )
      (run (cat "ram:lharc >nil: -m -n x ClipArt1:Cliptures.lzh \"" arc_dest "/\""))
   )
)

(transcript ("installed Cliptures: %ld" (getdiskspace pm_dest)))

; ************ AdArt *************

(set clipart_install
   (askbool
      (prompt "Do you wish to install AdArt sample images?"
              "\nThis collection consists of 33 EPS images,"
              " of logos, symbols, and flags,"
              " provided by:"
              "\nInnovation Advertising & Design"
              "\n41 Mansfield Avenue"
              "\nEssex Junction, Vermont 05452"
              "\n1-800-255-0562"
              "\nSee the documentation for more information."
              "\nAdArt will require 445,000 bytes of space."
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pm_dest)
      )
      (help "While the default path to the clipart has to be specified,"
            " the actual installation is optional since one may already"
            " have his own clipart installed and may not wish to use"
            " the distributed sample images."
            "\nSee the enclosed ClipArt booklet for more information on"
            " this collection including pictorial representations of"
            " all provided images."
      )
      (default 1)
   )
)

(if clipart_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"ClipArt1\".")
         (help @askdisk-help)
         (dest  "ClipArt1")
      )
      (set arc_dest (tackon clipart_dest "AdArt"))
      (working
         "\nDeCompressing AdArt Sample Images.\n" "to:\n" arc_dest
         "\n\n**********\n"
         "This could take several minutes so please be patient!\n"
         "**********\n"
      )
      (run (cat "ram:lharc >nil: -m -n x ClipArt1:AdArt.lzh \"" arc_dest "/\""))
   )
)

(transcript ("installed AdArt: %ld" (getdiskspace pm_dest)))

; ************ ClipArt2 *************

; ************ 3G Graphics *************

(set clipart_install
   (askbool
      (prompt "Do you wish to install 3G Graphics sample images?"
              "\nThis collection consists of 25 EPS images"
              " provided for your use by:"
              "\n3G Graphics, Inc."
              "\n11410 N.E. 124th St., Suite 6155"
              "\nKirkland, WA 98034"
              "\n1-206-367-9321"
              "\nSee the documentation for more information."
              "\nThese will require 730,000 bytes of space."
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pm_dest)
      )
      (help "While the default path to the clipart has to be specified,"
            " the actual installation is optional since one may already"
            " have his own clipart installed and may not wish to use"
            " the distributed sample images."
            "\nSee the enclosed ClipArt booklet for more information on"
            " this collection including pictorial representations of"
            " all provided images."
      )
      (default 1)
   )
)

(if clipart_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"ClipArt2\".")
         (help @askdisk-help)
         (dest  "ClipArt2")
      )
      (set arc_dest (tackon clipart_dest "3Ggraphics"))
      (working
         "\nDeCompressing 3G Graphics Sample Images.\n" "to:\n" arc_dest
         "\n\n**********\n"
         "This could take several minutes so please be patient!\n"
         "**********\n"
      )
      (run (cat "ram:lharc >nil: -m -n x ClipArt2:3Ggraphics.lzh \"" arc_dest "/\""))
   )
)

(transcript ("installed 3Ggraphics: %ld" (getdiskspace pm_dest)))

; ************ FineArt *************

(set clipart_install
   (askbool
      (prompt "Do you wish to install Best Impressions images?"
              "\nThis collection consists of 4 sample EPS images"
              " provided for your use by:"
              "\nbest impressions"
              "\n3844 W. Channel Islands Blvd. Suite 234"
              "\nOxnard, California 93035"
              "\n1-805-984-9748"
              "\nSee the documentation for more information."
              "\nThese will require 280,000 bytes of space."
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pm_dest)
      )
      (help "While the default path to the clipart has to be specified,"
            " the actual installation is optional since one may already"
            " have his own clipart installed and may not wish to use"
            " the distributed sample images."
            "\nSee the enclosed ClipArt booklet for more information on"
            " this collection including pictorial representations of"
            " all provided images."
      )
      (default 1)
   )
)

(if clipart_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"ClipArt2\".")
         (help @askdisk-help)
         (dest  "ClipArt2")
      )
      (set arc_dest (tackon clipart_dest "FineArt"))
      (working
         "\nDeCompressing Best Impressions Sample Images.\n" "to:\n" arc_dest
         "\n\n**********\n"
         "This could take several minutes so please be patient!\n"
         "**********\n"
      )
      (run (cat "ram:lharc >nil: -m -n x ClipArt2:BestImpressions.lzh \"" arc_dest "/\""))
   )
)

(transcript ("installed FineArt: %ld" (getdiskspace pm_dest)))

; ************ Click&Clip *************

(set clipart_install
   (askbool
      (prompt "Do you wish to install Click&Clip sample images?"
              "\nThis collection consists of 30 EPS images"
              " provided for your use by:"
              "\nStudio Advertising Art"
              "\nP.O. Box 43912"
              "\nLas Vegas, NV 89116"
              "\n1-702-641-7041"
              "\nSee the documentation for more information."
              "\nClick&Clip will require 510,000 bytes of space."
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pm_dest)
      )
      (help "While the default path to the clipart has to be specified,"
            " the actual installation is optional since one may already"
            " have his own clipart installed and may not wish to use"
            " the distributed sample images."
            "\nSee the enclosed ClipArt booklet for more information on"
            " this collection including pictorial representations of"
            " all provided images."
      )
      (default 1)
   )
)

(if clipart_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"ClipArt2\".")
         (help @askdisk-help)
         (dest  "ClipArt2")
      )
      (set arc_dest (tackon clipart_dest "Click&Clip"))
      (working
         "\nDeCompressing Click&Clip Sample Images.\n" "to:\n" arc_dest
         "\n\n**********\n"
         "This could take several minutes so please be patient!\n"
         "**********\n"
      )
      (run (cat "ram:lharc >nil: -m -n x ClipArt2:Click&Clip.lzh \"" arc_dest "/\""))
   )
)

(transcript ("installed Click&Clip: %ld" (getdiskspace pm_dest)))

; ************ ClipArt3 *************

; ************ Totem *************

(set clipart_install
   (askbool
      (prompt "Do you wish to install Totem sample images?"
              "\nThis collection consists of 4 EPS images"
              " provided for your use by:"
              "\nTotem Graphics, Inc."
              "\n5109A- Capitol Blvd."
              "\nTumwater, WA 98501"
              "\n1-206-352-1851"
              "\nSee the documentation for more information."
              "\nTotem will require 285,000 bytes of space."
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pm_dest)
      )
      (help "While the default path to the clipart has to be specified,"
            " the actual installation is optional since one may already"
            " have his own clipart installed and may not wish to use"
            " the distributed sample images."
            "\nSee the enclosed ClipArt booklet for more information on"
            " this collection including pictorial representations of"
            " all provided images."
      )
      (default 1)
   )
)

(if clipart_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"ClipArt3\".")
         (help @askdisk-help)
         (dest  "ClipArt3")
      )
      (set arc_dest (tackon clipart_dest "Totem"))
      (working
         "\nDeCompressing Totem Sample Images.\n" "to:\n" arc_dest
         "\n\n**********\n"
         "This could take several minutes so please be patient!\n"
         "**********\n"
      )
      (run (cat "ram:lharc >nil: -m -n x ClipArt3:Totem.lzh \"" arc_dest "/\""))
   )
)

(transcript ("installed Totem: %ld" (getdiskspace pm_dest)))

; ************ MapArt *************

(set clipart_install
   (askbool
      (prompt "Do you wish to install MapArt sample images?"
              "\nThis collection consists of 2 EPS images"
              " provided for your use by:"
              "\nMicroMaps Software"
              "\nP.O. Box 757"
              "\n9 Church Street"
              "\nLambertville, NJ 08530"
              "\n1-800-334-4291"
              "\n1-609-397-1611"
              "\nSee the documentation for more information."
              "\nMapArt will require 310,000 bytes of space."
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pm_dest)
      )
      (help "While the default path to the clipart has to be specified,"
            " the actual installation is optional since one may already"
            " have his own clipart installed and may not wish to use"
            " the distributed sample images."
            "\nSee the enclosed ClipArt booklet for more information on"
            " this collection including pictorial representations of"
            " all provided images."
      )
      (default 1)
   )
)

(if clipart_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"ClipArt3\".")
         (help @askdisk-help)
         (dest  "ClipArt3")
      )
      (set arc_dest (tackon clipart_dest "MapArt"))
      (working
         "\nDeCompressing MapArt Sample Images.\n" "to:\n" arc_dest
         "\n\n**********\n"
         "This could take several minutes so please be patient!\n"
         "**********\n"
      )
      (run (cat "ram:lharc >nil: -m -n x ClipArt3:MapArt.lzh \"" arc_dest "/\""))
   )
)

(transcript ("installed MapArt: %ld" (getdiskspace pm_dest)))

; ************ LifeART *************

(set clipart_install
   (askbool
      (prompt "Do you wish to install LifeART sample images?"
              "\nThis collection consists of 11 EPS images"
              " provided for your use by:"
              "\nTechPool Studios"
              "\n1643 Warrensville Center Road"
              "\nCleveland, Ohio 44121-9964"
              "\n1-800-777-8930"
              "\n1-216-382-1915"
              "\nSee the documentation for more information on their"
              " Anatomy, Dental, and Emergency product lines."
              "\nThese will require 1.3Mb of space."
              (cat ("\nYou currently have %ld bytes available in "
               (getdiskspace pm_dest)) pm_dest)
      )
      (help "While the default path to the clipart has to be specified,"
            " the actual installation is optional since one may already"
            " have his own clipart installed and may not wish to use"
            " the distributed sample images."
            "\nSee the enclosed ClipArt booklet for more information on"
            " this collection including pictorial representations of"
            " all provided images."
      )
      (default 1)
   )
)

(if clipart_install
   (
      (askdisk
         (prompt "Please insert the disk labeled \"ClipArt3\".")
         (help @askdisk-help)
         (dest  "ClipArt3")
      )
      (set arc_dest (tackon clipart_dest "LifeART"))
      (working
         "\nDeCompressing TechPool Sample Images.\n" "to:\n" arc_dest
         "\n\n**********\n"
         "This could take several minutes so please be patient!\n"
         "**********\n"
      )
      (run (cat "ram:lharc >nil: -m -n x ClipArt3:LifeART.lzh \"" arc_dest "/\""))
   )
)

(transcript ("installed LifeART: %ld" (getdiskspace pm_dest)))

; **************************************************

; end of clipart installation section

(complete 90)

; These commands are really only pertinent if the user saves the .PM.settings
; file.  Otherwise, they could be skipped.

(set overlay 0)

(if (<> version 1)
   (set overlay
      (askchoice
         (prompt "What memory configuration do you wish to use"
                 " when running Presentation Master with Overlay?")
         (choices
            ("Normal overlaid configuration")
            ("Overlay plus reduce internal save bufs")
            ("Overlay plus eliminate all possible save bufs")
         )
         (help "Presentation Master has several steps it can take to"
               " reduce its ram requirements so it can run more"
               " comfortably on an Amiga with limited ram."
               " Overlays are used so all of Presentation Master"
               " need not be in ram at once, although the user"
               " will experience pauses frequently while code is"
               " loaded in from disk.  These pauses can be eliminated"
               " by using the non-overlay version, although this requires"
               " much more ram (Min ram 3Mb, and more recommended)."
               " The overlay configuration"
               " frees up about 400k under most situations."
               " If you are very tight on ram, then internal save bufs"
               " can be reduced, in which case a 2Mb Amiga is normally"
               " required.  In this case you will experience much slower"
               " operation since the screen will have to be redrawn at"
               " a much more frequent rate.  If you really want to"
               " conserve the maximum ram possible, then the third"
               " option will eliminate a bit more, for an additional"
               " saving of about 120k of ram, but at the expense of"
               " often totally loosing the background image at places."
               " The entire slide still exists, but the buffer used"
               " to keep the background around during certain operations"
               " is no longer there.  This final choice is NOT recommended"
               " unless your situation is very tight and option 3 won't"
               " quite hack it.\n"
               "********************\n"
               "N.B. that if you have an Amiga 3000 with 2.0 still on disk,"
               " then you MAY be able to run SOMEWHAT with option 3."
               " If you have 2.0 in ROM then"
               " option 3 will work fine under 2.0."
         )
         (default 2)
      )
   )
)

(set overlay (+ overlay 1))

(set fixflicker
   (askchoice
      (prompt "What type of Monitor are you going to use"
              " when running Presentation Master?")
      (choices
         ("MultiSync (De-Interlaced) Monitor")
         ("Normal Video-Compatible Monitor")
      )
      (help "Presentation Master does some special things to"
            " try to minimize flicker when necessary.  The display"
            " looks better without these special things if you"
            " have a de-interlaced monitor, but will flicker"
            " unacceptably if you don't."
      )
      (default 1)
   )
)
(set fixflicker (+ fixflicker 1))

(set show_dest (tackon pm_dest "Shows"))
(set show_dest
   (askdir
      (prompt "Where would you like to save SHOW files?")
      (help
         "The data files saved by Presentation Master are called SHOW"
         " files (actually they are IFF form SHOW files).  This is"
         " a directory where you will likely want to store these files."
         " By setting it here, Presentation Master will point to this"
         " directory by default when you want to open/close a show."
      )
      (newpath)
      (default show_dest)
   )
)
(makedir show_dest (infos))

(set iff_dest (tackon pm_dest "Pics"))
(set iff_dest
   (askdir
      (prompt "Where would you like to have Presentation Master"
              " look by default for IFF images for IFF slides"
              " or image layers?")
      (help
         "When asked to open an IFF image for an IFF picture/anim slide"
         " or for an Image layer in a layered slide, this is the directory"
         " which will be used as the default path."
      )
      (newpath)
      (default iff_dest)
   )
)
(makedir iff_dest (infos))

(set bfonts_dest
   (askdir
      (prompt "Where would you like to have Presentation Master"
              " look for Bullet fonts?")
      (help
         "Bullet fonts are the outline fonts used with various products"
         " and with the new font system under the 2.0 operating system."
         "  This path is the default path used by the Bullet Text module."
      )
      (newpath)
      (default "FONTS:_Bullet_Outlines")
   )
)
(makedir bfonts_dest (infos))

(complete 99)

(
   (textfile
      (prompt "Do you wish to create the master settings file?\n"
              "*************\n"
              "This is the s:.PM.settings file used by Presentation Master"
              " to be able to locate modules, poly fonts, templates,"
              " and other things.")
      (help "The file s:.PM.settings is required for Presentation Master to"
            " function properly.  Without it Presentation Master won't"
            " know where the modules are, where the poly fonts are, where"
            " the templates are, etc.  This settings file is paramount"
            " to proper operation!")
      (dest "ram:.PM.settingsx")
      (append "assign PMaster: \"" pm_dest "\"\n")
      (append "assign PModules: \"" modules_dest "\"\n")
      (append "assign PMpfonts: \"" pfonts_dest "\"\n")
      (append "assign PMbfonts: \"" bfonts_dest "\"\n")
      (append "assign PMclipart: \"" clipart_dest "\"\n")
      (append "assign PMbackgrounds: \"" bkgrnd_dest "\"\n")
      (append "assign PMtemplates: \"" template_dest "\"\n")
      (append "assign PMshows: \"" show_dest "\"\n")
      (append "assign PMpics: \"" iff_dest "\"\n")
      (append "assign PMhelp: \"" pm_dest "\"\n")
      (append "quit\n")
      (append "# Now the real settings for Presentation Master\n")
      (append "METASLIDE-1\n")
      (append ("FIXFLICKER %ld\n" fixflicker))
      (append ("OVERLAY %ld\n" overlay))
      (append "PFONTSPATH<" pfonts_dest ">\n")
      (append "BULLETFONTSPATH<" bfonts_dest ">\n")
      (append "CLIPARTPATH<" clipart_dest ">\n")
      (append "MODULEPATH1<" modules_dest ">\n")
      (append "COLORSPATH<" modules_dest ">\n")
      (append "TEMPLATEPATH<" template_dest ">\n")
      (append "PROJECTPATH<" pm_dest ">\n")
      (append "SHOWPATH<" show_dest ">\n")
      (append "IFFOPENPATH<" iff_dest ">\n")
      (append "IFFBACKGROUNDS<" bkgrnd_dest ">\n")
      (append "HELPFILE<" pm_dest ">\n")
      (append "PROJECTICON 1\n")
      (append "SHOWICON 2\n")
      (append "TEMPLATEICON 3\n")
      (append "PROJECTTOOL PMaster\n")
      (include "ram:.metaslideend")
      (confirm)
   )
)

(run ("ram:filtersettings"))
(delete "ram:.pm.settingsx" (safe))
(delete "ram:.metaslideend" (safe))
(delete "ram:lharc" (safe))
(delete "ram:filtersettings" (safe))

(makeassign "PMaster")
(makeassign "PModules")
(makeassign "PMpfonts")
(makeassign "PMbfonts")
(makeassign "PMclipart")
(makeassign "PMtemplates")
(makeassign "PMbackgrounds")
(makeassign "PMshows")
(makeassign "PMpics")

(transcript ("installation complete: %ld" (getdiskspace pm_dest)))

(complete 100)

(exit)