; Installation script for TrapPrefs

(set @user-level 2)

(transcript "Applying TrapPrefs v1.3a Patch...")

(set destdir
        (askdir
                (prompt "Where is your copy of TrapPrefs v1.3?")
                (help @askdir-help)
                (default "SYS:Prefs")
        )
)

( if (= (exists (tackon destdir "TrapPrefs") (noreq)) 1)
    (
		(run "spatch -pTrapPrefs.pch " (tackon destdir "TrapPrefs"))
		(rename (tackon destdir "TrapPrefs") (tackon destdir "TrapPrefs.old"))
	    (copyfiles
	        (source "TrapPrefs.new")
	        (dest destdir)
			(newname "TrapPrefs")
		)
		(set delold
	        (askbool
	                (prompt "Do you want my to delete the old version?\n"
	                        "If you select NO, the old version can be\n"
	                        "found in the same directory as the new one\n"
	                        "but will have been renamed TrapPrefs.old")
	                (help "It's up to YOU.")
	                (choices "Yes" "No")
	                (default 0)              ; 0 = no
	        )
		)
		(if (= delold 1)
			( delete (tackon destdir "TrapPrefs.old"))
	    )
	)
)

(set @default-dest destdir)

(exit)