; Engaged Version 1.01 Installation Script
; ©1995 Imperial Software

(set @default-dest "DH0:Engaged")

(message
 "Welcome to the Engaged installation script.\n\n"
 "   This script will automatically install  \n"
 "Engaged to your Hard Drive so that it      \n"
 "is run whenever you so desire to run it.   \n"
 "   If required, it can install docs aswell.\n\n"
 "Click on <PROCEED> to continue or <ABORT> \n"
 "to cancel the installation.               "
)

(copyfiles
    (prompt "Copying SerComm to C:")
    (help @copyfiles-help)
    (source "SerComm")
    (dest "C:")
)

(copyfiles
    (prompt "Copying Engaged")
    (help @copyfiles-help)
    (source "Engaged")
    (dest
    	(askdir
    	   (prompt "Select directory for Engaged")
           (help @askdir-help)
           (default "DH0:Engaged/")
         )
    ) 
	(infos)
)

(set guide
    (askchoice
        (prompt "Would you like to install Engaged Docs?")
        (help @askchoice-help)
        (choices "Ok M8!" "Sod That.")
        (default 0)
    )
)

(if (= guide 0)
    (copyfiles
        (prompt "Copying Docs")
        (help @copyfiles-help)
        (source "Engaged.doc")
        (dest
            (set guidedir
	            (askdir
    	            (prompt "Select directory for Engaged Docs")
        	        (help @askdir-help)
            	    (default "DH0:Engaged/")
				)
            )
        )
        (infos)
    )
)


(message
 "         Installation of Engaged completed.        \n\n"
 "   Engaged can be run by opening the drawer and    \n"
 "       double clicking on the Engaged Spanner.     \n"
)