Amiga MA Magazine 1998 #7/amigamamagazinepolishissue1998.iso/www/makecd/ftp/makecd25.lha/MakeCD_2.5/Install

Text File | 1997-09-11 | 69KB | 2,614 lines

; $Id: Install 1.11 1997/09/11 16:36:49 angela Exp $
; $VER: Install-MakeCD 2.4 (8.7.97)

; If you want to add support for further languages, please
; contact [e-mail] first to check
; if somebody else is already working on such a translation.

(procedure P_GET_LANG_FROM_ENV
    (
        (if (= 1 (exists "ENV:Language"))
            ( ; then
                (if (patmatch (getenv "language") txt_lang_0) ; Dansk
                    0
                    (if (patmatch (getenv "language") txt_lang_1) ; Deutsch
                        1
                        (if (patmatch (getenv "language") txt_lang_2) ; English
                            2
                            (if (patmatch (getenv "language") txt_lang_3) ; Français
                                3
                                (if (patmatch (getenv "language") txt_lang_4) ; Italiano
                                    4
                                    (if (patmatch (getenv "language") txt_lang_5) ; Magyar
                                        5
                                        (if (patmatch (getenv "language") txt_lang_6) ; Nederlands
                                            6
                                            (if (patmatch (getenv "language") txt_lang_7) ; Norsk
                                                7
                                                (if (patmatch (getenv "language") txt_lang_8) ; Suomi
                                                    8
                                                    (if (patmatch (getenv "language") txt_lang_9) ; Svenska
                                                        9
                                                        2 ; English
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
            ( ; else
                (if (patmatch @language txt_lang_0) ; Dansk
                    0
                    (if (patmatch @language txt_lang_1) ; Deutsch
                        1
                        (if (patmatch @language txt_lang_2) ; English
                            2
                            (if (patmatch @language txt_lang_3) ; Français
                                3
                                (if (patmatch @language txt_lang_4) ; Italiano
                                    4
                                    (if (patmatch @language txt_lang_5) ; Magyar
                                        5
                                        (if (patmatch @language txt_lang_6) ; Nederlands
                                            6
                                            (if (patmatch @language txt_lang_7) ; Norsk
                                                7
                                                (if (patmatch @language txt_lang_8) ; Suomi
                                                    8
                                                    (if (patmatch @language txt_lang_9) ; Svenska
                                                        9
                                                        2 ; English
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
        )
    )
)



; Für neue Sprache (Catalog oder Anleitung für MakeCD):
; - Sprache hier einfügen
; - numlangs auf Anzahl der von MakeCD supporteten Sprachen setzen
; - bei #which_languages_to_install Sprache hinzufügen

(procedure P_SELECT_LANGUAGE
    (
;                                   |                                  | 2 if doc exists,         |                              |
;     Name of language              | Name of Catalog directory        | 1 if catalog exists,     | Translation of "by"          | Name of translator
;                                   |                                  | 0 if xyz does not exist  |                              |
;     ==============================|==================================|==========================|==============================|=============================================
        (set txt_lang_0  "Dansk")        (set txt_langdir_0  "dansk")        (set langbits_0  (+ 0 1))   (set txt_by_0  "af")            (set trans_lang_0  "Mark Holm")
        (set txt_lang_1  "Deutsch")      (set txt_langdir_1  "deutsch")      (set langbits_1  (+ 2 1))   (set txt_by_1  "von")           (set trans_lang_1  "Angela Schmidt")
        (set txt_lang_2  "English")      (set txt_langdir_2  "english")      (set langbits_2  (+ 2 0))   (set txt_by_2  "by")            (set trans_lang_2  "Angela Schmidt")
        (set txt_lang_3  "Français")     (set txt_langdir_3  "français")     (set langbits_3  (+ 0 1))   (set txt_by_3  "par")           (set trans_lang_3  "Jean-Marc Boursot")
        (set txt_lang_4  "Italiano")     (set txt_langdir_4  "italiano")     (set langbits_4  (+ 0 1))   (set txt_by_4  "a cura di")     (set trans_lang_4  "Francesco Dipietromaria")
        (set txt_lang_5  "Magyar")       (set txt_langdir_5  "magyar")       (set langbits_5  (+ 0 1))   (set txt_by_5  "készítette")    (set trans_lang_5  "Horváth Péter")
        (set txt_lang_6  "Nederlands")   (set txt_langdir_6  "nederlands")   (set langbits_6  (+ 0 1))   (set txt_by_6  "door")          (set trans_lang_6  "Tim J. en Korneel K.")          ; (Tim Jacobs en Korneel Ketelslegers)
        (set txt_lang_7  "Norsk")        (set txt_langdir_7  "norsk")        (set langbits_7  (+ 0 1))   (set txt_by_7  "av")            (set trans_lang_7  "Eivind Olsen")
        (set txt_lang_8  "Suomi")        (set txt_langdir_8  "suomi")        (set langbits_8  (+ 0 1))   (set txt_by_8  "tehnyt")        (set trans_lang_8  "Mikko Virtanen")
        (set txt_lang_9  "Svenska")      (set txt_langdir_9  "svenska")      (set langbits_9  (+ 0 1))   (set txt_by_9  "av")            (set trans_lang_9  "Fredrik Zetterlund")
        (set txt_lang_10 "")             (set txt_langdir_10 "")             (set langbits_10 (+ 0 0))   (set txt_by_10 "by")            (set trans_lang_10 "")
        ; looking for español, português, ...

        (set numlangs 10)

        (if (AND (= 0 origuserlevel) (= 1 (exists "ENV:Language")))
            (
                (set langnum (P_GET_LANG_FROM_ENV))
            )
            (
                (user 2)
                (set langnum
                    (askchoice
                        (prompt "Choose the language to be used in this installer script.")
                        (help "Please select your favourite language.\n\n" "Bitte wählen Sie ihre bevorzugte Sprache.")
                        (choices
                            ("%s (%s %s)" txt_lang_0 txt_by_0 trans_lang_0)
                            ("%s (%s %s)" txt_lang_1 txt_by_1 trans_lang_1)
                            ("%s (%s %s)" txt_lang_2 txt_by_2 trans_lang_2)
                            ("%s (%s %s)" txt_lang_3 txt_by_3 trans_lang_3)
                            ("%s (%s %s)" txt_lang_4 txt_by_4 trans_lang_4)
                            ("%s (%s %s)" txt_lang_5 txt_by_5 trans_lang_5)
                            ("%s (%s %s)" txt_lang_6 txt_by_6 trans_lang_6)
                            ("%s (%s %s)" txt_lang_7 txt_by_7 trans_lang_7)
                            ("%s (%s %s)" txt_lang_8 txt_by_8 trans_lang_8)
                            ("%s (%s %s)" txt_lang_9 txt_by_9 trans_lang_9)
                        )
                        (default
                            (P_GET_LANG_FROM_ENV)
                        )
                    )
                )
                (user origuserlevel)
            )
        )

        (if (= langnum 0)  (set langstring txt_lang_0))
        (if (= langnum 1)  (set langstring txt_lang_1))
        (if (= langnum 2)  (set langstring txt_lang_2))
        (if (= langnum 3)  (set langstring txt_lang_3))
        (if (= langnum 4)  (set langstring txt_lang_4))
        (if (= langnum 5)  (set langstring txt_lang_5))
        (if (= langnum 6)  (set langstring txt_lang_6))
        (if (= langnum 7)  (set langstring txt_lang_7))
        (if (= langnum 8)  (set langstring txt_lang_8))
        (if (= langnum 9)  (set langstring txt_lang_9))
        (if (= langnum 10) (set langstring txt_lang_10))

        (if (<> 1 (exists "ENV:Language"))
            (
                (run ("%s%s" "setenv Language " langstring))
            )
        )


        ; Set default strings

        ; By Angela Schmidt
        (set #yes_answer
            ("%s"
                "Yes"
            )
        )
        (set #no_answer
            ("%s"
                "No"
            )
        )
        (set #choose_yes_or_no
            ("%s"
                "Please chose \"Yes\" or \"No\"."
            )
        )
        (set #archive_not_found_warning
            ("%s%s%s"
                "Warning:\n"
                "Could not extract \"%s\".\n"
                "Archive not found."
            )
        )
        (set #archive_not_found_error
            ("%s%s%s"
                "Error:\n"
                "Could not extract \"%s\".\n"
                "Archive not found."
            )
        )
        (set #extracting_archive
            ("%s"
                "Extracting archive \"%s\" to directory \"%s\"."
            )
        )
        (set #install_requires_lha
            ("%s"
                "Installation of %s requires the program LhA. Skipping this part."
            )
        )
        (set #abort_on_extract
            ("%s%s"
                "Installation aborted. Could not extract %s."
                "Please install LhA."
            )
        )
        (set #warning_old_os
            (
                "%s%s"
                "Please update the operating system. "
                "MakeCD requires OS 2.04."
            )
        )
        (set #intro_msg
            ("%s%s%s%s"
                "Welcome at the MakeCD installation!\n\n"
                "Although MakeCD is able to run without further installation "
                "(except the disk version), you might want to "
                "copy it to your hard disk. This script will help you doing this."
            )
        )
        (set #select_dest_dir
            ("%s%s"
                "Please select the destination directory for MakeCD. "
                "The \"MakeCD\" directory will be created automatically."
            )
        )
        (set #which_languages_to_install
            ("%s"
                "Which languages do you want to install?"
            )
        )
        (set #install_developer
            ("%s%s%s%s%s"
                "Do you want to install developer material? This material "
                "describes all you have to know about SUSP (System Use "
                "Sharing Protocol), RRIP (Rock Ridge Interchange Protocol) "
                "and about the support of Amiga protection bits and file "
                "comments on CD-ROM."
            )
        )
        (set #install_goodies
            ("%s%s%s"
                "Do you want to install some goodies? This material does not "
                "really belong to MakeCD and is not included in the MakeCD "
                "registration fee, but might be useful."
            )
        )
        (set #remove_oldversion
            ("%s%s%s%s%s"
                "The destination directory \"%s\" that you chose already exists. Before installing the "
                "new version, this directory has to be cleaned up. Files and directories which have been "
                "created by you, are not affected - except when their names collide with the names of "
                "MakeCD related files.\n\n"
                "May the installer script delete the affected files and directories?"
            )
        )
        (set #remove_oldversion_help
            ("%s"
                "The following commands will be performed:"
            )
        )
        (set #abort_on_cleanup
            ("%s"
                "Could not cleanup directory.\n\nAborting.\n\nInstallation not done."
            )
        )
        (set #deleting_old_files
            ("%s"
                "Deleting old files and directories."
            )
        )
        (set #no_catalog
            ("%s"
                "no catalog"
            )
        )
        (set #catalog
            ("%s"
                "catalog"
            )
        )
        (set #no_doc
            ("%s"
                "no docs"
            )
        )
        (set #doc
            ("%s"
                "docs"
            )
        )
        (set #cannot_find_lang_docs
            ("%s%s"
                "Sorry, cannot find any docs for language \"%s\".\n\n"
                "Installation of the docs of this language skipped."
            )
        )
        (set #cannot_find_lang_catalogs
            ("%s%s"
                "Sorry, cannot find any catalogs for language \"%s\".\n\n"
                "Installation of the catalogs of this language skipped."
            )
        )
        (set #cannot_find_div_docs
            ("%s%s"
                "Sorry, cannot find some of the doc files.\n\n"
                "Installation of these docs skipped."
            )
        )
        (set #copying_files
            ("%s"
                "Please stand by while copying ..."
            )
        )
        (set #cannot_find_development_docs
            ("%s%s"
                "Sorry, cannot find the development docs.\n\n"
                "Installation of these docs skipped."
            )
        )
        (set #select_drivers
            ("%s"
                "Please select the drivers to install."
            )
        )
        (set #copy_libs
            ("%s"
                "MakeCD requires triton.library V6."
            )
        )

        ; Now the strings that are required for further languages, will follow.
        ; For translations to further languages, simply copy one of the following
        ; block and change the texts. The control characters should remail
        ; unchanged. If you have to add or delete a line, you have to change
        ; the number of %s accordingly. For each line, on %s is required.

        ; By Mark Holm <[e-mail]>
        (if (patmatch langstring "Dansk")
            (
                (set #yes_answer
                    ("%s"
                        "Ja"
                    )
                )
                (set #no_answer
                    ("%s"
                        "Nej"
                    )
                )
                (set #choose_yes_or_no
                    ("%s"
                        "Vælg venligst \"Ja\" eller \"Nej\"."
                    )
                )
                (set #archive_not_found_warning
                    ("%s%s%s"
                        "Advarsel:\n"
                        "Kunne ikke udpakke \"%s\".\n"
                        "Arkivet blev ikke fundet."
                    )
                )
                (set #archive_not_found_error
                    ("%s%s%s"
                        "Fejl:\n"
                        "Kunne ikke udpakke \"%s\".\n"
                        "Arkivet blev ikke fundet."
                    )
                )
                (set #extracting_archive
                    ("%s"
                        "Udpakker arkivet \"%s\" til kataloget \"%s\"."
                    )
                )
                (set #install_requires_lha
                    ("%s"
                        "Installationen af dette program kræve programmet LhA. Springer over denne del."
                    )
                )
                (set #abort_on_extract
                    ("%s%s"
                        "Installationen afbrudt. Kunne ikke udpakke %s."
                        "Installér venligst LhA."
                    )
                )
                (set #warning_old_os
                    (
                        "%s%s"
                        "Opdatér venligst operativsystemet. "
                        "MakeCD kræver OS 2.04."
                    )
                )
                (set #intro_msg
                    ("%s%s%s%s"
                        "Velkommen til MakeCD installtionen!\n\n"
                        "Selvom MakeCD er i stand til at køre uden videre installation "
                        "(undtagen disk-versionen), vil du muligvis "
                        "kopiere filerne til din harddisk. Dette skript vil hjælpe dig med dette."
                    )
                )
                (set #select_dest_dir
                    ("%s%s"
                        "Vælg destinationskataloget for MakeCD. "
                        "Kataloget \"MakeCD\" vil automatisk blive oprettet."
                    )
                )
                (set #which_languages_to_install
                    ("%s"
                        "Hvilke sprog vil du installere?"
                    )
                )
                (set #install_goodies
                    ("%s%s%s"
                        "Vil du installere nogle 'godbidder'? De hører egentlig ikke "
                        "med i MakeCD pakken, og er heller ikke indregnet i "
                        "registreringsgebyret, men kan dog være nyttige. "
                    )
                )
                (set #install_developer
                    ("%s%s%s%s%s"
                        "Vil du installere udvikler-materialet? Dette materiale "
                        "beskriver alt, hvad du skal vide om SUSP (System Use "
                        "Sharing Protocol), RRIP (Rock Ridge Interchange Protocol), "
                        "og om understøttelsen af Amiga beskyttelses-bits og om "
                        "filkommentarer på CD-ROM."
                    )
                )
                (set #remove_oldversion
                    ("%s%s%s%s%s"
                        "Destinationskataloget \"%s\", du har valgt, eksisterer allerede. Før den nye version kan "
                        "kan installeres, skal der ryddes op i dette katalog. Filer og kataloger, du selv har oprettet, "
                        "vil ikke blive berørt - undtagen når filnavnene kolliderer med navnene på "
                        "MakeCD relaterede filnavne.\n\n"
                        "Må installtionsskriptet slette de berørte filer og kataloger?"
                    )
                )
                (set #remove_oldversion_help
                    ("%s"
                        "Følgende kommandoer vil blive udført:"
                    )
                )
                (set #abort_on_cleanup
                    ("%s"
                        "Kunne ikke rydde op i kataloget.\n\nAfbryder.\n\nInstallationen ikke fuldført."
                    )
                )
                (set #deleting_old_files
                    ("%s"
                        "Sletter gamle filer og kataloger."
                    )
                )
                (set #no_catalog
                    ("%s"
                        "intet catalog"
                    )
                )
                (set #catalog
                    ("%s"
                        "catalog"
                    )
                )
                (set #no_doc
                    ("%s"
                        "ingen dokumentation"
                    )
                )
                (set #doc
                    ("%s"
                        "dokumentation"
                    )
                )
                (set #cannot_find_lang_docs
                    ("%s%s"
                        "Beklager, kan ikke finde dokumentationen til sproget \"%s\".\n\n"
                        "Installationen af dokumentation til dette sprog springes over."
                    )
                )
                (set #cannot_find_lang_catalogs
                    ("%s%s"
                        "Beklager, kan ikke finde nogen catalog-filer til sproget \"%s\".\n\n"
                        "Installationen af catalog-filer til dette sprog springes over."
                    )
                )
                (set #cannot_find_div_docs
                    ("%s%s"
                        "Beklager, kan ikke finde nogle af dokumentationsfilerne.\n\n"
                        "Installationen af denne dokumentation springes over."
                    )
                )
                (set #copying_files
                    ("%s"
                    "Vent venligst ... kopierer filerne"
                    )
                )
                (set #cannot_find_development_docs
                    ("%s%s"
                        "Beklager, kan ikke finde udvikler-dokumentationen.\n\n"
                        "Installationen af denne dokumentation springes over."
                    )
                )
                (set #select_drivers
                    ("%s"
                    "Vælg de drivere, der skal installeres."
                    )
                )
                (set #copy_libs
                    ("%s"
                    "MakeCD kræver triton.library V6."
                    )
                )
            )
        )

        ; By Angela Schmidt
        (if (patmatch langstring "Deutsch")
            (
                (set #yes_answer
                    ("%s"
                        "Ja"
                    )
                )
                (set #no_answer
                    ("%s"
                        "Nein"
                    )
                )
                (set #choose_yes_or_no
                    ("%s"
                        "Wählen Sie bitte \"Ja\" oder \"Nein\"."
                    )
                )
                (set #archive_not_found_warning
                    ("%s%s%s"
                        "Warnung:\n"
                        "Konnte \"%s\" nicht entpacken.\n"
                        "Archiv nicht gefunden."
                    )
                )
                (set #archive_not_found_error
                    ("%s%s%s"
                        "Fehler:\n"
                        "Konnte \"%s\" nicht entpacken.\n"
                        "Archiv nicht gefunden."
                    )
                )
                (set #extracting_archive
                    ("%s"
                        "Entpacke Archiv \"%s\" ins Verzeichnis \"%s\"."
                    )
                )
                (set #install_requires_lha
                    ("%s"
                        "Sie benötigen das Programm LhA, um %s zu installieren. Überspringe diesen Teil."
                    )
                )
                (set #abort_on_extract
                    ("%s%s"
                        "Installation abgebrochen. %s konnte nicht entpackt werden."
                        "Bitte installieren Sie LhA."
                    )
                )
                (set #warning_old_os
                    (
                        "%s%s"
                        "Bitte bringen Sie Ihr Betriebssystem auf den neuesten Stand. "
                        "MakeCD funktioniert erst ab OS 2.04."
                    )
                )
                (set #intro_msg
                    ("%s%s%s%s"
                        "Willkommen zur MakeCD Installation!\n\n"
                        "MakeCD ist zwar auch ohne weitere Installation lauffähig "
                        "(außer die Disketten-Version), aber Sie werden es sicherlich "
                        "auch auf Festplatte installieren wollen. Dabei hilft Ihnen dieses Skript."
                    )
                )
                (set #select_dest_dir
                    ("%s%s"
                        "Bitte wählen Sie das Verzeichnis, in dem Sie MakeCD installieren möchten. "
                        "Ein Verzeichnis \"MakeCD\" wird automatisch angelegt."
                    )
                )
                (set #which_languages_to_install
                    ("%s"
                        "Welche Sprachen möchten Sie installieren?"
                    )
                )
                (set #install_goodies
                    ("%s%s%s"
                        "Sollen einige Goodies installiert werden? Die Goodies gehören "
                        "nicht wirklich zu MakeCD und sind nicht in der Registrier-Gebühr "
                        "von MakeCD enthalten, könnten sich jedoch als nützlich erweisen. "
                    )
                )
                (set #install_developer
                    ("%s%s%s%s%s"
                        "Möchten Sie die Dateien für Entwickeler installieren? Diese "
                        "Dateien beschreiben alles, was Sie über SUSP (System Use "
                        "Sharing Protocol), RRIP (Rock Ridge Interchange Protocol) "
                        "und über die Unterstützung von Amiga Protection Bits and Datei-Kommentaren "
                        "auf CD-ROMs wissen müssen."
                    )
                )
                (set #remove_oldversion
                    ("%s%s%s%s%s"
                        "Das von Ihnen gewählte Zielverzeichnis \"%s\" existiert bereits. Bevor die neue Version "
                        "installiert wird, muß in diesem Verzeichnis aufgeräumt werden. Dateien und Verzeichnisse, "
                        "die von Ihnen in diesem Verzeichnis angelegt wurden, sind davon nicht betroffen - außer "
                        "wenn Sie Namen vergeben haben, die mit den von MakeCD vergebenen Namen kollidieren.\n\n"
                        "Darf das Installer-Skript die betroffenen Dateien und Verzeichnisse löschen?"
                    )
                )
                (set #remove_oldversion_help
                    ("%s"
                        "Die folgenden Befehle werden ausgeführt:"
                    )
                )
                (set #abort_on_cleanup
                    ("%s"
                        "Konnte Verzeichnis nicht aufräumen.\n\nBreche Installation ab.\n\nEs wurde nichts installiert."
                    )
                )
                (set #deleting_old_files
                    ("%s"
                        "Lösche alte Dateien und Verzeichnisse."
                    )
                )
                (set #no_catalog
                    ("%s"
                        "kein Catalog"
                    )
                )
                (set #catalog
                    ("%s"
                        "Catalog"
                    )
                )
                (set #no_doc
                    ("%s"
                        "keine Dokumentation"
                    )
                )
                (set #doc
                    ("%s"
                        "Dokumentation"
                    )
                )
                (set #cannot_find_lang_docs
                    ("%s%s"
                        "Die Anleitung für die Sprache \"%s\" kann leider nicht gefunden werden.\n\n"
                        "Die Installation der Anleitung dieser Sprache wurde übersprungen."
                    )
                )
                (set #cannot_find_lang_catalogs
                    ("%s%s"
                        "Der Katalog für die Sprache \"%s\" kann leider nicht gefunden werden.\n\n"
                        "Die Installation des Katalogs dieser Sprache wurde übersprungen."
                    )
                )
                (set #cannot_find_div_docs
                    ("%s%s"
                        "Einige der Dokumentations-Dateien können leider nicht gefunden werden.\n\n"
                        "Die Installation dieser Dateien wurde übersprungen."
                    )
                )
                (set #copying_files
                    "Kopiere ... Bitte etwas Geduld."
                )
                (set #cannot_find_development_docs
                    ("%s%s"
                        "Die Entwickler-Dokumentation kann leider nicht gefunden werden.\n\n"
                        "Die Installation dieser Dokumentation wurde übersprungen."
                    )
                )
                (set #select_drivers
                    "Welche Treiber möchten Sie installieren?"
                )
                (set #copy_libs
                    "MakeCD benötigt triton.library V6."
                )
            )
        )

        ; Chaînes utilisées pour l'installation en français. Pour les traduire
        ; dans une autre langue, copiez simplement le bloc et traduisez le.
        ; Les noms de variables ne doivent pas être changés. Si une phrase doit
        ; être éliminée, changez alors le nombre de "%s" (il y en a un par
        ; phrase).

        ; By Jean-Marc Boursot <[e-mail]>
        (if (patmatch langstring "Français")
            (
                (set #yes_answer
                    ("%s"
                        "Oui"
                    )
                )
                (set #no_answer
                    ("%s"
                        "Non"
                    )
                )
                (set #choose_yes_or_no
                    ("%s"
                        "Choisissez \"Oui\" ou \"Non\"."
                    )
                )
                (set #archive_not_found_warning
                    ("%s%s%s"
                        "Attention:\n"
                        "Extraction de \"%s\" impossible.\n"
                        "Archive introuvable."
                    )
                )
                (set #archive_not_found_error
                    ("%s%s%s"
                        "Erreur:\n"
                        "Extraction de \"%s\" impossible.\n"
                        "Archive introuvable."
                    )
                )
                (set #extracting_archive
                    ("%s"
                        "Extraction de l'archive \"%s\" dans le répertoire \"%s\"."
                    )
                )
                (set #install_requires_lha
                    ("%s"
                        "L'installation de %s nécessite LhA. On passe cette partie."
                    )
                )
                (set #abort_on_extract
                    ("%s%s"
                        "Installation abandonnée. Extraction de %s impossible."
                        "Veuillez installer LhA."
                    )
                )
                (set #warning_old_os
                    (
                        "%s%s"
                        "Veuillez mettre à jour votre système d'exploitation. "
                        "MakeCD nécessite un OS 2.04."
                    )
                )
                (set #intro_msg
                    ("%s%s%s%s"
                        "Bienvenue à l'installation MakeCD!\n\n"
                        "Bien que MakeCD puisse fonctionner sans installation "
                        "(sauf la version disque), vous pouvez souhaiter le copier "
                        "sur votre disque dur. Ce script vous y aidera."
                    )
                )
                (set #select_dest_dir
                    ("%s%s"
                        "Choisissez le répertoire destination de MakeCD. "
                        "Un tiroir \"MakeCD\" sera créé automatiquement."
                    )
                )
                (set #which_languages_to_install
                    ("%s"
                        "Quelles langues voulez-vous installer?"
                    )
                )
                (set #install_developer
                    ("%s%s%s%s%s"
                        "Voulez-vous installer les éléments développeur? Ces éléments "
                        "décrivent tout ce que vous avez besoin de savoir sur SUSP (System "
                        "Use Sharing Protocol), RRIP (Rock Ridge Interchange Protocol) "
                        "et sur le support des bits de protection Amiga et les "
                        "commentaires sur CD-ROM."
                    )
                )
                (set #install_goodies
                    ("%s%s%s"
                        "Voulez-vous installer quelques compléments? Ces éléments ne "
                        "font pas vraiment partie de MakeCD et ne sont pas intégrés "
                        "lors du paiement de l'enregistrement, mais peuvent être utiles."
                    )
                )
                (set #remove_oldversion
                    ("%s%s%s%s%s"
                        "Le répertoire destination \"%s\" que vous avez choisit existe déjà. Avant d'installer "
                        "la nouvelle version, ce répertoire doit être nettoyé. Les fichiers et répertoires créés "
                        "par vous ne seront pas affectés (sauf si leur nom correspond au nom d'un fichier de "
                        "MakeCD).\n\n"
                        "Continuer le script en effaçant les fichiers et répertoires concernés?"
                    )
                )
                (set #remove_oldversion_help
                    ("%s"
                        "Les commandes suivantes vont être exécutées:"
                    )
                )
                (set #abort_on_cleanup
                    ("%s"
                        "Ne peut nettoyer le répertoire.\n\nAnnulation.\n\nInstallation incomplète."
                    )
                )
                (set #deleting_old_files
                    ("%s"
                        "Effacement des vieux fichiers et répertoires."
                    )
                )
                (set #no_catalog
                    ("%s"
                        "aucun catalogue"
                    )
                )
                (set #catalog
                    ("%s"
                        "catalogue"
                    )
                )
                (set #no_doc
                    ("%s"
                        "aucun document"
                    )
                )
                (set #doc
                    ("%s"
                        "document"
                    )
                )
                (set #cannot_find_lang_docs
                    ("%s%s"
                        "Désolé, je ne trouve aucun document pour la langue \"%s\".\n\n"
                        "Installation des documents de cette langue passée."
                    )
                )
                (set #cannot_find_lang_catalogs
                    ("%s%s"
                        "Désolé, je ne trouve aucun catalogue pour la langue \"%s\".\n\n"
                        "Installation des catalogues de cette langue passée."
                    )
                )
                (set #cannot_find_div_docs
                    ("%s%s"
                        "Désolé, je ne trouve pas certains documents.\n\n"
                        "Installation de ces documents passée."
                    )
                )
                (set #copying_files
                    ("%s"
                        "Veuillez patienter pendant la copie ..."
                    )
                )
                (set #cannot_find_development_docs
                    ("%s%s"
                        "Désolé, je ne trouve les documents développeur.\n\n"
                        "Installation de ces documents passée."
                    )
                )
                (set #select_drivers
                    ("%s"
                        "Choisissez les drivers à installer."
                    )
                )
                (set #copy_libs
                    ("%s"
                        "MakeCD nécessite la triton.library V6."
                    )
                )
            )
        )

        ; By Francesco Dipietromaria  <[e-mail]>
        (if (patmatch langstring "Italiano")
            (
                (set #yes_answer
                    ("%s"
                        "Si"
                    )
                )
                (set #no_answer
                    ("%s"
                        "No"
                    )
                )
                (set #choose_yes_or_no
                    ("%s"
                        "Scegli \"Si\" o \"No\"."
                    )
                )
                (set #archive_not_found_warning
                    ("%s%s%s"
                        "Attenzione:\n"
                        "Non posso estrarre \"%s\".\n"
                        "Archivio non trovato."
                    )
                )
                (set #archive_not_found_error
                    ("%s%s%s"
                        "Errore:\n"
                        "Non posso estrarre \"%s\".\n"
                        "Archivio non trovato."
                    )
                )
                (set #extracting_archive
                    ("%s"
                        "Sto estraendo l'archivio \"%s\" nella directory \"%s\"."
                    )
                )
                (set #install_requires_lha
                    ("%s"
                        "L'installazione di %s richiede il programma LhA. Salto questa sezione."
                    )
                )
                (set #abort_on_extract
                    ("%s%s"
                        "Installazione interrotta. Non posso estrarre %s."
                        "Installa il comando LhA."
                    )
                )
                (set #warning_old_os
                    (
                        "%s%s"
                        "Aggiorna il sistema operativo. "
                        "MakeCD richiede l'OS 2.04."
                    )
                )
                (set #intro_msg
                    ("%s%s%s%s"
                        "Benvenuti nel programma di installazione di MakeCD!\n\n"
                        "Anche se MakeCD pu? essere eseguito senza nessuna installazione "
                        "(tranne che la versione su disco), pu? essere comodo copiarlo"
                        "sul tuo disco fisso. Questo script ti aiuter? in questa operazione."
                    )
                )
                (set #select_dest_dir
                    ("%s%s"
                        "Seleziona la directory destinazione per MakeCD. "
                        "La directory \"MakeCD\" sar? creata automaticamente."
                    )
                )
                (set #which_languages_to_install
                    ("%s"
                        "Quali lingue vuoi installare?"
                    )
                )
                (set #install_developer
                    ("%s%s%s%s%s"
                        "Vuoi installare il materiale per sviluppatori? Questo materiale "
                        "descrive tutto cu? che devi sapere su SUSP (System Use "
                        "Sharing Protocol), RRIP (Rock Ridge Interchange Protocol) "
                        "e sul supporto dei bit di protezione e dei commenti dei "
                        "file Amiga su CD-ROM."
                    )
                )
                (set #install_goodies
                    ("%s%s%s"
                        "Vuoi installare alcuni extra? Questo materiale non appartiene "
                        "a MakeCD e non ? incluso nella registrazione di MakeCD "
                        "ma pu? essere utile."
                    )
                )
                (set #remove_oldversion
                    ("%s%s%s%s%s"
                        "La directory di destinazione \"%s\" che hai scelto esiste gi?. Prima di installare la "
                        "nuoca versione, questa directory deve essere svuotata. I file e le directory che sono "
                        "state create da te non saranno toccate - a meno che i loro nomi non coincidano con i nomi "
                        "dei file di MakeCD.\n\n"
                        "Posso cancellare le directory e i file interessati?"
                    )
                )
                (set #remove_oldversion_help
                    ("%s"
                        "Saranno eseguiti i seguenti comandi:"
                    )
                )
                (set #abort_on_cleanup
                    ("%s"
                        "Non posso svuotare la directory.\n\nInterrompo.\n\nInstallazione non completata."
                    )
                )
                (set #deleting_old_files
                    ("%s"
                        "Sto cancellando i vecchi file e directory."
                    )
                )
                (set #no_catalog
                    "nessun catalogo"
                )
                (set #catalog
                    "catalogo"
                )
                (set #no_doc
                    "nessun doc"
                )
                (set #doc
                    "doc"
                )
                (set #cannot_find_lang_docs
                    ("%s%s"
                        "Spiacente, non trovo la documentazione tradotta in \"%s\".\n\n"
                        "Installazione della documentazione in lingua saltata."
                    )
                )
                (set #cannot_find_lang_catalogs
                    ("%s%s"
                        "Spiacente, non trovo i cataloghi tradotti in \"%s\".\n\n"
                        "Installazione dei cataloghi in lingua saltata."
                    )
                )
                (set #cannot_find_div_docs
                    ("%s%s"
                        "Spiacente, non trovo alcuni file di documentazionre.\n\n"
                        "Installazione di questi file saltata."
                    )
                )
                (set #copying_files
                    ("%s"
                        "Attendere, copia in corso ..."
                    )
                )
                (set #cannot_find_development_docs
                    ("%s%s"
                        "Spiacente non trovo la documentazione per sviluppatori.\n\n"
                        "Installazione di questa documentazione saltata."
                    )
                )
                (set #select_drivers
                    ("%s"
                        "Seleziona i driver da installare."
                    )
                )
                (set #copy_libs
                    ("%s"
                        "MakeCD richiede la triton.library V6."
                    )
                )
            )
        )

        ; By Horváth Péter <[e-mail]>
        (if (patmatch langstring "Magyar")
            (
                (set #yes_answer
                    ("%s"
                        "Igen"
                    )
                )
                (set #no_answer
                    ("%s"
                        "Nem"
                    )
                )
                (set #choose_yes_or_no
                    ("%s"
                        "Kérem, válasszon! \"Igen\" vagy \"Nem\"."
                    )
                )
                (set #archive_not_found_warning
                    ("%s%s%s"
                        "Figyelem:\n"
                        "Nem tudtam kitömöríteni: \"%s\".\n"
                        "Nem találtam meg az archívumot."
                    )
                )
                (set #archive_not_found_error
                    ("%s%s%s"
                        "Hiba:\n"
                        "Nem tudtam kitömöríteni: \"%s\".\n"
                        "Nem találtam meg az archívumot."
                    )
                )
                (set #extracting_archive
                    ("%s"
                        "\"%s\" archívum kitömörítése a(z) \"%s\" könyvtárba."
                    )
                )
                (set #install_requires_lha
                    ("%s"
                        "%s installálásához az LHA program szükséges. Átugrom ezt a részt."
                    )
                )
                (set #abort_on_extract
                    ("%s%s"
                        "Az installálás megszakítva. Nem tudtam kitömöríteni a(z) %s-t."
                        "Kérem, installálja az LHA-t."
                    )
                )
                (set #warning_old_os
                    (
                        "%s%s"
                        "Kérem, szerezzen be újabb operációs rendszert."
                        "A MakeCD csak legalább OS 2.04 alatt fut."
                    )
                )
                (set #intro_msg
                    ("%s%s%s%s"
                        "Üdvözlöm a MakeCD installálásánál!\n\n"
                        "Bár a MakeCD képes további installálás nélkül futni "
                        "(kivéve a lemezes változatot), Ön esetleg a merevlemezre "
                        "kívánja másolni. Ez a script segíteni fog Önnek ebben."
                    )
                )
                (set #select_dest_dir
                    ("%s%s"
                        "Kérem, válassza ki a MakeCD számára a célkönyvtárat. "
                        "A \"MakeCD\" könyvtár automatikusan létrejön."
                    )
                )
                (set #which_languages_to_install
                    ("%s"
                        "Mely nyelveket kívánja installálni?"
                    )
                )
                (set #install_developer
                    ("%s%s%s%s%s"
                        "A fejlesztõi anyagot is fel kívánja installálni? Ez az anyag "
                        "leír mindent, amit tudnia kell a SUSP-ról (System Use "
                        "Sharing Protocol), RRIP-ról (Rock Ridge Interchange Protocol), "
                        "az Amiga protection bitekrõl és file kommentárokról "
                        "egy CD-ROM-on."
                    )
                )
                (set #install_goodies
                    ("%s%s%s"
                        "Kíván installálni néhány apró, hasznos programot? Ezek nem tartoznak "
                        "szorosan a MakeCD-hez és a MakeCD regisztrációs díjában sincsenek"
                        "benne, de hasznosak lehetnek."
                    )
                )
                (set #remove_oldversion
                    ("%s%s%s%s%s"
                        "A célkönyvtár \"%s\", amelyet kiválasztott, már létezik. Mielõtt az új változat "
                        "installálásra kerül, e könyvtárat ki kell tisztítani. Azokat a file-okat és "
                        "könyvtárakat, amelyeket Ön hozott létre, nem érinti a törlés - kivéve, ha "
                        "nevük ütközik a MakeCD által használt file-okkal.\n\n"
                        "Letörölhetem az érintett file-okat és könyvtárakat?"
                    )
                )
                (set #remove_oldversion_help
                    ("%s"
                    "A következõ parancsok kerülnek végrehajtásra: "
                    )
                )
                (set #abort_on_cleanup
                    ("%s"
                        "Nem lehet a könyvtárat megtisztítani.\n\nMegszakítás.\n\nAz installálás nem volt sikeres."
                    )
                )
                (set #deleting_old_files
                    ("%s"
                        "Régi file-ok és könyvtárak törlése."
                    )
                )
                (set #no_catalog
                    ("%s"
                        "nincs katalógus"
                    )
                )
                (set #catalog
                    ("%s"
                        "katalógus"
                    )
                )
                (set #no_doc
                    ("%s"
                        "nincs dokumentáció"
                    )
                )
                (set #doc
                    ("%s"
                        "dokumentáció"
                    )
                )
                (set #cannot_find_lang_docs
                    ("%s%s"
                        "Sajnos a(z) \"%s\" nyelvhez nem található dokumentáció.\n\n"
                        "A dokumentáció installálása ehhez a nyelvhez nem történhet meg."
                    )
                )
                (set #cannot_find_lang_catalogs
                    ("%s%s"
                        "Sajnos ehhez a nyelvhez egyáltalán nem találtam katalógust: \"%s\".\n\n"
                        "A katalógusok installálása ehhez a nyelvhez nem lehetséges."
                    )
                )
                (set #cannot_find_div_docs
                    ("%s%s"
                        "Sajnos, a dokumentációs file-ok egy része nem található.\n\n"
                        "Ezek installálása nem lehetséges."
                    )
                )
                (set #copying_files
                    ("%s"
                        "Kérem, várjon, míg másolok ..."
                    )
                )
                (set #cannot_find_development_docs
                    ("%s%s"
                        "Sajnos, a fejlesztõi dokumentáció nem található.\n\n"
                        "Ennek installálása nem lehetséges."
                    )
                )
                (set #select_drivers
                    ("%s"
                        "Kérem, válassza ki az installálni kívánt drivereket."
                    )
                )
                (set #copy_libs
                    ("%s"
                        "A MakeCD mûködéséhez szükség van a triton.library V6-ra."
                    )
                )
            )
        )

        ; Hierna volgen de teksten in het Nederlands. Om deze in een andere taal om te zetten,
        ; moet je gewoon de hele blok kopieren en daarna vertalen. De namen van de variabelen
        ; moeten/mogen niet veranderd worden. Als een zin toegevoegd of verwijderd wordt, moet
        ; je het aantal "%s"-en aanpassen. Er is telkens één %s per zin.

        ; By Tim Jacobs <[e-mail]>
        (if (patmatch langstring "Nederlands")
            (
                (set #yes_answer
                    ("%s"
                        "Ja"
                    )
                )
                (set #no_answer
                    ("%s"
                        "Nee"
                    )
                )
                (set #choose_yes_or_no
                    ("%s"
                        "Kies \"Ja\" ou \"Nee\"."
                    )
                )
                (set #archive_not_found_warning
                    ("%s%s%s"
                        "Opgelet:\n"
                        "Kan het archief \"%s\" niet uitpakken.\n"
                        "Archief niet gevonden."
                    )
                )
                (set #archive_not_found_error
                    ("%s%s%s"
                        "Fout:\n"
                        "Kan het archief \"%s\" niet uitpakken.\n"
                        "Archief niet gevonden."
                    )
                )
                (set #extracting_archive
                    ("%s"
                        "Het archief \"%s\" wordt uitgepakt naar deze lade: \"%s\"."
                    )
                )
                (set #install_requires_lha
                    ("%s"
                        "Om %s te installeren moet U LhA hebben. Dit deel wordt overgeslagen."
                    )
                )
                (set #abort_on_extract
                    ("%s%s"
                        "Installatie afgebroken. Kon %s niet uitpakken."
                        "Installeer AUB LhA."
                    )
                )
                (set #warning_old_os
                    (
                        "%s%s"
                        "Installeer AUB een nieuw operating system. "
                        "MakeCD heeft minstens OS 2.04 nodig."
                    )
                )
                (set #intro_msg
                    ("%s%s%s%s%s%s"
                        "Welkom bij de installatie van MakeCD!\n\n"
                        "MakeCD kan ook opgestart worden zonder deze installatie. "
                        "(Dit geldt echter niet voor de diskette-versie, deze moet eerst "
                                                "geïnstalleerd worden).\n"
                                                "Als U MakeCD op uw harddisk wilt installeren, zal dit script U "
                                                "daarbij helpen."
                    )
                )
                (set #select_dest_dir
                    ("%s%s"
                        "Kies AUB de lade waarin MakeCD geïnstalleerd moet worden. "
                        "Er zal automatisch een lade \"MakeCD\" aangemaakt worden."
                    )
                )
                (set #which_languages_to_install
                    ("%s"
                        "Welke talen wilt U installeren?"
                    )
                )
                (set #install_developer
                    ("%s%s%s%s%s"
                                                "Wilt U de documentatie voor software-ontwikkelaars installeren? "
                                                "Deze documentatie beschrijft alles over SUSP (System Use Sharing "
                                                "Protocol), RRIP (Rock Ridge Interchange Protocol) en over de "
                                                "protectie-bits van de Amiga. Hierin staat ook informatie over "
                                                "bestandscommentaren op CD-ROM's."
                    )
                )
                (set #install_goodies
                    ("%s%s%s"
                        "Wilt U enkele extra programma's installeren ? Deze programma's maken eigenlijk "
                        "geen deel uit van MakeCD, maar ze kunnen wel handig zijn. Deze programma's "
                                                "vallen niet onder het registratiebedrag van MakeCD."
                    )
                )
                (set #remove_oldversion
                    ("%s%s%s%s%s"
                        "De bestemmingslade \"%s\" die U gekozen heeft bestaat al. Alvorens de nieuwe versie van MakeCD geïnstalleerd "
                        "zal worden, moet deze lade eerst opgeruimd worden. De bestanden en de lades die U aangemaakt heeft "
                        "zullen niet gewist worden (tenzij dat hun naam overeenkomt met een naam die door MakeCD gebruikt "
                        "wordt).\n\n"
                        "Mag dit installer-script deze oude bestanden en lades verwijderen?"
                    )
                )
                (set #remove_oldversion_help
                    ("%s"
                        "De volgende commando's zullen uitgevoerd worden:"
                    )
                )
                (set #abort_on_cleanup
                    ("%s"
                        "Kon de lade niet opruimen.\n\nInstallatie wordt afgebroken.\n\nInstallatie niet volledig gedaan."
                    )
                )
                (set #deleting_old_files
                    ("%s"
                        "De oude bestanden en lades worden nu verwijderd ..."
                    )
                )
                (set #no_catalog
                    ("%s"
                        "geen catalog"
                    )
                )
                (set #catalog
                    ("%s"
                        "catalog"
                    )
                )
                (set #no_doc
                    ("%s"
                        "geen document"
                    )
                )
                (set #doc
                    ("%s"
                        "document"
                    )
                )
                (set #cannot_find_lang_docs
                    ("%s%s"
                        "Sorry, kan geen docs vinden voor de taal \"%s\".\n\n"
                        "Het installeren van de docs van deze taal wordt overgeslagen."
                    )
                )
                (set #cannot_find_lang_catalogs
                    ("%s%s"
                        "Sorry, kan geen catalogs vinden voor de taal \"%s\".\n\n"
                        "Het installeren van de catalogs van deze taal wordt overgeslagen."
                    )
                )
                (set #cannot_find_div_docs
                    ("%s%s"
                        "Sorry, kan enkele doc bestanden niet vinden.\n\n"
                        "Het installeren van deze docs wordt overgeslagen."
                    )
                )
                (set #copying_files
                    ("%s"
                        "Even geduld. De bestanden worden gekopieerd ..."
                    )
                )
                (set #cannot_find_development_docs
                    ("%s%s"
                        "Sorry, kan de docs voor software-ontwikkelaars niet vinden.\n\n"
                        "Het installeren van deze docs wordt overgeslagen."
                    )
                )
                (set #select_drivers
                    ("%s"
                        "Kies AUB welke drivers geïnstalleerd moeten worden."
                    )
                )
                (set #copy_libs
                    ("%s"
                        "MakeCD heeft de triton.library versie 6 nodig."
                    )
                )
            )
        )

        ; By Eivind Olsen <[e-mail]>
        (if (patmatch langstring "Norsk")
            (
                (set #yes_answer
                    ("%s"
                        "Ja"
                    )
                )
                (set #no_answer
                    ("%s"
                        "Nei"
                    )
                )
                (set #choose_yes_or_no
                    ("%s"
                        "Vennligst velg \"Ja\" eller \"Nei\"."
                    )
                )
                (set #archive_not_found_warning
                    ("%s%s%s"
                        "Advarsel:\n"
                        "Kunne ikke pakke opp \"%s\".\n"
                        "Arkivet ble ikke funnet."
                    )
                )
                (set #archive_not_found_error
                    ("%s%s%s"
                        "Feil:\n"
                        "Kunne ikke pakke opp \"%s\".\n"
                        "Arkivet ble ikke funnet."
                    )
                )
                (set #extracting_archive
                    ("%s"
                        "Pakker opp arkivet \"%s\" til katalogen \"%s\"."
                    )
                )
                (set #install_requires_lha
                    ("%s"
                        "Installeringen av %s krever programmet LhA. Hopper over denne delen."
                    )
                )
                (set #abort_on_extract
                    ("%s%s"
                        "Installering avbrutt. Kunne ikke pakke opp %s."
                        "Vennligst installer LhA."
                    )
                )
                (set #warning_old_os
                    ("%s%s"
                        "Vennligst oppdater operativsystemet. "
                        "MakeCD krever OS 2.04 eller nyere."
                    )
                )
                (set #intro_msg
                    ("%s%s%s%s"
                        "Velkommen til installeringen av MakeCD!\n\n"
                        "Selv om MakeCD kan kjøres uten videre installering "
                        "(unntatt diskettversjonen), vil du kanskje "
                        "kopiere det til din harddisk. Dette skriptet hjelper deg med dette."
                    )
                )
                (set #select_dest_dir
                    ("%s%s"
                        "Velg en katalog å installere MakeCD til. "
                        "Katalogen \"MakeCD\" vil bli opprettet automatisk."
                    )
                )
                (set #which_languages_to_install
                    ("%s"
                        "Hvilke språk vil du installere?"
                    )
                )
                (set #install_developer
                    ("%s%s%s%s%s"
                        "Vil du installere utviklermateriale? Dette materialet "
                        "forklarer alt du behøver å vite om SUSP (delingsprotokoll "
                        "for systembruk), RRIP (Rock Ridge Interchange Protocol) "
                        "og om støtten for Amiga beskyttelsesatributter og "
                        "fil-kommentarer på CD-ROM platen."
                    )
                )
                (set #install_goodies
                    ("%s%s%s"
                        "Vil du installere noe smågodt? Dette materialet tilhører "
                        "ikke egentlig MakeCD og er ikke inkludert i registrerings- "
                        "avgiften til MakeCD, men kan allikevel komme til nytte."
                    )
                )
                (set #remove_oldversion
                    ("%s%s%s%s%s"
                        "Målkatalogen \"%s\" som du valgte eksisterer allerede. Før du installerer "
                        "den nye versjonen må denne katalogen renskes opp i. Filer og kataloger som "
                        "du har laget blir ikke påvirket - unntatt når navnene deres "
                        "kolliderer med navnene på MakeCD relaterte filer.\n\n"
                        "Kan installeringsskriptet slette disse filene og katalogene?"
                    )
                )
                (set #remove_oldversion_help
                    ("%s"
                        "De følgende kommandoene vil bli utført:"
                    )
                )
                (set #abort_on_cleanup
                    ("%s"
                        "Kunne ikke renske opp i katalogen.\n\nAvbryter.\n\nInstallering ikke fullført."
                    )
                )
                (set #deleting_old_files
                    ("%s"
                        "Sletter gamle filer og kataloger."
                        "Deleting old files and directories."
                    )
                )
                (set #no_catalog
                    ("%s"
                        "ingen språkfil"
                    )
                )
                (set #catalog
                    ("%s"
                        "språkfil"
                    )
                )
                (set #no_doc
                    ("%s"
                        "ingen dokumentasjon"
                    )
                )
                (set #doc
                    ("%s"
                        "dokumentasjon"
                    )
                )
                (set #cannot_find_lang_docs
                    ("%s%s"
                        "Beklager - ingen dokumentasjon finnes for språket \"%s\".\n\n"
                        "Installering av dokumentasjon for dette språket ble hoppet over."
                    )
                )
                (set #cannot_find_lang_catalogs
                    ("%s%s"
                        "Beklager - ingen språkfiler finnes for språket \"%s\".\n\n"
                        "Installering av språkfiler for dette språket ble hoppet over."
                    )
                )
                (set #cannot_find_div_docs
                    ("%s%s"
                        "Beklager - ingen dokumentasjon ble funnet.\n\n"
                        "Installering av dokumentasjon ble hoppet over."
                    )
                )
                (set #copying_files
                    ("%s"
                        "Vennligst vent under kopiering ..."
                    )
                )
                (set #cannot_find_development_docs
                    ("%s%s"
                        "Beklager - kan ikke finne utviklerdokumentasjon.\n\n"
                        "Installering av dokumentasjon ble hoppet over."
                    )
                )
                (set #select_drivers
                    ("%s"
                        "Vennligst velg drivere som skal installeres."
                    )
                )
                (set #copy_libs
                    ("%s"
                        "MakeCD krever triton.library V6."
                    )
                )
            )
        )

        ; By Mikko Virtanen <[e-mail]>
        (if (patmatch langstring "Suomi")
            (
                (set #yes_answer
                    ("%s"
                        "Kyllä"
                    )
                )
                (set #no_answer
                    ("%s"
                        "Ei"
                    )
                )
                (set #choose_yes_or_no
                    ("%s"
                        "Valitse \"Kyllä\" tai \"Ei\"."
                    )
                )
                (set #archive_not_found_warning
                    ("%s%s%s"
                        "Varoitus:\n"
                        "En pystynyt purkamaan \"%s\".\n"
                        "Pakettia ei löytynyt."
                    )
                )
                (set #archive_not_found_error
                    ("%s%s%s"
                        "Virhe:\n"
                        "En pystynyt purkamaan \"%s\".\n"
                        "Pakettia ei löytynyt."
                    )
                )
                (set #extracting_archive
                    ("%s"
                        "Puran pakettia \"%s\" hakemistoon \"%s\"."
                    )
                )
                (set #install_requires_lha
                    ("%s"
                        "% asennukseen tarvitaan LhA-ohjelma. Hyppään tämän kohdan yli."
                    )
                )
                (set #abort_on_extract
                    ("%s%s"
                        "Asennus keskeytetty. En pystynyt purkamaan %s."
                        "Asenna LhA."
                    )
                )
                (set #warning_old_os
                    (
                        "%s%s"
                        "Päivitä käyttöjärjestelmä. "
                        "MakeCD vaatii OS 2.04."
                    )
                )
                (set #intro_msg
                    ("%s%s%s%s"
                        "Tervetuloa asentamaan MakeCD!\n\n"
                        "Vaikkakin MakeCD:tä voi käyttää ilman asennustakin"
                        "(paitsi levykeversiota), haluat varmaankin kopioida"
                        "sen kovalevyllesi. Tämä asennusohjelma auttaa sinua siinä."
                    )
                )
                (set #select_dest_dir
                    ("%s%s"
                        "Valitse kohdehakemisto MakeCD:lle. "
                        "\"MakeCD\" hakemisto luodaan automaattisesti."
                    )
                )
                (set #which_languages_to_install
                    ("%s"
                        "Mitkä kielet haluat asentaa?"
                    )
                )
                (set #install_developer
                    ("%s%s%s%s%s"
                        "Haluatko asentaa developer-materiaalin? Materiaali"
                        "sisältää kaiken, mitä sinun tulee tietää SUSP:sta (System Use "
                        "Sharing Protocol), RRIP:stä (Rock Ridge Interchange Protocol) "
                        "ja Amigan suojausbittien ja tiedostokomenttien tuesta "
                        "CD-ROM:lla."
                    )
                )
                (set #install_goodies
                    ("%s%s%s"
                        "Haluatko asentaa muutamia namupaloja? Tämä materiaali ei "
                        "oikeastaan kuulu MakeCD:hen, eikä sisälly MakeCD:n rekisteröinti- "
                        "maksuun, mutta saattaa kuitenkin osoittautua hyödylliseksi."
                    )
                )
                (set #remove_oldversion
                    ("%s%s%s%s%s"
                        "Valitsemasi kohdehakemisto \"%s\" on jo olemassa. Ennen uuden version "
                        "asennusta, tämä hakemisto pitää siivota. Itse luomiisi tiedostoihin "
                        "ja hakemistoihin ei kosketa, paitsi jos niillä on samoja nimiä kuin "
                        "MakeCD:n omilla tiedostoilla.\n\n"
                        "Voidaanko MakeCD:hen liittyvät tiedostot ja hakemistot tuhota?"
                    )
                )
                (set #remove_oldversion_help
                    ("%s"
                        "Seuraavat komennot suoritetaan:"
                    )
                )
                (set #abort_on_cleanup
                    ("%s"
                        "En pystynyt siivoamaan hakemistoa.\n\nKeskeytän.\n\nAsennusta ei tehty."
                    )
                )
                (set #deleting_old_files
                    ("%s"
                        "Tuhoan vanhoja tiedostoja ja hakemistoja."
                    )
                )
                (set #no_catalog
                    ("%s"
                        "ei sanastoa"
                    )
                )
                (set #catalog
                    ("%s"
                        "sanasto"
                    )
                )
                (set #no_doc
                    ("%s"
                        "ei ohjeita"
                    )
                )
                (set #doc
                    ("%s"
                        "ohjeet"
                    )
                )
                (set #cannot_find_lang_docs
                    ("%s%s"
                        "Pahoittelen, en löytänyt ohjeita kielelle \"%s\".\n\n"
                        "Hyppään tämän asennuskohdan yli."
                    )
                )
                (set #cannot_find_lang_catalogs
                    ("%s%s"
                        "Pahoittelen, en löytänyt sanastoa kielelle \"%s\".\n\n"
                        "Hyppään tämän asennuskohdan yli."
                    )
                )
                (set #cannot_find_div_docs
                    ("%s%s"
                        "En löytänyt muutamia ohjetiedostoja.\n\n"
                        "Asennus jätetty väliin tältä osin."
                    )
                )
                (set #copying_files
                    ("%s"
                        "Pieni hetki, kopioin ..."
                    )
                )
                (set #cannot_find_development_docs
                    ("%s%s"
                        "En löydä kehittelyohjeita.\n\n"
                        "Asennus jätetty väliin tältä osin."
                    )
                )
                (set #select_drivers
                    ("%s"
                        "Valitse asennettavat ajurit."
                    )
                )
                (set #copy_libs
                    ("%s"
                        "MakeCD vaatii triton.library V6:n."
                    )
                )
            )
        )

        ; By Fredrik Zetterlund <[e-mail]>
        (if (patmatch langstring "Svenska")
            (
                (set #yes_answer
                    ("%s"
                        "Ja"
                    )
                )
                (set #no_answer
                    ("%s"
                        "Nej"
                    )
                )
                (set #choose_yes_or_no
                    ("%s"
                        "Välj antingen \"Ja\" eller \"Nej\"."
                    )
                )
                (set #archive_not_found_warning
                    ("%s%s%s"
                        "Varning:\n"
                        "Kan inte utvinna \"%s\".\n"
                        "Hittar ej arkivet."
                    )
                )
                (set #archive_not_found_error
                    ("%s%s%s"
                        "Fel:\n"
                        "Kan inte utvinna \"%s\".\n"
                        "Hittar ej arkivet."
                    )
                )
                (set #extracting_archive
                    ("%s"
                        "Utvinner arkiv \"%s\" till låda \"%s\"."
                    )
                )
                (set #install_requires_lha
                    ("%s"
                        "Installation av %s kräver programmet LhA. Hoppar ver denna del."
                    )
                )
                (set #abort_on_extract
                    ("%s%s"
                        "Installation avbryten. Kunde inte utvinna %s. "
                        "Vänligen installera LhA."
                    )
                )
                (set #warning_old_os
                    (
                        "%s%s"
                        "Vänligen uppdatera ditt operativsystem. "
                        "MakeCD kräver OS 2.04."
                    )
                )
                (set #intro_msg
                    ("%s%s%s%s"
                        "Välkommen till MakeCD's installationsprogram!\n\n"
                        "Även om MakeCD klarar av att köras utan fortsatt "
                        "installation (förutom diskversionen), kanske du "
                        "vill kopiera den till din hårddisk. Detta skript hjälper dig med det."
                    )
                )
                (set #select_dest_dir
                    ("%s%s"
                        "Vänligen välj destinationslåda för MakeCD. "
                        "\"MakeCD\"-lådan skapas automatiskt."
                    )
                )
                (set #which_languages_to_install
                    ("%s"
                        "Vilka språk vill du installera?"
                    )
                )
                (set #install_developer
                    ("%s%s%s%s%s"
                        "Vill du installera utvecklarmaterialet? Det materialet "
                        "beskriver allt du behöver veta om SUSP (System Use "
                        "Sharing Protocol), RRIP (Rock Ridge Interchange Protocol) "
                        "och om stödet för Amigans skyddsbittar och filkommentarer "
                        "på CD-ROMen."
                    )
                )
                (set #install_goodies
                    ("%s%s%s"
                        "Vill du installera några godbitar? Det materialet tillhör "
                        "egentligen inte MakeCD och är inte inkluderat i MakeCD's "
                        "registreringsavgift, men kan vara användbart."
                    )
                )
                (set #remove_oldversion
                    ("%s%s%s%s%s"
                        "Destinationslådan \"%s\" som du valt existerar redan. Innan "
                        "du installerar den nya versionen, måste lådan rensas upp. "
                        "Filer och lådor skapade av dig kommer inte att röras, om "
                        "inte deras namn kolliderar med namn som relateras till MakeCD-filer.\n\n"
                        "Får installationsskriptet radera de berörda lådorna?"
                    )
                )
                (set #remove_oldversion_help
                    ("%s"
                        "Följande kommanon kommer att utföras:"
                    )
                )
                (set #abort_on_cleanup
                    ("%s"
                        "Kunde inte rensa lådan.\n\nAvbryter.\n\nInstallation ej klar."
                    )
                )
                (set #deleting_old_files
                    ("%s"
                        "Raderar gamla filer och lådor."
                    )
                )
                (set #no_catalog
                    ("%s"
                        "ingen katalog"
                    )
                )
                (set #catalog
                    ("%s"
                        "katalog"
                    )
                )
                (set #no_doc
                    ("%s"
                        "ingen dokumentation"
                    )
                )
                (set #doc
                    ("%s"
                        "dokumentation"
                    )
                )
                (set #cannot_find_lang_docs
                    ("%s%s"
                        "Ledsen, hittar ingen dokumentation för ditt språk \"%s\".\n\n"
                        "Installationen av dokumentationen på det språket hoppas över."
                    )
                )
                (set #cannot_find_lang_catalogs
                    ("%s%s"
                        "Ledsen, hittar inga kataloger för ditt språk \"%s\".\n\n"
                        "Installationen av katalogen på det språket hoppas över."
                    )
                )
                (set #cannot_find_div_docs
                    ("%s%s"
                        "Ledsen, hittar inte vissa delar av dokumentationen.\n\n"
                        "Installationen av den dokumentationen hoppas över."
                    )
                )
                (set #copying_files
                    ("%s"
                        "Kopiering sker, var god dröj..."
                    )
                )
                (set #cannot_find_development_docs
                    ("%s%s"
                        "Ledsen, kan inte hitta utvecklardokumentationen.\n\n"
                        "Installationen av den dokumentationen hoppas över."
                    )
                )
                (set #select_drivers
                    ("%s"
                        "Vänligen välj vilka drivrutiner som skall installeras."
                    )
                )
                (set #copy_libs
                    ("%s"
                         "MakeCD kräver triton.library V6."
                    )
                )
            )
        )


        (if (IN langbits_0  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_0  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_0  ("%s (%s, %s)" txt_lang_0  #catres #docres))  (set langchoiceh_0  ("%s (%s, %s)" txt_lang_0  #catresh #docresh))
        (if (IN langbits_1  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_1  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_1  ("%s (%s, %s)" txt_lang_1  #catres #docres))  (set langchoiceh_1  ("%s (%s, %s)" txt_lang_1  #catresh #docresh))
        (if (IN langbits_2  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_2  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_2  ("%s (%s, %s)" txt_lang_2  #catres #docres))  (set langchoiceh_2  ("%s (%s, %s)" txt_lang_2  #catresh #docresh))
        (if (IN langbits_3  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_3  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_3  ("%s (%s, %s)" txt_lang_3  #catres #docres))  (set langchoiceh_3  ("%s (%s, %s)" txt_lang_3  #catresh #docresh))
        (if (IN langbits_4  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_4  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_4  ("%s (%s, %s)" txt_lang_4  #catres #docres))  (set langchoiceh_4  ("%s (%s, %s)" txt_lang_4  #catresh #docresh))
        (if (IN langbits_5  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_5  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_5  ("%s (%s, %s)" txt_lang_5  #catres #docres))  (set langchoiceh_5  ("%s (%s, %s)" txt_lang_5  #catresh #docresh))
        (if (IN langbits_6  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_6  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_6  ("%s (%s, %s)" txt_lang_6  #catres #docres))  (set langchoiceh_6  ("%s (%s, %s)" txt_lang_6  #catresh #docresh))
        (if (IN langbits_7  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_7  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_7  ("%s (%s, %s)" txt_lang_7  #catres #docres))  (set langchoiceh_7  ("%s (%s, %s)" txt_lang_7  #catresh #docresh))
        (if (IN langbits_8  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_8  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_8  ("%s (%s, %s)" txt_lang_8  #catres #docres))  (set langchoiceh_8  ("%s (%s, %s)" txt_lang_8  #catresh #docresh))
        (if (IN langbits_9  0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_9  1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_9  ("%s (%s, %s)" txt_lang_9  #catres #docres))  (set langchoiceh_9  ("%s (%s, %s)" txt_lang_9  #catresh #docresh))
        (if (IN langbits_10 0) ((set #catres #catalog) (set #catresh "CAT")) ((set #catres #no_catalog) (set #catresh "NOCAT")))   (if (IN langbits_10 1) ((set #docres #doc) (set #docresh "DOC")) ((set #docres #no_doc) (set #docresh "NODOC")))   (set langchoice_10 ("%s (%s, %s)" txt_lang_10 #catres #docres))  (set langchoiceh_10 ("%s (%s, %s)" txt_lang_10 #catresh #docresh))
    )
)



(procedure P_SET_GLOBALS
    (
        (set osversion (/ (getversion) 65536))
        (set volname (expandpath (":")))
        (set origuserlevel @user-level)
        (run "which >ENV:MAKECDLHAPATH LhA")
        (set lhapath (getenv "MAKECDLHAPATH"))
        (if (patmatch "\n" (substr lhapath (- (strlen lhapath) 1)))
            ( ; then
                (set lhapath
                    (substr lhapath 0 (- (strlen lhapath) 1))
                )
            )
        )
        (run "delete QUIET ENV:MAKECDLHAPATH")
        (set lhexexists (exists "lhex"))
        (if (patmatch "#?LhA" lhapath)
            ( ; then
                (set lhaexists (exists lhapath))
            )
            ( ; else
                (set lhaexists 0)
            )
        )
    )
)



(procedure P_EXTRACT_FILE archive path objectname required
    (
        (if (= 1 (exists archive))
            ( ; then
                (if (= 1 lhexexists)
                    ( ; then
                        (working (#extracting_archive archive path))
                        (run ("lhex -afFqw=%s e %s" path archive))
                    )
                    ( ; else
                        (if (= 1 lhaexists)
                            ( ; then
                                (working (#extracting_archive archive path))
                                (run ("%s -a -m -M x %s %s/" lhapath archive path))
                            )
                            ( ; else
                                (if (= 1 required)
                                    ( ; then
                                        (abort (#abort_on_extract archive))
                                    )
                                    ( ; else
                                        (message (#install_requires_lha objectname))
                                    )
                                )
                            )
                        )
                    )
                )
            )
            ( ; else
                (if (= 1 required)
                    ( ; then
                        (abort (#archive_not_found_error archive))
                    )
                    ( ; else
                        (message (#archive_not_found_warning archive))
                    )
                )
            )
        )
    )
)



(procedure P_WARN_OLD_OS
    (
        (if (< osversion 37)
            (
                (user 2)
                (message
                    #warning_old_os
                )
                (user origuserlevel)
            )
        )
    )
)



(procedure P_SELECT_DEST
    (
        (set destdir
            (tackon
                (askdir
                    (prompt #select_dest_dir)
                    (help @askdir-help)
                    (default @default-dest)
                )
                "MakeCD"
            )
        )
    )
)



(procedure P_CLEANUP_OLD
    (
        (set executestring1 ("delete %s QUIET FORCE" (tackon destdir "(ReadMe|ReadMe.guide|History|MakeCD|Install(%|er)|registerscript|Triton.readme|triton.library|brik|briktest-from-doc|CRCList-binaries|CRCList-binaries.pgp)(%|.info)")))
        (set executestring2 ("delete %s QUIET FORCE" (tackon destdir "(Extras|Goodies|doc|deutsch|english|Modules|Development|Catalogs).info")))
        (set executestring3 ("delete %s QUIET FORCE ALL" (tackon destdir "(Extras|Goodies|doc|deutsch|english|Modules|Development|Catalogs)")))

        (if
            (askbool
                (prompt (#remove_oldversion destdir))
                (choices #yes_answer #no_answer)
                (help #remove_oldversion_help "\n\n" executestring1 "\n\n" executestring2 "\n\n" executestring3)
                (default 0)
            )
            ( ; then
                (working #deleting_old_files)
                (run executestring1)
                (run executestring2)
                (run executestring3)
            )
            ( ; else
                (abort #abort_on_cleanup)
            )
        )
    )
)



(procedure P_CREATE_DIRS
    (
        (if (NOT (exists destdir))
            ( ; then
                (makedir
                    destdir
                    (infos)
                )
            )
            ( ; else
                (P_CLEANUP_OLD)
            )
        )

        (if (NOT (exists (tackon destdir "Modules")))
            (
                (makedir
                    (tackon
                        destdir
                        "Modules"
                    )
                )
            )
        )

        (if (NOT (exists (tackon destdir "Modules/SCSIDrivers")))
            (
                (makedir
                    (tackon
                        destdir
                        "Modules/SCSIDrivers"
                    )
                )
            )
        )

        (if (NOT (exists (tackon destdir "Catalogs")))
            (
                (makedir
                    (tackon
                        destdir
                        "Catalogs"
                    )
                )
            )
        )

        (if (NOT (exists (tackon destdir "doc")))
            (
                (makedir
                    (tackon
                        destdir
                        "doc"
                    )
                )
            )
        )

        (if (NOT (exists (tackon destdir "Tracks")))
            (
                (makedir
                    (tackon
                        destdir
                        "Tracks"
                    )
                )
            )
        )
    )
)



(procedure P_TEMPORARY_EXTRACT_MAKECD
    (
        (if (NOT (exists "MakeCD"))
            ( ; then
                (set makecdtmpdir
                    (tackon
                        destdir
                        "MakeCD-Temporary"
                    )
                )
                (makedir makecdtmpdir)
                (P_EXTRACT_FILE "MakeCD.lha" makecdtmpdir "MakeCD" 1)
            )
            ( ; else
                (set makecdtmpdir "")
            )
        )
    )
)



(procedure P_SELECT_INSTALL_LANG
    (
        (set i 0)
        (set langbits 0)
        (while (< i numlangs)
            (
                (set thislangdir (select i txt_langdir_0 txt_langdir_1 txt_langdir_2 txt_langdir_3 txt_langdir_4 txt_langdir_5 txt_langdir_6 txt_langdir_7 txt_langdir_8 txt_langdir_9 txt_langdir_10))
                (set langbits
                    (if
                        (OR
                            (OR
                                (= 1 (exists ("doc_%s.lha" thislangdir)))
                                (= 2 (exists (tackon makecdtmpdir (tackon "Catalogs" thislangdir))))
                            )
                            (= 2 (exists (tackon makecdtmpdir (tackon "doc" thislangdir))))
                        )
                        ( ; then
                            (+ langbits (shiftleft 1 i))
                        )
                        ( ; else
                            (+ langbits 0)
                        )
                    )
                )
                (set i (+ i 1))
            )
        )


        (set langbits
            (askoptions
                (prompt #which_languages_to_install)
                (help
                    langchoice_0 "\n"
                    langchoice_1 "\n"
                    langchoice_2 "\n"
                    langchoice_3 "\n"
                    langchoice_4 "\n"
                    langchoice_5 "\n"
                    langchoice_6 "\n"
                    langchoice_7 "\n"
                    langchoice_8 "\n"
                    langchoice_9 "\n"
                     "\n"
                    @askoptions-help
                )
                (choices langchoiceh_0 langchoiceh_1 langchoiceh_2 langchoiceh_3 langchoiceh_4 langchoiceh_5 langchoiceh_6 langchoiceh_7 langchoiceh_8 langchoiceh_9)
                (default langbits)
            )
        )
    )
)



(procedure P_ASK_INSTALL_GOODIES
    (
        (if
            (OR
                (= 2 (exists (tackon makecdtmpdir "Extras")))
                (= 2 (exists (tackon makecdtmpdir "Goodies")))
            )
            (
                (set installgoodies
                    (askbool
                        (prompt #install_goodies)
                        (choices #yes_answer #no_answer)
                        (help #choose_yes_or_no)
                        (default 1)
                    )
                )
            )
            ( ;else
                (set install_goodies 0)
            )
        )
    )
)



(procedure P_ASK_INSTALL_DEVELOPER
    (
        (if
            (OR
                (= 1 (exists (tackon makecdtmpdir "doc_development.lha")))
                (= 2 (exists (tackon makecdtmpdir "doc/Development")))
            )
            (
                (set installdev
                    (askbool
                        (prompt #install_developer)
                        (choices #yes_answer #no_answer)
                        (help #choose_yes_or_no)
                        (default 0)
                    )
                )
            )
            ( ;else
                (set installdev 0)
            )
        )
    )
)



(procedure P_COPY_DOCS
    (

        (set i 0)
        (while (< i numlangs)
            (
                (set thislang (select i txt_lang_0 txt_lang_1 txt_lang_2 txt_lang_3 txt_lang_4 txt_lang_5 txt_lang_6 txt_lang_7 txt_lang_8 txt_lang_9 txt_lang_10))
                (set thislangdir (select i txt_langdir_0 txt_langdir_1 txt_langdir_2 txt_langdir_3 txt_langdir_4 txt_langdir_5 txt_langdir_6 txt_langdir_7 txt_langdir_8 txt_langdir_9 txt_langdir_10))
                (set thislangbits (select i langbits_0 langbits_1 langbits_2 langbits_3 langbits_4 langbits_5 langbits_6 langbits_7 langbits_8 langbits_9 langbits_10))
                (if (IN langbits i)
                    (
                        (if (= 2 (exists (tackon makecdtmpdir (tackon "doc" thislangdir))))
                            (
                                (copyfiles
                                    (source (tackon makecdtmpdir "doc"))
                                    (dest (tackon destdir "doc"))
                                    (pattern ("%s#?" thislangdir))
                                    (optional force)
                                )
                            )
                            (
                                (if (= 1 (exists ("doc_%s.lha" thislangdir)))
                                    (
                                        (P_EXTRACT_FILE ("doc_%s.lha" thislangdir) (tackon destdir "doc") ("doc/%s" thislangdir) 0)
                                    )
                                    (
                                        (if (IN thislangbits 1)
                                            ( ; then
                                                (message (#cannot_find_lang_docs thislang))
                                            )
                                        )
                                    )
                                )
                            )
                        )
                        (if (= 2 (exists (tackon makecdtmpdir (tackon "Catalogs" thislangdir))))
                            (
                                (copyfiles
                                    (source (tackon makecdtmpdir "Catalogs"))
                                    (dest (tackon destdir "Catalogs"))
                                    (pattern thislangdir)
                                    (optional force)
                                )
                                (copyfiles
                                    (source (tackon makecdtmpdir "Catalogs"))
                                    (dest (tackon destdir "Catalogs"))
                                    (pattern ("%s.info" thislangdir))
                                    (optional force)
                                )
                            )
                            ( ; else
                                (if (NOT (patmatch "english" thislangdir))    ; not English
                                    (
                                        (if (IN thislangbits 0)
                                            ( ; then
                                                (message (#cannot_find_lang_catalogs thislang))
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
                (set i (+ i 1))
            )
        )

        (
            (if (AND
                    (= 1 (exists (tackon makecdtmpdir "doc/History")))
                    (AND
                        (= 1 (exists (tackon makecdtmpdir "doc/History.info")))
                        (AND
                            (= 1 (exists (tackon makecdtmpdir "doc/Compatibility")))
                            (AND
                                (= 1 (exists (tackon makecdtmpdir "doc/Compatibility.info")))
                                (AND
                                    (= 1 (exists (tackon makecdtmpdir "doc/Triton.readme")))
                                    (= 1 (exists (tackon makecdtmpdir "doc/Triton.readme.info")))
                                )
                            )
                        )
                    )
                )
                ( ;then
                    (copyfiles
                        (source (tackon makecdtmpdir "doc"))
                        (dest (tackon destdir "doc"))
                        (choices "History" "History.info" "Compatibility" "Compatibility.info" "Triton.readme" "Triton.readme.info")
                        (optional force)
                    )
                )
                ( ;else
                    (if (= 1 (exists ("doc_div.lha")))
                        (
                            (P_EXTRACT_FILE "doc_div.lha" (tackon destdir "doc") "doc/#?" 0)
                        )
                        (
                            (message #cannot_find_div_docs)
                        )
                    )
                )
            )
        )

    )
)



(procedure P_COPY_FILES
    (
        (copyfiles
            (prompt #copying_files)
            (choices
                "MakeCD"
                "MakeCD.info"
                "registerscript"
                "doc.info"
                "Modules.info"
                "Catalogs.info"
                "brik"
                "briktest-from-doc"
                "CRCList-binaries"
                "CRCList-binaries.pgp"
            )
            (help @copyfiles-help)
            (source makecdtmpdir)
            (dest destdir)
            (optional force)
        )

        (copyfiles
            (prompt #copying_files)
            (choices
                "ReadMe.guide"
                "ReadMe.guide.info"
            )
            (help @copyfiles-help)
            (source "")
            (dest destdir)
            (optional force)
        )

        (copyfiles
            (prompt #copying_files)
            (help @copyfiles-help)
            (source (tackon makecdtmpdir "Tracks.noinfo"))
            (dest destdir)
            (newname "Tracks.info")
            (optional force)
        )

        (copyfiles
            (prompt #copying_files)
            (help @copyfiles-help)
            (source (tackon makecdtmpdir "MakeCD.noinfo"))
            (dest (pathonly ("%s.info" destdir)))
            (newname (fileonly ("%s.info" destdir)))
            (optional force)
        )

        (copyfiles
            (prompt #copying_files)
            (help @copyfiles-help)
            (choices "makecdromfs.module" "SCSISupport.module" "ReadWrite.module" "SCSIDrivers.info")
            (source (tackon makecdtmpdir "Modules"))
            (dest (tackon destdir "Modules"))
            (optional force)
        )

        (if (= 1 installdev)
            (
                (if (= 2 (exists (tackon makecdtmpdir "doc/Development")))
                    (
                        (copyfiles
                            (prompt #copying_files)
                            (help @copyfiles-help)
                            (source (tackon makecdtmpdir "doc"))
                            (dest (tackon destdir "doc"))
                            (pattern "Development#?")
                            (optional force)
                        )
                    )
                    (
                        (if (= 1 (exists "doc_development.lha"))
                            (
                                (P_EXTRACT_FILE "doc_development.lha" (tackon destdir "doc") "doc/Development" 0)
                            )
                            (
                                (message (#cannot_find_development_docs))
                            )
                        )
                    )
                )
            )
        )

        (if (= 1 installgoodies)
            (
                (if (= 2 (exists (tackon makecdtmpdir "Goodies")))
                    ( ; then
                        (copyfiles
                            (prompt #copying_files)
                            (help @copyfiles-help)
                            (source makecdtmpdir )
                            (dest destdir)
                            (pattern "Goodies#?")
                            (optional force)
                        )
                    )
                    ( ; else
                        (copyfiles
                            (prompt #copying_files)
                            (help @copyfiles-help)
                            (source (tackon makecdtmpdir "Extras.info"))
                            (dest destdir)
                            (newname "Goodies.info")
                            (optional force)
                        )
                        (makedir
                            (tackon destdir "Goodies")
                        )
                        (copyfiles
                            (prompt #copying_files)
                            (help @copyfiles-help)
                            (source (tackon makecdtmpdir "Extras/ReadMe.unpacked"))
                            (dest (tackon destdir "Goodies"))
                            (newname "ReadMe")
                            (optional force)
                        )
                        (copyfiles
                            (prompt #copying_files)
                            (help @copyfiles-help)
                            (source (tackon makecdtmpdir "Extras/ReadMe.info"))
                            (dest (tackon destdir "Goodies"))
                            (optional force)
                        )
                        (tooltype
                            (dest (tackon destdir ("Goodies/ReadMe")))
                            (noposition)
                        )
                        (foreach (tackon makecdtmpdir "Extras") "#?.lha"
                            (
                                (P_EXTRACT_FILE ((tackon makecdtmpdir "Extras/%s") @each-name) (tackon destdir "Goodies") ("Goodies/%s" @each-name) 0)
                                (tooltype
                                    (dest (tackon destdir ("Goodies/%s" (substr @each-name 0 (- (strlen @each-name) 4)))))
                                    (noposition)
                                )
                            )
                        )
                    )
                )
            )
        )
    )
)



(procedure P_COPY_DRIVERS
    (
        (copyfiles
            (prompt #select_drivers)
            (help @copyfiles-help)
            (pattern "#?")
            (source (tackon makecdtmpdir "Modules/SCSIDrivers"))
            (dest (tackon destdir "Modules/SCSIDrivers"))
            (confirm)
            (optional force)
        )
    )
)



(procedure P_COPY_LIBS
    (
        (copylib
            (prompt #copy_libs)
            (help #copy_libs)
            (confirm)
            (source (tackon makecdtmpdir "triton.library"))
            (dest "LIBS:")
        )
    )
)



(procedure P_DELETE_TMPDIR
    (
        (if (> (strlen makecdtmpdir) 0)
            ( ; then
                (run ("delete %s QUIET FORCE ALL" makecdtmpdir))
            )
        )
    )
)



(complete 5)
(P_SET_GLOBALS)
(complete 7)
(P_SELECT_LANGUAGE)
(complete 10)
(P_WARN_OLD_OS)
(complete 13)
(message #intro_msg)
(complete 15)
(P_SELECT_DEST)
(complete 20)
(P_CREATE_DIRS)
(complete 25)
(P_TEMPORARY_EXTRACT_MAKECD)
(complete 35)
(P_SELECT_INSTALL_LANG)
(complete 40)
(P_ASK_INSTALL_DEVELOPER)
(complete 45)
(P_ASK_INSTALL_GOODIES)
(complete 50)
(P_COPY_DOCS)
(complete 60)
(P_COPY_FILES)
(complete 70)
(P_COPY_DRIVERS)
(complete 80)
(P_COPY_LIBS)
(complete 90)
(P_DELETE_TMPDIR)
(complete 95)

(set @default-dest destdir)

(complete 100)