; Skrypt instalacyjny dla programu TV (2000-2003)
;
;    $VER: Install_TV v1.2 by ZATOR (26.01.2002)
;
; 

(if (>= @installer-version 2883594)
(
(effect "lower_right" "radial" $FFEE00 $EE00)
))

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

(set wybr
	(askchoice
		(prompt "Jëzyk/Jazyk/Sprache/Language")
		(help @askchoice-help)
		(choices "POLSKI" "ÇEÎTINA") ;# "DEUTSCH")
		(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\n\nProgram potrzebuje 1MB dla swoich danych oraz ok 1MB dla ôciâganych danych z Internetu.\nPrzy dzisiejszych dyskach program ma bardzo skromne wymagania:)")
(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-wp-online.tv")
(set #kopiuj_pref "prefs/html-wp-online.pref")


(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.\n\nPamiëtaj, űe wybierajâc 'aktualizacje' nie instalujesz wszystkiego, a tylko aktualizujesz zainstalowane juű czëôci Tv-Programu.\n\nNaleűy równieű pamiëtaę, űe skrypt nie instaluje wszystkich czëôci TV-Programu!\nJeôli chcesz skorzystac, ze wszystkich moűliwoôci tv-programu naleűy skopiowaę po instalacji brakujâce pliki.")
(set #info_but0 "Instalacja")
(set #info_but1 "Aktualizacja")

(set #stworzyc "Skrypt instalacyjny stworzy katalog nazwany 'TV-prog' dla programu TV.  Jesli chcesz zmienię nazwe tego katalogu, wpisz nowâ nazwe poniűej.")

(set #pigw "Instaluje TV-Manager.library i TVbugraport.library")

(set #powiad_info "Czy zainstalowaę Powiadamiacza?")
(set #powiad_gdzie1 "do katalogu WBSTARTUP (automatyczny start)")
(set #powiad_gdzie2 "do katalogu TVProgramu")
(set #powiad_gdzie3 "nie instaluj")
(set #powiad_help (cat   "Powiadamiacz jest odrëbnym programem napisanym w C przez Jacka Walkowiak.\n\nDziëki niemu moűesz byę powiadamiany o wybranych przez Ciebie audycjach telewizyjnych.\n\n"
			 "Jeôli zainstalujesz go w katalogu WBSTARTUP to za kaűdym wystartowaniem komputera program bëdzie uruchamiany, natomiast jeôli zainstalujesz go w katalogu TV-Programu bëdziesz musiaî rëcznie uruchmiac go przez klikniëcie myszkâ na ikonce Powiadamiacza."
			 "\nJeôli nie potrzebujesz programu do powiadamiania po prostu wybierz 'nie instaluj' a skrypt instalacyjny nie zainstaluje powiadamiacza.\n\nW razie problemów z dziaîaniem powiadamiacza prosze kierowaę maile do autora programu rzydu@polbox.com"))
(set #powiad_kopiuj "Kopiuje Powiadamiacza")

))

(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-wp-online.tv")
(set #kopiuj_pref "prefs/html-wp-online.pref")

(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")

(set #stworzyc "Instalaçní skipt vytvoęí adresáę pojmenovaný `TV-prog' pro TV program. Pokud chcete zmënit jméno toho adresáęe, napiîte jeho jméno níůe.") 



(set #pigw "Instaluji TV-Manager.library, TVbugraport.library")


(set #powiad_info "Chcete nainstalovat Upozorńovaç(Powiadamiacz)?")
(set #powiad_gdzie1 "do adresáęe WBSTARTUP (automatický start)")
(set #powiad_gdzie2 "do adresáęe TVProgramu")
(set #powiad_gdzie3 "neinstalovat")
(set #powiad_help "")
(set #powiad_kopiuj "Kopírují Upozorńovaç(Powiadamiacza)")


))

(if (= wybr 2)
(

(set #witam "Willkommen zum Installationsprogramm\nTV\nDank diesem Skript werden Sie das Programm installieren und konfigurieren")
(set #info ("\nVersionen die bei Ihnen installierten Libraries, die benötigt werden\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
(set #gdzie "Wo möchten Sie installieren? \n\ (das Verzeichnis wird erstellt)")
(set #help_gdzie "Sie wählen, wo der TV-Programm installiert wird")
(set #kopiuj_wb "Wo soll der TV-Programm kopiert werden?")
(set #help_wb "Sie wählen, wo der Programm kopiert werden soll")
(set #kopiuj_wb1 "Wo soll die Dokumentation kopiert werden?")
(set #help_wb1 "Sie wählen, wo die Dokumentation kopiert werden soll")
(set #kopiuj_wb2 "Wo sollen die aRexx-Skripte kopiert werden?")
(set #help_wb2 "Sie wählen wo die aRexx-Skripte kopiert werden sollen")
(set #kopiuj_wb31 "Wo kopieren die Module?")
(set #help_wb31 "Sie wählen wo die Module kopiert werden,\n\ die zum Laden der Tv-Programmen benötigt werden!")
(set #import_prompt "Welches Modul möchten Sie benutzen?")
(set #kopiuj_wb3 "Wo kopieren die benötigten Dateien?")
(set #help_wb3 "Sie wählen wo die benötigte Dateien kopiert werden sollen")
(set #dodaj "Darf ich eine Zeile zur user-startup zuschreiben?" )
(set #dodaj_help "Die Zeile: Assign TVprog: xxx")
(set #info_jak "Welche Installation wählen Sie?")
(set #info_jak_help "Hier wählen Sie, ob Sie volle Installation oder nur die Programmsaktualisierung möchten")
(set #info_but0 "Installation")
(set #info_but1 "Aktualisierung")

(set #kopiuj_modul "import/html-wp-online.tv")
(set #kopiuj_pref "prefs/html-wp-online.pref")


(set #stworzyc "This installation will create a drawer named `TV-prog' for the TV software.  If you would like to change the name of this drawer, type the new name below.")
(set #pigw "Installieren TV-Manager.library und TVbugraport.library")

))

(welcome #witam)



(if (>= @installer-version 2883594)
(
(showmedia 'media' 'Docs/AFD-COPYRIGHT' 'upper_right' 'medium' 1 'wordwrap')
))

(message #info)

(if (>= @installer-version 2883594)
(
(closemedia media)
))

(if (>= @installer-version 2883594)
(
(showmedia 'pics' 'Docs/pics/okno.iff' 'upper_left' 'none' 1)
))

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





(if (>= @installer-version 2883594)
(
(closemedia pics)
))


(if (= sposob 0)
(




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

(complete 5)

(set #drawername "TV-prog")

(if (> @user-level 1)
			   (set #drawername
			      (askstring
				 (prompt #stworzyc)
				 (help @askstring-help)
				 (default "TV-prog")
			      )
			   )
			)

(set #wyb2 (tackon #wyb1 #drawername))
(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"))
(set #wyz5 (tackon #wyb2 "prefs"))
(set #pig (tackon #wyb2 "libs"))
(set #work (tackon #wyb2 "work"))


(makedir #wyb2 (infos))
(makedir #wyb3)
(makedir #wyb4)
;(makedir #wyb5)
(makedir #wyb6 (infos))
(makedir #wyb7)
(makedir #wyb8)
(makedir #wyb9)
(makedir #wyb0)
(makedir #wyz5)
(makedir #pig)
(makedir #work)
(makedir #wya0)

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

(if (>= @installer-version 2883594)
(
(showmedia 'pics' 'Docs/pics/aktualizacja.iff' 'upper_left' 'none' 1)
))




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

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



(set #wb_sel3
(copyfiles
	(prompt #kopiuj_wb31)
	(source "prefs/html-wp-online.pref")
	(dest #wyz5)
	(infos)
	(help #help_wb31)
)
)
(set #wb_sel3a
(copyfiles
	(prompt #kopiuj_wb31)
	(source #kopiuj_modul)
	(dest #wyb7)
	(infos)
	(help #help_wb31)
)
)

(set #wb_sel3a
(copyfiles
	(prompt #kopiuj_wb31)
	(source "import/text.tv")
	(dest #wyb7)
	(infos)
	(help #help_wb31)
)
)


))

(if (BITAND importk %10)
(
(set #kopiuj_modul "import/html-wp-online.tv")

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


(set #wb_sel3a
(copyfiles
	(prompt #kopiuj_wb31)
	(source "import/text.tv")
	(dest #wyb7)
	(infos)
	(help #help_wb31)
)
)

(set #wb_sel3z
(copyfiles
	(prompt #kopiuj_wb31)
	(source "prefs/html-wp-online.pref")
	(dest #wyz5)
	(infos)
	(help #help_wb31)
)
)

))
)

(if (>= @installer-version 2883594)
(
(closemedia pics)
)))

))


(complete 10)

(set #wb_pig
(copyfiles
	(prompt #pigw)
	(source "libs/tvmanager.library")
	(dest #pig)
	(infos)
	(help #help_wb3)
)
)

(if (=(exists "libs/bugraport.library" (noreq)) 1)

(set #wb_pig
(copyfiles
	(prompt #pigw)
	(source "libs/bugraport.library")
	(dest #pig)
	(infos)
	(help #help_wb3)
)
)

)

(if (=(exists "Pref" (noreq)) 1)

(set #wb_pref
(copyfiles
	(prompt #kopiuj_wb)
	(source "pref")
	(dest #wyb2)
	(infos)
	(help #help_wb3)
)
)


)

(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 progpow
	(askchoice
		(prompt #powiad_info)
		(help #powiad_help)
		(choices #powiad_gdzie1 #powiad_gdzie2 #powiad_gdzie3)
		(default 0)
	)
)

(if (= progpow 0)
(

(copyfiles
	(prompt #powiad_kopiuj)
	(source "TVPowiadamiacz")
	(dest "sys:wbstartup")
	(infos)
	(help #powiad_help)

)))

(if (= progpow 1)
(

(copyfiles
	(prompt #powiad_kopiuj)
	(source "TVPowiadamiacz")
	(dest #wyb2)
	(infos)
	(help #powiad_help)

)))


(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)
)
)

(set #wb_sel3x
(copyfiles
	(prompt #kopiuj_wb31)
	(source #kopiuj_pref)
	(dest #wyz5)
	(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)

(if (= wybr 1 )
(

(set #gf (tackon #wyb0 "czech"))
(makedir #gf)

(copyfiles
	(prompt #kopiuj_wb3)
	(source "catalogs/czech")
	(dest #gf)
	(all)
)


))

(if (= wybr 0)
(

(set jezyk_katalog
	(askoptions
		(prompt "W jakim jëzyku ma 'rozmawiaę' program?")
		(help @askoptions-help)
		(choices "POLSKI (wbudowane)" "POLSKI z katalogu" "POLSKI w ISO" "ANGIELSKI")
		(default 0)
	)
)


(if (BITAND jezyk_katalog %10)
(

(set #gf (tackon #wyb0 "polski"))
(makedir #gf)

(copyfiles
	(prompt #kopiuj_wb3)
	(source "catalogs/polski")
	(dest #gf)
	(all)
)
)
)


(if (BITAND jezyk_katalog %100)
(

(set #gf (tackon #wyb0 "polski"))
(makedir #gf)

(copyfiles
	(prompt #kopiuj_wb3)
	(source "catalogs/polskiISO")
	(dest #gf)
	(all)
)
)
)


(if (BITAND jezyk_katalog %1000)
(

(set #gf (tackon #wyb0 "english"))
(makedir #gf)

(copyfiles
	(prompt #kopiuj_wb3)
	(source "catalogs/english")
	(dest #gf)
	(all)
)
)
)

)
)


;#(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")

)
)

)

(set #wb_wp
(copyfiles
	(prompt #kopiuj_wb)
	(source "verifywp")
	(dest "tvprog:")
	(help #help_wb3)
)
)

(set #wb_wp
(copyfiles
	(prompt #kopiuj_wb)
	(source "import/html-wp-online.ust")
	(dest "tvprog:import/")
	(help #help_wb3)
)
)

(run "tvprog:verifywp")

(complete 100)
)
)


(if (= sposob 1)
(

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

(complete 10)

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

(complete 30)

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

(complete 50)

(if (=(exists "tvprog:Pref" (noreq)) 1)
(
(set #wb_sel
(copyfiles
	(prompt #kopiuj_wb3)
	(source "Pref")
	(dest "Tvprog:")
	(help #help_wb3)
)
)
))

(complete 60)

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

(complete 70)

(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 "libs/bugraport.library" (noreq)) 1)

(set #wb_pig
(copyfiles
	(prompt #pigw)
	(source "libs/bugraport.library")
	(dest "tvprog:libs/")
	(help #help_wb3)
)
)

)

(set #wb_pig
(copyfiles
	(prompt #pigw)
	(source "libs/tvmanager.library")
	(dest "tvprog:libs/")
	(help #help_wb3)
)
)

(complete 80)

(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)
)
)

(complete 100)

))


))