;  *** Plumb! installation scipt ***

(set #ask-plumb1
(cat "\n\nPlease insert Plumb installation disk #1 in any drive."))

(set #ask-plumb2
(cat "\n\nPlease insert Plumb installation disk #2 in any drive."))


(set #install-msg (cat  "\n\nPlumb 1.0 by Session.\n"
			"\n"
                        "This script installs Plumb to your HD.\n\n"
                        "Plumb is our contribution to the\n"
                        "GATHERING '96\n"
                        "held during Easter.\n\n"
                        "\n"
                        "Infant/Session^New Age")
)

(message #install-msg)

(welcome "Welcome to the Plumb installation!")

(set mydest (askdir (prompt "Where shall I install the demo ?\n(No drawer will be created)")
                    (help @askdir-help)
                    (default "Work:")
                    (disk)
          )
)

((copyfiles
	(prompt "Copying (de)archiver to RAM:")
	(source "Plumb_1:LZX")
	(dest	"RAM:")
	(safe)))

(askdisk
	(prompt #ask-plumb1)
	(help @askdisk-help)
	(dest "Plumb_1"))

(message "\nUnpacking data to " mydest)

(makeassign "Plumb" (cat "" mydest))

(RUN "RAM:LZX x Plumb_1:ssn-plumb1 Plumb:")

(makeassign "Plumb")

(askdisk
	(prompt #ask-plumb2)
	(help @askdisk-help)
	(dest "Plumb_2"))

(message "\nUnpacking data to " mydest)

(makeassign "Plumb" (cat "" mydest))

(RUN "RAM:LZX x Plumb_2:ssn-plumb2 Plumb:")

(makeassign "Plumb")

(message "\nRemoving (de)archiver from RAM")

(delete "RAM:LZX")