;VMBIS Voice-Mailbox Installer V1.1
;

(complete 0)
(set @default-dest "SYS:")

;  Text 

(set #Intro-Txt
(cat "\n\nWelcome to \n\n"
"Voice Mailbox V1.1\n\n"
"Installer"
))(set #Warning-Txt
(cat "Warning !\n\n\n"
"If you don`t have installed ZVT then install it first!\n\n"
"Voice Mailbox V1.1 requires 1 MB free on your disk \n\n"
))(set #Path-Txt
(cat "Select your ZVT directory. A directory called VMB will "
"be created there."
))(set #Path-Help
(cat "\nThis section lets you choose the "
"ZVT directory to install Voice Mailbox V1.1. \n\n"
"A directory VMB will be created there.\n\n"
"Default is SYS:\n\n\n"
@askdir-help
))
(set Assign-Help-Txt
(cat "\nThe User-Startup will be patched \n"
"...\n\n\n"
@startup-help
))

;  Main  

(message #Intro-Txt)
(message #Warning-Txt)
(set desti 
(askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
))

(set @default-dest desti)
(makedir (tackon desti "VMB"))
(copyfiles
(prompt "Copying to " #desti)
(help @copy-files-help)
(source "")
(dest (tackon desti "VMB"))
(pattern "#?")
)
(complete 80)
(run (cat "copy " "VMBDAT/VMBd \"" desti "/VMB.info""\""))
(run (cat "copy " "VMBDAT/VMB.set \"" desti "/ZVT.Settings""\""))
;  StartupSequence 

(complete 95)

(startup "VMB"
	(prompt "Some required commands will be added to your \"s:user-startup\" file.")
	(help @startup-help)
	(command "if exists \"" desti "/VMB""\"\n")
	(command "   assign VMB: \"" desti "/VMB""\"\n")
	(command "endif""\n")
)

;  Finished 

(complete 100)

(exit "Thank you for using the VMB Installer.\n"
	"We appreciate your business.\n\n"                  
        "No Carrier...\n"                                 
	"CLICK.\n\n\n"                                          
	"Please reboot your computer before trying to start VMB.")
