; Installer AmiTekstu Pro v.2.0 na 3 dyskietkach
; napisaî: Sebastian Wesoîowski (wrzesieï 1995)

;---------------------------- Staîe nazwy -----------------------------------
(set os2 2424832)	;37*65536
(set os3 2555904)	;39*65536

(set @default-dest "AmiTekstPro_v2.0")
(set @abort-button "Przerwij instalacjë")

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

(set printer_help (cat
"Jeôli na liôcie sterowników nie ma sterownika Twojej drukarki to wybierz"
" sterownik drukarki o oznaczeniu podobnym do oznaczenia Twojej drukarki."))

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

(complete 0)

(message "    Jeôli pojawi sië podczas instalacji requester SYSTEMOWY "
"proszâcy o wîoûenie dysku 'ATP_disk1:' do stacji naleûy wybraê CANCEL!")

(copyfiles (source "ATP_disk1:c") (dest "ram:") (choices "delete" "format" "install" "lhx"))
(copyfiles (source "ATP_disk1:") (dest "ram:")
(choices "ôrodowisko.lha" "reqtools.lha" "stufflite.lha"))

(complete 5)

(message "    Do instajacji AmiTekstu Pro v2.0 na dyskietkach bëdë potrzebowaê"
" 3 czyste dyskietki. Najpierw je sformatujë. Wîóû czysty dysk do stacji df0:"
". Dysk ten bëdzie sië nazywaê 'AmiTekstPro_v2.0'.")

(working "Formatujë dysk 'AmiTekstPro_v2.0'")
(run "ram:format drive df0: name AmiTekstPro_v2.0 noicons")
(run "ram:install drive df0:")
(delete "ram:install")

(complete 12)

(working "Rozpakowujë podstawowe ôrodowisko...")
(run "ram:lhx x -q -I ram:ôrodowisko.lha AmiTekstPro_v2.0:")
(delete "ram:ôrodowisko.lha")
(makedir "AmiTekstPro_v2.0:prefs/env-archive/amitekst")

(complete 20)

(working "Rozpakowujë bibliotekë ReqTools...")
(run "ram:lhx x -q -I ram:reqtools.lha AmiTekstPro_v2.0:")
(if (>= (getversion) os2)
   ((delete "AmiTekstPro_v2.0:libs/reqtools.library")
   (rename "AmiTekstPro_v2.0:libs/reqtools20.library" "AmiTekstPro_v2.0:libs/reqtools.library"))
;else
   ((delete "AmiTekstPro_v2.0:libs/reqtools20.library")))
(delete "ram:reqtools.lha")

(complete 23)

(working "Rozpakowujë dodatkowe dane dla AmiTekstu...")
(run "ram:lhx x -q -I ram:stufflite.lha AmiTekstPro_v2.0:")
(delete "ram:stufflite.lha")

(complete 27)

(askdisk (dest "ATP_disk1")
(prompt "Proszë wîoûyê pierwszy dysk instalacyjny do dowolnej stacji.")
(help "Muszë z niego odczytaê potrzebne mi archiwa."))

(copyfiles (source "ATP_disk1:") (dest "ram:")
(choices "amitekstpro.lha" "printers.lha" "addlibs.lha" "gadtools13.lha" "icons.lha"))

(complete 30)

(askdisk (dest "AmiTekstPro_v2.0")
(prompt "Proszë wîoûyê dysk 'AmiTekstPro_v2.0' do dowolnej stacji.")
(help "Muszë na nim nagraê kilka rzeczy."))

(working "Rozpakowujë sterowniki drukarek...")
(run "ram:lhx x -q -I ram:printers.lha ram:")
(delete "ram:printers.lha")
(set printer (askfile
(default "ram:printers/PL_GenericOver")
(help Printer_help)
(prompt "Wybierz sterownik dla Twojej drukarki.")))
(makedir "AmiTekstPro_v2.0:devs/printers")
(copyfiles (source printer) (dest "AmiTekstPro_v2.0:devs/printers"))
(run "ram:delete ram:printers all")
(delete "ram:delete")

(complete 32)

(working "Rozpakowujë dodatkowe biblioteki...")
(run "ram:lhx x -q -I ram:addlibs.lha AmiTekstPro_v2.0:")
(delete "ram:addlibs.lha")
(if (< (getversion) os2)
   (run "ram:lhx x -q -I ram:gadtools13.lha AmiTekstPro_v2.0:"))
(delete "ram:gadtools13.lha")

(complete 35)

(working "Rozpakowujë ikonki...")
(run "ram:lhx x -q -I ram:icons.lha AmiTekstPro_v2.0:")
(delete "ram:icons.lha")

(complete 36)

(working "Rozpakowujë program gîówny...")
(run "ram:lhx x -q -I ram:amitekstpro.lha ram:")
(delete "ram:amitekstpro.lha")

(copyfiles (source "ram:ATPInstall") (dest "AmiTekstPro_v2.0:") (newname "AmiTekstPro"))
(delete "ram:ATPInstall")

(complete 38)

(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 "AmiTekstPro_v2.0:AmiTekstPro AmiTekstPro_v2.0:AmiTekstPro")

;---------------------------- COR: ------------------------------------------

(complete 40)

(askdisk (dest "ATP_disk2")
(prompt "Proszë wîoûyê drugi dysk instalacyjny do dowolnej stacji.")
(help "Muszë z niego odczytaê potrzebne mi archiwa."))

(copyfiles (source "ATP_disk2:cor.lha") (dest "ram:"))

(complete 50)

(message "Wîóû drugi czysty dysk do stacji df0:."
" Dysk ten bëdzie sië nazywaê 'COR'.")
(working "Formatujë dysk 'COR'")
(run "ram:format drive df0: name COR noicons")

(complete 60)

(working "Rozpakowujë bazë korektora...")
(run "ram:lhx x -q -I ram:cor.lha COR:")
(delete "ram:cor.lha")

;---------------------------- THE: ------------------------------------------

(complete 70)

(askdisk (dest "ATP_disk2")
(prompt "Proszë wîoûyê drugi dysk instalacyjny do dowolnej stacji.")
(help "Muszë z niego odczytaê potrzebne mi archiwa."))

(copyfiles (source "ATP_disk2:the.lha") (dest "ram:"))

(complete 80)

(message "Wîóû trzeci czysty dysk do stacji df0:."
" Dysk ten bëdzie sië nazywaê 'THE'.")
(working "Formatujë dysk 'THE'")
(run "ram:format drive df0: name THE noicons")

(complete 90)

(working "Rozpakowujë bazë sîownika wyr. bliskoznacznych...")
(run "ram:lhx x -q -I ram:the.lha THE:")
(delete "ram:the.lha")

(complete 100)

(delete "ram:format")
(delete "ram:lhx")
(exit "Skrypt: Sebastian Wesoîowski")