; instalka YM na dysku twardym 
; autor: Michaî Kasza




;-------------- main -------------------


(if (= @language "polski")
	(
		(set askdir_prompt  (cat "Proszë podaê miejsce na dysku twardym \n"
						     ",w którym utworzony zostanie katalog 'YM'\n"))

		(set insert_disk1 (cat "Poproszë o wîoûenie dysku 'YM'\n"
						   "do dowolnej stacji dysków"))

		(set insert_disk2 (cat "Poproszë o wîoûenie dysku 'YM_Dysk2'\n"
						   "do dowolnej stacji dysków"))

		(set insert_disk3 (cat "Poproszë o wîoûenie dysku 'YM_Dysk3'\n"
						   "do dowolnej stacji dysków"))

		(set insert_disk4 (cat "Poproszë o wîoûenie dysku 'YM_Dysk4'\n"
						   "do dowolnej stacji dysków"))


		(set end_install (cat  "Instalacja zakoïczona\n"
						   "Program bëdzie gotowy do uûycia\n"
						   "po zresetowaniu komputera"))
	)
	(

		(set askdir_prompt  "Where do you want to make drawer 'YM'\n")

		(set insert_disk1 (cat "Please insert disk 'YM'\n"
						   "to any drive"))

		(set insert_disk2 (cat "Please insert disk 'YM_Dysk2'\n"
						   "to any drive"))

		(set insert_disk3 (cat "Please insert disk 'YM_Dysk3'\n"
						   "to any drive"))

		(set insert_disk4 (cat "Please insert disk 'YM_Dysk4'\n"
						   "to any drive"))

		(set end_install (cat  "Installation completed\n"
						   "Please reboot your computer"))

	)
				
)


(set DIR_DOCELOWY	(askdir 
					(prompt askdir_prompt)
					(help @askdir-help)
					(default @default-dest)
				)
)






(set DIR_DOCELOWY (tackon DIR_DOCELOWY "YM"))

(if (= (exists DIR_DOCELOWY) 0)
	(makedir DIR_DOCELOWY)
)



(complete 0)


	;-------- kopiowanie ----------




	;---------------------- dysk pierwszy

(askdisk 	(prompt insert_disk1)
	    	(help @askdisk-help)
		(dest "YM")
)


	;------------ biblioteki


(copylib
	(source "YM:libs/powerpacker.library")
	(dest   "LIBS:")
	(confirm)
	(prompt "powerpacker.library")
	(help @copylib-help)
)

(copylib
	(source "YM:libs/xpkmaster.library")
	(dest   "LIBS:")
	(confirm)
	(prompt "xpkmaster.library")
	(help @copylib-help)
)

(copylib
	(source "YM:libs/diskfont.library")
	(dest   "LIBS:")
	(confirm)
	(prompt "diskfont.library")
	(help @copylib-help)
)

(if (< (getversion) 2359296)
	(copylib
		(source "YM:libs/icon.library")
		(dest   "LIBS:")
		(confirm)
		(prompt "icon.library")
		(help @copylib-help)
	)
)


(copylib
	(source "YM:libs/CrM.library")
	(dest   "LIBS:")
	(confirm)
	(prompt "CrM.library")
	(help @copylib-help)
)


(copylib
	(source "YM:libs/compressors/xpkCRM2.library")
	(dest   "LIBS:compressors")
	(confirm)
	(prompt "compressors/xpkCRM2.library")
	(help @copylib-help)
)

(copylib
	(source "YM:libs/compressors/xpkSQSH.library")
	(dest   "LIBS:compressors")
	(confirm)
	(prompt "compressors/xpkSQSH.library")
	(help @copylib-help)
)

	;-------- fonty

(copyfiles
	(source "YM:fonts")
	(dest   "FONTS:")
	(all)
)




(copyfiles
	(source "YM:")
	(dest   DIR_DOCELOWY)
	(choices "DATA" "INTERFACE" "YM"  "EnglishKEYMAP" "CzytajTo")
	(infos)
)

(if (exists "YM:prefs")
	(copyfiles
		(source "YM:prefs")
		(dest   DIR_DOCELOWY)
	)
)


(if (exists "YM:scores")
	(copyfiles
		(source "YM:scores")
		(dest   DIR_DOCELOWY)
	)
)


(if (not (exists "DEVS:Keymaps/usa-pl"))
	(copyfiles
		(source "YM:DEVS/Keymaps/usa-pl")
		(dest   "DEVS:Keymaps")

	)
)





(complete 25)





;-------------------------------------------------------------------------
;	ewentualnie komendy do C: (jesli ich tam nie ma )
;    ,a nie sâ rezydentami (zaleûy od kickstart'a)
;-------------------------------------------------------------------------


(if (not (exists "C:IconX"))
	(copyfiles
		(source "YM:c/IconX")
		(dest   "c:")
	)
)


(if (not (exists "C:SetMap"))
	(copyfiles
		(source "YM:c/SetMap")
		(dest   "c:")
	)
)


(if (not (exists "C:PPMore"))
	(copyfiles
		(source "YM:c/PPMore")
		(dest   "c:")
	)
)





	;-------------------------- dysk drugi

(askdisk 	(prompt insert_disk2)
	    	(help @askdisk-help)
		(dest "YM_Dysk2")
)

(copyfiles
	(source "YM_Dysk2:")
	(dest   DIR_DOCELOWY)
	(all)
)

(complete 50)


	;------------------------- dysk trzeci

(askdisk 	(prompt insert_disk3)
	    	(help @askdisk-help)
		(dest "YM_Dysk3")
)

(copyfiles
	(source "YM_Dysk3:")
	(dest   DIR_DOCELOWY)
	(all)
)

(complete 75)





	;-------------------------- dysk czwarty

(askdisk 	(prompt insert_disk4)
	    	(help @askdisk-help)
		(dest "YM_Dysk4")
)


(copyfiles
	(source "YM_Dysk4:")
	(dest   DIR_DOCELOWY)
	(all)
)

(complete 99)





	;------- dopisanie assign'a

(if (= @language "polski")
	(
		(set startup_text (cat "Do pliku 'user-startup' zostanie\n"
						   "dopisana linia:\n"
						   "Assign >NIL: \"YM:\" " "\""DIR_DOCELOWY"\""))
	)
	(
		(set startup_text (cat "in file 'user-startup'\n"
						   "including line:\n"
						   "Assign >NIL: \"YM:\" " "\""DIR_DOCELOWY"\""))

	)
)




(startup "You and Me (nauczyciel Angielskiego)"
	(prompt startup_text)
	(help @startup-help)
     (command "Assign >NIL: \"YM:\" " "\""DIR_DOCELOWY"\"") 
)


	;kaniec filma




(exit end_install)