; Installer Script for TinyMeter V4.30+

(set TM_muimin             13)
(set TM_muiassign          "MUI:")

;*******************************************************************************************
; ENGLISH
;
(set TM_def_lang          0)
(set TM_where_main        "Where should I copy the TinyMeter main program ?")
(set TM_where_main_help   "SYS:WBStartup is the best place. Simply click proceed.")
(set TM_where_prefs       "Where should I copy the TinyMeter preferences program?")
(set TM_where_prefs_help  "SYS:Prefs is the best place, since TinyMeter can only call it, when its there.")
(set TM_which_lang        "Which languages should be installed?")
(set TM_which_icons       "Which icons do you use")
(set TM_which_install     "What should be installed?")
(set TM_choic_1           "Example settings")
(set TM_choic_2           "Fonts for Clocks")
(set TM_choic_3           "Background patterns")
(set TM_choic_4           "Pictograms for launchermenus")
(set TM_choic_5           "Documentation")
(set TM_where_picto       "Where should the pictograms be installed?")
(set TM_where_picto_help  "Prefs:Pictograms is the best place. Simply click proceed.")
(set TM_where_docs        "Where should the documentation be installed?")
(set TM_where_docs_help   "HELP: is the best place. The HELP key is only available within the preferences program when you put it here. Simply click proceed.")
(set TM_where_fonts       "Where should the fonts be installed?")
(set TM_where_fonts_help  "FONTS: is the best place. The AmigaOS normally can only use fonts which are installed here. Simply click proceed.")
(set TM_where_back        "Where should the background patterns be installed?\n (example settings-file uses SYS:Prefs/Patterns!)")
(set TM_insta_files       "Installing the files...")
(set TM_insta_main        "Installing TinyMeter...")
(set TM_insta_catalog     "Installing catalog...")
(set TM_insta_newicons    "Installing NewIcons®...")
(set TM_insta_examples    "Installing example settings...")
(set TM_insta_fonts       "Installing fonts...")
(set TM_insta_backs       "Installing patterns...")
(set TM_insta_pictos      "Installing pictograms...")
(set TM_insta_docs        "Installing documentation...")
(set TM_insta_def         "Installing...")
(set TM_messa_exit        "Have phun with this nice piece of soft!!!\n\nNow you should start TinyMeter, setup the position and size and press S to save these settings.\n\nAfter that, start the TinyMeter preferences to setup TinyMeter to your personal taste.\n\nIf there are any problems, don't hesitate to contact the author!")
(set TM_nomui              "\n\nCould not find the MUI: assign.\n\nMake sure, that MUI3.2+ is installed correctly.")
(set TM_oldmui             "\n\nTinyMeter V4.30 needs at least MUI 3.2!\n\nPlease update your MUI system. You can find the actual versions on the Aminet.")

;*******************************************************************************************
; DEUTSCH
;
(if (= @language "deutsch")
    (
	(set TM_def_lang          1)
	(set TM_where_main        "Wohin soll das Hauptprogramm kopiert werden?")
	(set TM_where_main_help   "SYS:WBStartup ist der Beste Platz.")
	(set TM_where_prefs       "Wohin soll das Einstellungsprogramm kopiert werden?")
	(set TM_where_prefs_help  "SYS:Prefs ist der Beste Platz.")
	(set TM_which_lang        "Welche Sprachen sollen installiert werden?")
	(set TM_which_icons       "Welche Icons sollen benutzt werden?")
	(set TM_which_install     "Was soll installiert werden?")
	(set TM_choic_1           "Beispieleinstellungen")
	(set TM_choic_2           "Zeichensätze für die Uhr")
	(set TM_choic_3           "Hintergrundbilder")
	(set TM_choic_4           "Piktogramme für die Schnellstarter")
	(set TM_choic_5           "Dokumentation")
	(set TM_where_picto       "Wohin sollen die Piktogramme opiert werden?")
	(set TM_where_picto_help  "Prefs:Pictograms ist der Beste Platz.")
	(set TM_where_docs        "Wohin soll die Doumentation kopiert werden?")
	(set TM_where_docs_help   "HELP: ist der Beste Platz.")
	(set TM_where_fonts       "Wohin sollen die Zeichensätze opiert werden?")
	(set TM_where_fonts_help  "FONTS: ist der Beste Platz..")
	(set TM_where_back        "Wohin sollen die Hintergrundbilder opiert werden?\n (Die Beispiel einstellungen benötigen diese Bilder!)")
	(set TM_insta_files       "Installiere Dateien...")
	(set TM_insta_main        "Installiere TinyMeter...")
	(set TM_insta_catalog     "Installiere Sprachenkataloge...")
	(set TM_insta_newicons    "Installiere NewIcons®...")
	(set TM_insta_examples    "Installiere Beispieleinstellungen...")
	(set TM_insta_fonts       "Installiere Zeichensätze...")
	(set TM_insta_backs       "Installiere Hintergrundbilder...")
	(set TM_insta_pictos      "Installiere Piktogramme...")
	(set TM_insta_docs        "Installiere Doumentation...")
	(set TM_insta_def         "Installiere...")
	(set TM_messa_exit        "Nun viel Spaß mit diesem Programm!!!\n\nNun sollte man TinyMeter starten, die Position und Größe einstellen, S druecken und mit dem Einstellungsprogramm weitere Einstellungen vornehmen.\nBei Problemen ist der Author immer über EMail oder auf IRC erreichbar.")
	(set TM_nomui              "\n\nKonnte den MUI: Assign nicht finden.\n\nStellen Sie sicher, daß MUI 3.2+ korrekt installiert wurde.")
	(set TM_oldmui             "\n\nTinyMeter 4.30 benötigt mindestens MUI 3.2!\n\nBitte aktualisieren Sie ihr MUI-System. Die aktuellen Versionen finden Sie auf dem Aminet.")
    )
)

;*******************************************************************************************
; FRANÇAIS
;
(if (= @language "français")
    (
	(set TM_def_lang          2)
	(set TM_where_main        "Où voulez vous installer TinyMeter?")
	(set TM_where_main_help   "SYS:WBStartup est la meilleur destination.")
	(set TM_where_prefs       "Où voulez vous installer le programme de réglage?")
	(set TM_where_prefs_help  "SYS:Prefs es la meilleur destination.")
	(set TM_which_lang        "Quelle langues voulez vous installer?")
	(set TM_which_icons       "Quelle type d´icônes vous utiliséz?")
	(set TM_which_install     "Qu´est-ce qu´il faut installer?")
	(set TM_choic_1           "Examples")
	(set TM_choic_2           "Polices pour l´horloge")
	(set TM_choic_3           "Images de fond")
	(set TM_choic_4           "Pictogrammes pour les lanceurs")
	(set TM_choic_5           "Documentation")
	(set TM_where_picto       "Où voulez vous installer les pictogrammes?")
	(set TM_where_picto_help  "Prefs:Pictograms est la meilleur destination.")
	(set TM_where_docs        "Où voulez vous installer la documentation?")
	(set TM_where_docs_help   "HELP: est la meilleur destination.")
	(set TM_where_fonts       "Où voulez vous installer les polices?")
	(set TM_where_fonts_help  "FONTS: est la meilleur destination.")
	(set TM_where_back        "Où voulez vous installer les images de fond?")
	(set TM_insta_files       "Installation en cours...")
	(set TM_insta_main        "Installation en cours...")
	(set TM_insta_catalog     "Installation en cours...")
	(set TM_insta_newicons    "Installation en cours...")
	(set TM_insta_examples    "Installation en cours...")
	(set TM_insta_fonts       "Installation en cours...")
	(set TM_insta_backs       "Installation en cours...")
	(set TM_insta_pictos      "Installation en cours...")
	(set TM_insta_docs        "Installation en cours...")
	(set TM_insta_def         "Installation en cours...")
	(set TM_messa_exit        "S´il y a des problèmes, n´hésitez pas de contacter l´auteur!")
    )
)

(if (exists TM_muiassign (noreq))
    (
	(set TM_muiverrev (getversion "MUI:Libs/muimaster.library"))
	(set TM_muiver    (/ TM_muiverrev 65536))
	(if (>= TM_muiver TM_muimin)
	    (
		(set TM_default-dest (""))

		(set TM_source-file "TinyMeter")

		(set TM_destdir
			(askdir
				(prompt TM_where_main)
				(help TM_where_main_help)
				(default "SYS:WBStartup/")
			)
		)
		(set TM_prefsdir
			(askdir
				(prompt TM_where_prefs)
				(help TM_where_prefs_help)
				(default "SYS:Prefs/")
			)
		)
		(set langchoice
			(askoptions
				(prompt TM_which_lang)
				(help @akoptions_help)
				(choices "Deutsch" "Français" "Italiano" "Polski")
				(default TM_def_lang)
			)
		)

		(set iconchoice
			(askchoice
				(prompt TM_which_icons)
				(help @askchoice_help)
				(choices "MagicWB®" "NewIcons®")
				(default 0)
			)
		)

		(set instchoice
			(askoptions
				(prompt TM_which_install)
				(help @ackoptions_help)
				(choices TM_choic_1 TM_choic_2 TM_choic_3 TM_choic_4 TM_choic_5)
				(default 8)
			)
		)

		(if (<> 0 (BITAND instchoice 8))
		    (set TM_picdir
			(askfile
			    (prompt TM_where_picto)
			    (help TM_where_picto_help)
			    (default "SYS:Prefs/Pictograms")
			)
		    )
		)

		(if (<> 0 (BITAND instchoice 16))
		    (set TM_helpdir
			    (askdir
				    (prompt TM_where_docs)
				    (help TM_where_docs_help)
				    (default "HELP:")
			    )
		    )
		)

		(if (<> 0 (BITAND instchoice 2))
		    (set TM_fontdir
			    (askdir
				    (prompt TM_where_fonts)
				    (help TM_where_fonts_help)
				    (default "FONTS:")
			    )
		    )
		)

		(if (<> 0 (BITAND instchoice 4))
		    (set TM_pattdir
			    (askdir
				    (prompt TM_where_back)
				    (help @askdir_help)
				    (default "SYS:Prefs/")
			    )
		    )
		)

		(copyfiles
			(prompt TM_insta_files)
			(help @copyfiles_help)
			(source TM_source-file)
			(infos)
			(newname "TinyMeter")
			(dest TM_destdir)
		)

		(copyfiles
			(prompt TM_insta_main)
			(help @copyfiles_help)
			(source "Prefs/TinyMeter")
			(infos)
			(newname "TinyMeter")
			(dest TM_prefsdir)
		)

		(if (<> 0 (BITAND langchoice 1))
			(copyfiles
				(prompt TM_insta_catalog)
				(help @copyfiles_help)
				(source "Catalogs/deutsch/TinyMeterPrefs.catalog")
				(dest "LOCALE:Catalogs/deutsch/")
			)
		)
		(if (<> 0 (BITAND langchoice 2))
			(copyfiles
				(prompt TM_insta_catalog)
				(help @copyfiles_help)
				(source "Catalogs/français/TinyMeterPrefs.catalog")
				(dest "LOCALE:Catalogs/français/")
			)
		)
		(if (<> 0 (BITAND langchoice 4))
			(copyfiles
				(prompt TM_insta_catalog)
				(help @copyfiles_help)
				(source "Catalogs/italiano/TinyMeterPrefs.catalog")
				(dest "LOCALE:Catalogs/italiano/")
			)
		)
		(if (<> 0 (BITAND langchoice 8))
			(copyfiles
				(prompt TM_insta_catalog)
				(help @copyfiles_help)
				(source "Catalogs/polski/TinyMeterPrefs.catalog")
				(dest "LOCALE:Catalogs/polski/")
			)
		)
		(if (<> 0 (BITAND iconchoice 1))
			(copyfiles
				(prompt TM_insta_newicons)
				(help @copyfiles_help)
				(source "ArtWork/newicons/TinyMeter.info")
				(dest TM_destdir)
			)
		)
		(if (<> 0 (BITAND iconchoice 1))
			(copyfiles
				(prompt TM_insta_newicons)
				(help @copyfiles_help)
				(source "ArtWork/newicons/TinyMeterPrefs.info")
				(newname "TinyMeter.info")
				(dest TM_prefsdir)
			)
		)

		(if (<> 0 (BITAND instchoice 1))
		    (copyfiles
			    (prompt TM_insta_examples)
			    (help @copyfiles_help)
			    (source "Examples/MagicWB.tm")
			    (newname "TinyMeter")
			    (dest "ENV:")
		    )
		)

		(if (<> 0 (BITAND instchoice 1))
		    (copyfiles
			    (prompt TM_insta_examples)
			    (help @copyfiles_help)
			    (source "Examples/MagicWB.tm")
			    (newname "TinyMeter")
			    (dest "ENVARC:")
		    )
		)

		(if (<> 0 (BITAND instchoice 2))
		    (copyfiles
			    (prompt TM_insta_fonts)
			    (help @copyfiles_help)
			    (source "ArtWork/Fonts/")
			    (all)
			    (dest TM_fontdir)
		    )
		)

		(if (<> 0 (BITAND instchoice 4))
		    (copyfiles
			    (prompt TM_insta_backs)
			    (help @copyfiles_help)
			    (source "ArtWork/Patterns/")
			    (all)
			    (dest TM_pattdir)
		    )
		)

		(if (<> 0 (BITAND instchoice 16))
		    (copyfiles
			    (prompt TM_insta_docs)
			    (help @copyfiles_help)
			    (source "TinyMeter.guide")
			    (infos)
			    (dest TM_helpdir)
		    )
		)

		(if (<> 0 (BITAND instchoice 8))
		    (copyfiles
			    (prompt TM_insta_pictos)
			    (help @copyfiles_help)
			    (source "ArtWork/Pictogram/")
			    (all)
			    (dest TM_picdir)
		    )
		)

		(copylib
			(prompt TM_insta_def)
			(help @copylib_help)
			(source "Libs/screennotify.library")
			(dest "LIBS:")
			(confirm)
		)

		(copylib
			(prompt TM_insta_def)
			(help @copylib_help)
			(source "Libs/wbstart.library")
			(dest "LIBS:")
			(confirm)
		)

		(exit
			TM_messa_exit
		)
	    )
	    (exit TM_oldmui (quiet))
	)
    )
    (exit TM_nomui (quiet))
)
(exit)