;$VER: Euro Update Installer 45.1 (3.1.2002)

(effect "lower_right" "horizontal" $FFFFFF $FFFFFF)

(complete 0)

(set #language (getenv "Language"))

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

(set #msg-product "Euro-Update")

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

(set #msg-which-disk-help
  (cat
    "\nHere you select which volume the update files will be installed to. "
    "These should normally go to the same volume AmigaOS was installed to.\n\n"
    @askdir-help
  )
)

(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
    "\nWorkbench 2.1 or greater supports different countries. "
    "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 "Euro-Update")

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

    (set #msg-which-disk-help
      (cat
        "\nHier whlen Sie, auf welches Laufwerk die neuen Dateien installiert werden. "
        "Es ist sinnvoll, hier das Laufwerk anzugeben, auf dem AmigaOS installiert ist.\n\n"
        @askdir-help
      )
    )

    (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 enthlt aktualisierte Amiga Bitmap-Schriften mit Euro-Symbol."
      )
    )

    (set #msg-fixfonts
      "Fhre \"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
        "\nWorkbench 2.1 oder grer untersttzt unterschiedliche Lnder. "
        "In den Landesbeschreibungs-Dateien ist neben anderen landes-spezifischen "
        "Einstellungen angegeben, welche Whrung fr ein Land verwendet wird."
        "\n\nDieses Update enthlt neue \".country\"-Dateien fr Lnder, die ihre "
        "Whrung auf Euro umgestellt haben."
      )
    )
  )
)

;=============================================================================
; Show Euro logo

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

(set #hires 0)

(if (> #c 32)
    (
       (if (> #h 590)
          (
            (set #hires 1)
            (showmedia "eurologo" "Installation/logo_big.i24" "upper_left" "none" 0)
          )
          (
            (showmedia "eurologo" "Installation/logo_small.i24" "upper_left" "none" 0)
          )
       )
    )
)

;=============================================================================
; Ask some questions

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

(welcome)

(trace)

(set #target
  (askdir
    (prompt #msg-which-disk)
    (help #msg-which-disk-help)
    (default (expandpath "SYS:"))
    (disk)
  )
)

(set @default-dest #target)

(complete 10)

;=============================================================================
; Install Euro update

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

(complete 30)

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

(complete 50)

(working #msg-fixfonts)

(run "C/FixFonts")

(complete 80)

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

(complete 100)

;=============================================================================
; Exit

(closemedia eurologo)
(exit)

