; Skrypt instalacyjny dla programu Locked (1998-1999)
;
;    $VER: Locked v0.5 by ZATOR (22.01.1999)
;
; 



(set #ver_bgui (/ (getversion "libs:bgui.library") 65536))
(set #ver_iden (/ (getversion "libs:identify.library") 65536))
(set #ver_reqt (/ (getversion "libs:reqtools.library") 65536))
(set #ver_fiid (/ (getversion "libs:FileID.library") 65536))
(set #ver_asl (/ (getversion "libs:asl.library") 65536))
(set #ver_cdpl (/ (getversion "libs:cdplay.library") 65536))


(set wybr
	(askchoice
		(prompt "Jėzyk/Language")
		(help @askchoice-help)
		(choices "ENGLISH" "POLSKI")
		(default 0)
	)
)

(if (= wybr 0)
(
(set #witam "Welcome in program installer to install programe\nLocked\nWith this script you install and configure programe") 
(set #info ("\n Version (installed on your HD) of library:\n\nbgui.library - %ld (NIEZBĖDNA)\nreqtools.library - %ld (NIEZBĖDNA)\nasl.library - %ld\n FileID.library - %ld\n cdplay.library - %ld\n identify.library - %ld" #ver_bgui #ver_reqt #ver_asl #ver_fiid #ver_cdpl #ver_iden))
(set #info_go "\nI'm installing programe Locked in directory WBSTARTUP\nSYS:WBSTARTUP/")
(set #help_locked "\nScript copying programe Locked to drawer sys:wbstartup\nWith this Locked gonna runing always when you loading System")
(set #info_locked "Copying programe Locked")
(set #info_lang "Programe Locked have built polish language\nif you want you maybe install other language")
(set #info_catalog "Which translation install?")
(set #help_catalog "Mark this position which you want install in your system")
(set #info_doc "Where install documentation?")
(set #help_doc "This is documentation for programe Locked, better install his, because you maybe have problems when you change preferences")
(set #info_pref "\nNOW I'm Ask you for many things to seting preferences\nof programe")
(set #pyt_urz "How many drivers have gonna secure option")
(set #hlp_urz "Enter number of drivers which have gonna secure option")
(set #name_dev1 "Enter name 1-st partition (without ':' !!!)")
(set #name_dev2 "Enter name 2-nd partition (without ':' !!!)")
(set #name_dev3 "Enter name 3 partition (without ':' !!!)")
(set #name_dev4 "Enter name 4 partition (without ':' !!!)")
(set #name_dev5 "Enter name 5 partition (without ':' !!!)")
(set #name_dev6 "Enter name 6 partition (without ':' !!!)")
(set #file_cr "Creating configuration file")
(copyfiles
	(prompt "Kopiuje plik")
	(source "extra/FirstInstallation")
	(dest "ram:")
	(newname "PierwszaInstalacja")
	(help "NIc dodaź... nic ujāź...")
)
))

(if (= wybr 1)
(
(set #witam "Witam w programie instalacyjnym programu\nLocked\nDziėki temu skryptowi zainstalujesz oraz skonfigurujesz program")
(set #info ("\nWersje (zainstalowanych u ciebie) wymaganych bibliotek:\n\nbgui.library - %ld (NIEZBĖDNA)\nreqtools.library - %ld (NIEZBĖDNA)\nasl.library - %ld\n FileID.library - %ld\n cdplay.library - %ld\n identify.library - %ld" #ver_bgui #ver_reqt #ver_asl #ver_fiid #ver_cdpl #ver_iden))
(set #info_go "\nTeraz zainstaluje program locked w katalogu WBSTARTUP\nSYS:WBSTARTUP/")
(set #help_locked "\nSkrypt skopiuje program Locked do katalogu sys:wbstartup\nDziėki temu Locked bėdzie siė uruchamiaī przy kaūdym wgraniu systemu.")
(set #info_locked "Kopiuje program Locked")
(set #info_lang "Program Locked ma wbudowany w sobie jėzyk POLSKI\njeōli chcesz moūesz zainstalowaź teraz katalogi\ninnych jėzyków")
(set #info_catalog "Które tīumaczenia zainstalowaź?")
(set #help_catalog "Zaznaczasz te wersje tīumaczeļ, które chcesz zainstalowaź.")
(set #info_doc "Gdzie zainstalowaź dokumentacje?")
(set #help_doc "Jest to dokumentacja do programu, lepiej jā zainstaluj bo potem moūesz mieź problemy przy zmienianiu preferencji")
(set #info_pref "\nTeraz zapytam ciė o kilka rzeczy aby ustawiź preferencje\nprogramu")
(set #pyt_urz "Ile chcesz mieź zabezpieczonych partycji?")
(set #hlp_urz "Wpisz liczbė urzādzeļ, które majā mieź moūliwoōź opcje zabezpieczenia przed nagrywaniem.")
(set #name_dev1 "Wpisz nazwe 1 partycji (bez ':' !!!)")
(set #name_dev2 "Wpisz nazwe 2 partycji (bez ':' !!!)")
(set #name_dev3 "Wpisz nazwe 3 partycji (bez ':' !!!)")
(set #name_dev4 "Wpisz nazwe 4 partycji (bez ':' !!!)")
(set #name_dev5 "Wpisz nazwe 5 partycji (bez ':' !!!)")
(set #name_dev6 "Wpisz nazwe 6 partycji (bez ':' !!!)")
(set #file_cr "Tworze plik konfiguracyjny")
(copyfiles
	(prompt "Kopiuje plik")
	(source "extra/PierwszaInstalacja")
	(dest "ram:")
	(help "NIc dodaź... nic ujāź...")
)
))

(set #dev1 "DH0")
(set #dev2 "DH1")
(set #dev3 "DH2")
(set #dev4 "DH3")
(set #dev5 "DH4")
(set #dev6 "DH5")

(welcome #witam)

(message #info)
(message #info_go)

(copyfiles
	(prompt #info_locked)
	(source "Locked")
	(dest "sys:wbstartup")
	(confirm)
	(help #help_locked)
)

(set wyb
	(askchoice
		(prompt #info_lang)
		(help @askchoice-help)
		(choices "TAK/YES" "NIE/NO")
		(default 1)
	)
)

(if (= wyb 0)
(
(copyfiles
	(prompt #info_catalog)
	(source "catalog")
	(all)
	(dest "LOCALE:catalogs")
	(confirm)
	(help #help_catalog)
)
)   
)

(copyfiles
	(prompt #info_doc)
	(source "Locked.doc")
	(dest "sys:tools")
	(confirm)
	(help #help_doc)
)

(message #info_pref)

(set #urzadzenia
	(asknumber
		(prompt #pyt_urz)
		(help #hlp_urz)
		(range 1 6)
		(default 1)
	)
)


(if (> #urzadzenia 0)
(
(set #dev1
	(askstring
		(prompt #name_dev1)
		(help @askstring-help)
		(default "DH0")
	)
)
))

(if (> #urzadzenia 1)
(
(set #dev2
	(askstring
		(prompt #name_dev2)
		(help @askstring-help)
		(default "DH1")
	)
)
))


(if (> #urzadzenia 2)
(
(set #dev3
	(askstring
		(prompt #name_dev3)
		(help @askstring-help)
		(default "DH2")
	)
)
))

(if (> #urzadzenia 3)
(
(set #dev4
	(askstring
		(prompt #name_dev4)
		(help @askstring-help)
		(default "DH3")
	)
)
))


(if (> #urzadzenia 4)
(
(set #dev5
	(askstring
		(prompt #name_dev5)
		(help @askstring-help)
		(default "DH4")
	)
)
))

(if (> #urzadzenia 5)
(
(set #dev6
	(askstring
		(prompt #name_dev6)
		(help @askstring-help)
		(default "DH5")
	)
)
))

(textfile
	(prompt #file_cr)
	(help #file_hl)
	(dest "ENVARC:locked.prefs")
	(append "Locked V0.80 (1998) Prefs.\n")
	(append "50\n50\n0\n")
	(append #dev1)
	(append "\n")
	(append #dev2)
	(append "\n")
	(append #dev3)
	(append "\n")
	(append #dev4)
	(append "\n")
	(append #dev5)
	(append "\n")
	(append #dev6)
	(append "\n")
	(append #urzadzenia)
	(append "\n")
	(append "0\ntopaz.font\n8\n2\natapi.device\n")
	(append "Workbench Screen                                                                #@!-81\n\n")
	(confirm)
)

(textfile
	(prompt #file_cr)
	(help #file_hl)
	(dest "ENV:locked.prefs")
	(append "Locked V0.80 (1998) Prefs.\n")
	(append "50\n50\n0\n")
	(append #dev1)
	(append "\n")
	(append #dev2)
	(append "\n")
	(append #dev3)
	(append "\n")
	(append #dev4)
	(append "\n")
	(append #dev5)
	(append "\n")
	(append #dev6)
	(append "\n")
	(append #urzadzenia)
	(append "\n")
	(append "0\ntopaz.font\n8\n2\natapi.device\n")
	(append "Workbench Screen                                                                #@!-81\n\n")
	(confirm)
)
(run "Locked")