;
;  Sub Titler HD Install script
;

(set @default-dest "Work:")	


(welcome (message "\n\n\n\nThis script will help you install\nthe SubTitler to your hard disk.\nJust follow the instructions.\n\nIf you don't have Hard Disk then copy \nall files to a disk and just boot from it.\nMake sure you also have diskfont.library\nand reqtools.library in libs: on that disk!")
)

(complete 0)
(set dest2 (askdir  (prompt "Select the location to install the SubTitler.\nA drawer will be created there\nand all needed files are copied into it."
                    )
						(default @default-dest)
                    	(help "C'mon...just select where to copy SubTitler!")
           )
)

(set dest1 (tackon dest2 "SubTitlerDemo"))

(if (<> (exists dest1) 2) (makedir dest1 (infos)))
(if (<> (exists (tackon dest1 "/Titles")) 2) (makedir (tackon dest1 "Titles")))
(if (<> (exists (tackon dest1 "/Titles/Backup")) 2) (makedir (tackon dest1 "Titles/Backup")))


(set @default-dest dest1)	

 
(complete 10)
	(copyfiles
		; main program
		(help @copyfiles-help)
		(source "SubTitler")
                (dest dest1)
		(files)
                (infos)
	)

(complete 20)
	(copyfiles
		; Docs
		(help @copyfiles-help)
		(source "SubTitler.Doc")
                (dest dest1)
		(files)
                (infos)
	)

(complete 30)
	(copyfiles
		; Readme
		(help @copyfiles-help)
		(source "ReadMeFirst")
                (dest dest1)
		(files)
                (infos)
	)


(complete 35)
	(copyfiles
		; history
		(help @copyfiles-help)
		(source "History.txt")
                (dest dest1)
		(files)
                (infos)
	)

(complete 40)
	(copyfiles
		(help @copyfiles-help)
		(source "Titles")
                (dest (tackon dest1 "Titles"))
		(all)
		(files)
	)

(complete 50)
	(copyfiles
		(help @copyfiles-help)
		(source "Gfx")
                (dest (tackon dest1 "Gfx"))
		(all)
		(files)
	)


(complete 70)
        (copyfiles
		(Prompt "About to install SubTitler fonts to Fonts:")
		(source "Fonts")
		(help "Some fine antialiased fonts come with SubTitler, I suggest you to select proceed to install them, otherwise the output of the SubTitler may not be as good as I desigend it to be.")
                (dest "Fonts:")
		(all)
                (confirm)
	)
   (complete 100)
(exit "\n\n\nBe sure to read the docs\nto get the most out of SubTitler!")