; TurricaCDTV Install Script
; By Fabrizio "Lanch^DarkAge" Bartoloni
; $VER: Install 1.0 (23.02.99)

(if (< @installer-version 2818051)
	(abort "Sorry - this script requires Installer v43.3+")
)

	(set #prg_prompt "Please enter the destination directory for 'TurricanCDTV'.\nDrawer will be created."
		#prg_help "Sorry - No Help. :)"
		#prg_defdrawer "SYS:Tools/"
		#prg_katname "TurricanCDTV/"
	)

(procedure COPYFILE #file
	(copyfiles
		(source #file)
		(dest #prg_dest)
		(optional "force" "askuser")
		(infos)
	)
)

;------------- Main Part (y)

(complete 20)

(set #prg_defkat
	(askdir
		(prompt #prg_prompt)
		(help #prg_help)
		(default #prg_defdrawer)
	)
)

(complete 30)

(set #prg_dest (tackon #prg_defkat #prg_katname))
(makedir #prg_dest (infos))

(complete 40)

(COPYFILE "TurricanCDTV")
(COPYFILE "TurricanCDTV.info")
(COPYFILE "TurricanCDTV.doc")
(COPYFILE "TurricanCDTV.doc.info")
(COPYFILES
(SOURCE "CDTV:")
(PATTERN "#?")
(DEST #prg_dest)
(files)
)
(complete 100)
(set @default-dest #prg_dest)
(exit)