
//*
//* Created with by Catalyst-PC, by Troy A. Miles and ESP
//* for more information call ESP @ 714-837-7106
//*


[init]
createvar=choice, VAR_INTEGER, 1, 0, 10
createvar=topic, VAR_STRING, 20, "help"
createvar=drive, VAR_INTEGER, 0, 0, 26
createvar=path, VAR_STRING, 40, "\VOYEUR"
createvar=sndcard, VAR_INTEGER, 0, 0, 10
createvar=temp, VAR_INTEGER, 0, 0, 10
createvar=dma, VAR_INTEGER, 0, 0, 10
createvar=irq, VAR_INTEGER, 0, 0, 10

createvar=title, VAR_WINDOW
openwindow=title, 1, 1, 76, 1, BLACK, LT_GREY, NONE, ' ', TRUE
display=title,CENTER_JUST,4,0,"Voyeur Installation Program"

createvar=copyr, VAR_WINDOW
openwindow=copyr, 1, 22, 76, 2, BLACK, LT_GREY, NONE, ' ', TRUE
display=copyr, CENTER_JUST, 0, 0, "Press [ESC] to exit, press [F1] for help."
display=copyr, CENTER_JUST, 0, 1, "Copyright (C) 1994 Interplay Productions"


[term]
closewindow=copyr
destroyvar=copyr
closewindow=title
destroyvar=title
destroyvar=sndcard
destroyvar=path
destroyvar=drive
destroyvar=topic
destroyvar=choice
destroyvar=temp
destroyvar=dma
destroyvar=irq


[exit]
createvar=ExitWin, VAR_WINDOW
openwindow=ExitWin, 11, 8, 54, 7, LT_YELLOW, DK_BLUE, DOUBLE, ' ', TRUE
form=ExitWin
"Press ESC again to exit. Any other key to continue."
keychoice=choice,ESC,ANYKEY
closewindow=ExitWin
destroyvar=ExitWin


[help]
createvar=helpwin, VAR_WINDOW
openwindow=helpwin, 1, 4, 74, 15, WHITE, DK_RED, DOUBLE, ' ', TRUE
form=helpwin
"This is the help topic.  It is displayed whenever the F1 key is "
"pressed. The topic can be changed by any form simply by changing "
"the 'helptopic' equate."
waitkey
closewindow=helpwin
destroyvar=helpwin


[drivehelp]
createvar=helpwin, VAR_WINDOW
openwindow=helpwin, 1, 4, 74, 15, WHITE, DK_RED, DOUBLE, ' ', TRUE
form=helpwin
"In the list box are all of the valid hard drives install has found in "
"your system.  Scroll the list up and down with the arrow keys until "
"the drive you wish to install to is highlighted, then press 'ENTER'. "
waitkey
closewindow=helpwin
destroyvar=helpwin


[dirhelp]
createvar=helpwin, VAR_WINDOW
openwindow=helpwin, 1, 4, 74, 15, WHITE, DK_RED, DOUBLE, ' ', TRUE
form=helpwin
"You can change the startup directory to any legal DOS directory name, "
"but it is recommended that you keep it as '\\voyeur'."
waitkey
closewindow=helpwin
destroyvar=helpwin


[sndhelp]
createvar=helpwin, VAR_WINDOW
openwindow=helpwin, 1, 4, 74, 15, WHITE, DK_RED, DOUBLE, ' ', TRUE
form=helpwin
"Voyeur requires a sound card to run.  Scroll the list up and down "
"using the arrow keys until your sound card is highlighted, then "
"press 'ENTER'. If you are unsure which sound card you have please "
"refer to your computer's documentation."
waitkey
closewindow=helpwin
destroyvar=helpwin


[main]
pages=Intro, DriveChoice, getpath, sound

[Intro]
equatevar=topic, "help"
createvar=IntroWin, VAR_WINDOW
openwindow=IntroWin, 11, 5, 54, 10, WHITE, DK_VIOLET, SINGLE, ' ', TRUE
form=IntroWin
"Voyeur needs to create a directory on your hard disk and copy "
"approximately 200 bytes worth of data there. This directory will be "
"where you start Voyeur from."

display=IntroWin, CENTER_JUST, 0, 9, "Press any key to continue."
waitkey
closewindow=IntroWin
destroyvar=IntroWin


[DriveChoice]
equatevar=topic, "drivehelp"
createvar=DriveWin, VAR_WINDOW
openwindow=DriveWin, 11, 5, 54, 10, WHITE, DK_VIOLET, SINGLE, ' ', TRUE
form=DriveWin
"Which drive would you like to install to:"

listbox=drive, drives, 2, WHITE, DK_VIOLET, SINGLE, FALSE, DriveWin

closewindow=DriveWin
destroyvar=DriveWin


[AskPath]
equatevar=topic, "dirhelp"
createvar=PathWin, VAR_WINDOW
openwindow=PathWin, 11, 5, 54, 10, WHITE, DK_VIOLET, SINGLE, ' ', TRUE
field=path, '~'   
form=PathWin
"Please enter the destination directory:\n"
"~\n"
getinput=PathWin
closewindow=PathWin
destroyvar=PathWin


[AskSound]
equatevar=topic, "sndhelp"
createvar=SndWin, VAR_WINDOW
openwindow=SndWin, 11, 4, 54, 13, WHITE, DK_VIOLET, SINGLE, ' ', TRUE
form=SndWin
"Please select your sound card."

createvar=sndcards, VAR_LIST, 7, 40
"Advanced Gravis Ultra Sound         "
"Creative Labs Sound Blaster         "
"Creative Labs Sound Blaster 16      "
"Creative Labs Sound Blaster Pro     "
"Creative Labs Sound Blaster Clone   "
"MediaVision Pro Audio Spectrum 8    "
"MediaVision Pro Audio Spectrum 16   "

listbox=sndcard, sndcards, 2, WHITE, DK_VIOLET, SINGLE, FALSE, SndWin
closewindow=SndWin
destroyvar=SndWin


[AskDMA]
equatevar=topic, "sndhelp"
createvar=SndWin, VAR_WINDOW
openwindow=SndWin, 11, 4, 54, 13, WHITE, DK_VIOLET, SINGLE, ' ', TRUE
form=SndWin
"Please select your sound card's DMA number."

createvar=dmas, VAR_LIST, 9, 13
"0"
"1"
"2"
"3"
"4"
"5"
"6"
"7"
"NONE"
listbox=dma, dmas, 2, WHITE, DK_VIOLET, SINGLE, FALSE, SndWin
closewindow=SndWin
destroyvar=SndWin
destroyvar=dmas


[AskIRQ]
equatevar=topic, "sndhelp"
createvar=Win, VAR_WINDOW
openwindow=Win, 11, 4, 54, 13, WHITE, DK_VIOLET, SINGLE, ' ', TRUE
form=Win
"Please select your sound card's IRQ number."

createvar=irqs, VAR_LIST, 9, 13
"2"
"3"
"5"
"7"
"10"
"11"
"12"
"15"
"NONE"
listbox=irq, irqs, 2, WHITE, DK_VIOLET, SINGLE, FALSE, Win
closewindow=Win
destroyvar=Win
destroyvar=irqs


[confirm]
equatevar=topic, "help"
createvar=cchoices, VAR_LIST, 2, 20
"Change selections"
"Install Voyeur"
createvar=ConfirmWin, VAR_WINDOW
openwindow=ConfirmWin, 11, 8, 54, 7, WHITE, DK_CYAN, SDOUBLE, ' ', TRUE
display=ConfirmWin, CENTER_JUST, 0, 1, "Would you like to change any of your choices?"
listbox=temp, cchoices, 3, WHITE, DK_CYAN, SINGLE, FALSE, ConfirmWin
closewindow=ConfirmWin
destroyvar=ConfirmWin
destroyvar=cchoices


[success]
equatevar=topic, "help2"
createvar=SuccessWin, VAR_WINDOW
openwindow=SuccessWin, 10, 7, 60, 5, WHITE, DK_CYAN, SINGLE, ' ', TRUE
form=SuccessWin
"Install was successful.  Type 'VOYEUR' in the destination directory "
"to begin play."
display=SuccessWin, CENTER_JUST, 0, 4, "Press any key to exit."
display=copyr, CENTER_JUST, 0, 0, "                                         "
waitkey
closewindow=SuccessWin
destroyvar=SuccessWin






