;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

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

;Oi you, yes *YOU*. Stop being so nosey! Get out of my script! No? Oh Okay
;then...

;If your actually trying to learn something from this rubbish (why?) I'm 
;sorry it's not very well commented. I'll get around to it sometime.

;Finally a quick plug here for MUG the OFFICIAL Med Users Group and their
;brilliant disk mag TI! Get it from all approved stockists, including
;Seasoft Computing for only £2.50.........

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

;Just input the relevent disk name and path name in the string....

(set cp "CG_Collection_20: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 "AndesiteBoldBold.#?")            (set n0 "Andesite Bold Bold")
(set f1 "CooperBlackNormal.#?")           (set n1 "Cooper Black Normal")
(set f2 "Eurostile.#?")                   (set n2 "Eurostile")
(set f3 "FunStyleItalic.#?")              (set n3 "FunStyle Italic")
(set f4 "GrafikShadow.#?")                (set n4 "Grafik Shadow")
(set f5 "KavalerKursive.#?")              (set n5 "Kavaler Kursive")
(set f6 "Magnet.#?")                      (set n6 "Magnet")
(set f7 "Medici.#?")                      (set n7 "Medici")
(set f8 "RedLetter.#?")                   (set n8 "RedLetter")
(set f9 "Victorias-Secret.#?")            (set n9 "Victoria's Secret")
(set f10 "WesternSlant.#?")               (set n10 "Western Slant")

;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. 45K 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 10)
(If (BITAND opts 2)
(Copyfiles (Source cp) (dest path) (Pattern f1))
)
(complete 20)
(If (BITAND opts 4)
(Copyfiles (Source cp) (dest path) (Pattern f2))
)
(complete 30)
(If (BITAND opts 8)
(Copyfiles (Source cp) (dest path) (Pattern f3))
)
(complete 35)
(If (BITAND opts 16)
(Copyfiles (Source cp) (dest path) (Pattern f4))
)
(complete 40)
(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 60)
(If (BITAND opts 128)
(Copyfiles (Source cp) (dest path) (pattern f7))
)
(complete 70)
(If (BITAND opts 256)
(Copyfiles (source cp) (dest path) (pattern f8))
)
(complete 80)
(If (BITAND opts 512)
(Copyfiles (source cp) (dest path) (pattern f9))
)
(complete 90)
(If (BITAND opts 1024)
(Copyfiles (source cp) (dest path) (pattern f10))
)
(Complete 95)
(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)