; Upgrade AmiTekstu Pro v.2.0 na HD
; napisaī: Sebastian Wesoīowski (wrzesieļ 1995)

;---------------------------- Staīe nazwy -----------------------------------
(set os2 2424832)	;37*65536
(set os3 2555904)	;39*65536
;---------------------------- 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"
"[Abort Install] - przerwanie instalacji"
))

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

;---------------------------- AmiTekst: -------------------------------------

(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 @default-dest)
))

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

(copyfiles (source "ATP_disk1:c") (dest "ram:") (choices "lhx" "delete"))

(complete 17)

(set atxt (tackon @default-dest "amitekst"))
(makedir atxt)
(rename (tackon @default-dest "dokumenty") (tackon atxt "dokumenty"))
(rename (tackon @default-dest "dokumenty.info") (tackon atxt "dokumenty.info"))
(rename (tackon @default-dest "nagīówki") (tackon atxt "nagīówki"))
(rename (tackon @default-dest "nagīówki.info") (tackon atxt "nagīówki.info"))
(rename (tackon @default-dest "wīasne_preferencje") (tackon atxt "wīasne_preferencje"))
(rename (tackon @default-dest "wīasne_preferencje.info") (tackon atxt "wīasne_preferencje.info"))
(rename (tackon @default-dest "skrypty_arexxa") (tackon atxt "stare_skrypty_arexxa"))
(rename (tackon @default-dest "skrypty_arexxa.info") (tackon atxt "stare_skrypty_arexxa.info"))
(delete (tackon @default-dest "AmiTekstPro"))
(delete (tackon @default-dest "AmiTekstPro.info"))
(delete (tackon @default-dest "AmiTekst_ODR"))
(delete (tackon @default-dest "AmiTekst_ODR.info"))
(makedir "ENVARC:amitekst")
(delete "ENVARC:AmiTekstPro.prefs")
(delete "ENV:AmiTekstPro.prefs")
(delete "S:AmiTekstPro.prefs")

(working "Rozpakowujė dodatkowe dane dla AmiTekstu...")
(run (cat "ram:lhx x -q -a ATP_disk1: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:ODR2") (dest @default-dest))
(run "ram:delete ram:prefs all quiet")
(run "ram:delete ram:s all quiet")
(run "ram:delete ram:amitekst all quiet")
(delete "ram:odr2")

(complete 34)

(working "Rozpakowujė dodatkowe biblioteki...")
(run "ram:lhx x -q -a ATP_disk1:addlibs.lha ram:")

(copylib (source "ram:libs/cor.library") (dest "libs:"))
(copylib (source "ram:libs/the.library") (dest "libs:"))
(run "ram:delete ram:libs all quiet")

(complete 50)

(if (exists "env:magicwb" (noreq))
	((working "Rozpakowujė ikonki dla MagicWB...")
	(run "ram:lhx x -q -a ATP_disk1:icons_mwb.lha ram:"))
;else
	((working "Rozpakowujė normalne ikonki...")
	(run "ram:lhx x -q -a ATP_disk1:icons.lha ram:")))

(copyfiles (source "ram:") (dest @default-dest) (choices "AmiTekstPro.info" "ODR2.info"))
(copyfiles (source "ram:prefs/COR.info") (dest "sys:prefs"))
(copyfiles (source "ram:amitekst") (dest atxt) (choices "def_ATP2_Project.info" "def_ATP2_AppIcon.info"))

(run "ram:delete ram:prefs all quiet")
(run "ram:delete ram:amitekst all quiet")
(delete "ram:amitekstpro.info")
(delete "ram:odr2.info")

(complete 67)

(delete (tackon @default-dest "AmiTekst_ODR") (infos))

(startup "AmiTekstPro_v2.0"
(prompt "Muszė dopisaź do pliku S:User-startup definicjė urzādzenia logicznego"
" AMITEKST:. Czy mam kontynuowaź?")
(help startup_help)
(command "assign AMITEKST: " atxt))

(complete 75)

(working "Rozpakowujė konwerter preferencji...")
(run (cat "ram:lhx x -q -a ATP_disk1:converter.lha ram:"))
(copyfiles (source "ram:Konwert13na20") (dest @default-dest))
(copyfiles (source "ram:Konwert13na20.info") (dest @default-dest))
(delete "ram:Konwert13na20")
(delete "ram:Konwert13na20.info")

(complete 84)

(working "Rozpakowujė program gīówny...")
(run "ram:lhx x -q -a ATP_disk1:amitekstpro.lha ram:")

(complete 99)

(message " Proszė wpisaź za chwilė swoje dane personalne. Dane te bėdā"
" umieszczone w programie gīównym i potem juū ich nie bėdzie moūna zmieniź."
" Proszė wiėc wpisaź je uwaūnie!")
(run (cat "ram:ATPInstall " (tackon @default-dest "AmiTekstPro")))
(delete "ram:ATPInstall")

(complete 100)

(delete "ram:delete")
(delete "ram:lhx")
(message "    Przed uruchomieniem edytora proszė zresetowaź komputer.")
(exit "Skrypt: Sebastian Wesoīowski")