; Instalator dodatków
; napisaī: Sebastian Wesoīowski (wrzesieļ 1995)

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

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

(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"
))

;---------------------------- Fonty -----------------------------------------

(set fonty (askbool
(prompt "Zainstalowaź dodatkowe czcionki (100kB)?")
(help "Odpowiedz!")
(choices "TAK" "NIE")))

(if fonty (

(complete 0)

(set destin
(askdir
(prompt "Wybierz katalog, do którego mam nagraź dodatkowe czcionki")
(help workdir_help askdir_gad)
(default "FONTS:")
))

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

(working "Rozpakowujė czcionki do podanego katalogu...")
(run (cat 'ram:lhx x -q ATP_disk1:fonts.lha "' destin '"'))
))

;----------------------------------------------------------------------------

(complete 100)
(delete "ram:lhx")
(exit "Sktypt: Sebastian Wesoīowski" (QUIET))