; $VER: MaxonMAGIC Install Version 1.1 (1.12.93)
; 
(set #introduction
(cat "\nThis script will install \n\nMaxonMAGIC\n\n on your harddisk. "
     "The installation will work almost automatically. "))
(set #askdir-help
(cat "\nChoose a directory on your harddisk partition in which you want "
     "to install MaxonMAGIC. This script will NOT create a drawer! "
     "Click on \"MAKE NEW DRAWER\" and type in the name of the  drawer "
     "(e.g. WORK:MMAGIC). "))
(set #help-startup
(cat "MaxonMAGIC will do some changes to the file \"s:user-startup\". "
     "to be started directly after system startup. "
     "Click on \"Proceed\" to let the changes take effect. "))
(set #no-inst
(cat "\nThere is not enough disk space to install MaxonMAGIC! "))



(set #MAGICSIZE	1)
(set #MaxonMSIZE  1)


(Procedure Inst_NormFiles
	(if (< (getdiskspace @Dest) @Size)
		(abort #no-inst))

	(set @anzeige (cat "Copying "@FName" from "@SOURCE" \nto "@Dest))
	(copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
)

(Procedure Inst_PatternFiles
	(if (< (getdiskspace @Dest) @Size)
		(abort #no-inst))

	(set @anzeige (cat "Copying "@FName" from "@SOURCE" \nto "@Dest))
	(copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
)



(message #introduction)
(welcome)
(set old_level @user-level)

(complete 0)

(set @default-dest                       	; Verzeichnis aussuchen 
	(askdir
		(prompt #COPVERZ)
		(help	#askdir-help)
		(default "WORK:MMAGIC")
	)
)

(if                                      	; Verzeichnis erzeugen
	(= (exists @default-dest) 0)
	(makedir @default-dest)
)




(if
   (= (exists "C:MuchMore") 0)
	(copyfiles										; MuchMore kopieren
		(help @copyfiles-help)
		(source "C")
		(dest "C:")
   	(choices "MuchMore")
	)
)

(complete 10)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @Pattern "MM_Sounds")
	(set @Size #MaxonMSIZE)
	(Inst_PatternFiles)
)

(complete 20)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @Pattern "MM_SModule")
	(set @Size #MAGICSIZE)
	(Inst_PatternFiles)
)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @Pattern "MM_Effekte")
	(set @Size #MAGICSIZE)
	(Inst_PatternFiles)
)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @FName "Manual")
	(set @Size #MAGICSIZE)
	(Inst_NormFiles)

)


(complete 40)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @FName "MaxonMAGIC_Demo_Eng")
	(set @Size #MAGICSIZE)
	(Inst_NormFiles)
)



(complete 60)

(
	(set @Source "")
	(set @Dest @default-dest)
   (set @FName "MM_Prefs")
	(set @Size #MAGICSIZE)
	(Inst_NormFiles)

)



(complete 70)

(copylib											; RCT-LIB kopieren
	(prompt "Copying RCT-LIBRARY ...")
	(help
		"The RCT-Library is used because of its powerful filerequester. "
      "If you already have a version installed then this is a newer "
      "one.\n\n"
		@copyfiles-help
	)
	(source "libs/rct.library")
	(dest "Libs:")
	(confirm)
)

(complete 90)



(set changechoice 1)

(set changechoice
	(askchoice
		(prompt "\nDo you want to have MaxonMAGIC activated after system startup? "
              "This will change your file s:user-startup.")
		(help @askchoice-help)
		(choices "Yes" "No")
		(default 0)
	)
)


(set command1 "MaxonMAGIC_Demo_Eng")
	
(if (not changechoice)
	(
	; ------- STARTUP ÄNDERN
	
	
	(set command1 (tackon @default-dest "MaxonMAGIC_Demo_Eng"))
	
	(set command1.txt
		(cat 
		 	"\n\n\nYour user-startup has to be changed.\n\n"
		 	command1
		)
	)
	
	(startup "MaxonMAGIC_Demo.app"
		(prompt command1.txt)
		(help #help-startup)
		(command command1)
	)))

(complete 100)

; ------- FERTIG

(message (cat 
	"Installation complete.\n"
   "Now remove disk and reboot your computer. "))


(exit)

;=============================================================================