; ***********************************************
; *                                             *
; *      303 Emulator V2.x HD-Installer by      *
; *    Marinus Kuivenhoven/Jeroen Schellekens   *
; *                                             *
; *                   V1.1                      *
; *                                             *
; *    Thanks to Richard Körber for his nice    *
; *               example-script!               *
; *                                             *
; ***********************************************

;------------------------------------------------ Zet dingen

; ***************** Assign-text

(set AsName	"303emu2:")

; ***************** Files

(set ProgFile	"303emuV2.2")
(set GuideFile	"303emuV2.guide")
(set ReadmeFile	"Readme.txt")

; ***************** Dest-directories

(set DestDirName	"303emu2")

(set SubSystem  	"system")
(set SubParameters	"parameters")
(set SubSamples  	"samples")
(set SubScripts 	"scripts")
(set SubTempfiles	"tempfiles")

; ***************** Messages

(set IntroMsg
	(cat	"\n303emulator 2"
		"\n"
		"\nHi! Now you are going to install version 2.2"
		"\nof the 303emulator on your harddrive."
		"\n"
		"\nThe whole program requires about 2 Megabytes"
		"\nof free diskspace on your hardrive,"
		"\nincluding the example- and helpfiles."
	)
)


(set EndMsg
	(cat	"\nEverything has gone correctly!"
		"\nReset your computer to try 303emu2 out."
	)
)


(set AssignMsg
	(cat	"\nTo start-up the 303emulator properly,"
		"\nI have to make an Assign. Therefore"
                "\nI am going to change your User-startup."
	)
)

; ***************** Prompts

(set DestDirPrompt
	(cat	"Where do you want to install '303emu2'?"
		"\nA new directory will be created."
	)
)

(set CopyMainPrompt
	"Copying main program..."
)

(set CopyGuidePrompt
	"Copying guidefile..."
)

(set CopyReadmePrompt
	"Copying readme-file..."
)

(set CopyMiscPrompt
        "Copying files..."
)

(set AsPrompt
        "Adding things to your user-startup..."
)

; ***************** Help

(set DestDirHelp
	(cat	"\nHe dork! I am asking you where you want"
		"\nto put the program on your harddisk."
	)
)


(set AsHelp
	(cat	"\nIf I don't make an assign, the program will"
		"\nNOT work, so..."
	)
)

;------------------------------------------------ Hier begint het gezeik

; ***************** Introotje

(message IntroMsg)

; ***************** Vraag nieuwe dir

(set DestDir
	(askdir
	(prompt  DestDirPrompt)
	(help DestDirHelp)
	(default "Ram:")
	)
)

; ***************** Maak nieuwe dir

(set DestDir
	(tackon DestDir DestDirName)
)

(makedir
	(DestDir)
	(infos)
)

(set @default-dest (DestDir))

; ***************** Kopieer hoofdprogramma

(copyfiles
	(prompt CopyMainPrompt)
	(help @copyfiles-help)
	(source ProgFile)
	(dest DestDir)
        (infos)
)

; ***************** Kopieer guidefile

(copyfiles
	(prompt CopyGuidePrompt)
	(help @copyfiles-help)
	(source GuideFile)
	(dest DestDir)
        (infos)
)

; ***************** Kopieer readmefile

(copyfiles
	(prompt CopyReadmePrompt)
	(help @copyfiles-help)
	(source ReadmeFile)
	(dest DestDir)
        (infos)
)

; ***************** Onthoud basis-dir

(set BaseDir DestDir)

; ***************** Maak system-dir

(set DestDir
	(tackon BaseDir SubSystem)
)

(makedir
	(DestDir)
)

(set @default-dest (DestDir))

;****************** Kopieer system-dir

(copyfiles
	(prompt CopyMiscPrompt)
	(help @copyfiles-help)
	(source SubSystem)
	(dest DestDir)
	(files)
        (all)
)

; ***************** Maak parameters-dir

(set DestDir
	(tackon BaseDir SubParameters)
)

(makedir
	(DestDir)
)

(set @default-dest (DestDir))

; ***************** Kopieer parameters-dir

(copyfiles
	(prompt CopyMiscPrompt)
	(help @copyfiles-help)
	(source SubParameters)
	(dest DestDir)
	(files)
        (all)
)

; ***************** Maak samples-dir

(set DestDir
	(tackon BaseDir SubSamples)
)

(makedir
	(DestDir)
)

(set @default-dest (DestDir))

; ***************** Kopieer samples-dir

(copyfiles
	(prompt CopyMiscPrompt)
	(help @copyfiles-help)
	(source SubSamples)
	(dest DestDir)
	(files)
        (all)
)

; ***************** Maak scripts-dir

(set DestDir
	(tackon BaseDir SubScripts)
)

(makedir
	(DestDir)
)

(set @default-dest (DestDir))

; ***************** Kopieer scripts-dir

(copyfiles
	(prompt CopyMiscPrompt)
	(help @copyfiles-help)
	(source SubScripts)
	(dest DestDir)
	(files)
        (all)
)

; ***************** Maak tempfiles-dir

(set DestDir
	(tackon BaseDir SubTempfiles)
)

(makedir
	(DestDir)
)

(set @default-dest (DestDir))

; ***************** Zet dir weer zoals aan begin

(set @default-dest (BaseDir))

; ***************** Voeg assign toe aan user-startup

(message AssignMsg)

(startup AsName
	(prompt AsPrompt)
	(help AsHelp)
	(command
		"Assign 303emu2: \"" @default-dest "\"\n"
	)
)

; ***************** Eindbericht

(message EndMsg)

; ***************** Klaar!
;------------------------------------------------ Einde