; Plik Instalacyjny do programu Polonus
;  (c) 1993 by STUDIO Gemini Gdaïsk
;           ALDERAN Group
;     Skrypt napisaî Henryk Cygert
;
; Gdaïsk ul.Wita Stwosza 73 pokój 111
; tel.52-45-11           fax.20-83-87
;        w godzinach 12°°-18°°


;*************************************************
;		Informacje
;*************************************************
 
(set	#JestSlow-info
(cat	"\nSlownik Polonusa jest juz na dysku."
	"\nCzy mam nagrac nowy slownik ?"
	"\n"
))

(set	#JestSlow-help
(cat	"\nJesli nagrasz nowy slownik na dysku to mozesz stracic wyrazy, ktore dopisales do swojego starego slownika."
))

(set	#Fonty-info
(cat	"\nCzy mam zainstalowac wszystkie polskie czcionki na twoin twardym dysku ?"
	"\n"
	"\nOsobiscie polecam, gdyz moga sie przydac."
))

(set	#Fonty-help
(cat	"\nJesli sie zdecydujesz, to nagram Ci na dysku wszystkie polskie czcionki."
	"\nJesli nie chcesz to nagram tylko 'TopazPL', gdyz z niego bedzie korzystal 'Polonus'."
	"Ponadto bedziesz musial zmienic konfiguracje 'Polonusa', gdyz ustawione sa tam czcionki, ktorych nie instalujesz."
))

(set	#EndInfo
(cat	"\nInstalacja programu zakonczona."
	"\n"
	"\nAby program dzialal w pelni poprawnie to systemowa mapa klawiatury powinna byc ustawiona jako 'usa-pl'"
	"\nMam nadzieje, ze program w pelni zadowoli Panstwa i jednoczesnie informuje, ze co jakis czas beda sie ukazywaly kolejne jego wersje."
))

;**************************************************
;		Program glowny
;**************************************************


   (set destpath (askdir (prompt "Gdzie chcesz zainstalowac program Polonus ?\n\n"
                                  "Musisz podac nazwe katalogu."
                          )
                          (default @default-dest)
                          (help @askdir-help)
                  )
    )


    (set @default-dest destpath)



    (copyfiles (prompt "Kopiuje plik")
               (help @copyfiles-help)
               (source "Polonus")
               (dest @default-dest)
    )

    (copyfiles (prompt "Kopiuje plik")
               (help @copyfiles-help)
               (source "Polonus.info")
               (dest @default-dest)
    )

    (copyfiles (prompt "Kopiuje plik")
               (help @copyfiles-help)
               (source "Dokumentacja.pol")
               (dest @default-dest)
    )

    (copyfiles (prompt "Kopiuje plik")
               (help @copyfiles-help)
               (source "Informacje.Txt")
               (dest @default-dest)
    )

;Czy nagrac slownik na dysku gdy juz jest ?
;-----
    (set JestSlow 0)
    (if (exists "SYS:s/Polonus.Slownik")
        (set JestSlow	(askchoice (prompt #JestSlow-info)
				(choices "Nagraj" "Nie nagrywaj")
				(help #JestSlow-help)
				(default 0)
			)
	)
    )
(if (= JestSlow 0) 
    (copyfiles (prompt "Kopiuje plik")
               (help @copyfiles-help)
               (source "s/Polonus.Slownik")
               (dest "SYS:S")
    )
)
;-----
;Czy nagrac wszystkie fonty na dysku ?
;-----
      (set Fonty	(askchoice  (prompt #Fonty-info)
				(choices "Nagraj wszystkie" "Tylko TopazPL")
				(help #Fonty-help)
				(default 0)
			)
      )


(if (= Fonty 0 )
	(
		(working "Kopiuje czcionki na twardy dysk. To moze troche potrwac, wiec prosze sie nie denerwowac i czekac.")
		(run ("SYS:c/Copy %s %s ALL" "fonts" "SYS:fonts"))
	)
)

(if (= Fonty 1)
	(
		(working "Szkoda, ze tylko TopazPL bedzie zainstalowany.\nW konfiguracji programu musisz ustawic inne czcionki, gdyz pozostalych mozesz nie miec.")
		(run ("SYS:c/Copy %s %s ALL" "fonts/TopazPl" "SYS:fonts/TopazPl"))
		(run ("SYS:c/Copy %s %s" "fonts/TopazPl.font" "SYS:fonts"))
	)
)


;-----

    (copyfiles (prompt "Kopiuje plik")
               (help @copyfiles-help)
               (source "s/Polonus.cfg")
               (dest "SYS:S/")
    )

;Mapa klawiatury

(if (not (exists "SYS:devs/keymaps/usa-pl"))
    (copyfiles (prompt "Kopiuje plik")
               (help @copyfiles-help)
               (source "devs/keymaps/usa-pl")
               (dest "SYS:devs/keymaps")
    )
)


;Biblioteki

(if (not (exists "SYS:libs/reqtools.library"))
    (copyfiles (prompt "Kopiuje plik")
               (help @copyfiles-help)
               (source "libs/reqtools.library")
               (dest "SYS:libs")
    )
)
(if (not (exists "SYS:libs/diskfont.library"))
    (copyfiles (prompt "Kopiuje plik")
               (help @copyfiles-help)
               (source "libs/diskfont.library")
               (dest "SYS:libs")
    )
)
(if (not (exists "SYS:devs/clipboard.device"))
    (copyfiles (prompt "Kopiuje plik")
               (help @copyfiles-help)
               (source "devs/clipboard.device")
               (dest "SYS:devs")
    )
)

;Informacja

	(askbool	(prompt	#EndInfo)
			(choices	"Dalej" "Dalej")
			(help	" No wiecie co ???. Az wstyd.")
			(default	0)
	)