; ******************************************************
; *********** Multiworks Installer *********************
; ****************** written by ************************
; *****************   Graffity (Thore K.) & Andorra  ***
; *************** Bremen 07/10/1995 ********************
; ******************************************************

(set @default-dest "T:")


(transcript "Getting Location of MultiWorks Directory")

(set Multiworks_dir "SYS:")

(if (NOT (exists Multiworks_dir (noreq)))
	(set Multiworks_dir "Sys:")
)

(set Multiworks_dir
	(askdir
		(prompt
		"Wo soll das MultiWorks's Verzeichniss erstellt werden?")
		(help @askdir-help)
		(default Multiworks_dir)
	)
)

(if (NOT (exists (tackon Multiworks_dir "MultiWorks")(noreq)))
	(
	(copyfiles
		(source "C/MultiWorks.info")
		(dest MultiWorks_dir))
	(tooltype
		(dest (tackon MultiWorks_dir "MultiWorks"))
		(noposition))
	(makedir (tackon MultiWorks_dir "MultiWorks"))
	)
)

(set MultiWorks_dir (tackon MultiWorks_dir "MultiWorks"))

(set @default-dest MultiWorks_dir)

;--------------------------------------------------------------------------------------
(set Multiworks_DBdir "SYS:")

(if (NOT (exists Multiworks_DBdir (noreq)))
	(set Multiworks_DBdir "Sys:")
)

		(message
		"Die DataBase von MultiWorks benötigt ein Verzeichnis 'MWDataBase'. "
		"Hier werden die Miniaturbilder abgespeichert.\nDer dafür vorgesehende Datenträger sollte einige Megabyte "
		"freien Speicherplatz haben!\n "
		"Sie werden gleich aufgefordert den Pfad für dieses Verzeichnis zu setzen."
		)
(set Multiworks_DBdir
	(askdir
		(prompt "Wo soll das 'DataBase' Verzeichniss erstellt werden?"
		)
		(help @askdir-help)
		(default Multiworks_DBdir)
	)
)

(if (NOT (exists (tackon Multiworks_DBdir "MWDataBase")(noreq)))
	(makedir (tackon MultiWorks_DBdir "MWDataBase"))
)

(set MultiWorks_DBdir (tackon MultiWorks_DBdir "MWDataBase"))

;(set @default-dest MultiWorks_DBdir)
;--------------------------------------------------------------------------------------

(transcript "Installing MultiWorks Program")


(copyfiles
	(prompt "Installiere MultiWorks Hauptprogram.")
	(help @copyfiles-help)
	(source "MultiWorks")
		(infos)
	(dest MultiWorks_dir)
)

(copyfiles
	(prompt "Installiere MultiWorks Hauptprogram.")
	(help @copyfiles-help)
	(source "MWDataBase")
		(infos)
	(dest MultiWorks_dir)
)

;****************
;**** libs ******
;****************
(working "Installiere MultiWorks Libraries..." )

	(if (NOT (exists (tackon Multiworks_dir "libs") (noreq)))
		(makedir (tackon Multiworks_dir "libs"))
	)
	(copyfiles
		(prompt "Installiere Multiworks Libs...")
		(help @copyfiles-help)
		(source "libs")
		(all)
		(dest (tackon Multiworks_dir "libs"))
	)

;*********************
;**** operators ******
;*********************
(transcript "Installiere MultiWorks Operators...")
(working "Installiere MultiWorks Operators..." )

	(transcript "Installiere MultiWorks Operators...")

	(if (NOT (exists (tackon Multiworks_dir "operators") (noreq)))
		(
		(makedir (tackon Multiworks_dir "operators"))
		)
	)
(copyfiles
		(prompt "Installiere MultiWorks Operators...")
		(help @copyfiles-help)
		(source "operators")
		(all)
		(dest (tackon Multiworks_dir "operators"))
	)

;*********************
;**** Savers ******
;*********************
(transcript "Installiere MultiWorks Savers...")
(working "Installiere MultiWorks Savers..." )

	(transcript "Installiere MultiWorks Savers...")

	(if (NOT (exists (tackon Multiworks_dir "savers") (noreq)))
		(
		(makedir (tackon Multiworks_dir "savers"))
		)
	)
(copyfiles
		(prompt "Installiere MultiWorks Savers...")
		(help @copyfiles-help)
		(source "savers")
		(all)
		(dest (tackon Multiworks_dir "savers"))
	)

;*********************
;**** Rexx ******
;*********************
(working "Installiere MultiWorks Rexx..." )

	(if (NOT (exists (tackon Multiworks_dir "rexx") (noreq)))
		(
		(makedir (tackon Multiworks_dir "rexx"))
		)
	)
(copyfiles
		(prompt "Installiere MultiWorks Rexx...")
		(help @copyfiles-help)
		(source "rexx")
		(all)
		(dest (tackon Multiworks_dir "rexx"))
	)

;**** Dir prefs machen ******
	(if (NOT (exists (tackon Multiworks_dir "prefs") (noreq)))
		(makedir (tackon Multiworks_dir "prefs"))
	)

;*****************
;**** Loaders ****
;*****************
	(if (NOT (exists (tackon Multiworks_dir "loaders") (noreq)))
		(makedir (tackon Multiworks_dir "loaders"))
	)

	(copyfiles
		(prompt "Installing Multiworks Loaders.")
		(help @copyfiles-help)
		(source "loaders")
		(pattern "#?.mwloader")
		(dest (tackon Multiworks_dir "loaders"))
	)


;******** Directory "Displays" wird installiert **********
	(transcript "Installing MultiWorks Displays.")

	(if (NOT (exists (tackon Multiworks_dir "displays") (noreq)))
		(makedir (tackon Multiworks_dir "displays"))
	)

	(copyfiles
	(prompt "Installing MultiWorks Displays.")
	(help @copyfiles-help)
	(source "Displays")
	(all)
	(dest (tackon MultiWorks_dir "Displays"))
	)

;******** Directory "Samplays" wird installiert **********
	(transcript "Installing MultiWorks Samplays.")

	(if (NOT (exists (tackon Multiworks_dir "samplays") (noreq)))
		(
		(makedir (tackon Multiworks_dir "samplays"))
		)
	)

	(copyfiles
	(prompt "Installing MultiWorks Samplays.")
	(help @copyfiles-help)
	(source "samplays")
	(all)
	(dest (tackon MultiWorks_dir "samplays"))
	)

;******** Directory "pref_icons" wird installiert **********
	(transcript "Installing MultiWorks pref_icons.")

	(if (NOT (exists (tackon Multiworks_dir "pref_icons") (noreq)))
		(makedir (tackon Multiworks_dir "pref_icons"))
	)

	(copyfiles
	(prompt "Installing MultiWorks icons.")
	(help @copyfiles-help)
	(source "pref_icons")
	(all)
	(dest (tackon MultiWorks_dir "pref_icons"))
	)

;	(copyfiles
;	(prompt "Installing MultiWorks icons.")
;	(help @copyfiles-help)
;	(source "")
;	(choices "asl.library")
;	(dest (tackon MultiWorks_dir ""))
;	)

; Hier die assigns, damit mw sofort aktiv ist.
;---------------------------------------------
	(makeassign "MultiWorks" Multiworks_dir)
	(makeassign "MWDataBase" Multiworks_DBdir)

 (startup "Multiworks"
	(prompt
		"Damit Multiworks immer richtig läuft müssen noch zwei Einträge in die \"S:user-startup\" gepatcht werden.")
	(help "Keine Hilfe für diese funktion")
 (command "assign MultiWorks: "Multiworks_dir"\n")
	(command "assign MWDataBase: "Multiworks_DBdir"\n")
)

(exit "Multiworks ist nun fertig installiert.\n\nFrohes Schaffen und allzeit gute Laune wünscht Ihnen ihr\n\nSynetic Software Team")