; Instaluj AmiTekstPro v.3.x na dyskietce
; napisaī: Sebastian Wesoīowski (lipiec 1996)

;---------------------------- Staīe nazwy -----------------------------------
(set @default-dest "AmiTekstPro_v3.x")
(set @abort-button "Przerwij instalacjė")

(set printer_help
   (cat
      "    Niestety nie mogė nagraź wszystkich sterowników z powodu braku miejsca na dyskietce.\n"
      "    Jeōli na liōcie sterowników nie ma sterownika Twojej drukarki to wybierz"
      " sterownik drukarki o oznaczeniu podobnym do oznaczenia Twojej drukarki."
   )
)

;---------------------------- No to lecimy ----------------------------------

(complete 0)

(copyfiles (source "ATP3:c") (dest "ram:") (choices "delete" "format" "install" "lha"))
(copyfiles (source "ATP3:") (dest "ram:") (choices "environment.lha" "reqtools.lha" "stuff.lha"))
(complete 10)

(message
   "    Do instajacji AmiTekstu Pro v3.x potrzebujė czystā dyskietkė."
   " Najpierw jā sformatujė. Wīóū czysty dysk do stacji df0:."
   " Dysk ten bėdzie siė nazywaź 'AmiTekstPro_v3.x'."
)

(working "Formatujė dysk 'AmiTekstPro_v3.x'")
(run "ram:format drive df0: name AmiTekstPro_v3.x noicons ffs")
(run "ram:install drive df0: ffs")
(delete "ram:install")
(delete "ram:format")
(complete 20)

(working "Rozpakowujė podstawowe ōrodowisko...")
(run "ram:lha x -q -a ram:environment.lha AmiTekstPro_v3.x:")
(delete "ram:environment.lha")
(makedir "AmiTekstPro_v3.x:prefs/env-archive/amitekst")
(complete 30)

(working "Rozpakowujė bibliotekė ReqTools...")
(run "ram:lha x -q -a ram:reqtools.lha AmiTekstPro_v3.x:")
(delete "ram:reqtools.lha")
(complete 40)

(working "Rozpakowujė dodatkowe dane dla AmiTekstu...")
(run "ram:lha x -q -a ram:stuff.lha AmiTekstPro_v3.x:")
(delete "ram:stuff.lha")
(complete 50)

(askdisk
   (dest "ATP3")
   (prompt "Proszė wīoūyź dysk instalacyjny 'ATP3' do dowolnej stacji.")
   (help "Muszė z niego odczytaź potrzebne mi archiwa.")
)

(copyfiles
   (source "ATP3:")
   (dest "ram:")
   (choices 
      "amitekstpro.lha"
      "addlibs.lha"
      "icons.lha"
   )
)
(complete 60)
(run "ram:lha x -q -a ATP3:printers.lha ram:")

(askdisk (dest "AmiTekstPro_v3.x")
(prompt "Proszė wīoūyź dysk 'AmiTekstPro_v3.x' do dowolnej stacji.")
(help "Muszė na nim nagraź kilka rzeczy."))

(working "Rozpakowujė sterowniki drukarek...")
(set printer
   (askfile
      (default "ram:printers/PL_GenericOver")
      (help Printer_help)
      (prompt "Wybierz sterownik dla Twojej drukarki.")
   )
)
(makedir "AmiTekstPro_v3.x:devs/printers")
(copyfiles (source printer) (dest "AmiTekstPro_v3.x:devs/printers"))
(run "ram:delete ram:printers all")
(delete "ram:delete")
(complete 70)

(working "Rozpakowujė dodatkowe biblioteki...")
(run "ram:lha x -q -a ram:addlibs.lha AmiTekstPro_v3.x:")
(delete "ram:addlibs.lha")
(complete 80)

(working "Rozpakowujė ikonki...")
(run "ram:lha x -q -a ram:icons.lha AmiTekstPro_v3.x:")
(delete "ram:icons.lha")
(complete 85)

(working "Rozpakowujė program gīówny...")
(run "ram:lha x -q -a ram:amitekstpro.lha AmiTekstPro_v3.x:")
(delete "ram:amitekstpro.lha")
(complete 100)

(message
   "    Jeōli nie masz nagranych dysków ze sīownikami to uruchom"
   " skrypt instalacyjny znajdujācy siė na dysku z archiwami sīowników."
)

(delete "ram:lha")
(exit)