;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_18: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 "BakerBook.#?")                   (set n0 "Baker Book")
(set f1 "BlackBold.#?")                   (set n1 "Black Bold")
(set f2 "BlueprintBold.#?")               (set n2 "Blueprint Bold")
(set f3 "Buster.#?")                      (set n3 "Buster")
(set f4 "FranceBold.#?")                  (set n4 "France Bold")
(set f5 "JesterScript.#?")                (set n5 "Jester Script")
(set f6 "JoannaItalic.#?")                (set n6 "Joanna Italic")
(set f7 "Keyboard.#?")                    (set n7 "Keyboard")
(set f8 "KoshgarianLight.#?")             (set n8 "Koshgarian Light")
(set f9 "LaurenScript.#?")                (set n9 "Lauren Script")
(set f10 "Quackers.#?")                   (set n10 "Quackers")
(set f11 "Queensbury.#?")                 (set n11 "Queensbury")
(set f12 "SaintFrancis.#?")               (set n12 "Saint Francis")
(set f13 "VireoFont.#?")                  (set n13 "Vireo Font")

;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. 40K 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 45)
(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 75)
(If (BITAND opts 1024)
(Copyfiles (source cp) (dest path) (pattern f10))
)
(complete 80)
(If (BITAND opts 2048)
(Copyfiles (source cp) (dest path) (pattern f11))
)
(complete 85)
(If (BITAND opts 4096)
(Copyfiles (source cp) (dest path) (pattern f12))
)
(complete 90)
(If (BITAND opts 8192)
(Copyfiles (source cp) (dest path) (pattern f13))
)
(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)