; Installscript for CDP (c) 1994-95 by andreash, Andreas Harrenberg

(set app_name "CDP")
(set version "0.771")
(set vers_name (cat app_name version))

; Texte für den Installer

; -- english [default]

(set #badkick (cat "You need at least Kickstart 2.04 (37.175),\n"
                   "to use CDP.")
)
(set #badMUI (cat  "You need at least MUI 2.1 to use CDP.\n"
                   "MUI © Stefan Stuntz")
)
(set #introduction (cat "\n\n"
                        "CDP, a SCSI-II CD-Player\n\n"
                        "CDP © 1994-95 Andreas Harrenberg\n"
                        "MUI © Stefan Stuntz\n\n"
                        "CDP is Freeware!\n")
)
(set #askprogdir (cat "Please choose a directory for " app_name ".\n"
                      "A directory "app_name" will be created!\n")
)
(set #mkdir ("creating directory "))
(set #cpprog ("copy the programm...\n"))
(set #doctype (cat "The Manual for " app_name " is availble in Guide-Format,\n"
                   "as ASCII and as DVI. Which Versions should be installed?\n")
)
(set #doc (cat app_name ".doc"))
(set #guide (cat app_name "_English.guide"))
(set #dvi (cat app_name "_E.dvi"))
(set #askdocdir (cat "Please choose a directory for the manual.\n"
                     "A directory will NOT be created!\n")
)


; -- deutsch

(if (= @language "deutsch") (
    (set #badkick (cat "Sie benötigen mindestens Kickstart 2.04 (37.175),\n"
                       "um CDP benutzen zu können.")
    )
    (set #badMUI (cat  "Sie benötigen mindestens MUI 2.1 um CDP benutzen zu können.\n"
                       "MUI © Stefan Stuntz")
    )
    (set #introduction (cat "\n\n"
                            "CDP, ein SCSI-II CD-Player\n\n"
                            "CDP © 1994-95 Andreas Harrenberg\n"
                            "MUI © Stefan Stuntz\n\n"
                            "CDP ist Freeware!\n")
    )
    (set #askprogdir (cat "Bitte wählen Sie ein Verzeichnis für " app_name ".\n"
                          "Es wird eine Schublade "app_name" erzeugt!\n")
    )
    (set #mkdir ("Erzeuge Schublade "))
    (set #cpprog ("Kopieren des Programms...\n"))
    (set #doctype (cat "Die Anleitung zu " app_name " ist im Guide-Format,\n"
                       "als ASCII und als DVI verfügbar. Welche Version soll\n"
                       "installiert werden?\n"))
    (set #doc (cat app_name ".dok"))
    (set #guide (cat app_name "_Deutsch.guide"))
    (set #dvi (cat app_name "_D.dvi"))
    (set #askdocdir (cat "Bitte wählen Sie ein Verzeichnis für die Anleitung.\n"
                         "Es wird KEINE Schublade angelegt!\n")
    )
))


; -------------------------------------------------------------------------

(transcript (cat "Installing " @vers_name " ..."))

(if (< (/ (getversion) 65536) 37) (
    (message #badkick)
    (exit (quiet))
))

(if (< (/ (getversion "libs:muimaster.library") 65536) 7) (
    (message #badmui)
    (exit (quiet))
))

; -------------------------------------------------------------------------
(complete 0)

(message #introduction)

(welcome)

; -------------------------------------------------------------------------

(set progdir
    (askdir
        (prompt #askprogdir)
        (help @askdir_help)
        (default "Work:")
    )
)
(set progdir (tackon progdir app_name))
(makedir progdir
    (infos)
    (prompt (cat #mkdir app_name "\n"))
)

(copylib
    (prompt #cpprog)
    (source (cat "bin/" app_name))
    (dest progdir)
    (infos)
    (help @copylib-help)
    (confirm)
)

(complete 40)

(copyfiles
    (prompt #doctype)
    (dest progdir)
    (infos)
    (files)
    (if (= @language "deutsch") (source "doc/deutsch"))
    (if (= @language "english") (source "doc/english"))
    (help @copylib-help)
    (confirm)
    (choices
        #doc
        #guide
        #dvi
    )
)

(exit (quiet))