(set workdir_help
   (cat
      "W katalogu, który wybierzesz zostanie utworzony nowy o nazwie "
      "'Miodek' do którego zostanâ skopiowane wszystkie pliki potrzebne "
      "do prawidîowej pracy programu.\n"
   )
)

(set askdir_gad
   (cat
      "\nTîumaczenie gadûetów:\n"
      "[Proceed] - zaakceptowanie katalogu\n"
      "[Parent Drawer] - przemieszczenie do katalogu wyûszego\n"
      "[Show Drives] - lista urzâdzeï fizycznych i logicznych przyîâczonych do Amigi\n"
      "[Make New Drawer...] - utworzenie nowego katalogu\n"
   )
)


(complete 0)

(copyfiles (source "MIODEK_INSTALL:c") (dest "ram:") (choices "lha"))

(message
   "\nInstalacja programu MIODEK na twardym dysku.\n"
   "\nAby poprawnie zainstalowaê MIODKA na twardym "
   "dysku, komputer musi byê z niego uruchomiony!"
   "\n\nProgram moûna zainstalowaê na Workbenchu w wersji"
   " 2.1 lub nowszej. (W przypadku Workbencha 2.0 naleûy"
   " przed instalacjâ utworzyê na partycji systemowej"
   " katalog o nazwie 'Locale' i w pliku 'startup-sequence'"
   " zrobiê przypisanie 'assign Locale: SYS:Locale')."
)

(set destdir
   (askdir
      (prompt (cat
         "Wybierz katalog docelowy, w którym mam UTWORZYÊ katalog Miodek.\n"
         "Na dysku musi byê przynajmniej 1 MB wolnego miejsca."))
      (help workdir_help askdir_gad)
      (default "DH0:")
   )
)

(set @default-dest (tackon destdir "Miodek"))
(makedir @default-dest (infos))

(complete 20)

(working "Przygotowujë dane do instalacji...")
(run "ram:lha x -q -a MIODEK_INSTALL:disk.lha RAM:")

(copyfiles (source "RAM:Fonts") (dest "SYS:fonts") (all))

(copylib (source "RAM:Libs/triton.library") (dest "SYS:libs")
            (prompt ("Biblioteka Triton.library\n\nUWAGA! Jeôli masz zainstalowanâ nowszâ wersjë biblioteki wybierz przycisk 'Skip This Part', jeôli nie - przycisk 'Proceed with Copy'"))
            (confirm)
            (help (""))  
            (nogauge)
)

(copylib (source "RAM:Libs/reqtools.library") (dest "SYS:libs")
            (prompt ("Biblioteka Reqtools.library\n\nUWAGA! Jeôli masz zainstalowanâ nowszâ wersjë biblioteki wybierz przycisk 'Skip This Part', jeôli nie - przycisk 'Proceed with Copy'"))
            (confirm)
            (help (""))  
            (nogauge)
)

(copylib (source "RAM:Libs/translator.library") (dest "SYS:libs")
            (prompt ("Biblioteka Translator.library\n\nUWAGA! Jeôli masz zainstalowanâ nowszâ wersjë biblioteki wybierz przycisk 'Skip This Part', jeôli nie - przycisk 'Proceed with Copy'"))
            (confirm)
            (help (""))  
            (nogauge)
)

(copylib (source "RAM:Libs/powerpacker.library") (dest "SYS:libs")
            (prompt ("Biblioteka Powerpacker.library\n\nUWAGA! Jeôli masz zainstalowanâ nowszâ wersjë biblioteki wybierz przycisk 'Skip This Part', jeôli nie - przycisk 'Proceed with Copy'"))
            (confirm)
            (help (""))  
            (nogauge)
)

(copylib (source "RAM:Libs/locale.library") (dest "SYS:libs")
            (prompt ("Biblioteka Locale.library\n\nUWAGA! Jeôli masz zainstalowanâ nowszâ wersjë biblioteki wybierz przycisk 'Skip This Part', jeôli nie - przycisk 'Proceed with Copy'"))
            (confirm)
            (help (""))  
            (nogauge)
)

(complete 40)

(copyfiles (source "RAM:Libs/gadgets/textfield.gadget") (dest "SYS:libs/gadgets")
            (infos)
            (prompt ("Biblioteka textfield.gadget\n\nUWAGA! Jeôli masz zainstalowanâ nowszâ wersjë biblioteki wybierz przycisk 'Skip This Part', jeôli nie - przycisk 'Proceed with Copy'"))
            (confirm)
            (help (""))  
            (nogauge)
)

(copyfiles (source "RAM:Devs/narrator.device") (dest "SYS:devs")
            (infos)
            (prompt ("Sterownik Narrator.device\n\nUWAGA! Jeôli masz zainstalowanâ nowszâ wersjë biblioteki wybierz przycisk 'Skip This Part', jeôli nie - przycisk 'Proceed with Copy'"))
            (confirm)
            (help (""))  
            (nogauge)
)

(complete 50)

(set CO
    (askchoice (prompt ("\nCzy zlokalizowaê Workbench?:\n\n"))
               (help "\nLokalizacja polega na zainstalowaniu polskich komunikatów na Workbenchu i innych popularnych programach.\nJeôli wybierzesz 'Nie' zostanâ skopiowane tylko niezbëdne pliki konfiguracyjne dla generatora polskich tekstów. W takim wypadku Workbench musi byê juû zlokalizowany.")
               (choices ("Nie") ("Tak"))
	           (default 0)
    )
)

(if (and (= CO 0))
      (
          (copyfiles (source "RAM:Locale/Accents/polski.accent")
                  (dest "SYS:locale/accents")
                  (help (""))  
                  (nogauge)
          )

          (copyfiles (source "RAM:Prefs/Env-Archive/Sys/Translator.prefs")
                  (dest "SYS:Prefs/Env-Archive/Sys")
                  (help (""))  
                  (nogauge)
          )
      )
)

(if (and (= CO 1))
      (
          (copyfiles (source "RAM:Locale")
                  (dest "SYS:locale")
                  (all)
                  (help (""))  
                  (nogauge)
          )

          (copyfiles (source "RAM:Prefs/Env-Archive/Sys/Translator.prefs")
                  (dest "SYS:Prefs/Env-Archive/Sys")
                  (help (""))  
                  (nogauge)
          )

          (copyfiles (source "RAM:Prefs/Env-Archive/Sys/Locale.prefs")
                  (dest "SYS:Prefs/Env-Archive/Sys")
                  (help (""))  
                  (nogauge)
          )
      )
)


(working "Rozpakowujë program i instrukcjë...")
(run (cat 'ram:lha x -q -a MIODEK_INSTALL:miodek.lha "' @default-dest '/"'))
(complete 60)

(working "Rozpakowujë reguîy ortograficzne...")
(run (cat 'ram:lha x -q -a MIODEK_INSTALL:reguly.lha "' @default-dest '/"'))
(complete 80)

(working "Rozpakowujë teksty dyktand...")
(run (cat 'ram:lha x -q -a MIODEK_INSTALL:teksty.lha "' @default-dest '/"'))
(complete 100)


(startup "MIODEK"
      (prompt "Utworzenie potrzebnych urzâdzeï w systemie")
      (help "")
      (command (cat "Assign REGULY: " @default-dest "\n"))
      (command (cat "Assign TEKSTY: " @default-dest "\n"))
)

(message
   "\nProgram MIODEK zostaî zainstalowany. "
   "\nÛyczymy dobrej zabawy i efektywnej nauki. "
   "\n\nUWAGA! Program bëdzie moûna uruchomiê dopiero po zresetowaniu Amigi!"
)