;Skrypt instalujâcy Liga Polska'96 Manager na twardym dysku

(set @hs
	(askdir
		(prompt "Proszë wskazaê miejsce gdzie mam zainstalowaê grë.")
		(help
			"  Naleûy wybraê urzâdzenie (twardy dysk) gdzie zostanie utworzony katalog w którym znajdzie sië program oraz jego dane."
			" \n\n"
			@askdir-help
		)
		(default "Work:")
	)
)

(set @hsd (tackon @hs "Liga_Polska_96"))

(set @hs-dest @hsd )
(set @default-dest @hs-dest)

(if
	(= (exists @hs-dest) 0)
	(makedir @hs-dest)
)

(onerror
)
     (askdisk (dest "Liga96_1")
              (prompt "Proszë wîoûyê dyskietkë numer 1 do dowolnego napëdu.")
              (help "")
              (assigns) 
)

;kopiowanie programu 
(copyfiles
	(prompt "Kopiujë grë." )
	(help "")
	(source "Liga96_1:Liga_Polska'96")
	(dest @hs-dest)
)
;kopiowanie ikony programu
(copyfiles
	(prompt "Kopiujë ikonkë gry." )
	(help "")
	(source "Liga96_1:Liga_Polska'96.info")
	(dest @hs-dest)
)
;kopiowanie ikony katalogu
(copyfiles
	(help "")
	(source "Liga96_1:system/Liga_Polska_96.info")
	(dest @hs)
)

;	(prompt "Kopiujë dane. To moûe trochë potrwaê." )

; kopiowanie danych gry
(set @slownik (tackon @hs-dest "a"))
(makedir @slownik)
(copyfiles
;	(prompt "Kopiujë dane. To moûe trochë potrwaê." )
	(help "")
	(source "Liga96_1:a")
        (ALL)
	(dest @slownik)
)

; kopiowanie danych gry
(set @slownik (tackon @hs-dest "b"))
(makedir @slownik)
(copyfiles
;	(prompt "Kopiujë dane. To moûe trochë potrwaê." )
	(help "")
	(source "Liga96_1:b")
        (ALL)
	(dest @slownik)
)

; kopiowanie danych gry
(set @slownik (tackon @hs-dest "m"))
(makedir @slownik)
(copyfiles
;	(prompt "Kopiujë dane. To moûe trochë potrwaê." )
	(help "")
	(source "Liga96_1:m")
        (ALL)
	(dest @slownik)
)

        (copyfiles
            (source "Liga96_1:fonts")
            (ALL)
            (dest "fonts:")
            (infos)
        )
        (copyfiles
            (source "Liga96_1:devs/keymaps")
            (ALL)
            (dest "devs:keymaps")
            (infos)
        )

        (copyfiles
            (source "Liga96_1:c/PLFonts")
            (dest "C:")
            (infos)
        )

        (startup
        	("polskie litery")
                (prompt ("Dodajë linijkë \n PLFonts \n do pliku \"S:user-startup\"."))
        	(help ("Wybierz przycisk `Proceed` aby podmieniê systemowâ czcionkë Topaz na TopazPL .\n\n" )
		@startup-help)   
                (command ("PLFonts") )
        )
        (message "Po zakoïczeniu instalacji, w pliku odpowiadajâcym za ustawienie mapy klawiatury (`Input` - znajduje sië on w katalogu `Workbench:Prefs`) musisz wybraê `Keyboard Type : usa-pl`. W przeciwnym wypadku nie uzyskasz polskich liter.")

(onerror
)

     (askdisk (dest "Liga96_2")
              (prompt "Proszë wîoûyê dyskietkë numer 2 do dowolnego napëdu.")
              (help "")
              (assigns)
) 

; kopiowanie danych gry
(set @slownik (tackon @hs-dest "b"))
;(makedir @slownik)
(copyfiles
;	(prompt "Kopiujë dane. To moûe trochë potrwaê." )
	(help "")
	(source "Liga96_2:b")
        (ALL)
	(dest @slownik)
)

; kopiowanie danych gry
(set @slownik (tackon @hs-dest "bin"))
(makedir @slownik)
(copyfiles
;	(prompt "Kopiujë dane. To moûe trochë potrwaê." )
	(help "")
	(source "Liga96_2:bin")
        (ALL)
	(dest @slownik)
)

; kopiowanie danych gry
(set @slownik (tackon @hs-dest "d"))
(makedir @slownik)
(copyfiles
;	(prompt "Kopiujë dane. To moûe trochë potrwaê." )
	(help "")
	(source "Liga96_2:d")
        (ALL)
	(dest @slownik)
)

; dodawanie assign
(startup
	("Liga Polska'96 Manager")
	(prompt ("Czy dodaê assign do \"S:user-startup\"?"))
	(help ("Wybierz przycisk `Proceed` aby dodaê niezbëdne assign`y do pliku \"S:user-Startup\". W przeciwnym wypadku program nie bëdzie pracowaî. \n\n" )
		@startup-help)   
	(command ("assign Liga96_1: \"%s\"\n" @hs-dest ) )
	(command ("assign Liga96_2: \"%s\"\n" @hs-dest ) )
	(command ("assign Liga96_Save: \"%s\"\n" @hs-dest ) )
)


(message "Po zainstalowaniu programu musisz zrobiê reset komputera.")