; $VER: AminetHDFind 1.0 (8.4.96)
;
; Install-Script & AminetHDFind Copyright ©1996 Thomas Kessler
; All rights reserved.
; Feel free to contact me via email at kessler@fim.uni-erlangen.de
;
; Aminet® CD Compilation Copyright ©1994-96 Urban Dominik Müller
; All rights reserved.

(set old-level @user-level)
(user 2)
(complete 0)

(message "\nAminetHDFind 1.0 Installation\n\n"
	"This script copies the necessary files from\n"
	"your Aminet CDs (3-10) to your harddisk.\n"
	"(all CDs together will need about 4.5MB)\n\n"
	"Install-Script 1.0 ©1996 Thomas Kessler\nAll rights reserved.\n\n"
	"Aminet® Compilation ©1994-96 Urban Dominik Müller\nAll rights reserved.")
(complete 1)

(set #hdfinddir
	(askdir
		(prompt "Choose a destination-directory on your harddisk.\n"
			"A new drawer for AminetHDFind will be created there.")
		(help @askdir-help)
		(default "Work:")))
(complete 5)

(set @default-dest (tackon #hdfinddir "AminetHDFind"))
(makedir @default-dest (prompt "Creating dir") (help "n/a") (safe))

(copyfiles
	(prompt "Copy...")
	(help "n/a")
	(source "AminetHDFind-Data/AminetHDFind.noinfo")
	(dest #hdfinddir)
	(newname "AminetHDFind.info"))
(complete 10)

(if
	(askbool
		(prompt "\n\nCopy files from CD 3 (AMINET_0794)?\n\n\n"
			"Insert your CD now or continue with next CD.")
		(help "Insert your CD now or continue with next CD.")
		(choices "Copy files from CD" "Skip this CD")
		(default 1)
	)
	(
		(makedir (tackon @default-dest "AMINET_0794") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET_0794") "Docs") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET_0794") "Tools") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon (tackon @default-dest "AMINET_0794") "Tools") "Libs") (prompt "Creating dir") (help "n/a") (safe))
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET_0794:Find")
			(dest (tackon @default-dest "AMINET_0794"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET_0794:Docs/Index_Dir.doc")
			(dest (tackon (tackon @default-dest "AMINET_0794") "Docs"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET_0794:Tools/Libs/amigaguide.library")
			(dest (tackon (tackon (tackon @default-dest "AMINET_0794") "Tools") "Libs"))
		)
		(textfile
			(prompt "Textfile...")
			(help "n/a")
			(dest	(tackon @default-dest "Find_AMINET3"))
			(append
				'.KEY CDNAME\n'
				'.DEF CDNAME "AMINET_0794"\n'
				'FailAt 21\n'
				'C:Assign VOLS >T:<CDNAME>.exists\n'
				'C:Search FROM T:<CDNAME>.exists SEARCH "<CDNAME> [Mounted]" >NIL:\n'
				'IF WARN\n'
				' C:Assign <CDNAME>: <CDNAME>\n'
				'ENDIF\n'
				'<CDNAME>:Find\n'
				'C:Delete >NIL: T:<CDNAME>.#? ALL FORCE\n')
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AminetHDFind-Data/Find.noinfo")
			(dest @default-dest)
			(newname "Find_AMINET3.info")
		)
	)
)
(complete 20)

(if
	(askbool
		(prompt "\n\nCopy files from CD 4 (AMINET4)?\n\n\n"
			"Insert your CD now or continue with next CD.")
		(help "Insert your CD now or continue with next CD.")
		(choices "Copy files from CD" "Skip this CD")
		(default 1)
	)
	(
		(makedir (tackon @default-dest "AMINET4") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET4") "Lists") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET4") "Tools") (prompt "Creating dir") (help "n/a") (safe))
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET4:Find")
			(dest (tackon @default-dest "AMINET4"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET4:Lists/Index_Dir.doc")
			(dest (tackon (tackon @default-dest "AMINET4") "Lists"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET4:Tools/Find")
			(dest (tackon (tackon @default-dest "AMINET4") "Tools"))
		)
		(textfile
			(prompt "Textfile...")
			(help "n/a")
			(dest	(tackon @default-dest "Find_AMINET4"))
			(append
				'.KEY CDNAME\n'
				'.DEF CDNAME "AMINET4"\n'
				'FailAt 21\n'
				'C:Assign VOLS >T:<CDNAME>.exists\n'
				'C:Search FROM T:<CDNAME>.exists SEARCH "<CDNAME> [Mounted]" >NIL:\n'
				'IF WARN\n'
				' C:Assign <CDNAME>: <CDNAME>\n'
				'ENDIF\n'
				'<CDNAME>:Find\n'
				'C:Delete >NIL: T:<CDNAME>.#? ALL FORCE\n')
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AminetHDFind-Data/Find.noinfo")
			(dest @default-dest)
			(newname "Find_AMINET4.info")
		)
	)
)
(complete 30)

(if
	(askbool
		(prompt "\n\nCopy files from CD 5 (AMINET5)?\n\n\n"
			"Insert your CD now or continue with next CD.")
		(help "Insert your CD now or continue with next CD.")
		(choices "Copy files from CD" "Skip this CD")
		(default 1)
	)
	(
		(makedir (tackon @default-dest "AMINET5") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET5") "Lists") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET5") "Tools") (prompt "Creating dir") (help "n/a") (safe))
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET5:Find")
			(dest (tackon @default-dest "AMINET5"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET5:Lists")
			(choices "Index_Dir.doc" "Index_Dir.accel")
			(dest (tackon (tackon @default-dest "AMINET5") "Lists"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET5:Tools/Find")
			(dest (tackon (tackon @default-dest "AMINET5") "Tools"))
		)
		(textfile
			(prompt "Textfile...")
			(help "n/a")
			(dest	(tackon @default-dest "Find_AMINET5"))
			(append
				'.KEY CDNAME\n'
				'.DEF CDNAME "AMINET5"\n'
				'FailAt 21\n'
				'C:Assign VOLS >T:<CDNAME>.exists\n'
				'C:Search FROM T:<CDNAME>.exists SEARCH "<CDNAME> [Mounted]" >NIL:\n'
				'IF WARN\n'
				' C:Assign <CDNAME>: <CDNAME>\n'
				'ENDIF\n'
				'<CDNAME>:Find\n'
				'C:Delete >NIL: T:<CDNAME>.#? ALL FORCE\n')
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AminetHDFind-Data/Find.noinfo")
			(dest @default-dest)
			(newname "Find_AMINET5.info")
		)
	)
)
(complete 40)

(if
	(askbool
		(prompt "\n\nCopy files from CD 6 (AMINET6)?\n\n\n"
			"Insert your CD now or continue with next CD.")
		(help "Insert your CD now or continue with next CD.")
		(choices "Copy files from CD" "Skip this CD")
		(default 1)
	)
	(
		(makedir (tackon @default-dest "AMINET6") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET6") "Lists") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET6") "Tools") (prompt "Creating dir") (help "n/a") (safe))
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET6:Find")
			(dest (tackon @default-dest "AMINET6"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET6:Lists")
			(choices "Index_Dir.doc" "Index_Dir.accel")
			(dest (tackon (tackon @default-dest "AMINET6") "Lists"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET6:Tools/Find")
			(dest (tackon (tackon @default-dest "AMINET6") "Tools"))
		)
		(textfile
			(prompt "Textfile...")
			(help "n/a")
			(dest	(tackon @default-dest "Find_AMINET6"))
			(append
				'.KEY CDNAME\n'
				'.DEF CDNAME "AMINET6"\n'
				'FailAt 21\n'
				'C:Assign VOLS >T:<CDNAME>.exists\n'
				'C:Search FROM T:<CDNAME>.exists SEARCH "<CDNAME> [Mounted]" >NIL:\n'
				'IF WARN\n'
				' C:Assign <CDNAME>: <CDNAME>\n'
				'ENDIF\n'
				'<CDNAME>:Find\n'
				'C:Delete >NIL: T:<CDNAME>.#? ALL FORCE\n')
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AminetHDFind-Data/Find.noinfo")
			(dest @default-dest)
			(newname "Find_AMINET6.info")
		)
	)
)
(complete 50)

(if
	(askbool
		(prompt "\n\nCopy files from CD 7 (AMINET7)?\n\n\n"
			"Insert your CD now or continue with next CD.")
		(help "Insert your CD now or continue with next CD.")
		(choices "Copy files from CD" "Skip this CD")
		(default 1)
	)
	(
		(makedir (tackon @default-dest "AMINET7") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET7") "Lists") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET7") "Tools") (prompt "Creating dir") (help "n/a") (safe))
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET7:Find")
			(dest (tackon @default-dest "AMINET7"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET7:Lists")
			(choices "Index_Dir.doc" "Index_Dir.accel")
			(dest (tackon (tackon @default-dest "AMINET7") "Lists"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET7:Tools/Find")
			(dest (tackon (tackon @default-dest "AMINET7") "Tools"))
		)
		(textfile
			(prompt "Textfile...")
			(help "n/a")
			(dest	(tackon @default-dest "Find_AMINET7"))
			(append
				'.KEY CDNAME\n'
				'.DEF CDNAME "AMINET7"\n'
				'FailAt 21\n'
				'C:Assign VOLS >T:<CDNAME>.exists\n'
				'C:Search FROM T:<CDNAME>.exists SEARCH "<CDNAME> [Mounted]" >NIL:\n'
				'IF WARN\n'
				' C:Assign <CDNAME>: <CDNAME>\n'
				'ENDIF\n'
				'<CDNAME>:Find\n'
				'C:Delete >NIL: T:<CDNAME>.#? ALL FORCE\n')
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AminetHDFind-Data/Find.noinfo")
			(dest @default-dest)
			(newname "Find_AMINET7.info")
		)
	)
)
(complete 60)

(if
	(askbool
		(prompt "\n\nCopy files from CD 8 (AMINET8)?\n\n\n"
			"Insert your CD now or continue with next CD.")
		(help "Insert your CD now or continue with next CD.")
		(choices "Copy files from CD" "Skip this CD")
		(default 1)
	)
	(
		(makedir (tackon @default-dest "AMINET8") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET8") "Lists") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET8") "Tools") (prompt "Creating dir") (help "n/a") (safe))
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET8:Find")
			(dest (tackon @default-dest "AMINET8"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET8:Lists")
			(choices "Index_Dir.doc" "Index_Dir.accel")
			(dest (tackon (tackon @default-dest "AMINET8") "Lists"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET8:Tools/Find")
			(dest (tackon (tackon @default-dest "AMINET8") "Tools"))
		)
		(textfile
			(prompt "Textfile...")
			(help "n/a")
			(dest	(tackon @default-dest "Find_AMINET8"))
			(append
				'.KEY CDNAME\n'
				'.DEF CDNAME "AMINET8"\n'
				'FailAt 21\n'
				'C:Assign VOLS >T:<CDNAME>.exists\n'
				'C:Search FROM T:<CDNAME>.exists SEARCH "<CDNAME> [Mounted]" >NIL:\n'
				'IF WARN\n'
				' C:Assign <CDNAME>: <CDNAME>\n'
				'ENDIF\n'
				'<CDNAME>:Find\n'
				'C:Delete >NIL: T:<CDNAME>.#? ALL FORCE\n')
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AminetHDFind-Data/Find.noinfo")
			(dest @default-dest)
			(newname "Find_AMINET8.info")
		)
	)
)
(complete 70)

(if
	(askbool
		(prompt "\n\nCopy files from CD 9 (AMINET9)?\n\n\n"
			"Insert your CD now or continue with next CD.")
		(help "Insert your CD now or continue with next CD.")
		(choices "Copy files from CD" "Skip this CD")
		(default 1)
	)
	(
		(makedir (tackon @default-dest "AMINET9") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET9") "Lists") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET9") "Tools") (prompt "Creating dir") (help "n/a") (safe))
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET9:Find")
			(dest (tackon @default-dest "AMINET9"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET9:Lists")
			(choices "Index_Dir.doc" "Index_Dir.accel")
			(dest (tackon (tackon @default-dest "AMINET9") "Lists"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET9:Tools/Find")
			(dest (tackon (tackon @default-dest "AMINET9") "Tools"))
		)
		(textfile
			(prompt "Textfile...")
			(help "n/a")
			(dest	(tackon @default-dest "Find_AMINET9"))
			(append
				'.KEY CDNAME\n'
				'.DEF CDNAME "AMINET9"\n'
				'FailAt 21\n'
				'C:Assign VOLS >T:<CDNAME>.exists\n'
				'C:Search FROM T:<CDNAME>.exists SEARCH "<CDNAME> [Mounted]" >NIL:\n'
				'IF WARN\n'
				' C:Assign <CDNAME>: <CDNAME>\n'
				'ENDIF\n'
				'<CDNAME>:Find\n'
				'C:Delete >NIL: T:<CDNAME>.#? ALL FORCE\n')
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AminetHDFind-Data/Find.noinfo")
			(dest @default-dest)
			(newname "Find_AMINET9.info")
		)
	)
)
(complete 80)

(if
	(askbool
		(prompt "\n\nCopy files from CD 10 (AMINET10)?\n\n\n"
			"Insert your CD now or continue with next CD.")
		(help "Insert your CD now or continue with next CD.")
		(choices "Copy files from CD" "Skip this CD")
		(default 1)
	)
	(
		(makedir (tackon @default-dest "AMINET10") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET10") "Lists") (prompt "Creating dir") (help "n/a") (safe))
		(makedir (tackon (tackon @default-dest "AMINET10") "Tools") (prompt "Creating dir") (help "n/a") (safe))

		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET10:Find")
			(dest (tackon @default-dest "AMINET10"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET10:Lists")
			(choices "Index_Dir.doc" "Index_Dir.accel")
			(dest (tackon (tackon @default-dest "AMINET10") "Lists"))
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AMINET10:Tools/Find")
			(dest (tackon (tackon @default-dest "AMINET10") "Tools"))
		)
		(textfile
			(prompt "Textfile...")
			(help "n/a")
			(dest	(tackon @default-dest "Find_AMINET10"))
			(append
				'.KEY CDNAME\n'
				'.DEF CDNAME "AMINET10"\n'
				'FailAt 21\n'
				'C:Assign VOLS >T:<CDNAME>.exists\n'
				'C:Search FROM T:<CDNAME>.exists SEARCH "<CDNAME> [Mounted]" >NIL:\n'
				'IF WARN\n'
				' C:Assign <CDNAME>: <CDNAME>\n'
				'ENDIF\n'
				'<CDNAME>:Find\n'
				'C:Delete >NIL: T:<CDNAME>.#? ALL FORCE\n')
		)
		(copyfiles
			(prompt "Copy...")
			(help "n/a")
			(source "AminetHDFind-Data/Find.noinfo")
			(dest @default-dest)
			(newname "Find_AMINET10.info")
		)
	)
)
(complete 100)
(user old-level)
(exit "\n\nRemove all CDs now.")
(welcome "")