;
; DepthMenu module install script
; Copyright © 2001-2002 Arkadiusz [Yak] Wahlig
;
; $VER: DepthMenu_Module_Install 1.10 (09.07.2002) Arkadiusz [Yak] Wahlig
;

(set #app-ver "1.5")
(set #copyright "Copyright © 2001-2002 Arkadiusz [Yak] Wahlig")

(IF (= @LANGUAGE "polski")
(
 (set #hello (cat "\n\n\n" @app-name " " #app-ver "\nModuī programu DepthMenu\n" #copyright "\n\n\n\nTen skrypt zainstaluje moduī " @app-name "\nna twoim dysku twardym.") )

 (set #dir-question "Gdzie znajduje siė katalog z programem DepthMenu?")
 (set #dir-help "Wybierz katalog, w którym zainstalowaīeō/aō program DepthMenu (w którym znajduje siė podkatalog 'DepthMenu'). Zostanā tam skopiowane wszystkie potrzebne pliki.")

 (set #languages-question "Które katalogi jėzykowe chcesz zainstalowaź?")
 (set #languages-help "Moduī posiada wbudowany jėzyk angielski. Jeōli chcesz aby uūywaī innego jėzyka, zaznacz go na tym ekranie a póśniej ustaw jėzyk go jako preferowany w systemowych ustawieniach Locale.")

 (set #docs-question "Które wersje dokumentacji chcesz zainstalowaź?")
 (set #docs-help "Moduī posiada róūne wersje jėzykowe dokumentacji. Na tym ekranie moūesz wybraź, które z nich majā byź zainstalowane.")

 (set #bye "\n\nInstalacja zakoļczona pomyōlnie!\n\nDziėkujė za zainstalowanie moduīu.\n\n\n\nJeōli DepthMenu jest uruchomiony to\nmoduī znajduje siė juū w pamiėci.")
))
(IF (= @LANGUAGE "english")
(
 (set #hello (cat "\n\n\n" @app-name " " #app-ver "\nDepthMenu external module\nCopyright © 2001-2002 Arkadiusz [Yak] Wahlig\n\n\n\nThis script will install " @app-name "\non your hard-disk.") )

 (set #dir-question "Where is a directory with DepthMenu program?")
 (set #dir-help "Choose a directory, where the DepthMenu program was installed (where is a 'DepthMenu' subdirectory). The installer will copy all needed files there.")

 (set #languages-question "Which catalogs should be installed?")
 (set #languages-help "Module's built-in language in english. If you want it to use some other languale you got to choose it now and set it as prefered in your Locale preferences program after installation.")

 (set #docs-question "Which documentations should be installed?")
 (set #docs-help "Module documentations are available in different languages. On this screen you can choose, which of them should be installed.")

 (set #bye "\n\nInstallation successful finished!\n\nThank you for installing module.\n\n\n\nIf DepthMenu is running then\nmodule is already in memory.")
))

; powitanie
(complete 0)
(message #hello)

; gdzie instalowac?
(set #_dir
 (askdir
  (prompt #dir-question)
  (help #dir-help)
  (default "Work:")
  (disk)
 )
)

; ustawiamy zmienna na katalog z programem
(set #_instdir (tackon #_dir "DepthMenu"))

; kopiujemy pliki lokalizacyjne (z pytaniem ktore)
(complete 25)
(if (exists "Catalogs")
(
 (copyfiles
  (source "Catalogs")
  (dest (tackon #_instdir "Catalogs"))
  (infos)
  (pattern "~(#?.cd)")
  (prompt #languages-question)
  (help #languages-help)
  (confirm)
 )
 (copyfiles (source "Catalogs") (dest (tackon #_instdir "Catalogs")) (pattern "#?.cd#?"))
))

; kopiujemy dokumentacje (z pytaniem ktore)
(complete 50)
(copyfiles
 (source "Docs")
 (dest (tackon #_instdir "Docs"))
 (infos)
 (all)
 (prompt #docs-question)
 (help #docs-help)
 (confirm)
)

; kopiujemy moduī
(complete 75)
(copyfiles (source "Modules") (dest (tackon #_instdir "Modules")) (all))

; kilka slow na pozegnanie z installerem
(complete 100)
(exit #bye (quiet))