;
; Faktur-X HD Installer
;
; (c) Jakub Zalepa 1998


(complete 0)

(message
  "\nWitaj w programie instalacyjnym programu\nFAKTUR-X\n"
  "\nPostėpuj wedīug wskazówek, które bėdā pojawiaź siė na ekranie.\n"
  "\nJeūeli chcesz kontynuowaź instalacjė najedś wskaśnikiem myszki na przycisk KONTYNUUJ (ang. PROCEED) i naciōnij jej lewy przycisk."
  "\nJeōli natomiast nie chcesz instalowaź programu, wybierz przycisk PRZERWIJ INSTALACJĖ (ang. ABORT INSTALL).\n"

)

(complete 10)

(set #DEST0
  (askdir
    (prompt "Wskaū miejsce, w którym chcesz zainstalowaź FakturX.\nMoūesz od razu wybraź przycisk KONTYNUUJ (ang. ABORT INSTALL), a program zostanie zainstalowany w partycji systemowej Twojego twardego dysku.\nZostanie utworzony dla niego oddzielny katalog.")
    (help (cat @askdir-help)
    )
    (default "SYS:")
  )
)

(set #DEST (tackon #DEST0 "FakturX"))
(set #copymsg "\nKopiujė dane...")
(set #prefsmsg"\nKopiujė prefrencje...")
(set #copyexemsg "\nKopiujė program...")
(set #makedirmsg "\nTworzė katalog dla programu...")
(set #copylocale "\nKopiujė locale...")
(set #copyprefs "\nKopiujė preferencje dla programu...")
(set #copybase "\nKopiujė bazy danych...")

(complete 50)

(working #makedirmsg)
(makedir #DEST)
(working #makedirmsg)
(set #DESTBAZY (tackon #DEST "Bazy"))
(makedir #DESTBAZY)
(working #copyexemsg)

(complete 70)

(copyfiles (dest #DEST) (source "Faktur"))
(copyfiles (dest #DEST) (source "Faktur.info"))

(working #copylocale)
(copyfiles (dest "locale:") (source "Locale") (all))
(working #copyprefs)
(copyfiles (dest "Sys:Prefs/Env-archive/") (source "Prefs") (all))
(copyfiles (dest "ENV:") (source "Prefs") (all))
(working #copybase)
(copyfiles (dest #DESTBAZY) (source "Bazy") (all))
(copyfiles (dest #DEST (source "fakturx.bsh")))

(complete 100)
(message "\n\nTeraz najlepiej wyīācz i wīācz ponownie komputer.")