Amiga ACS 1997 #4/amigaacscoverdisc1997-041997.iso/utilities/commercialdemos/makecd_2.4/install

Text File | 1997-07-10 | 47KB | 1,874 lines

; $Id: Install 1.10 1997/07/10 20:35:32 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 (exists "ENV:Language")
            ( ; then
                (if (patmatch (getenv "language") txt_lang_0) ; Deutsch
                    0
                    (if (patmatch (getenv "language") txt_lang_1) ; English
                        1
                        (if (patmatch (getenv "language") txt_lang_2) ; Français
                            2
                            (if (patmatch (getenv "language") txt_lang_3) ; Italiano
                                3
                                (if (patmatch (getenv "language") txt_lang_4) ; Magyar
                                    4
                                    (if (patmatch (getenv "language") txt_lang_5) ; Norsk
                                        5
                                        (if (patmatch (getenv "language") txt_lang_6) ; Svenska
                                            6
                                            1 ; English
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
            ( ; else
                (if (patmatch @language txt_lang_0) ; Deutsch
                    0
                    (if (patmatch @language txt_lang_1) ; English
                        1
                        (if (patmatch @language txt_lang_2) ; Français
                            2
                            (if (patmatch @language txt_lang_3) ; Italiano
                                3
                                (if (patmatch @language txt_lang_4) ; Magyar
                                    4
                                    (if (patmatch @language txt_lang_5) ; Norsk
                                        5
                                        (if (patmatch @language txt_lang_6) ; Svenska
                                            6
                                            1 ; 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 "Deutsch")      (set txt_langdir_0 "deutsch")      (set langbits_0 (+ 2 1))   (set txt_by_0 "von")           (set trans_lang_0 "Angela Schmidt")
        (set txt_lang_1 "English")      (set txt_langdir_1 "english")      (set langbits_1 (+ 2 1))   (set txt_by_1 "by")            (set trans_lang_1 "Angela Schmidt")
        (set txt_lang_2 "Français")     (set txt_langdir_2 "français")     (set langbits_2 (+ 0 1))   (set txt_by_2 "par")           (set trans_lang_2 "Jean-Marc Boursot")
        (set txt_lang_3 "Italiano")     (set txt_langdir_3 "italiano")     (set langbits_3 (+ 0 1))   (set txt_by_3 "")              (set trans_lang_3 "NOT YET TRANSLATED")  ; reserved for Francesco Dipietromaria
        (set txt_lang_4 "Magyar")       (set txt_langdir_4 "magyar")       (set langbits_4 (+ 0 1))   (set txt_by_4 "készítette")    (set trans_lang_4 "Horváth Péter")
        (set txt_lang_5 "Norsk")        (set txt_langdir_5 "norsk")        (set langbits_5 (+ 0 1))   (set txt_by_5 "av")            (set trans_lang_5 "Eivind Olsen")
        (set txt_lang_6 "Svenska")      (set txt_langdir_6 "svenska")      (set langbits_6 (+ 0 1))   (set txt_by_6 "av")            (set trans_lang_6 "Fredrik Zetterlund")
        (set txt_lang_7 "Nederlands")   (set txt_langdir_7 "nederlands")   (set langbits_7 (+ 0 0))   (set txt_by_7 "by")            (set trans_lang_7 "")                    ; reserved for Tim/Korneel
        (set txt_lang_8 "Suomi")        (set txt_langdir_8 "suomi")        (set langbits_8 (+ 0 0))   (set txt_by_8 "by")            (set trans_lang_8 "")                    ; looking for translator
        (set txt_lang_9 "")             (set txt_langdir_9 "")             (set langbits_9 (+ 0 0))   (set txt_by_9 "by")            (set trans_lang_9 "")
        ; looking for español, português, suomi, dansk, ...

        (set numlangs 7)

        (if (AND (= 0 origuserlevel) (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)
                        )
                        (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 (not (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."
            )
        )

        ; Hier folgen die Strings, die für die deutsche Übersetzung benötigt
        ; werden. Bei Übersetzungen in andere Sprachen einfach den folgenden
        ; Block komplett kopieren und die Texte ändern. Die Steuerzeichen
        ; sollten unverändert bleiben. Wer irgendwo eine Zeile hinzufügen oder
        ; löschen möchte, muß dir Anzahl der "%s" entsprechend anpassen - für
        ; jede Zeile steht ein "%s".

        ; 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 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."
                    )
                )
            )
        )

        ; 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 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 #catres #no_catalog))   (if (IN langbits_0 1) (set #docres #doc) (set #docres #no_doc))   (set langchoice_0 ("%s (%s, %s)" txt_lang_0 #catres #docres))
        (if (IN langbits_1 0) (set #catres #catalog) (set #catres #no_catalog))   (if (IN langbits_1 1) (set #docres #doc) (set #docres #no_doc))   (set langchoice_1 ("%s (%s, %s)" txt_lang_1 #catres #docres))
        (if (IN langbits_2 0) (set #catres #catalog) (set #catres #no_catalog))   (if (IN langbits_2 1) (set #docres #doc) (set #docres #no_doc))   (set langchoice_2 ("%s (%s, %s)" txt_lang_2 #catres #docres))
        (if (IN langbits_3 0) (set #catres #catalog) (set #catres #no_catalog))   (if (IN langbits_3 1) (set #docres #doc) (set #docres #no_doc))   (set langchoice_3 ("%s (%s, %s)" txt_lang_3 #catres #docres))
        (if (IN langbits_4 0) (set #catres #catalog) (set #catres #no_catalog))   (if (IN langbits_4 1) (set #docres #doc) (set #docres #no_doc))   (set langchoice_4 ("%s (%s, %s)" txt_lang_4 #catres #docres))
        (if (IN langbits_5 0) (set #catres #catalog) (set #catres #no_catalog))   (if (IN langbits_5 1) (set #docres #doc) (set #docres #no_doc))   (set langchoice_5 ("%s (%s, %s)" txt_lang_5 #catres #docres))
        (if (IN langbits_6 0) (set #catres #catalog) (set #catres #no_catalog))   (if (IN langbits_6 1) (set #docres #doc) (set #docres #no_doc))   (set langchoice_6 ("%s (%s, %s)" txt_lang_6 #catres #docres))
        (if (IN langbits_7 0) (set #catres #catalog) (set #catres #no_catalog))   (if (IN langbits_7 1) (set #docres #doc) (set #docres #no_doc))   (set langchoice_7 ("%s (%s, %s)" txt_lang_7 #catres #docres))
        (if (IN langbits_8 0) (set #catres #catalog) (set #catres #no_catalog))   (if (IN langbits_8 1) (set #docres #doc) (set #docres #no_doc))   (set langchoice_8 ("%s (%s, %s)" txt_lang_8 #catres #docres))
        (if (IN langbits_9 0) (set #catres #catalog) (set #catres #no_catalog))   (if (IN langbits_9 1) (set #docres #doc) (set #docres #no_doc))   (set langchoice_9 ("%s (%s, %s)" txt_lang_9 #catres #docres))
    )
)



(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|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))
                (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 @askoptions-help)
                (choices langchoice_0 langchoice_1 langchoice_2 langchoice_3 langchoice_4 langchoice_5 langchoice_6)
                (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))
                (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))
                (set thislangbits (select i langbits_0 langbits_1 langbits_2 langbits_3 langbits_4 langbits_5 langbits_6 langbits_7 langbits_8 langbits_9))
                (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"
                "ReadMe.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)