(onerror (CLEANUP))
(procedure CLEANUP
    ; Nothing to cleanup
    (delete "t:gfx2")
    (delete "t:gfx2.prefs")
    (delete "t:gfx1")
    (delete "t:gfx1.prefs")

) ; CLEANUP

(set @user-level 0)
(working "Looking for any TrashCan systems...")
(run "echo iD_temp_file_you_may_delete_this >sys:id_install_script")
(run "delete sys:id_install_script")
(if
	(= (exists "sys:trashcan/id_install_script") "1")
	(
        (cleanup)
		(run "delete sys:trashcan/id_install_script")
			(exit "\n\n\n\nDetected some Trashcan Manager\npatching Delete() function\n\nPlease turn it off and try again..." (quiet))
	)
)

(working "Please wait... InstallerFX preparing files.")

(run "copy installerfx/install1.gfx T:gfx1 QUIET")
(run "copy installerfx/install1.prefs T:gfx1.prefs QUIET")
(run "copy installerfx/install2.gfx T:gfx2 QUIET")
(run "copy installerfx/install2.prefs T:gfx2.prefs QUIET")

;(run "run installerfx/InstallerFX T:GFX1")
(run "run installerfx/InstallerFX T:GFX2")
(run "wait 2")
(set @user-level 0)
(message "\n\n\n\n"
	"Welcome to Emax Image Descriptor 1.0\n"
	"------------------------------------\n\n"
	 "Programmed by Tomasz Malerczyk\n(c)1998 Emax SC.\n\n"
	 "This install script use InstallerFX by TRIUMPH\n\n"
	 "Do you wish to proceed?"

)


;(welcome #install-msg)

(set @user-level 2)
(set #imie
(askstring
	(prompt "\n\nEmax Image Descriptor - Owner Information\nPlease enter your name :")
    (help   @askstring-help)
	(default "")
)
)

(run "delete S:.owner QUIET FORCE")
(run "echo" #imie ">S:.owner .")

;   icon type
;	------
(set #icon
	(askchoice
		(prompt "\nPlease select Icons style")
		(help	@askchoice-help)
		(choices
		   "Standard"
		   "MagicWB"
		   "NewIcons"
		   "Iconographics"
		)
	)
)
(set #doc-type
	(askchoice
		(prompt "\nPlease select Docs type.")
		(help	@askchoice-help)
		(choices
			"Normal text file"
			"Amiga Guide document"
		)
	)
)
(set #defnote
	(askchoice
		(prompt "Do You want to install '.DefNote' file.\nThis file will be copied into your S: drawer")
		(help	@askchoice-help)
		(choices
		   "Yes"
		   "No"
		)
	)
)

;	main program drawer
;	-------------------
(set #dest
(askdir
	(prompt ("Please select drawer for %s main program.\n" @app-name))
	(help @askdir-help)
	(default "Utilities:")
	(disk)
)
)

;	doc drawer
;	----------
(set #doc_dest
(askdir
	(prompt "Please select drawer for doc files.")
	(help @askdir-help)
	(default "HELP:")
	(disk "sys:")
)
)

;	preparing place for software
;	----------------------------
(set #del_file (tackon #dest "ID"))
(delete #del_file)
(set #del_file (tackon #dest "ID.info"))
(delete #del_file)

(set #del_file (tackon #doc_dest "imagedescriptor.guide"))
(delete #del_file)
(set #del_file (tackon #doc_dest "imagedescriptor.guide.info"))
(delete #del_file)

(set #del_file (tackon #doc_dest "imagedescriptor.txt"))
(delete #del_file)
(set #del_file (tackon #doc_dest "imagedescriptor.txt.info"))
(delete #del_file)

;	copying main program
;	--------------------
(copyfiles
	(help)
	(source "Program/ID")
	(dest #dest)
	(infos #dest)
)

(complete 64)
;	copying .guide or .txt doc files
;	--------------------------------
(if
	(= #doc-type "1")
	(
		(copyfiles
			(help)
			(source "program/id.guide")
			(dest #doc_dest)
			(newname "ID.Guide")
			(infos)
		)
	)
)
(if
	(= #doc-type "0")
	(
		(copyfiles
			(help)
			(source "program/id.txt")
			(dest #doc_dest)
			(newname "ID.Txt")
			(infos)
		)
	)
)

;	copying .defnote file
(if
	(= #defnote "0")
	(
		(copyfiles
			(help @copyfiles-help)
			(source "program/.DefNote")
			(dest "S:")
			(infos)
        )
	)
)

(if
	(= #icon "0")
    (
       	(copyfiles
			(help @copyfiles-help)
			(source "Icons/id(nor).info")
			(dest #dest)
			(newname "ID.info")
			(infos)
		)
		(if
			(= #doc-type "0")
            (
				(copyfiles
					(help @copyfiles-help)
					(source "Icons/id(nor).guide.info")
                    (dest #dest)
					(newname "ID.txt.info")
                    (infos)
				)
			)
		)
		(if
			(= #doc-type "1")
			(
				(copyfiles
					(help @copyfiles-help)
					(source "Icons/id(nor).guide.info")
					(dest #dest)
					(newname "ID.guide.info")
					(infos)
				)
			)
		)
	)
)
(if
	(= #icon "1")
    (
       	(copyfiles
			(help @copyfiles-help)
			(source "Icons/id(mwb).info")
			(dest #dest)
			(newname "ID.info")
			(infos)
		)
		(if
			(= #doc-type "0")
            (
				(copyfiles
					(help @copyfiles-help)
					(source "Icons/id(mwb).guide.info")
                    (dest #dest)
					(newname "ID.txt.info")
                    (infos)
				)
			)
		)
		(if
			(= #doc-type "1")
			(
				(copyfiles
					(help @copyfiles-help)
					(source "Icons/id(mwb).guide.info")
					(dest #dest)
					(newname "ID.guide.info")
					(infos)
				)
			)
		)
	)
)
(if
	(= #icon "2")
    (
       	(copyfiles
			(help @copyfiles-help)
			(source "Icons/id(new).info")
			(dest #dest)
			(newname "ID.info")
			(infos)
		)
		(if
			(= #doc-type "0")
            (
				(copyfiles
					(help @copyfiles-help)
					(source "Icons/id(new).guide.info")
                    (dest #dest)
					(newname "ID.txt.info")
                    (infos)
				)
			)
		)
		(if
			(= #doc-type "1")
			(
				(copyfiles
					(help @copyfiles-help)
					(source "Icons/id(new).guide.info")
					(dest #dest)
					(newname "ID.guide.info")
					(infos)
				)
			)
		)
	)
)
(if
	(= #icon "3")
    (
       	(copyfiles
			(help @copyfiles-help)
			(source "Icons/id(ico).info")
			(dest #dest)
			(newname "ID.info")
			(infos)
		)
		(if
			(= #doc-type "0")
            (
				(copyfiles
					(help @copyfiles-help)
					(source "Icons/id(ico).guide.info")
                    (dest #dest)
					(newname "ID.txt.info")
                    (infos)
				)
			)
		)
		(if
			(= #doc-type "1")
			(
				(copyfiles
					(help @copyfiles-help)
					(source "Icons/id(ico).guide.info")
					(dest #dest)
					(newname "ID.guide.info")
					(infos)
				)
			)
		)
	)
)

(cleanup)
(exit "\n\n\n\n\n\nThank you for choosing Image Descriptor\nHope you enjoy it." (quiet))
(welcome "pp")