; ************************************************
; *
; * Mod2Sample - HD Install Script
; *
; * $VER: Install-System 1.00 (21-Nov-96)
; *
; * Script written by Markus Hther
; *
; ************************************************
;

(set @default-dest "ram:")


; Language codes:
;
;   1  Deutsch
;   2  English
;   4  Dansk
;   8  Espaol
;  16  Franais
;  32  Italiano
;  64  Nederlands
; 128  Norsk
; 256  Portugus
; 512  Svenska


(set default_lang 0) ; misuse variable as a flag, for later to check



; == German strings =====================================================

(if (= @language "deutsch")
(
(set default_lang 1)

(set #bad-kick "Sie bentigen mindestens Kickstart 2.04 fr ReqChange")
(set #which-language "Welche Sprachen sollen installiert werden?")

(set #copy-m2s-guide "Ich kopiere Mod2Sample.guide")
(set #install-docu "Soll die Mod2Sample Dokumentation installiert werden?")

(set #where-mt (cat
"Bitte einen Pfad aussuchen, in dem das Mod2Sample-Verzeichnis dann "
"erstellt wird"
))

(set #m2s-exists (cat
"Die Datei (bzw. das Verzeichnis) \"Mod2Sample\" existiert bereits.\n"
"Bitte reagieren:\n"
))

(set #rename-old-file   "Alte Datei umbenennen")
(set #delete-old-file   "Alte Datei lschen")
(set #select-new-path   "Neuen Pfad auswhlen")
(set #rename-old-drawer "Altes Verzeichnis umbenennen")
(set #update-old-drawer "Ins alte Verzeichnis aktualisieren")

(set #m2s-exists-help (cat
"\"Umbennen\" benennt das alte Verzeichnis um. "
"Es kann ja spter immer noch gelscht werden.\n\n"
"\"Lschen\" wird die alte Datei lschen.\n\n"
"\"Aktualisieren\" wird die Dateien im alten Verzeichnis "
"einfach berschreiben.\n\n"
"Mit \"Neuer Pfad\" knnen Sie ein anderes Verzeichnis fr Mod2Sample "
"aussuchen.\n\n"
@askchoice-help
))

(set #m2s-rename "Alte Datei/Verzeichnis nach \"%s\" umbenennen")
(set #makedir "Ein Verzeichnis namens \"%s\" wird erstellt.")
(set #m2s-delete "Lsche alten Mod2Sample")

(set #m2s-rename-help
"Whlen Sie einen neuen namen fr die alte Mod2Sample-Datei aus.")

(set #m2s-delete-help
"Die Datei wird unwiederbringlich gelscht. Seien Sie ganz sicher!")

(set #m2s-version-help (cat
"Sie knnen nun diejenige Version von Mod2Sample installieren, "
"die dem Prozessor in Ihrem Amiga am nchsten kommt."
))

(set #newname (cat
"Das alte Mod2Sample-Verzeichnis/Datei\n\n"
"\"%s\"\n\n"
" ist in\n\n"
"\"%s\"\n\n"
"umbenannt worden."
))


(set #mainprog (cat
"Das Hauptprogramm wird nun kopiert.\n\n"
"Dieser Amiga hat einen %s Prozessor.\n\n"
"Welche Version mchten Sie installieren:\n"
))

(set #ver-68000 "68000 Version (luft auf allen Amigas)")
;(set #ver-68020 "68020 Version (bentigt mindestens 68020)")
;(set #ver-68040 "68030 Version (bentigt mindestens 68030)")
;(set #ver-68040 "68040 Version (bentigt mindestens 68040)")
;(set #ver-68040 "68060 Version (bentigt mindestens 68060)")

(set #yes "Ja")
(set #no  "Nein")

(set #install-docu "Soll die Dokumentation installiert werden?")

(set #which-iconset "Welches Piktogramm-System bevorzugen Sie?\n")
(set #copy-catalog "Ich kopiere Kataloge")
(set #copy-iconset "Ich kopiere Icons")

(set #standard-icons "Standard (4 Farben)")
(set #magicwb-icons  "MagicWB (8 Farben)")
(set #newicos-icons  "NewIcons (bis zu 256 Farben)")

(set @askbool-help (cat
"Clicken Sie auf \"" #yes "\" oder \"" #no "\","
"um diese Frage zu beantworten."
))

)) ; if


;=================================================================
;============== INSTALLATION STARTS

(set old-level @user-level)
(user 2)
(user old-level)
(welcome)
(set old-level @user-level)


(complete 0)


; Testen der Kickstart version. Beenden wenn nicht mindestens 2.0

(if (< (/ (getversion) 65536) 37)
  (abort #bad-kick)
)


; Choose languages to install documentation

(set lang
	(askoptions (prompt #which-language)
		(help @askoptions-help)
		(choices
			"Deutsch"
;			"English"
;			"Dansk"
;			"Espaol"
;			"Franais"
;			"Italiano"
;			"Nederlands"
;			"Norsk"
;			"Portugus"
;			"Svenska"
		)
		(default default_lang)
	)
)


; begin loop

(set choosing-ready 0)
(until choosing-ready
(

	; Ziel Verzeichnis abfragen, wo neuer Ordner angelegt wird

	(user 2)
	(set m2s-dest
		(askdir
			(prompt  #where-mt)
			(help    @askdir-help)
			(default @default-dest)
		)
	)
	(user old-level)


	; Testen ob Ordner schon existed, und weitere Entscheidungen

	(set destination (tackon m2s-dest "Mod2Sample") )
	(set whattodo "update")
	(if (> (exists destination) 0 )

		(
		(if (= (exists destination) 1)
			(set whattodo
				(select
				  (askchoice
						(prompt  #m2s-exists)
				    (help    #m2s-exists-help)
						(choices #rename-old-file
						         #delete-old-file
						         #select-new-path)
						(default 0)
					)
					"rename" "delete" "newpath"
				)
			)

			; ELSE (destination exists, is a dir)
			(set whattodo
				(select
				  (askchoice
						(prompt  #m2s-exists)
				    (help    #m2s-exists-help)
						(choices #rename-old-drawer
						         #update-old-drawer
						         #select-new-path)
						(default 0)
					)
					"rename" "update" "newpath"
				)
			)
		)


		(if (= whattodo "rename")
			(
			(set new-name (tackon m2s-dest "Mod2Sample-old") )
			(if (rename   destination new-name
						(prompt #m2s-rename new-name)
			    	(help   #m2s-rename-help)
					)
				(
				(message (#newname destination new-name) )
				(set choosing-ready 1)
				)
			)
			)
		)


		(if (= whattodo "delete")
			(
			(delete   destination
				(prompt #m2s-delete)
		    (help   #m2s-delete-help)
			)
			(set choosing-ready 1)
			)
		)


		(if (= whattodo "update")
			(set choosing-ready 1)
		)


		)

		; ELSE (dir does not exist)
		(set choosing-ready 1)


;		(if (= whattodo "newpath")
;			(set choosing-ready 0)
;		)


	)

)
) ; end of until




; Install Mod2Sample Hauptprogramm, abhngig von der CPU.
; An dieser Stelle, wird Zielverzeichnis erstellt.

(complete 10)

(set cpu (database "cpu") )
(if (OR (= cpu "68000") (= cpu "68010") )
	(set version-default 0)
	; ELSE
	(set version-default 0)
)

(set mainprog
	(select
		(askchoice
			(prompt  (#mainprog cpu) )
		  (help    @askchoice-help)
			(choices #ver-68000
			         ;#ver-68020
				 ;#ver-68030
				 ;#ver-68040
 				 ;#ver-68060
                        )
			(default version-default)
		)
		"Mod2Sample"
		;"Mod2Sample020"
		;"Mod2Sample030"
		;"Mod2Sample040"
		;"Mod2Sample060"
	)
)

(copyfiles
	(prompt  #copy-mainprog)
	(help    @copyfiles-help)
	(source  (cat "/" mainprog) )
	(dest    destination)
  (newname "Mod2Sample")
	(confirm)
	(infos)
)








(complete 20)

; Kopiere Mod2Sample.guide wenn AmigaGuide installiert ist.

(if (> (getversion "Libs:amigaguide.library") 0)

	(if (askbool
				(prompt  #install-docu)
				(help    @askbool-help)
				(default 1)
				(choices #yes #no)
			)

		(
		(makedir  (tackon destination "Help")
			(prompt #makedir (tackon destination "Help") )
			(help   @makedir-help)
			(infos)
		)

		(set n 0)
		(while (set language (select n
					
					"deutsch"
					"english"
					"dansk"
					"espaol"
					"franais"
					"italiano"
					"nederlands"
					"norsk"
					"portugus"
					"svenska"
					""))
			(
			(if (IN lang n)
				(

				(set docudest (tackon destination ("Help/%s" language) ) )
				(makedir  docudest
					(prompt #makedir docudest)
					(help   @makedir-help)
					(infos)
				)

				(copyfiles
					(prompt   #copy-docu)
					(help     @copyfiles-help)
					(source   (tackon ("/Help/%s" language) "Mod2Sample.guide") )
					(dest     docudest)
					(optional nofail)
					(infos)
					(confirm)
				)

				; Modify tooltypes of guide if this is needed

				(if (< (/ (getversion) 65536) 39)
					(tooltype
						(dest (tackon docudest "Mod2Sample.guide") )
						(setdefaulttool "AmigaGuide")
				  )
				)

				) ; if IN
			)

			(set n (+ n 1))
			) ; while
		)
		)

	)
)



; Frage nach Art der Icons

(complete 40)

(set iconset
	(select
		(askchoice
			(prompt  #which-iconset)
		  (help    @askchoice-help)
			(choices #standard-icons
			         ;#magicwb-icons
			         ;#newicos-icons
			)
			(default 0)
		)
		"Standard-Icons"
		;"MagicWB-Icons"
		;"NewIcons-Icons"
	)
)

; Kopieren der Icons frs Programm

(copyfiles
	(prompt  #copy-iconset)
	(help    @copyfiles-help)
        (source (tackon (cat "/" iconset) "Mod2Sample.info") )
	(dest    destination)
       
)

					

; Kopiere die Main dir icons

(makedir (tackon destination "Icons")
	(prompt #makedir (tackon destination "Icons") )
	(help   @makedir-help)
	(infos)
)



; Catalogs

(complete 95)

(set n 0)
(while (set language (select n
			;"english"
			 "deutsch"
			;"dansk"
			;"espaol"
			;"franais"
			;"italiano"
			;"nederlands"
			;"norsk"
			;"portugus"
			;"svenska"
			""))
	(
	(if (IN lang n)
		(if (<> 0 n) ; wenn deutsch, berspringen keine catalogs vorhanden
			(copyfiles
				(prompt   #copy-catalog)
				(help     @copyfiles-help)
				(source   (tackon ("/Catalogs/%s" language) "Mod2Sample.catalog") )
				(dest     ("LOCALE:Catalogs/%s" language) )
				(optional nofail)
			)
		)
	)

	(set n (+ n 1))
	) ; while
)



(complete 100)

