; $VER: Installation script for BetaScan v3 PL
; (c) Mariusz Danilewicz <mandi@interia.pl>
(welcome "")

(message "Uruchomiony skrypt zainstaluje lokalizacj programu "
         "BetaScan v3.\n"
         "Jeeli nie chcesz zainstalowa polskiej lokalizacji, "
         "prosz wybra \"Przerwij instalacj\".\n\n"
         "Lokalizacj przygotowana polska sekcja ATO:\n"
         "Pakiet przygotowali:\nDaniel Sternik <dxs2@wp.pl>\n"
         "oraz Mariusz Danilewicz <mandi@interia.pl>\n\n"
         "Data kompilacji: 2003.03.17\n"
         "Zapraszamy na nasz stron www\nhttp://www.amiga.pl/ato")



(complete  5)
(set #katalogzrodlowy
  (askchoice
    (prompt "Ktr wersj chcesz zainstalowa?")
    (help   "Tutaj moesz wybra, czy chcesz zainstalowa"
            "pliki lokalizacyjne i dokumentacjw ISO-8859-2, czy te w "
            "AmigaPL."
    )
    (choices
        "AmigaPL"
        "ISO-8859-2"
    )
    (default 1)
  )
)

(if (= #katalogzrodlowy 1)
  (
    (set srcdir "pliki/ISO-8859-2")
  )

  (
    (set srcdir "pliki/AmigaPL")
  )
)



(complete  10)
(set #katalog
  (askchoice
    (prompt "Gdzie chcesz zainstalowa plik lokalizacyjny?")
    (help   "Tutaj moesz wybra, czy chcesz zainstalowaplik "
            "lokalizacyjny w katalogu z programem, czy te w "
            "katalogu systemowym \"LOCALE:Catalogs/polski/\""
    )
    (choices
        "LOCALE:Catalogs/polski"
        "Progdir:Catalogs/polski"
    )
    (default 1)
  )
)



(if (= #katalog 1)
  (
    (set destdir
      (askdir
        (default "RAM:")
        (prompt "Wybierz katalog w ktrym znajduje si plik BetaScan")
        (help   "Tutaj naley wybra katalog, w ktrym znajduje si plik gwny programu BetaScan")
       )
    )

    (if (<> (exists (tackon destdir "BetaScan")) 1)
      (abort "Nie znaleziono programu BetaScan!")
    )
  )

  (
    (set destdir "sys:LOCALE")
    (if (<> (exists destdir) 2)
      (abort "Nie znaleziono katalogu LOCALE:!")
    )
  )
)

(if (<> (exists (tackon destdir "Catalogs")) 2)
  (makedir (tackon destdir "Catalogs"))
)

(if (<> (exists (tackon destdir "Catalogs/polski")) 2)
  (makedir (tackon destdir "Catalogs/polski"))
)

(complete  80)

(copyfiles
  (source (tackon srcdir "betascan.catalog"))
  (dest (tackon destdir "catalogs/polski"))
  (optional "force" "askuser")
)

(complete 100)

(exit "Instalacja polskiej lokalizacji programu\nBetaScan v3 "
      "zostaa zakoczona pomylnie.\n\n"
      "Zapraszamy na nasz stron www\nhttp://www.amiga.pl/ato")

