;Compugraphic Collection - Compiled by Clive Gardner

;Installer Script v1.00 by Clive Gardner 02/10/93
;Installer Script v1.10 by Clive Gardner 24/07/94
;Installer Script v1.20 by Clive Gardner 20/09/94
;Installer Script v1.30 by Clive Gardner 21/09/94

;==========================================================================

;Just input the relevent disk name and volume name in the strings....

(set cp "CG_Collection_15:CGFonts/")

;Here we put the filenames and font titles just in case we need them more ;than once and I can't be bothered to retype them....

(set f0 "CopperPlate.#?")                 (set n0 "Copper Plate")
(set f1 "EricaBold.#?")                   (set n1 "Erica Bold")
(set f2 "EricaItal.#?")                   (set n2 "Erica Italic")
(set f3 "FeltMarkItalic.#?")              (set n3 "Felt Mark Italic")
(set f4 "FlashXBold.#?")                  (set n4 "Flash Extra Bold")
(set f5 "Frozen.#?")                      (set n5 "Frozen")
(set f6 "IglesiaLight.#?")                (set n6 "Iglesia Light")
(set f7 "LeeCaps.#?")                     (set n7 "Lee Caps")
(set f8 "Lucida.#?")                      (set n8 "Lucida")
(set f9 "Mortbats.#?")                    (set n9 "Mort Bats")
(set f10 "SteelPlateGothicBd.#?")         (set n10 "Steel Plate Gothic Bold")

;Don't forget to alter the number the number of titles and copying statements ;in the sections below....

;==========================================================================

(set @default-dest "")

(complete 0)
(set opts
    (askoptions
        (prompt
            "Compugraphic Collection Font Installer\n"
            "Please select the fonts you would like copied "
            "from the list below.")
            (choices n0 n1 n2 n3 n4 n5 n6 n7 n8 n9 n10)
            (default 0)
(help "\nOn this screen you can select which fonts you would like to be copied to the directory you will specify in a moment. You can select any number of the listed Compugraphic type fonts. Obviously please keep in mind how much space you have available. Each font will take up approx. 50K of disk space. To select a font simply click on the check box beside it. When selected it will display a tick. When you have completed your selection please click on the PROCEED button.")
               )
         )

(if (= opts 0)
        (exit "You didn't select any fonts!")
)

(complete 2)
(set path
(askdir
(prompt ("Please set the directory into which you would like your chosen fonts to be installed. This will normally be your CGFonts: directory")
(help ("\nYou must now set the directory where you would like your selected Compugraphic fonts installed. You should have a floppy or hard-disk directory which contains your fonts. This will normally be called CGFonts if you are using ProPage or Pagesetter, or intellifont if you are using Wordworth. For more details consult your program manual.\n\nYou must select the path using the file requester, but DO NOT select a file, simply click PROCEED when the requester displays your chosen directory.")
(default "RAM DISK:")
            )
        )
    )
)
(Complete 5)

(message "The location you selected for your chosen Compugraphic fonts to be copied to was:\n\n"path"\n\nSpace Available: "(getdiskspace path)" bytes")

(working)

(If (BITAND opts 1)
(Copyfiles (Source cp) (dest path) (Pattern f0))
)
(complete 7)
(If (BITAND opts 2)
(Copyfiles (Source cp) (dest path) (Pattern f1))
)
(complete 10)
(If (BITAND opts 4)
(Copyfiles (Source cp) (dest path) (Pattern f2))
)
(complete 20)
(If (BITAND opts 8)
(Copyfiles (Source cp) (dest path) (Pattern f3))
)
(complete 30)
(If (BITAND opts 16)
(Copyfiles (Source cp) (dest path) (Pattern f4))
)
(complete 35)
(If (BITAND opts 32)
(Copyfiles (Source cp) (dest path) (Pattern f5))
)
(complete 40)
(If (BITAND opts 64)
(Copyfiles (Source cp) (dest path) (Pattern f6))
)
(complete 50)
(If (BITAND opts 128)
(Copyfiles (Source cp) (dest path) (pattern f7))
)
(complete 60)
(If (BITAND opts 256)
(Copyfiles (source cp) (dest path) (pattern f8))
)
(complete 70)
(If (BITAND opts 512)
(Copyfiles (source cp) (dest path) (pattern f9))
)
(complete 80)
(If (BITAND opts 1024)
(Copyfiles (source cp) (dest path) (pattern f10))
)
(Complete 90)
(Message "Copying of your selected fonts has now been completed.\n\nIMPORTANT:\n\nIf you own Professional Page 2.1 (and above) or PageSetter 3 please boot from your program disk or hard disk and run the CG_Update program included on this disk once the installer has finished.\n\nIf you own Wordworth 2.0 (and above) please boot from your program disk or hard disk and run the AGFA Install program included on one of your original AGFA Fonts disks once the installer has finished.")
(Complete 100)