; Odōwieū AmiTekstPro na HD z v2.1 na v3.x
; Autor: Sebastian Wesoīowski (lipiec 1996)

;---------------------------- Opisy i inne teksty ---------------------------

(set @abort-button "Przerwij instalacjė")

(set workdir_help
   (cat
      "   W katalogu, który wybierzesz powinien siė znajdowaź program 'AmiTekstPro'."
   )
)

(set askdir_gad
   (cat
      "\n   Tī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"
   )
)

(set startup_help
   (cat
      "Do poprawnej pracy AmiTekst wymaga urzādzenia logicznego AMITEKST:"
   )
)

(set ikony_help
   (cat
      "   Do wybory sā trzy zestawy ikon:\n"
      "- Standardowe,\n"
      "- MagicWB - dla uūytkowników majācych zainstalowany MagicWB,\n"
      "- SmallBench - podobnie jak dla MagicWB, tylko dla trybu Lores.\n"
   )
)

;---------------------------- No to zaczynamy -------------------------------

(message "    Aby poprawnie zainstalowaź AmiTekst Pro na twardym dysku komputer"
" musi byź z niego uruchomiony. Tylko wtedy wszystkie potrzebne pliki zostanā"
" skopiowane w odpowiednie miejsca.")

(complete 0)


(set @default-dest
   (askdir
      (prompt "WEJDŚ do katalogu, w którym nagrany jest program AmiTekstPro")
      (help workdir_help askdir_gad)
      (default "SYS:")
   )
)


(if (= (exists (tackon @default-dest "AmiTekstPro")) 0)
   (message "   W podanym katalogu nie istnieje program AmiTekstPro. Czy mam jednak kontynuowaź?")
)


(set ikony
   (askchoice
      (prompt "Jaki zestaw ikon zainstalowaź ?")
      (help ikony_help)
      (choices "Standardowe" "MagicWB" "SmallBench")
      (default 0)
   )
)

(set reqtoolsy
   (askbool
      (prompt "Zainstalowaź pakiet ReqTools (60kB)?\n"
      "   (ReqTools jest niezbėdnā bibliotekā do uruchomienia AmiTekstu).\n")
      (help "Biblioteka ta obsīuguje wszelkie requestery do wyboru plików i inne.")
      (choices "TAK" "NIE")
   )
)

(set sterowniki
   (askbool
      (prompt "Zainstalowaź sterowniki drukarek (180kB)?")
      (help "Sterowniki te pozwalajā na wydruk z polskimi literami w standardzie AmigaPL.")
      (choices "TAK" "NIE")
   )
)


(copyfiles (source "ATP3:c") (dest "ram:") (choices "Lha" "delete"))
(complete 15)


(set atxt (tackon @default-dest "amitekst"))
(set opisy (tackon @default-dest "opisy"))
(makedir opisy)
(run (cat "ram:delete " (tackon atxt "filtry") " all quiet"))
(delete (tackon atxt "filtry.info"))
(run (cat "ram:delete " (tackon atxt "opisy") " all quiet"))
(delete (tackon atxt "opisy.info"))
(run (cat "ram:delete " (tackon atxt "shortcuty") " all quiet"))
(delete (tackon atxt "shortcuty.info"))
(run (cat "ram:delete " (tackon atxt "wīasne_preferencje") " all quiet"))
(delete (tackon atxt "wīasne_preferencje.info"))
(rename (tackon atxt "skrypty_arexxa") (tackon atxt "stare_skrypty_arexxa"))
(rename (tackon atxt "skrypty_arexxa.info") (tackon atxt "stare_skrypty_arexxa.info"))
(run (cat "ram:delete " (tackon atxt "#?") " quiet"))
(run (cat "ram:delete " (tackon @default-dest "#?") " quiet"))
(run "ram:delete ENVARC:Amitekst/#? quiet")
(run "ram:delete ENV:Amitekst/#? quiet")
(complete 20)


(working "Rozpakowujė dodatkowe dane dla AmiTekstu...")
(run (cat "ram:Lha x -q -a ATP3:stuff.lha ram:"))
(copyfiles (source "ram:prefs") (dest "sys:prefs") (all))
(copyfiles (source "ram:s") (dest "S:") (all))
(copyfiles (source "ram:amitekst") (dest atxt) (all))
(copyfiles (source "ram:opisy") (dest opisy) (all))
(copyfiles (source "ram:ODR3") (dest @default-dest))
(run "ram:delete ram:prefs all quiet")
(run "ram:delete ram:s all quiet")
(run "ram:delete ram:amitekst all quiet")
(run "ram:delete ram:opisy all quiet")
(delete "ram:odr3")
(complete 30)


(working "Rozpakowujė skrypty i opis funkcji ARexxa...")
(run (cat "ram:Lha x -q -a ATP3:arexx.lha ram:"))
(copyfiles (source "ram:amitekst") (dest atxt) (all))
(copyfiles (source "ram:opisy") (dest opisy) (all))
(run "ram:delete ram:amitekst all quiet")
(run "ram:delete ram:opisy all quiet")
(complete 40)


(working "Rozpakowujė dodatkowe biblioteki...")
(run "ram:Lha x -q -a ATP3:addlibs.lha ram:")
(copylib (source "ram:libs/cor.library") (dest "libs:"))
(copylib (source "ram:libs/the.library") (dest "libs:"))
(copylib (source "ram:libs/iff.library") (dest "libs:"))
(copylib (source "ram:libs/sylabek.library") (dest "libs:"))
(copylib (source "ram:libs/powerpacker.library") (dest "libs:"))
(copylib (source "ram:libs/iffparse.library") (dest "libs:"))
(run "ram:delete ram:libs all quiet")
(complete 50)


(if (= reqtoolsy 1)
   (
      (working "Rozpakowujė bibliotekė ReqTools...")
      (run "ram:lha x -q -a ATP3:reqtools.lha ram:")
      (copylib (source "ram:libs/reqtools.library") (dest "libs:"))
      (copyfiles (source "ram:prefs") (dest "sys:prefs") (all) (infos))
      (run "ram:delete ram:libs all quiet")
      (run "ram:delete ram:prefs all quiet")
   )
)
(complete 60)


(if (= sterowniki 1)
   (
      (working "Rozpakowujė sterowniki drukarek...")
      (run "ram:lha x -q -a ATP3:printers.lha devs:")
   )
)
(complete 70)


(if (= ikony 0)
   (
      ((working "Rozpakowujė standardowe ikonki...")
      (run "ram:Lha x -q -a ATP3:icons.lha ram:"))
   )
)

(if (= ikony 1)
   (
      ((working "Rozpakowujė ikonki dla MagicWB...")
      (run "ram:Lha x -q -a ATP3:icons_mwb.lha ram:"))
   )
)

(if (= ikony 2)
   (
      ((working "Rozpakowujė ikonki dla SmallBench...")
      (run "ram:Lha x -q -a ATP3:icons_sb.lha ram:"))
   )
)

(copyfiles (source "ram:") (dest @default-dest) (choices "AmiTekstPro3.info" "ODR3.info"))
(copyfiles (source "ram:prefs/COR.info") (dest "sys:prefs"))
(copyfiles (source "ram:amitekst") (dest atxt) (choices "def_Project.info" "def_AppIcon.info"))
(run "ram:delete ram:prefs all quiet")
(run "ram:delete ram:amitekst all quiet")
(delete "ram:amitekstpro3.info")
(delete "ram:odr3.info")
(complete 75)

(working "Rozpakowujė program gīówny...")
(run (cat 'ram:Lha x -q -a ATP3:amitekstpro.lha "' @default-dest '/"'))
(complete 100)

(delete "ram:delete")
(delete "ram:Lha")
(exit)