; Installerscript for AGA-Morph V1.2
; © 1996 by Stefan Guthe

(set name
        (askdir (prompt "Please select directory to install AGA-Morph V1.2. A new directory named AGA-Morph will be created.")
                (help @makedir-help)
                (default "work:")
        )
)

(if     (askbool(prompt "Do you want to install the 8-Color Icons?")
                (help "Just select what you want.")
                (choices "8-Color" "4-Color")
                (default 0)
        )
        (
                (copyfiles
                        (prompt "Creating directory")
                        (help @copyfiles-help)
                        (source "AGA-Morph")
                        (dest "T:")
                        (pattern "AGA-Morph-8")
                        (infos)
                )
                (rename "T:AGA-Morph-8" "T:AGA-Morph")
                (rename "T:AGA-Morph-8.info" "T:AGA-Morph.info")
        )
        (
                (copyfiles
                        (prompt "Creating directory")
                        (help @copyfiles-help)
                        (source "AGA-Morph")
                        (dest "T:")
                        (pattern "AGA-Morph-4")
                        (infos)
                )
                (rename "T:AGA-Morph-4" "T:AGA-Morph")
                (rename "T:AGA-Morph-4.info" "T:AGA-Morph.info")
        )
)

(delete ("T:AGA-Morph/Bilder.info")
        (optional force)
)

(delete ("T:AGA-Morph/Bilder")
        (optional force)
)

(delete ("T:AGA-Morph/Quellen.info")
        (optional force)
)

(delete ("T:AGA-Morph/Quellen")
        (optional force)
)

(copyfiles
        (prompt "Creating directory")
        (help @copyfiles-help)
        (source "T:")
        (dest name)
        (pattern "AGA-Morph")
        (infos)
)

(delete ("T:AGA-Morph/AGA-Morph.info")
        (optional force)
)

(delete ("T:AGA-Morph/AGA-Morph.guide.info")
        (optional force)
)

(delete ("T:AGA-Morph/Pictures.info")
        (optional force)
)

(delete ("T:AGA-Morph/Pictures")
        (optional force)
)

(delete ("T:AGA-Morph/Source.info")
        (optional force)
)

(delete ("T:AGA-Morph/Source")
        (optional force)
)

(delete ("T:AGA-Morph")
        (optional force)
)

(delete ("T:AGA-Morph.info")
        (optional force)
)

(complete 5)

(set name
        (tackon name "AGA-Morph"
        )
)
(set n
        (askoptions
                (prompt "Please select Version of AGA-Morph to be installed.")
                (help @askoptions-help)
                (choices
                        "AGA-Morph"
                        "AGA-Morph-020"
                        "AGA-Morph-020-FPU"
                        "AGA-Morph-040"
                        "AGA-Morph-040-FPU"
                )
                (default 1)
        )
)

(if (IN n 0) (set name2 "AGA-Morph"))
(if (IN n 1) (set name2 "AGA-Morph-020"))
(if (IN n 2) (set name2 "AGA-Morph-020-FPU"))
(if (IN n 3) (set name2 "AGA-Morph-040"))
(if (IN n 4) (set name2 "AGA-Morph-040-FPU"))

(if (exists (tackon name "AGA-Morph"))
    (delete (tackon name "AGA-Morph")
            (optional "force")
    )
)

(copyfiles
        (prompt "Copying AGA-Morph.")
        (help @copyfiles-help)
        (source (cat "Bin/e/" name2))
        (dest name)
)

(rename (tackon name name2) (tackon name "AGA-Morph"))

(complete 30)

(copyfiles
        (prompt "Copying AGA-Morph-Guide.")
        (help @copyfiles-help)
        (source "")
        (dest name)
        (pattern "AGA-Morph.Guide")
)

(complete 45)

(copyfiles
        (prompt "Copying Pictures.")
        (help @copyfiles-help)
        (source "Pictures/")
        (dest (tackon name "Pictures"))
        (pattern "#?")
)

(complete 70)

(copyfiles
        (prompt "Copying Source.")
        (help @copyfiles-help)
        (source "Source/")
        (dest (tackon name "Source"))
        (pattern "#?")
)

(complete 95)

(if     (exists "fonts:STG/8")
        (message "STG font already exists.")
        (copyfiles
                (prompt "Copying Font")
                (help @copyfiles-help)
                (source "fonts")
                (dest "fonts:")
                (patter "#?")
                (fonts)
        )
)

(complete 100)

(exit)