; Usztywniacz Pitagoras2.4 na twardym dysku
; napisaī: Grzegorz Sowa

;------------------------------------------
(set pit_dysk "Pitagoras_SP5678:")
(set program_name "Pitagoras_SP5678")
;------------------------------------------
(set workdir_help (cat
"   W katalogu, który wybierzesz zostanie utworzony nowy o nazwie "
"'Pitagoras_SP5678' do którego zostanā skopiowane wszystkie pliki potrzebne "
"do prawidīowej pracy programu.\n"
))
(set ikony_help (cat
"W zaleūnoōci jakā wersjė systemu operacyjnego posiada twoja Amiga wybierz odpowiedni przycisk."
))
;-----------------------------------------

(complete 0)

(message (cat
"Aby zainstalowaź program Pitagoras na twardym dysku musisz"
" wystartowaź z niego komputer a nastėpnie wīoūyź dyskietė instalacyjnā do stacji."
" Przeciwnie program nie zainstaluje siė poprawnie.\n\n"
"UWAGA!!!\n"
"Jeōli instalujesz kilka wersji programu na twardym dysku ostatnia"
" z zainstalowanych MUSI byź najnowszā posiadanā przez Ciebie"
" wersjā. Wersjā programu nie jest wersja zadaļ ( Matura, LO12, ... ), ale"
" liczba wyōwietlana na belce tytuīowej programu przy nazwie np. ¶tagoras 2.4"
))

(set destdir
(askdir
(prompt "Wybierz katalog docelowy")
(help workdir_help askdir_gad)
(default @default-dest)
))

(set workdir (tackon destdir program_name))

(set ikony
(askchoice
(prompt "Który zestaw ikon zainstalowaź ?")
(help ikony_help)
(choices
"z systemu 1.3"
"z systemu 2.0 lub wyūszego"
)
(default 1)
))

(makedir workdir
(infos))
(makedir (tackon workdir "Pitagoras_Wyniki"))
(makedir ("fonts:Pitagoras"))

;--Kopiowanie wyników---------------------------------------------------

(complete 10)
(working "Kopiowanie plików z wynikami...")
(copyfiles
(source (tackon pit_dysk "Pitagoras_Wyniki"))
(dest (tackon workdir "Pitagoras_Wyniki"))
(all)
)

;--Kopiowanie plików programu-------------------------------------------

(complete 30)
(working "Kopiowanie plików programu...")
(copyfiles
(source pit_dysk)
(dest workdir)
(choices
Program_name
"|Pitagoras_Dane"
"|Konfiguracja")
)

;--Kopiowanie ikon------------------------------------------------------

(complete 70)
(if (= ikony 0)
(
(copyfiles
(source (tackon pit_dysk "Ikony_1.3"))
(dest workdir)
(all)
))
)

(if (= ikony 1)
(
(copyfiles
(source (tackon pit_dysk "Ikony_2.0"))
(dest workdir)
(all)
))
)

;--Kopiowanie fontów--------------------------------------------

(complete 80)
(working "Kopiujė fonty...")

(copyfiles
(source (tackon Pit_dysk "fonts/Pitagoras"))
(dest "fonts:Pitagoras")
(all)
)
(copyfiles
(source (tackon Pit_dysk "fonts"))
(dest "fonts:")
(choices
"Pitagoras.font")
)

;--Kopiowanie bibliotek-----------------------------------------

(complete 90)
(working "Kopiujė biblioteki...")

(copylib (source (tackon pit_dysk "libs/loadfile.library")) (dest "libs:"))
(copylib (source (tackon pit_dysk "libs/pittools.library")) (dest "libs:"))
(copylib (source (tackon pit_dysk "libs/crm.library")) (dest "libs:"))

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

(complete 100)
(exit ("Skrypt: Grzegorz Sowa"))