(if (askbool (prompt "\nUnInstall Previous VStation Variables?\n\nEnvironment variables from the previous installation of VStation have been found.\n\nSkip this part if you do not wish to delete them.\n\nProceed if you wish to remove them.")
(choices "Proceed" "Skip")
(help "This will delete ENVARC:VStation and ENV:VStation and their contents. These include keyboard macros, setup files, and other support files."))
(if (askbool (prompt "\nUnInstall Previous VStation Sounds?\n\nSound files from the previous installation of VStation have been found.\n\nSkip this part if you do not wish to delete them.\n\nProceed if you wish to remove them.")
(choices "Proceed" "Skip")
(help "This will delete ENVARC:VSMisc and ENV:VSMisc and their contents. The VSMisc files provided by the VSPro Installer are all 8-bit audio samples."))
(if (askbool (prompt "\nUnInstall Previous VStation Function Hooks?\n\nFunction hooks from the previous installation of VStation have been found.\n\nSkip this part if you do not wish to delete them.\n\nProceed if you wish to remove them.")
(choices "Proceed" "Skip")
(help "This will delete ENVARC:VSHooks and ENV:VSHooks and their contents. Function hooks are optional and not needed for operation of the VStation. The supplied function hooks are used to trigger sound effects."))
((run "delete envarc:VSHooks all")
(run "delete env:VSHooks all"))))
(set text "\nCopy VStation files to Hard Drive?\n\nProceed to selectively copy the VS files to another system directory.\n\nSkip this operation if you are running the program from floppy disk.")
(set helptext "If you are installing to a hard disk, this will copy all of the files to it. If using floppy disks, skip this operation.")
(prompt "Select location for new VStation directory")
(help "This will install the VStation directory and files in the directory specified here. All of the VStation files, including a duplicate of it's environment directory, will be placed in the VStation directory. Later in the installation, these environment variables can be copied to ENVARC: to improve performance, but is not required.")
(newpath)
(default @default-dest)
)
)
(set @default-dest (tackon (vsdir) "VStation"))
(makedir @default-dest
(prompt "Making destination directory..")
(help @makedir-help)
(infos)
(safe)
)
(set @prompt (cat "Select VSPro files to copy to " (@default-dest)))
(set vsfilehelp (cat
"These files should all be selected if you are installing for the first time. "
"If an installed file is lost, you can selectively re-install it by turning off all of the others."
" The VStation must have the following files installed to operate:\n"
" VSPro The Program\n"
" VSRexx Support scripts\n"
" EDLOperations ARexx-EDL tools\n"
"The other files are optional but include sounds, callback hooks setup for sound effects,"
" sample EDLs & tapelogs, a few keyboard macros, and the AmigaGuide manual."))
(copyfiles
(prompt @prompt)
(help vsfilehelp)
(source diskdir)
(dest @default-dest)
(infos)
(pattern "~(disk.info)")
(confirm)))
(set @default-dest diskdir))
(set text (cat "\nDo you wish to copy the VStation environment\nvariables to ENVARC:VStation?\n"
"\nThese files use approximately 50K or RAM."
"\n\nThese files will be searched for on disk relative the the VSPro program if they are not found in ENV:"
"\n\nKeyboard macros and other features will more responsive if these files are installed."))
(set helptext (cat "If these files are copied to ENVARC:, then they will"
" be copied into RAM: by the startup-sequence. It will take "
"some memory, of course, but the keyboard macros and sound files "
"are much more responsive when they are in RAM. It is recommended "
"that you use this option if there is memory available."
" You don't have to install these files, however. VStation will find them relative to it's current directory, but it will be slower than a RAM disk."))
(set @prompt (cat "\nCopy " (@default-dest) "/Envarc to ENVARC:\n\nThe VS:Envarc files contain keyboard macro definitions, startup scripts, and other configuration information. If you copy these files to ENVARC:, then they will be copied to ENV: when the system is next booted."))
(set text "\nDo you wish to copy the hook files to ENVARC:VSHooks?\n\nFunction hooks are used to trigger sound effects and perform other functions. Placing them in ENVARC: will make them operate most efficiently. If not using function hooks, then this is not neccessary. The supplied function hooks merely trigger sound effects, so if sound effects are not desired then skip this operation.")
(prompt "\n\nCopying hook files to Envarc:VSMisc")
(help "If you don't, then the function callback hooks will need to be loaded from disk which is not as fast as RAM. This is only useful if function hooks are to be used. The supplied function hooks merely trigger sound effects, so if sound effects are not desired then skip this operation.")
(source hsource)
(dest "envarc:VSHooks")
(all)))
(set emsource (tackon @default-dest "Misc"))
(set text "\nDo you wish to copy the sound files to ENVARC:VSMisc?\n\nIf you plan on using the sound effect\nfunction hooks, then install these files.\nThe supplied VStation function hooks have been prepared to use these 8-bit samples.\n\nThis will take about 110K of RAM when\ncopied to ENV:VSMisc by the installer.")
(prompt "\n\nCopying sound files to Envarc:VSMisc")
(help "If you don't, then the function callback hooks that are using sound might not be very responsive.")
(source emsource)
(dest "envarc:VSMisc")
(all)))
(set text "This will update the env: directory to reflect any changes in the ENVARC:VStation directories. When it is complete, the VStation may be started without rebooting.")
(set pr (cat "\n\nDo you wish to copy \"ENVARC:VS#?\" to \"ENV:\"?\n\n" text))
