; Skrypt instalacyjny dla programu TV (2000)
;
;    $VER: Install_TV v0.5 by ZATOR (15.07.2000)
;
; 



(set #ver_comm (/ (getversion "libs:commodities.library") 65536))
(set #ver_icon (/ (getversion "icon.library") 65536))
(set #ver_work (/ (getversion "workbench.library") 65536))
(set #ver_dops (/ (getversion "libs:muimaster.library") 65536))

(set wybr
	(askchoice
		(prompt "Jëzyk/Jazyk/Language")
		(help @askchoice-help)
		(choices "POLSKI" "ÇEÎTINA")
		(default 0)
	)
)
(if (= wybr 0)
(
(set #witam "Witam w programie instalacyjnym programu\nTV\nDziëki temu skryptowi zainstalujesz oraz skonfigurujesz program")
(set #info ("\nWersje (zainstalowanych u ciebie) wymaganych bibliotek:\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
(set #gdzie "Gdzie zainstalowaę program? \n\ (katalog zostanie stworzony)")
(set #help_gdzie "Wybierasz miejsce, gdzie ma zostaę zainstalowany program TV")
(set #kopiuj_wb "Gdzie skopiowaę program TV?")
(set #help_wb "Wybierasz miejsce, gdzie ma zostaę skopiowany program")
(set #kopiuj_wb1 "Gdzie skopiowaę dokumentacje?")
(set #help_wb1 "Wybierasz miejsce, gdzie ma zostaę skopiowana dokumentacja")
(set #kopiuj_wb2 "Gdzie skopiowaę skrypty arexxa?")
(set #help_wb2 "Wybierasz miejsce, gdzie majâ zostaę skopiowane skrypty aRexx'a")
(set #kopiuj_wb31 "Gdzie skopiowaę moduîy?")
(set #help_wb31 "Wybierasz miejsce, gdzie majâ zostaę skopiowane moduîy\n\ niezbëdne do ôciagania programów telewizyjnych!")
(set #import_prompt "Z jakiego modulu chcesz korzystac?")
(set #kopiuj_wb3 "Gdzie skopiowac niezbëdne pliki?")
(set #help_wb3 "wybierasz miejsce gdzie majâ zostaę skopiowane niezbëdne pliki")
(set #kopiuj_modul "import/html-tm-online.tv")
(set #dodaj "Czy mogë dodaę jednâ linie do user-startup?")
(set #dodaj_help "Dodam linijke: Assign TVprog: xxx")
(set #dodaje_tt "TOOLTYPE")

(set #info_jak "Jaki sposób instalacji wybierasz?")
(set #info_jak_help "Wybierasz tutaj czy chcesz dokonaę peînej instalacji czy tylko zaktualizowaę program")
(set #info_but0 "Instalacja")
(set #info_but1 "Aktualizacja")


))

(if (= wybr 1)
(
(set #dodaj "Mohu pęidat jeden ęádek do user-startup?")
(set #dodaj_help "Pęidat ęádek do user-startup  Assign TVprog: xxx ")
(set #dodaje_tt "TOOLTYPE")
(set #kopiuj_modul "import/html-cz-online.tv")
(set #witam "Vitá Vás instalaçní program \nTV programu\nDíky tomuto skriptu si műůete nainstalovat a nakonfigurovat program")
(set #info ("\nVerze (uů nainstalovaných) poůadovaných knihoven:\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
(set #gdzie "Kam chcete nainstalovat program? \n\ (adresáę bude vytvoęen)")
(set #help_gdzie "Volíte si místo, kde má byt nainstalován TV program")
(set #kopiuj_wb "Kam zkopírovat TV program?")
(set #help_wb "Volíte si místo, kam má být zkopírován program")
(set #kopiuj_wb1 "Kam zkopírovat dokumentaci?")
(set #help_wb1 "Volíte si místo, kam mají být zkopírované dokumentace")
(set #kopiuj_wb2 "Kam zkopírovat arexxové skripty?")
(set #help_wb2 "Volíte si místo, kam mají být zkopírované arexxové skripty")
(set #import_prompt "Kam zkopírovat moduly?")
(set #kopiuj_wb31 "Volíte si místo, kam mají být zkopírované moduly\n\potęebné pro stahovaní televizních programű!")
(set #help_wb31 "Které moduly chcete pouůívat?")
(set #kopiuj_wb3 "Kam zkopírovat poůadované soubory?")
(set #help_wb3 "Volíte si místo, kam mají být zkopírované poůadované soubory")

(set #info_jak "Jaký si zvolíî zpűsob instalace?")
(set #info_jak_help "Zvolíî si zde, zda chceî plnou instalaci nebo jenom aktualizovat program")
(set #info_but0 "Instalace")
(set #info_but1 "Aktualizace")



))

(welcome #witam)

(message #info)

(set sposob
	(askchoice
		(prompt #info_jak)
		(help #info_jak_help)
		(choices #info_but0 #info_but1)
		(default 0)
	)
)
(if (= sposob 0)
(

(if (=(exists "tv.ext" (noreq)) 1)


(if (= wybr 0)
(
(set importk
	(askchoice
		(prompt #import_prompt)
		(help @askchoice-help)
		(choices "TeleMagazyn (112 programów, szybki transfer)" "WirtualnaPolska (114 programów, ôredni transfer)")
		(default 0)
	)
)

(if (= importk 0)
(
(set #kopiuj_modul "import/html-tm-online.tv")
))

(if (= importk 1)
(
(set #kopiuj_modul "import/html-wp-online.tv")
))
)

))

(set #wyb1
	(askdir
		(prompt #gdzie)
		(default "SYS:")
		(help #help_gdzie)
	)
)

(complete 5)

(set #wyb2 (tackon #wyb1 "TV-prog"))
(set #wyb3 (tackon #wyb2 "data"))
(set #wyb4 (tackon #wyb2 "data_p"))
(set #wyb5 (tackon #wyb2 "notatnik"))
(set #wyb6 (tackon #wyb2 "Docs"))
(set #wyb7 (tackon #wyb2 "import"))
(set #wyb8 (tackon #wyb2 "export"))
(set #wyb9 (tackon #wyb2 "rexx"))
(set #wyb0 (tackon #wyb2 "catalogs"))
(set #wya0 (tackon #wyb2 "plugins"))

(makedir #wya0)
(makedir #wyb2 (infos))
(makedir #wyb3)
(makedir #wyb4)
(makedir #wyb5)
(makedir #wyb6 (infos))
(makedir #wyb7)
(makedir #wyb8)
(makedir #wyb9)
(makedir #wyb0)

(complete 10)

(set #wb_sel
(copyfiles
	(prompt #kopiuj_wb)
	(source "TV")
	(dest #wyb2)
	(infos)
	(help #help_wb)
)
)

(complete 20)

(set #wb_sel1
(copyfiles
	(prompt #kopiuj_wb1)
	(source "Docs")
	(dest #wyb6)
	(all)
	(help #help_wb1)
)
)

(complete 40)

(set #wb_sel2
(copyfiles
	(prompt #kopiuj_wb2)
	(source "rexx")
	(dest #wyb9)
	(all)
	(help #help_wb2)
)
)

(complete 55)

(set #wb_sel3
(copyfiles
	(prompt #kopiuj_wb31)
	(source #kopiuj_modul)
	(dest #wyb7)
	(infos)
	(help #help_wb31)
)
)

(complete 60)


(complete 65)

(set #wb_sel5
(copyfiles
	(prompt #kopiuj_wb3)
	(source "NUMERACJA.pref")
	(dest #wyb2)
	(infos)
	(help #help_wb3)
)
)

(complete 70)

(set #wb_sel6
(copyfiles
	(prompt #kopiuj_wb3)
	(source "ROK.pref")
	(dest #wyb2)
	(infos)
	(help #help_wb3)
)
)

(complete 75)

(set #wb_sel7
(copyfiles
	(prompt #kopiuj_wb3)
	(source "catalogs")
	(dest #wyb0)
	(all)
	(help #help_wb3)
)
)

(complete 90)

(if (=(exists "tv.ext" (noreq)) 1)

(set #wb_sel8
(copyfiles
	(prompt #kopiuj_wb3)
	(source "tv.ext")
	(dest #wyb2)
	(help #help_wb3)
)
)

)

(complete 95)

(set #komenda "Assign TVprog: ")

(set #komenda1 (cat #komenda #wyb2))

(startup "TV-PROGRAM"
	(prompt #dodaj)
	(command #komenda1)
	(help #dodaj_help)
)

(makeassign "TVprog" #wyb2)

(if (=(exists "libs:mui/betterbalance.mcc" (noreq)) 1)

(tooltype
	(prompt #dodaje_tt)
	(help #dodaje_tt)
	(dest "tvprog:tv")
	(settooltype "TV_BETTERBALANCE" "ON")

)
(
(tooltype
	(prompt #dodaje_tt)
	(help #dodaje_tt)
	(dest "tvprog:tv")
	(settooltype "TV_BETTERBALANCE" "OFF")

)
)

)

(if (=(exists "libs:mui/tearoff.mcp" (noreq)) 1)

(tooltype
	(prompt #dodaje_tt)
	(help #dodaje_tt)
	(dest "tvprog:tv")
	(settooltype "TV_TEAROFF" "ON")

)
(
(tooltype
	(prompt #dodaje_tt)
	(help #dodaje_tt)
	(dest "tvprog:tv")
	(settooltype "TV_TEAROFF" "OFF")

)
)

)

(complete 100)
)
)


(if (= sposob 1)
(

(set #wb_sel
(copyfiles
	(prompt #kopiuj_wb)
	(source "TV")
	(dest "Tvprog:")
	(help #help_wb)
)
)

(set #wb_sel1
(copyfiles
	(prompt #kopiuj_wb1)
	(source "Docs")
	(dest "tvprog:docs/")
	(all)
	(help #help_wb1)
)
)


(set #wb_sel7
(copyfiles
	(prompt #kopiuj_wb3)
	(source "catalogs")
	(dest "tvprog:catalogs/")
	(all)
	(help #help_wb3)
)
)

(if (=(exists "tvprog:import/html-tm-online.tv" (noreq)) 1)
(
(set #wb_sel
(copyfiles
	(prompt #kopiuj_wb3)
	(source "import/html-tm-online.tv")
	(dest "Tvprog:import/")
	(help #help_wb3)
)
)
))

(if (=(exists "tvprog:import/html-wp-online.tv" (noreq)) 1)
(
(set #wb_sel
(copyfiles
	(prompt #kopiuj_wb3)
	(source "import/html-wp-online.tv")
	(dest "Tvprog:import/")
	(help #help_wb3)
)
)
))

(if (=(exists "tvprog:import/html-cz-online.tv" (noreq)) 1)
(
(set #wb_sel
(copyfiles
	(prompt #kopiuj_wb3)
	(source "import/html-cz-online.tv")
	(dest "Tvprog:import/")
	(help #help_wb3)
)
)

))


))