;$VER: Boing Bag 3.9-3 Install 45.21 (16.1.2010)

(effect "center" "radial" $FF0077 $AA8800)

(set #language (getenv "Language"))

(complete 0)

;=============================================================================
; English strings

(set #msg-product "Boing Bag 3 for AmigaOS 3.9")

(set #msg-which-language
(cat "\nWhich languages should be installed?"
))

(set #msg-which-language-help
(cat "\nThe Amiga can be operated in many different "
     "languages. Several files must be copied to your "
     "hard drive for each supported language.\n\n"
     "To reduce the amount of space consumed by the "
     "language files, you can select only the "
     "files of specific languages to be copied.\n\n"
     "Check the boxes of the languages you wish "
     "to have available on your system.\n\n"
     @askoptions-help
))

(set #msg-mainwelcome (cat "Welcome to the " #msg-product " installation.\n"))

(set #msg-bad-3.9
(cat "\n\nThis update requires AmigaOS 3.9. Please install it first!\n\n"
     "This update is not intended for AmigaOS 3.5!\n"
))

(set #msg-bad-revision
  (cat
    "\n\nYou intend to install Boing Bag 3.9-3 but did not yet install "
    "the AmigaOS 3.9 Update Boing Bags 3.9-1 and 3.9-2. Please install "
    "Boing Bags 3.9-1 and 3.9-2 before installing this third AmigaOS update."
  )
)

(set #msg-introduction
(cat "\n\nThis program lets you install " #msg-product
     " on your hard drive.\n\nIt can be used to update Version 3.9 of AmigaOS."
))

(set #msg-which-disk
(cat "On which partition should " #msg-product " be installed?"
))

(set #msg-which-disk-help
(cat "\nThis section lets you select on which hard drive partition the "
     "update files will be installed. These should normally go "
     "to the same directory you installed AmigaOS 3.9 to.\n\n"
     @askdir-help
))

(set #msg-confirm-target
(cat "\n\nVERY IMPORTANT!!!\n\nThis program installs " #msg-product " on your hard disk. "
     "\n\nOlder files will be overwritten."
     "\n\nDo you want to install the update on partition \"%s\"? "
))

(set #msg-confirm-target-help
(cat "Later in the installation process "
     "some of the files on this partition will be replaced with newer "
     "files.\n\n"
))

(set #msg-installing
(cat "\n\nInstalling the update..."
))

(set #msg-reboot
  (cat "\nThe installation of " #msg-product " is now complete.\n\n"
       "To enable the update you should turn your Amiga off and then on again. "
       "A cold reboot is necessary; a warm reboot is not sufficient. "
       "We recommend that you do this now.\n\n"
       "Please save all yet unsaved data, "
       "remove all disks from all drives and turn your Amiga off and then on again."
  )
)

(set #msg-install-keymaps
  "Installing keymaps ..."
)

(set #msg-install-keymaps-help
  (cat
    "\nThe Amiga can be operated with many different types of keyboards. "
    "A keymap file describes your keyboard to the Amiga so it can interact "
    "with it."
    "\n\nThese keymaps map the Euro symbol to the <Alt-E> key."
  )
)

(set #msg-install-fonts
  "Installing fonts ..."
)

(set #msg-install-fonts-help
  (cat
    "\nThis update contains updated AmigaOS bitmap fonts which contain the Euro symbol."
  )
)

(set #msg-fixfonts
  "Running \"FixFonts\" to update \".font\" files. \n\nThis may take a while."
)

(set #msg-install-countries
  "Installing country files ..."
)

(set #msg-install-countries-help
  (cat
    "The country description files specify which currency to use among "
    "other country-related settings."
    "\n\nThis update countains new \".country\" files for all countries "
    "that switched their currency to Euro."
) )

;=============================================================================
; German strings

(if (= #language "deutsch")
  (
    (set #msg-product "Boing Bag 3 für AmigaOS 3.9")

    (set #msg-which-language
    (cat "\nWelche Sprachen sollen installiert werden?"
    ))

    (set #msg-which-language-help
    (cat "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
         "Für jede verwendete Sprache müssen mehrere Dateien auf Ihre "
         "Festplatte kopiert werden.\n\n"
         "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
         "einnehmen, können Sie wählen, nur die Treiber für bestimmte "
         "Sprachen zu installieren.\n\n"
         "Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
         "Ihrem System verfügbar haben wollen, so daß diese Sprachen mit "
         "einem Häkchen markiert sind.\n\n"
         @askoptions-help
    ))

    (set #msg-mainwelcome (cat "Willkommen zur Installation vom " #msg-product " \n"))

    (set #msg-bad-3.9
    (cat "\n\n\nDieses Update benötigt AmigaOS 3.9. Bitte installieren Sie es zuerst!\n\n"
         "Dieses Update ist nicht für AmigaOS 3.5 gedacht!\n"
    ))

    (set #msg-bad-revision
      (cat
        "\n\nSie möchten Boing Bag 3.9-3 installieren, haben jedoch noch nicht "
        "das erste AmigaOS 3.9 Update Boing Bag 3.9-1 und 3.9-2 installiert. Bitte "
        "installieren Sie Boing Bag 3.9-1 und 3.9-2 zuerst."
      )
    )

    (set #msg-introduction
    (cat "\n\nHiermit können Sie " #msg-product " auf Ihrer "
         "Festplatte installieren.\n\nSie können damit die Version 3.9 von AmigaOS "
         "aktualisieren."
    ))

    (set #msg-confirm-target
    (cat "\n\nBITTE BEACHTEN!!!\n\nDieses Programm installiert " #msg-product " auf Ihrer Festplatte."
         "\n\nBisherige Dateien werden überschrieben.\n\n"
         " Wollen Sie das Update auf der Partition \"%s\" installiert "
         " bekommen?"
    ))

    (set #msg-confirm-target-help
    (cat "Bei der weiteren Installation "
         "werden die meisten Dateien in dieser Partition durch neuere Dateien "
         "ersetzt.\n\n"
    ))

    (set #msg-which-disk
    (cat "Auf welcher Partition soll " #msg-product " installiert werden?"
    ))

    (set #msg-which-disk-help
    (cat "\nHier können Sie wählen, auf welcher Festplattenpartition "
         "die Dateien vom Update installiert werden sollen. "
         "Sie sollten normalerweise an dieselbe Stelle installiert werden, "
         "wie die bisherigen Dateien von AmigaOS 3.9.\n\n"
         @askdir-help
    ))

    (set #msg-installing
    (cat "\n\nInstalliere das Update..."
    ))

    (set #msg-reboot
      (cat
        "\nDie Installation des Updates ist nun abgeschlossen.\n\n"
        "Um das Update zu aktivieren, müssen Sie Ihren Amiga neu "
        "starten. Wir empfehlen dies gleich zu tun.\n\n"
        "Bitte speichern Sie alle noch ungespeicherten Daten, "
        "entfernen die Disketten aus allen Laufwerken und starten Sie ihren Amiga neu."
      )
    )

    (set #msg-install-keymaps
      "Installiere Tastaturbelegungen ..."
    )

    (set #msg-install-keymaps-help
      (cat
        "\nDer Amiga kann mit vielen verschiedenen Tastaturen betrieben "
        "werden. "
        "Eine \"Keymap\"-Datei (Tastaturbelegung) beschreibt dem Amiga "
        "eine Tastatur, so dass sie korrekt benutzt werden kann."
        "\n\nDiese Tastaturbelegungen legen das Euro-Zeichen auf die <Alt-E>-Taste."
      )
    )

    (set #msg-install-fonts
      "Installiere Schriften ..."
    )

    (set #msg-install-fonts-help
      (cat
        "\nDieses Update enthält aktualisierte Amiga Bitmap-Schriften mit Euro-Symbol."
      )
    )

    (set #msg-fixfonts
      "Führe \"FixFonts\" aus, um die \".font\"-Dateien zu aktualisieren.\n\nDies kann eine Weile dauern."
    )

    (set #msg-install-countries
      "Installiere Landesbeschreibungen ..."
    )

    (set #msg-install-countries-help
      (cat
        "\nIn den Landesbeschreibungs-Dateien ist neben anderen landes-spezifischen "
        "Einstellungen angegeben, welche Währung für ein Land verwendet wird."
        "\n\nDieses Update enthält neue \".country\"-Dateien für Länder, die ihre "
        "Währung auf Euro umgestellt haben."
      )
    )
  )
)

;=============================================================================
; Danish strings ... thanks to Niels Bache and team!

(if (= #language "dansk")
(
    (set #msg-product "Boing Bag 3 for AmigaOS 3.9")

    (set #msg-which-language
    (cat "\nHvilke sprog skal der installeres?"
    ))

    (set #msg-which-language-help
    (cat "\nAmigaen kan anvendes med mange forskellige sprog. "
         "For hvert sprog skal der kopieres nogle filer til "
         "din harddisk.\n\n"
         "For at begrænse den diskplads som sprogfilerne optager på "
         "harddisken, kan du vælge kun at installere filerne for "
         "nogle bestemte sprog.\n\n"
         "Du skal blot klikke på knapperne for de sprog som du gerne vil "
         "have til rådighed i systemet, så disse sprog bliver markeret "
         "med et hak.\n\n"
         @askoptions-help
    ))

    (set #msg-mainwelcome (cat "Velkommen til installeringen af " #msg-product " \n"))

    (set #msg-bad-3.9
    (cat "\n\n\nDenne opdatering kræver AmigaOS 3.9. Installér først denne.\n\n"
         "Denne opdatering er ikke beregnet til AmigaOS 3.5.\n"
    ))

    (set #msg-bad-revision
      (cat
        "\n\nDu er ved at installere Boing Bag 3.9-3 uden først at have installeret "
        "den første AmigaOS 3.9-opdatering, Boing Bag 3.9-2. Du skal installere Boing Bag 3.9-2 "
        "før du installerer denne anden AmigaOS-opdatering."
      )
    )

    (set #msg-introduction
    (cat "\n\nMed dette program kan du installere " #msg-product " på din "
         "harddisk.\n\nDermed kan du opdatere version 3.9 af AmigaOS."
    ))

    (set #msg-which-disk
    (cat "I hvilket diskafsnit skal " #msg-product " installeres?"
    ))

    (set #msg-which-disk-help
    (cat "\nHer kan du vælge i hvilket diskafsnit (partition) "
         "opdateringens filer skal installeres. "
         "De skal normalt installeres samme sted som de eksisterende "
         "filer fra AmigaOS 3.9.\n\n"
         @askdir-help
    ))

    (set #msg-confirm-target
    (cat "\n\nBEMÆRK!!!\n\nDette program installerer " #msg-product " på din harddisk."
         "\n\nEksisterende filer vil blive overskrevet.\n\n"
         " Vil du have opdateringen installeret i diskafsnittet \"%s\"?"
    ))

    (set #msg-confirm-target-help
    (cat "Senere i installeringsforløbet "
         "vil en del filer i dette diskafsnit blive udskiftet med nyere "
         "versioner.\n\n"
    ))

    (set #msg-installing
    (cat "\n\nInstallerer opdateringen..."
    ))

    (set #msg-reboot
      (cat "Installeringen af opdateringen er nu gennemført.\n\n"
           "For at aktivere de opdaterede filer bør du genstarte din "
           "Amiga. Vi anbefaler at du gør dette nu.\n\n"
           "Sørg for at alle data er gemt, "
           "tag eventuelle diske ud af drevene og "
           "genstart Amigaen nu."
      )
    )
  )
)

;=============================================================================
; French strings - Chaînes françaises - (10 mars 2002).
; Thanks Herve Ch. Dupont & Pascal Rullier!

(if (= #language "français")
 (
  (set #msg-product "Boing Bag 3 pour AmigaOS 3.9")

  (set #msg-which-language
  (cat "\nQuel langage voulez-vous installer ?"
  ))

  (set #msg-which-language-help
  (cat "\nL'Amiga peut être utilisé dans différentes "
       "langues. Plusieurs fichiers devront être copiés "
       "sur votre disque dur, pour chaque langue supportée.\n\n"
       "Pour réduire la place occupée par les fichiers des "
       "différentes langues, vous pouvez choisir les fichiers "
       "des langues concernées pour la copie.\n\n"
       "Cochez les cases des langues que vous souhaitez "
       "installer sur votre système.\n\n"
       @askoptions-help
  ))

  (set #msg-mainwelcome (cat "Bienvenue dans le script d'installation de " #msg-product ".\n"))

  (set #msg-bad-3.9
  (cat "\n\nCette mise à jour nécessite le système AmigaOS 3.9. Veuillez l'installer au préalable !\n\n"
       "Cette mise à jour ne s'applique pas au système AmigaOS 3.5 !\n"
  ))

  (set #msg-bad-revision
    (cat
      "\n\nVous tentez d'installer le Boing Bag 3.9-3 mais vous n'avez encore "
      "installé la première mise à jour Boing Bag 3.9-2 pour AmigaOS 3.9. Veuillez installer Boing Bag 3.9-2 "
      "avant d'installer cette deuxième mise à jour du système."
    )
  )

  (set #msg-introduction
  (cat "\n\nCe programme vous propose d'installer le " #msg-product
       " sur votre disque dur.\n\nIl peut être utilisé pour mettre à jour la version 3.9 d'AmigaOS."
  ))

  (set #msg-which-disk
  (cat "Sur quelle partition le " #msg-product " doit-il être installé ?"
  ))

  (set #msg-which-disk-help
  (cat "\nCette partie vous donne le choix de la partition de votre disque dur "
       "où installer les fichiers de mise à jour. Cela devrait normalement être "
       "le même répertoire où vous avez déjà installé AmigaOS 3.9.\n\n"
       @askdir-help
  ))

  (set #msg-confirm-target
  (cat "\n\nTRÈS IMPORTANT !!!\n\nCe programme installe le " #msg-product " sur votre disque dur. "
       "\n\nLes fichiers plus anciens seront remplacés."
       "\n\nVoulez-vous installer la mise à jour sur la partition « %s » ? "
  ))

  (set #msg-confirm-target-help
  (cat "Dans la suite de l'installation, "
       "certains fichiers de cette partition seront remplacés par des "
       "fichiers plus récents.\n\n"
  ))

  (set #msg-installing
  (cat "\n\nInstallation de la mise à jour..."
  ))

  (set #msg-reboot
  (cat "\nL'installation du " #msg-product " est maintenant terminée.\n\n"
       "Pour que la mise à jour des fichiers soit prise en compte, vous devez redémarrer votre Amiga.\n\n"
       "Retirer toutes les disquettes des lecteurs et redémarrez votre "
       "Amiga maintenant. \n\nPour vraiment être sûr que la nouvelle ROM soit utilisée "
       "nous vous recommandons d'éteindre votre ordinateur, d'attendre 10 secondes et "
       "de l'allumer de nouveau."
  ))
))

;=============================================================================
; Spanish strings ... thanks to David Rey and team!

(if (= #language "español")
(
    (set #msg-product "Boing Bag 3 para AmigaOS 3.9")

    (set #msg-which-language
    (cat "\n¿Qué idiomas desea instalar?"
    ))

    (set #msg-which-language-help
    (cat "\nEl Amiga puede utilizarse en muchos idiomas diferentes. "
         "Deberán copiarse varios ficheros a su disco duro para "
         "cada idioma que se desee soportar.\n\n"
         "Para reducir la cantidad de espacio ocupado por los "
         "ficheros correspondientes, puede elegir sólo aquéllos "
         "específicos de los idiomas que le interesen.\n\n"
         "Marque las casillas de los idiomas que desee "
         "poder utilizar en su sistema.\n\n"
         @askoptions-help
    ))

    (set #msg-mainwelcome (cat "Bienvenido a la instalación del " #msg-product ".\n"))

    (set #msg-bad-3.9
    (cat "\n\n\nEsta actualización necesita el AmigaOS 3.9. ¡Por favor, instálelo primero!\n\n"
         "¡Esta actualización NO ES para el AmigaOS 3.5!\n"
    ))

    (set #msg-introduction
    (cat "\n\nEste programa le permite instalar el " #msg-product
         " en su disco duro.\n\nPuede utilizarse para actualizar la versión 3.9 del AmigaOS."
    ))

    (set #msg-which-disk
    (cat "¿En qué partición desea instalar el " #msg-product "?"
    ))

    (set #msg-which-disk-help
    (cat "\nEsta sección le permite elegir la partición de disco duro en la "
         "que se instalará la actualización. Normalmente debería hacerlo en "
         "el mismo directorio donde tiene ya instalado el AmigaOS 3.9.\n\n"
         @askdir-help
    ))

    (set #msg-confirm-target
    (cat "\n\n¡¡¡MUY IMPORTANTE!!!\n\nEste programa instala el " #msg-product " en su disco duro. "
         "\n\nLos ficheros antiguos se sobreescribirán."
         "\n\n¿Desea instalar la actualización en la partición \"%s\"? "
    ))

    (set #msg-confirm-target-help
    (cat "Más adelante, algunos de los ficheros de esta partición "
         "serán sustituidos por otros más recientes.\n\n"
    ))

    (set #msg-installing
    (cat "\n\nInstalando la actualización..."
    ))

    (set #msg-reboot
    (cat "\nLa instalación del " #msg-product " ha concluido con éxito.\n\n"
         "Para que el nuevo software entre en funcionamiento, deberá reiniciar su Amiga.\n\n"
         "Extraiga cualquier disquete insertado en una disquetera y "
         "entonces reinicie su sistema."
    ))
))

; =============================================================================
; Italian strings ... thanks to Stefano Guidetti and team!

(if (= #language "italiano")
(
    (set #msg-product "Boing Bag 3 per AmigaOS 3.9")

    (set #msg-which-language
    (cat "\nQuali lingue devono essere installate?"
    ))

    (set #msg-which-language-help
    (cat "\nAmiga può operare in molte lingue differenti. "
         "Diversi file devono essere copiati sul tuo disco "
         "rigido per ogni lingua scelta.\n\n"
         "Per ridurre l'ammontare di spazio richiesto dai "
         "file relativi alle lingue, puoi selezionare "
         "quali lingue installare.\n\n"
         "Seleziona le caselle relative alle lingue che "
         "vuoi avere a disposizione nel tuo sistema.\n\n"
         @askoptions-help
    ))

    (set #msg-mainwelcome (cat "Benvenuti all'installazione di " #msg-product " \n"))

    (set #msg-bad-3.9
    (cat "\n\n\nQuesto aggiornamento necessita di AmigaOS 3.9. Per favore installalo prima di effettuare l'aggiornamento!\n\n"
         "Questo aggiornamento non è destinato ad AmigaOS 3.5\n"
    ))

    (set #msg-bad-revision
      (cat
        "\n\nHai deciso di installare il Boing Bag 3.9-3 ma non hai "
        "ancora installato il Boing Bag 3.9-2. Per favore installalo prima di procedere "
        "con questo secondo aggiornamento."
      )
    )

    (set #msg-introduction
    (cat "\n\nQuesto programma ti permette di installare " #msg-product " sul tuo disco rigido.\n\n"
         "Può essere usato solo per aggiornare la versione 3.9 di AmigaOS."
    ))

    (set #msg-confirm-target
    (cat "\n\nIMPORTANTE!!!\n\nQuesto programma installa " #msg-product " sul tuo disco rigido."
         "\n\nI vecchi file verranno sovrascritti.\n\n"
         " Vuoi veramente installare l'aggiornamento nella partizione \"%s\"?"
    ))

    (set #msg-confirm-target-help
    (cat "Nel corso dell'installazione "
         "alcuni file di questa partizione saranno sostituiti con una versione più recente.\n\n"
    ))

    (set #msg-which-disk
    (cat "In quale partizione vuoi che " #msg-product " sia installato?"
    ))

    (set #msg-which-disk-help
    (cat "\nQuesta sezione ti permette di scegliere in quale partizione del disco rigido "
         "vuoi installare i file dell'aggiornamento. Normalmente questa dovrebbe essere "
         "la stessa partizione in cui hai installato AmigaOS 3.9.\n\n"
         @askdir-help
    ))

    (set #msg-installing
    (cat "\n\nAggiornamento in corso..."
    ))

    (set #msg-reboot
    (cat "\nL'installazione di " #msg-product " è stata completata.\n\n"
     "Per attivare l'aggiornamento è necessario riavviare il tuo Amiga. "
     "Ti raccomandiamo di farlo adesso.\n\n"
     "Salva tutti i file aperti, rimuovi tutti i dischetti dai lettori di floppy e riavvia il tuo Amiga."
    ))

))

;=============================================================================
; Polish strings, thanks a lot to Pawel Goldyn and Mariusz Danilewicz!

(if (= #language "polski")
        (
        (set #msg-product "Boing Bag 3 dla AmigaOS 3.9")

        (set #msg-which-language
        (cat
                 "\nJakie wersje jëzykowe powinny zostaê zainstalowane?"
        ))

        (set #msg-which-language-help
        (cat
                 "\nAmiga moûe komunikowaê sië z uûytkownikiem w wielu "
                 "jëzykach. W tym celu wiele plików dla kaûdego z jëzyków "
                 "musi zostaê skopiowanych na Twój dysk twardy.\n\n"
                 "Aby ograniczyê iloôê zajmowanego przez te pliki "
                 "miejsca, moûesz skopiowaê tylko pliki "
                 "do wybranych przez Ciebie jëzyków.\n\n"
                 "Zaznacz pola obok jëzyków które majâ byê "
                 "dostëpne w Twoim systemie.\n\n"
                 @askoptions-help
        ))

        (set #msg-mainwelcome (cat "Witamy w skrypcie instalacyjnym " #msg-product ".\n"))

        (set #msg-bad-3.9
        (cat
                 "\n\n\nTo uaktualnienie wymaga systemu AmigaOS 3.9. Proszë najpierw zainstalowaê AmigaOS 3.9!\n\n"
                 "To uaktualnienie nie jest przeznaczone dla systemu AmigaOS 3.5!\n"
        ))

        (set #msg-bad-revision
        (cat
                 "\n\nZamierzasz zainstalowaê Boing Bag 3.9-3 ale jeszcze nie zainstalowaîeô "
                 "pierwszego uaktualnienia systemu 3.9 - Boing Bag 3.9-2. Proszë zainstalowaê Boing Bag 3.9-2 "
                 "przed instalacjâ drugiego uaktualnienia systemu."
        ))

        (set #msg-introduction
        (cat
                 "\n\nTen program pozwala Ci na zainstalowanie " #msg-product
                 " na Twoim dysku twardym.\n\nMoûe zostaê wykorzystany do uaktualnienia wersji 3.9 systemu AmigaOS."
        ))

        (set #msg-which-disk
        (cat "Na której partycji powinien zostaê zainstalowany " #msg-product "?"
        ))

        (set #msg-which-disk-help
        (cat
                 "\nTa sekcja pozwala Ci wybraê na której partycji zostanâ "
                 "zaisntalowane uaktualnione pliki. Powinna to byê "
                 "ta sama partycja na której zainstalowaîeô system AmigaOS3.9.\n\n"
                 @askdir-help
        ))

        (set #msg-confirm-target
        (cat
                 "\n\nBARDZO WAÛNE!!!\n\nTen program instaluje " #msg-product " na Twoim dysku twardym. "
                 "\n\nStarsze pliki zostanâ zastâpione."
                 "\n\nCzy chcesz zainstalowaê uaktualnienie na partycji \"%s\"? "
        ))

        (set #msg-confirm-target-help
        (cat
                 "Podczas instalacji niektóre pliki na tej partycji zostanâ zastâpione nowszymi plikami.\n\n"
        ))

        (set #msg-installing
        (cat
                 "\n\nInstalujë uaktualnienie..."
        ))

        (set #msg-reboot
        (cat
                 "\nInstalacja " #msg-product " zostaîa zakoïczona.\n\n"
                 "Aby skorzystaê z uaktualnionych plików musisz ponownie uruchomiê swój komputer. "
                 "Zalecamy wykonaê to teraz.\n\n"
                 "Zapisz wszystkie niezapisane dane, wyjmij wszystkie dyskietki "
                 "i uruchom ponownie komputer."
        ))
))


;=============================================================================
; Turkish strings ... thanks to Sinan Gürkan and team!

(if (= #language "türkçe")
(
    (set #msg-product "AmigaOS 3.9 İçin Boing Bag 3")

    (set #msg-which-language
    (cat "\nHangi dil desteği kurulsun ?"
    ))

    (set #msg-which-language-help
    (cat "\nAmiga birçok farklı dilde kullanılabilinir "
         "Her desteklenen dil için birkaç dosyanın sabit  "
         "diskinize kopyalanması gerekmektedir.\n\n"
         "Dil dosyaları tarafından kaplanan alanı azaltmak"
         "için, sadece belli dilleri seçebilirsiniz.\n\n"
         "Sisteminizde olmasını istediğiniz dil(ler)in"
         "yanındaki kutucuklara tıklayınız.\n\n"
         @askoptions-help
    ))

    (set #msg-mainwelcome (cat "Hoşgeldiniz " #msg-product " Kurulumuna.\n"))

    (set #msg-bad-3.9
    (cat "\n\n\nBu güncelleme AmigaOS 3.9 Gerektirir. Lütfen ilk önce onu kurun!!\n\n"
         "Bu güncelleme AmigaOS 3.5 için değildir !.\n"
    ))

    (set #msg-introduction
    (cat "\n\nBu program sabit diskinize " #msg-product
         " yazılımını kuracaktır .\n\nAmigaOS 3.9`un sürümünü yükseltmek için kullanılır."
    ))

    (set #msg-which-disk
    (cat "Hangi sabit disk partisyonuna " #msg-product " kurulsun?"
    ))

    (set #msg-which-disk-help
    (cat "\nBu bölüm hangi sabit disk partisyonu üzerine güncelleme"
         "dosyalarının kurulacağını belirlemek içindir. Normal olarak"
         "bu AmigaOS 3.9`u kurduğunuz dizindir.\n\n"
         @askdir-help
    ))

    (set #msg-confirm-target
    (cat "\n\nÇOK ÖNEMLİ!!!\n\nBu program sabit diskinize " #msg-product " kuracaktır. "
         "\n\nEski dosyalar silinecektir."
         "\n\nGüncellemeyi kurmak istiyormusunuz? Partisyon: \"%s\"? "
    ))

    (set #msg-confirm-target-help
    (cat "Kurulum işleminin ileri safhalarında "
         "bu partisyondaki bazı dosyaları yenileri ile yer "
         "değiştirecektir.\n\n"
    ))

    (set #msg-installing
    (cat "\n\nGüncelleme Kuruluyor..."
    ))

    (set #msg-reboot
    (cat "\n " #msg-product " kurulumu tamamlandı.\n\n"
         "Güncellemeyi aktif hale getirmek için Amiga`yı tekrar başlatın.\n\n"
         "Bütün disketleri sürücünüzden çıkarın ve "
         "Amiga`yı tekrar başlatın."
    ))
))

;=============================================================================
; rename procedure ...

(procedure ren #oldname #newname
    (
        (if (exists #oldname)
            (
                (if (= (exists #newname) false)
                    (
                        (rename #oldname #newname)
                    )
                )
            )
        )
    )
)

;=============================================================================
; do a bit of set up...

(set #source (expandpath (pathonly @icon)))

(set #old_wb "SYS:")
(set #old_wb (expandpath #old_wb))

(set #w (querydisplay "screen" "width"))
(set #h (querydisplay "screen" "height"))
(set #d (querydisplay "screen" "depth"))
(set #c (querydisplay "screen" "colors"))

(set #hires 0)

;=============================================================================
; what do you want to do?

(set #wbverrev 0)
(set #wbverrev (getversion "Libs:version.library"))
(set #wbversion (/ #wbverrev 65536) )
(set #wbrevision (- #wbverrev (* #wbversion 65536)))

(if (<> #wbversion 45)
    (
        (message #msg-bad-3.9) ; No OS3.9 installed
        (exit (quiet))
    )
    (
        ;******************************************************************
        ;***************** Boing BAG Installation *************************
        ;******************************************************************
        (complete 1)

        (message #msg-introduction)

        (complete 3)

        (welcome #msg-mainwelcome)

        (trace)
        (complete 5)

        (set #target
          (askdir
            (prompt #msg-which-disk)
            (help #msg-which-disk-help)
            (default #old_wb)
            (disk)
          )
        )

        (trace)
        (complete 10)

        (message (#msg-confirm-target #target) (back (retrace)))

        (set @default-dest #target)

        (trace)
        (complete 15)

        (set #wbverrev 0)
        (set #wbverrev (getversion (tackon #target "Libs/version.library")))
        (set #wbversion (/ #wbverrev 65536) )
        (set #wbrevision (- #wbverrev (* #wbversion 65536)))

        (if (<> #wbversion 45)
          (
            (message #msg-bad-3.9) ; No OS3.9 installed
            (exit (quiet))
          )
        )

        (if (< #wbrevision 3)
          (
            (message #msg-bad-revision)  ; No BoingBags 3.9-1 and 3.9-2 installed
            (exit (quiet))
          )
        )

        ;=============================================================================

        (trace)

        (set #lang
         (askoptions
            (prompt #msg-which-language)
            (help #msg-which-language-help)
            (choices "Bosanski"
                     "Català"
                     "Czech"
                     "Dansk"
                     "Deutsch"
                     "Español"
                     "Français"
                     "Hrvatski"
                     "Italiano"
                     "Latvian"
                     "Magyar"
                     "Nederlands"
                     "Norsk"
                     "Polski"
                     "Português"
                     "Português-Brasil"
                     "Russian"
                     "Slovensko"
                     "Srpski"
                     "Suomi"
                     "Svenska"
                     "Türkçe"
            )
            (default 0)
        ))

        (complete 20)

        (set #model
          (askchoice
            (prompt "Which Amiga model do you use?")
            (help "SCSI.device will be updated accordingly.")
            (choices "A600" "A1200" "A3000" "A4000D" "A4000T" "Other")
            (default 5)
        ) )

        (complete 25)

        (copyfiles
          (prompt #msg-install-keymaps)
          (help #msg-install-keymaps-help)
          (source (tackon #source "Files2/Devs/Keymaps"))
          (dest (tackon #target "Devs/Keymaps"))
          (all)
          (optional "nofail" "force" "askuser")
          (confirm)
          (infos)
          (noposition)
        )

        (complete 35)

        (copyfiles
          (prompt #msg-install-fonts)
          (help #msg-install-fonts-help)
          (source (tackon #source "Files2/Fonts"))
          (dest (tackon #target "Fonts"))
          (all)
          (optional "nofail" "force" "askuser")
          (confirm)
          (fonts)
        )

        (complete 40)

        (copyfiles
          (prompt #msg-install-countries)
          (help #msg-install-countries-help)
          (source (tackon #source "Files2/Locale/Countries"))
          (dest (tackon #target "Locale/Countries"))
          (all)
          (optional "nofail" "force" "askuser")
          (confirm)
          (fonts)
        )

        (complete 45)

        (delete (tackon #target "Internet/AWeb3SE/Docs/plugins/#?") (optional "force" "askuser"))
        (delete (tackon #target "Internet/AWeb3SE/Docs/plugins"   ) (optional "force" "askuser"))
        (delete (tackon #target "Internet/AWeb3SE/Docs/#?"        ) (optional "force" "askuser"))

        (complete 50)

        ;=============================================================================
        ; now copy the Workbench disk

        (working #msg-installing)

        (copyfiles
          (source (tackon #source "Files1"))
          (dest #target)
          (all)
          (optional "nofail" "force" "askuser")
        )

        (complete 75)

        (if (= #model 0) ;A600
         (copyfiles
          (source (tackon #source "Files2/Devs/scsi_A600.device"))
          (dest (tackon #target "Devs"))
          (newname "scsi.device")
          (optional "nofail" "force" "askuser")
        ))
        (if (= #model 1) ;A1200
         (copyfiles
          (source (tackon #source "Files2/Devs/scsi_A1200.device"))
          (dest (tackon #target "Devs"))
          (newname "scsi.device")
          (optional "nofail" "force" "askuser")
        ))
        (if (= #model 2) ;A3000
         (copyfiles
          (source (tackon #source "Files2/Devs/scsi_A3000.device"))
          (dest (tackon #target "Devs"))
          (newname "scsi.device")
          (optional "nofail" "force" "askuser")
        ))
        (if (= #model 3) ;A4000D
         (copyfiles
          (source (tackon #source "Files2/Devs/scsi_A4000D.device"))
          (dest (tackon #target "Devs"))
          (newname "scsi.device")
          (optional "nofail" "force" "askuser")
        ))
        (if (= #model 4) ;A4000T
         (copyfiles
          (source (tackon #source "Files2/Devs/scsi_A4000T.device"))
          (dest (tackon #target "Devs"))
          (newname "scsi.device")
          (optional "nofail" "force" "askuser")
        ))

        (complete 77)

        (if (database "cpu" "68060")
         ((copyfiles
           (source (tackon #source "Files2/Libs/xadmaster_060.library"))
           (dest (tackon #target "Libs"))
           (newname "xadmaster.library")
           (optional "nofail" "force" "askuser")
          )
          (if (database "fpu" "NOFPU")
           (copyfiles
            (source (tackon #source "Files2/Libs/mpega060.library"))
            (dest (tackon #target "Libs"))
            (newname "mpega.library")
            (optional "nofail" "force" "askuser")
           )
           ;else
           (copyfiles
            (source (tackon #source "Files2/Libs/mpega060FPU.library"))
            (dest (tackon #target "Libs"))
            (newname "mpega.library")
            (optional "nofail" "force" "askuser")
         )))
         ;else
         ((copyfiles
           (source (tackon #source "Files2/Libs/xadmaster_020.library"))
           (dest (tackon #target "Libs"))
           (newname "xadmaster.library")
           (optional "nofail" "force" "askuser")
          )
          (if (database "cpu" "68040")
           (if (database "fpu" "NOFPU")
            (copyfiles
             (source (tackon #source "Files2/Libs/mpega040.library"))
             (dest (tackon #target "Libs"))
             (newname "mpega.library")
             (optional "nofail" "force" "askuser")
            )
            ;else
            (copyfiles
             (source (tackon #source "Files2/Libs/mpega040FPU.library"))
             (dest (tackon #target "Libs"))
             (newname "mpega.library")
             (optional "nofail" "force" "askuser")
           ))
           ;else
           (if (= (database "fpu" "NOFPU") 0)
            (copyfiles
             (source (tackon #source "Files2/Libs/mpega020FPU.library"))
             (dest (tackon #target "Libs"))
             (newname "mpega.library")
             (optional "nofail" "force" "askuser")
        )))))

        (complete 80)

        ;=============================================================================
        ; now delete obsolete files

        (delete (tackon #target "Fonts/ACTION/8")                          (optional "force" "askuser"))
        (delete (tackon #target "Fonts/ACTION")                            (optional "force" "askuser"))
        (delete (tackon #target "Fonts/ACTION.font")                       (optional "force" "askuser"))
        (delete (tackon #target "Internet/AWeb3SE/aweblib/awebjs.aweblib") (optional "force" "askuser"))
        (delete (tackon #target "Internet/AWeb3SE/Catalogs")               (optional "force" "askuser" "all"))
        (delete (tackon #target "Internet/AWeb3SE/Catalogs.info")          (optional "force" "askuser"))

        (complete 85)

        (working #msg-fixfonts)
        (run "Files2/C/FixFonts")

        (complete 90)

        (working "Installing catalogs...")

        (if (bitand #lang 1)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/bosanski"))
           (dest (tackon #target "Locale/Catalogs/bosanski"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 2)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/català"))
           (dest (tackon #target "Locale/Catalogs/català"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 4)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/czech"))
           (dest (tackon #target "Locale/Catalogs/czech"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 8)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/dansk"))
           (dest (tackon #target "Locale/Catalogs/dansk"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 16)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/deutsch"))
           (dest (tackon #target "Locale/Catalogs/deutsch"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 32)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/español"))
           (dest (tackon #target "Locale/Catalogs/español"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 64)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/français"))
           (dest (tackon #target "Locale/Catalogs/français"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 128)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/hrvatski"))
           (dest (tackon #target "Locale/Catalogs/hrvatski"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 256)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/italiano"))
           (dest (tackon #target "Locale/Catalogs/italiano"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 512)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/latvian"))
           (dest (tackon #target "Locale/Catalogs/latvian"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 1024)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/magyar"))
           (dest (tackon #target "Locale/Catalogs/magyar"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 2048)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/nederlands"))
           (dest (tackon #target "Locale/Catalogs/nederlands"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 4096)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/norsk"))
           (dest (tackon #target "Locale/Catalogs/norsk"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 8192)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/polski"))
           (dest (tackon #target "Locale/Catalogs/polski"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 16384)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/português"))
           (dest (tackon #target "Locale/Catalogs/português"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 32768)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/português-brasil"))
           (dest (tackon #target "Locale/Catalogs/português-brasil"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 65536)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/russian"))
           (dest (tackon #target "Locale/Catalogs/russian"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 131072)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/slovensko"))
           (dest (tackon #target "Locale/Catalogs/slovensko"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 262144)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/srpski"))
           (dest (tackon #target "Locale/Catalogs/srpski"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 524288)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/suomi"))
           (dest (tackon #target "Locale/Catalogs/suomi"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 1048576)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/svenska"))
           (dest (tackon #target "Locale/Catalogs/svenska"))
           (all)
           (optional "nofail" "force" "askuser")
        )))
        (if (bitand #lang 2097152)
         ((copyfiles
           (source (tackon #source "Files2/Locale/Catalogs/türkçe"))
           (dest (tackon #target "Locale/Catalogs/türkçe"))
           (all)
           (optional "nofail" "force" "askuser")
        )))

        (complete 92)

        (startup "AWeb"
         (prompt "Making AWebPath: assignment to S:User-Startup...")
         (help @startup-help)
         (command
          (cat
           "Assign AWebPath: "
           '"'
           (tackon @default-dest "Internet/AWeb3SE")
           '"'
        )))

        (complete 94)

        (working "Checking for ENVARC:Sys/font.prefs...")
        (if (= (exists "ENVARC:Sys/font.prefs" (noreq)) 0)
         ((copyfiles
           (source (tackon #source "Files2/Prefs/Env-Archive/Sys/font.prefs"))
           (dest "ENVARC:Sys")
           (optional "nofail" "force" "askuser")
        )))

        (complete 96)

        (if (= (exists "DEVS:scsi.device" (noreq)) 0)
         (working
          (cat "You should add these lines to the start of S:Startup-sequence:\n\n"
               "SYS:C/LoadModule L:FastFileSystem L:RAM-Handler L:Shell-Seg LIBS:icon.library LIBS:workbench.library NOREBOOT REVERSE\n\n"
               "SYS:C/SetPatch SKIPROMMODULES fs,icon,ram,shell,workbench QUIET\n\n"
               "and remove the existing SetPatch line."
         ))
         ;else
         (working
          (cat "You should add these lines to the start of S:Startup-sequence:\n\n"
               "SYS:C/LoadModule L:FastFileSystem L:RAM-Handler L:Shell-Seg DEVS:scsi.device LIBS:icon.library LIBS:workbench.library NOREBOOT REVERSE\n\n"
               "SYS:C/SetPatch SKIPROMMODULES fs,icon,ram,scsi.device,shell,workbench QUIET\n\n"
               "and remove the existing SetPatch line."
        )))
        (run "SYS:Tools/EditPad S:Startup-sequence PUBSCREEN=INSTALLER")

        (complete 100)

        (message #msg-reboot)
        (exit)
)   )