(welcome "Installation von Mother's Little Helper.")

(set @app-name "MLH")
(set tmp @user-level)
(user 2)
(user tmp)

(set instdir
	(askdir
		(prompt "Bitte wählen Sie das Verzeichnis, in welches Sie\nMother's Little Helper installieren wollen")
		(help @askdir-help)
		(default "WORK:im30")
		(newpath)
		(disk)
	)
)

(if ( = (exists instdir (noreq)) 0)   ;if selected path doesn't exist...

	;then create dir
	(makedir instdir
		(prompt ("Erzeuge Verzeichnis \"%s\"" instdir))
		(help @makedir-help)
		(infos)
		(confirm)
	)
)

(set installmask
	(askoptions
		(prompt "Bitte wählen Sie den Umfang der Installation")
		(help @askoptions-help)
		(choices "Programm" "Texte" "Abbildungen" "Objekte") 
		(default 15)
	)
)

(askdisk sourcedrive
	(prompt "\nBitte legen Sie die Diskette \"MLH_Disk_1\" in ein Laufwerk ein.")
	(help @askdisk-help)
	(dest "MLH_DISK_1")
	(assigns)
)

(run ("c:Copy >NIL: MLH_DISK_1:lharc RAM:lharc") (prompt "Kopiere LHARC") )


(if (BITAND installmask 1)
	(run ("c:Copy >NIL: MLH_DISK_1:MLHelper#? \"%s\"" instdir)
	(prompt "Kopiere Programm"))

)

(if (BITAND installmask 2) (
	
	(run ("RAM:lharc >NIL: -n -m x MLH_DISK_1:TEXTE.lzh \"%s/\"" instdir)
	(prompt "Entpacke Texte"))
	
	(askdisk sourcedrive
		(prompt "\nBitte legen Sie die Diskette \"MLH_Disk_2\" in ein Laufwerk ein.")
		(help @askdisk-help)
		(dest "MLH_DISK_2")
		(assigns))

	(run ("RAM:lharc >NIL: -n -m x MLH_DISK_2:TEXTE.lzh \"%s/\"" instdir)
		(prompt "Entpacke Texte"))
	)
)

(if (BITAND installmask 4) (

	(askdisk sourcedrive
		(prompt "\nBitte legen Sie die Diskette \"MLH_Disk_2\" in ein Laufwerk ein.")
		(help @askdisk-help)
		(dest "MLH_DISK_2")
		(assigns))

	(run ("RAM:lharc >NIL: -n -m x MLH_DISK_2:ABB.lzh \"%s/\"" instdir)
		(prompt "Entpacke Abbildungen"))

	(askdisk sourcedrive
		(prompt "\nBitte legen Sie die Diskette \"MLH_Disk_3\" in ein Laufwerk ein.")
		(help @askdisk-help)
		(dest "MLH_DISK_3")
		(assigns))

	(run ("RAM:lharc >NIL: -n -m x MLH_DISK_3:ABB.lzh \"%s/\"" instdir)
		(prompt "Entpacke Abbildungen"))

	(askdisk sourcedrive
		(prompt "\nBitte legen Sie die Diskette \"MLH_Disk_4\" in ein Laufwerk ein.")
		(help @askdisk-help)
		(dest "MLH_DISK_4")
		(assigns))

	(run ("RAM:lharc >NIL: -n -m x MLH_DISK_4:ABB.lzh \"%s/\"" instdir)
		(prompt "Entpacke Abbildungen"))

	(askdisk sourcedrive
		(prompt "\nBitte legen Sie die Diskette \"MLH_Disk_5\" in ein Laufwerk ein.")
		(help @askdisk-help)
		(dest "MLH_DISK_5")
		(assigns))

	(run ("RAM:lharc >NIL: -n -m x MLH_DISK_5:ABB.lzh \"%s/\"" instdir)
		(prompt "Entpacke Abbildungen"))

	(askdisk sourcedrive
		(prompt "\nBitte legen Sie die Diskette \"MLH_Disk_6\" in ein Laufwerk ein.")
		(help @askdisk-help)
		(dest "MLH_DISK_6")
		(assigns))

	(run ("RAM:lharc >NIL: -n -m x MLH_DISK_6:ABB.lzh \"%s/\"" instdir)
		(prompt "Entpacke Abbildungen"))
	)
)

(if (BITAND installmask 8) (

	(askdisk sourcedrive
		(prompt "\nBitte legen Sie die Diskette \"MLH_Disk_6\" in ein Laufwerk ein.")
		(help @askdisk-help)
		(dest "MLH_DISK_6")
		(assigns))

	(run ("RAM:lharc >NIL: -n -m x MLH_DISK_6:OBJEKTE.lzh \"%s/\"" instdir)
		(prompt "Entpacke Objekte"))
	)
)

(set @default-dest instdir)