(set is_update 0)
(complete 0)

(set AG_dest
	(askdir
		(prompt "In which disk or drawer should Audio Gallery be installed?")
		(help "The installation utility will create a drawer named "
			"\"AGDemo\" in this directory.  All \"Audio Gallery\" "
			"files will be placed inside that directory. \n\n"
			" Tip for advanced users:\n "
			"  \"Audio Gallery\" may be moved to another directory as long as "
			" the sub-directories:\n"
			"   icons, alphs, pictures, sounds, and fonts\n"
			" are moved (as subdirectories) to the program's new location")
		(default @default-dest)
	)
)

; the GalleryDemo program is a sign that Audio Gallery is already installed here
(if (exists (tackon AG_dest "GalleryDemo"))
	(set is_update 1)
)

(set disk_space (getdiskspace AG_dest))

(if (AND (< disk_space 700000) (NOT is_update))
  (
	(set answer1
		(askbool
			(prompt "There may not be enough room available on "
				"this drive to install \"Audio Gallery\".  Do you "
				"wish to continue?")
			(help "Final Copy needs approximately .7 Megabytes of "
				"disk space for a full installation.  If Audio Gallery "
				"is already installed on this partition, "
                                " you may wish to continue.  Otherwise, "
				"press ABORT or NO now and either free some space on this "
				"partition or select a different partition for the "
				"installation.")
		)
	)
	(if (NOT answer1)
		(if (= @user-level 0)
			(abort "Audio Gallery needs approximately 700000 Kilobytes of "
				"disk space for a full installation. The Volume \""
				@default-dest
				"\" does not have enough space available. You may override this "
				"warning in Intermediate or Expert mode.")
			(abort "Audio Gallery installation cancelled.")
		)
	)
  )
)

; get the program disk
;(askdisk
;	(prompt "Please insert the disk labeled \"AGProgram_II\"" )
;	(help	"The Audio Gallery program will be copied "
;			"to your system." )
;	(dest "AGDemo" )
;)

; Make dest directory with icon
(makedir (tackon AG_dest "AGDemo") (infos))

; now, we want everything to be copied into this sub-dir
(set AG_dest (tackon AG_dest "AGDemo"))
(set @default-dest AG_dest)

;copy the Audio Gallery drawer over
(copyfiles
	(source "")
	(dest AG_dest) (pattern "#?") (infos)
)

;copy the More program to the hard drive so everyone is
;guaranteed to have it.
(copyfiles
	(source "More")
	(dest AG_dest)
)

;(tackon AG_dest "AGSpell")

(complete 20)

; Check if we are running 2.0
; NEED THIS for compressed versions
;(if (< (/ (getversion) 65536) 37)
;	(	; get system 1.3 disk
;		(askdisk
;			(prompt "Please insert the disk labeled \"AGSystem_1.3\""  )
;			(help	"The Final Copy program and other tools will be copied "
;					"from the \"" sys_disk "\" Disk on to your system." )
;			(dest "AGSystem_1.3")
;		)
;		(copyfiles
;			(source "AGSystem_1.3:")
;			(dest AG_dest) (pattern "AG#?") (infos)
;		)
;	)
;	(	; get system 2.0 disk
;		(askdisk
;			(prompt "Please insert the disk labeled \"AGSystem_2.0\""  )
;			(help	"The Final Copy program and other tools will be copied "
;					"from the \"" sys_disk "\" Disk on to your system." )
;			(dest "AGSystem_2.0")
;		)
;		(copyfiles
;			(source "AGSystem_2.0:")
;			(dest AG_dest) (pattern "AG#?") (infos)
;		)
;	)
;)

;makeassign JapaneseGallery AGDemo

(complete 40)

(complete 100)

(exit)