;Compugraphic Collection - Compiled by Clive Gardner

;Installer Script v1.0 by Clive Gardner 02/10/93
;Installer Script v1.1 by Clive Gardner 24/07/94
;Installer Script v1.2 by Clive Gardner 20/09/94
;Installer Script v1.3 by Clive Gardner 21/09/94


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

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

(set cp "CG_Collection_14: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 "CracklingFireItal.#?")             (set n0 "Crackling Fire Italic")
(set f1 "CSD-Jersey-Normal.#?")             (set n1 "CSD Jersey Normal")
(set f2 "GroeningPlain.#?")                 (set n2 "Groening Plain")
(set f3 "IsadoraCaps.#?")                   (set n3 "Isadora Caps")
(set f4 "LaserLondon.#?")                   (set n4 "Laser London")
(set f5 "LeftyCasual.#?")                   (set n5 "Lefty Casual")
(set f6 "Lemiesz.#?")                       (set n6 "Lemiesz")
(set f7 "MazamaPlain.#?")                   (set n7 "Mazama Plain")
(set f8 "Mira.#?")                          (set n8 "Mira")
(set f9 "Nauert-It.#?")                     (set n9 "Nauert Italic")
(set f10 "Old_English.#?")                  (set n10 "Old English")
(set f11 "PixieFont.#?")                    (set n11 "Pixie Font")
(set f12 "SteelWolf.#?")                    (set n12 "Steel Wolf")
(set f13 "Stripey.#?")                      (set n13 "Stripey")

;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 n11 n12 n13)
            (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 5)
(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 10)

(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 20)
(If (BITAND opts 2)
(Copyfiles (Source cp) (dest path) (Pattern f1))
)
(complete 30)
(If (BITAND opts 4)
(Copyfiles (Source cp) (dest path) (Pattern f2))
)
(complete 35)
(If (BITAND opts 8)
(Copyfiles (Source cp) (dest path) (Pattern f3))
)
(complete 40)
(If (BITAND opts 16)
(Copyfiles (Source cp) (dest path) (Pattern f4))
)
(complete 45)
(If (BITAND opts 32)
(Copyfiles (Source cp) (dest path) (Pattern f5))
)
(complete 50)
(If (BITAND opts 64)
(Copyfiles (Source cp) (dest path) (Pattern f6))
)
(complete 55)
(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 65)
(If (BITAND opts 512)
(Copyfiles (source cp) (dest path) (pattern f9))
)
(complete 70)
(If (BITAND opts 1024)
(Copyfiles (source cp) (dest path) (pattern f10))
)
(complete 85)
(If (BITAND opts 2048)
(Copyfiles (source cp) (dest path) (pattern f11))
)
(complete 90)
(If (BITAND opts 4096)
(Copyfiles (source cp) (dest path) (pattern f12))
)
(complete 95)
(If (BITAND opts 8192)
(Copyfiles (source cp) (dest path) (pattern f13))
)
(Complete 98)
(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)