; Plik Instalacyjny dla programu Pisarz
;	Skrypt napisaî Henryk Cygert


;##################################################
;		Program glowny
;##################################################


;***	Dysk Pisarz ***

(askdisk	(prompt "Proszë wloûyê do stacji dysk Pisarz")
		(help  " ")
		(dest "Pisarz")
)



;***  Wybierz katalog docelowy	***

(set destpath (askdir (prompt "Gdzie zainstalowaê program Pisarz ?\n\n"
                              "Proszë podaê nazwë katalogu."
                      )
                      (default @Default-dest)
                      (help @askdir-help)
              )
)
(set @Default-dest destpath)



;***	Kopiuj pliki	podstawowe ***

(copyfiles	(prompt "Kopiujë pliki")
		(help @copyfiles-help)
		(source "Pisarz:")
		(dest @Default-dest)
		(pattern "(Pisarz|PisarzSys)")
		(infos)
)



;***	Kopiuj czcionki ***

(if	(askchoice  (prompt "\nCzy instalowaê polskie czcionki ?\n\n")
		(choices	"Nie"
				"Zainstaluj")
		(help " ")
		(default 1)
	)
	(copyfiles (prompt "Kopiujë czcionki")
		(help @copyfiles-help)
		(source "Pisarz:fonts")
		(dest "FONTS:")
		(pattern "(#?)")
	)
)



;***	Kopiuj ARexx'a ***

(if	(askchoice  (prompt "\nCzy instalowaê skrypty i ARexx'a ?\n\n")
		(choices	"Nie"
				"Zainstaluj")
		(help " ")
		(default 1)
	)
	((copyfiles (prompt "Kopiujë skrypty ARexx'a")
		(help @copyfiles-help)
		(source "Pisarz:")
		(dest @default-dest)
		(pattern "(Arexx)")
	 )
	 (if (not (exists "SYS:system/RexxMast"))
	     (copyfiles (prompt "Kopiujë ARexx'a")
		(help @copyfiles-help)
		(source "Pisarz:RexxMast")
		(dest "SYS:system")
		(infos)
	     )
	 )
	 (if (not (exists "SYS:libs/rexxsyslib.library"))
	     (copyfiles (prompt "Kopiujë ARexx'a")
		(help @copyfiles-help)
		(source "Pisarz:libs/rexxsyslib.library")
		(dest "SYS:libs")
	     )
	 )
	 (if (not (exists "SYS:libs/mathieeedoubbas.library"))
	     (copyfiles (prompt "Kopiujë ARexx'a")
		(help @copyfiles-help)
		(source "Pisarz:libs/mathieeedoubbas.library")
		(dest "SYS:libs")
	     )
	 )
	)
)



;***	Kopiuj biblioteki ***

(if (not (exists "SYS:libs/reqtools.library"))
    (copyfiles (prompt "Kopiujë plik")
               (help @copyfiles-help)
               (source "libs/reqtools.library")
               (dest "SYS:libs")
    )
)
(if (not (exists "SYS:libs/diskfont.library"))
    (copyfiles (prompt "Kopiujë plik")
               (help @copyfiles-help)
               (source "libs/diskfont.library")
               (dest "SYS:libs")
    )
)
(if (not (exists "SYS:libs/icon.library"))
    (copyfiles (prompt "Kopiujë plik")
               (help @copyfiles-help)
               (source "libs/icon.library")
               (dest "SYS:libs")
    )
)


;***	Kopiuj device's ***

(if (not (exists "SYS:devs/clipboard.device"))
	(copyfiles (prompt "Kopiujë plik")
		(help @copyfiles-help)
		(source "devs/clipboard.device")
		(dest "SYS:devs")
	)
)



;***	Kopiuj sîownik ***

(Set Slownik	(askchoice  (prompt "\nJaki sîownik nagraê\n\n")
			(choices	"Sîownik maîy (28650 wyrazów)"
					"Sîownik duûy (49430 wyrazów)"
					"Nie nagrywaj")
			(help " ")
			(default 1)
		)
)
(if (= Slownik 0)
    (copyfiles (prompt "Kopiujë sîownik maîy")
               (help @copyfiles-help)
               (source "Pisarz:Slownik")
               (dest @Default-dest)
    )
)


;***	Kopiuj mapë klawiatury ***

(copyfiles (prompt "Kopiujë mapy klawiatury")
	(help @copyfiles-help)
	(source "Pisarz:devs/keymaps/")
	(dest "SYS:devs/keymaps")
	(pattern "(#?)")
)


;***	Dysk Pisarz#2 ***

(askdisk	(prompt "Proszë wloûyê do stacji dysk Pisarz#2")
		(help  " ")
		(dest "Pisarz#2")
)



;***	Kopiuj katalogi ***

(copyfiles (prompt "Kopiujë pliki")
	(help @copyfiles-help)
	(source "Pisarz#2:")
	(dest @default-dest)
	(pattern "(Dokumenty|Teksty)")
	(infos)
)

;***	Kopiuj cliparty ***

(if	(askchoice  (prompt "\nCzy instalowaê rysunki (cliparts) ?\n\n")
		(choices	"Nie"
				"Zainstaluj")
		(help " ")
		(default 1)
	)
	(copyfiles (prompt "Kopiujë pliki")
		(help @copyfiles-help)
		(source "Pisarz#2:")
		(dest @default-dest)
		(pattern "(Rysunki)")
	)
)


;***	Instaluj resztë z dysku Pisarz#2 ***


(if (= Slownik 1)
    (copyfiles (prompt "Kopiujë sîownik duûy")
               (help @copyfiles-help)
               (source "Pisarz#2:Slownik")
               (dest @Default-dest)
    )
)



;***	Zmieï user-startup ***

(set user_script (cat "Assign Pisarz: " "\"" @default-dest "\"" "\n"))
(startup "Pisarz"
	(prompt "Te instrukcje zostanâ dodane do Twojego s:user-startup"
		"\n"
		"\n"
		user_script
		"\n"
	)
	(help #startup-help)
	(command user_script)
)