;$VER: AsimCDFS Extended Icons (10.6.96) 
;Copyright ©1996 Asimware Innovations Inc.

(onerror (
	(makeassign "AsimCDFS_Dest")
	(makeassign "AsimCDFS_Icons")
))



(makeassign "AsimCDFS_Icons" "AsimCDFS_Icons")

(set #theirlevel @user-level )
(set @default-dest "AsimCDFS:")

(complete 0)


;  **********************************************************************
;  Tell About Extended icons
;  **********************************************************************
(user 2)
(message (cat	"NewIcons and MagicWB\n"
					"-------------------------\n"
					"This installation script will update your AsimCDFS utilities "
					"with our NewIcon and MagicWB icon sets.\n\n"
					"This installation script will expect the AsimCDFS utilities to " 
					"be in their default places:  ie. the AsimCDFS: directory and the "
					"AsimCDFS_Buffer: directory.  If you have manually moved the files "
					"from these places, you will also have to manually install this "
					"extended icon set.")
)


(message (cat	"ToolType Warning\n"
					"---------------------\n"
					"Please note that this installation script does not preserve any custom icon tooltypes.\n\n\n"
					"Are you sure that you would like to proceed with this installation?"
					)
)
(user #theirlevel)



;  **********************************************************************
;  Ask for AsimCDFS:
;  **********************************************************************
(set #AsimCDFS
	(askdir
		(prompt "Specify the directory in which the AsimCDFS support programs were placed:" )
		(help "AsimCDFS contains a number of support programs.  Please specify the directory in which you previously installed these files.")
		(default "AsimCDFS:")
		(newpath)
	)
)
(makeassign "AsimCDFS_Dest" #AsimCDFS)



;  **********************************************************************
;  Get CD0 device
;  **********************************************************************
(user 2)
(set #CDDev
	(askstring
		(prompt "What is the AmigaDOS name of your CD-ROM drive?" )
		(help "Please specify the name of your CD-ROM drive.  By default, AsimCDFS will set it to CD0:")
		(default "CD0:")
	)
)
(user #theirlevel)





;  **********************************************************************
;  Copy over files to the ENVARC:AsimCDFS directory
;  **********************************************************************
(copyfiles
	(prompt "\n\nCopying extended icons to the ENVARC:AsimCDFS "
			  "directory.\n" )
	(source "AsimCDFS_Icons:ENVARC/AsimCDFS")
	(dest "ENVARC:AsimCDFS")
	(infos)
	(all)
	(help "\n\nThis will copy over extended icon files to the ENVARC:AsimCDFS directory.")
	(confirm)
)


;  **********************************************************************
;  Copy over AsimCDFS_Prefs info
;  **********************************************************************
(copyfiles
	(prompt "\n\nCopying AsimCDFS_Prefs icon\n" )
	(source "AsimCDFS_Icons:AsimCDFS_Prefs.info")
	(dest "AsimCDFS_Dest:")
	(help "\n\nThis will copy over extended icon files to your AsimCDFS directory.")
	(confirm)
)


;  **********************************************************************
;  Copy over AsimTunes info
;  **********************************************************************
(copyfiles
	(prompt "\n\nCopying AsimTunes icon\n" )
	(source "AsimCDFS_Icons:AsimTunes.info")
	(dest "AsimCDFS_Dest:")
	(help "\n\nThis will copy over extended icon files to your AsimCDFS directory.")
	(confirm)
)
(tooltype
	(dest "AsimCDFS_Dest:AsimTunes")
	(settooltype "CDROM" #CDDev)
	(noposition)
)


;  **********************************************************************
;  Copy over DiscChanger info
;  **********************************************************************
(copyfiles
	(prompt "\n\nCopying DiscChanger icon\n" )
	(source "AsimCDFS_Icons:DiscChanger.info")
	(dest "AsimCDFS_Dest:")
	(help "\n\nThis will copy over extended icon files to your AsimCDFS directory.")
	(confirm)
)
(tooltype
	(dest "AsimCDFS_Dest:DiscChanger")
	(settooltype "CDROM" #CDDev)
	(noposition)
)


;  **********************************************************************
;  Copy over SimBoot info
;  **********************************************************************
(copyfiles
	(prompt "\n\nCopying SimBoot icon\n" )
	(source "AsimCDFS_Icons:SimBoot.info")
	(dest "AsimCDFS_Dest:")
	(help "\n\nThis will copy over extended icon files to your AsimCDFS directory.")
	(confirm)
)


;  **********************************************************************
;  Copy over CDTV_Prefs info
;  **********************************************************************
(copyfiles
	(prompt "\n\nCopying CDTV_Prefs icon\n" )
	(source "AsimCDFS_Icons:CDTV_Prefs.info")
	(dest "AsimCDFS_Dest:")
	(help "\n\nThis will copy over extended icon files to your AsimCDFS directory.")
	(confirm)
)


;  **********************************************************************
;  Copy over CD³²_Prefs info
;  **********************************************************************
(copyfiles
	(prompt "\n\nCopying CD³²_Prefs icon\n" )
	(source "AsimCDFS_Icons:CD³²_Prefs.info")
	(dest "AsimCDFS_Dest:")
	(help "\n\nThis will copy over extended icon files to your AsimCDFS directory.")
	(confirm)
)



;  **********************************************************************
;  Delete all audio icons
;  **********************************************************************
(foreach "AsimCDFS_Buffer:Audio/" "#?" (
	(set #ThisDir @each-name)
	(foreach (cat "AsimCDFS_Buffer:Audio/" #ThisDir) "#?"
		(delete (cat "AsimCDFS_Buffer:Audio/" #ThisDir "/" @each-name)
			(optional "force")
			(help "\n\nThis step will delete the old icons in the AsimCDFS_Buffer:Audio directory")
			(prompt "Deleting old Audio icons...")
		)
	)
))



;  **********************************************************************
;  Delete all PhotoCD disk and drawer icons
;  **********************************************************************
(foreach "AsimCDFS_Buffer:PhotoCDIcon_Buffer/" "#?" (
	(set #ThisDir @each-name)
	(foreach (cat "AsimCDFS_Buffer:PhotoCDIcon_Buffer/" #ThisDir) "(Disk.info|192x128.info|384x256.info|768x512.info|1536x1024.info|3072x2048.info)"
		(delete (cat "AsimCDFS_Buffer:PhotoCDIcon_Buffer/" #ThisDir "/" @each-name)
			(optional "force")
			(help "\n\nThis step will delete the old icons in the AsimCDFS_Buffer:PhotoCDIcon_Buffer directory")
			(prompt "Deleting old PhotoCD icons...")
		))
))



;  **********************************************************************
;  Tell about other installation items
;  **********************************************************************
(user 2)
(message (cat	"Installation Complete\n"
					"-----------------------\n"
					"Your AsimCDFS utilities have now been updated with the new "
					"MagicWB and NewIcons icon sets.  Complete this installation "
					"routine, wait for a few seconds and then reboot your Amiga.  "
					"The icons will then be loaded into your system.")
)
(user #theirlevel)



;  **********************************************************************
;  remove assign to AsimCDFS_Icons, etc.
;  **********************************************************************
(makeassign "AsimCDFS_Dest")
(makeassign "AsimCDFS_Icons")


(complete 100)