home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Review 67
/
cdreview-67-1997.iso
/
simply3d
/
simply3d.mst
< prev
next >
Wrap
Text File
|
1995-02-15
|
16KB
|
490 lines
'* Simply3D setup
'**************************************************************************
'$DEFINE DEBUG ''Define for script development/debugging
'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'
''Dialog ID's
CONST WELCOME = 100
CONST ASKQUIT = 200
CONST DESTPATH = 300
CONST EXITFAILURE = 400
CONST EXITQUIT = 600
CONST EXITSUCCESS = 700
CONST OPTIONS = 800
CONST APPHELP = 900
CONST CUSTINST = 6200
CONST BADPATH = 6400
CONST EYESFILES = 1
CONST TUTORFILES = 2
CONST PLAYBACKFILES = 3
CONST FONTFILES = 4
CONST CATAFILES = 5
CONST DEMOFILES = 6
CONST VFWFILES = 7
CONST RLIVEBB = 6401
CONST VFONTBB = 6402
CONST VCATABB = 6405
CONST ANIPLAY = 6406
CONST WELCOMEBB = 6407
CONST SSCENESBB = 6408
''Bitmap ID
CONST LOGO = 1
GLOBAL SRCDRIVE$ ''Default source drive.
GLOBAL DEST$ ''Default destination directory.
GLOBAL DESTEYES$ ''Default destination directory.
GLOBAL DESTCATA$ ''Default destination directory.
GLOBAL DESTFONT$ ''Default destination directory.
GLOBAL WINDIR$ ''Default destination directory.
GLOBAL WINSYSDIR$ ''Default destination directory.
GLOBAL EXECOPT$ ''Option selection from OptFiles1 option dialog.
GLOBAL TUTOROPT$ ''Option selection from OptFiles2 option dialog.
GLOBAL DOEYES$ ''Option selection to install the executable and config files.
GLOBAL DOTUTORIAL$ ''Option selection to install tutorials.
GLOBAL DOPLAYBACK$ ''Option selection to install playbacks.
GLOBAL DOFONT$ ''Option selection to install Visual Font.
GLOBAL DOCATA$ ''Option selection to install Visual Catalogue.
GLOBAL DODEMO$ ''Option selection to install demos.
GLOBAL DOVFW$ ''Option selection to install Video for Windows.
GLOBAL CUIDLL$
''Dialog list symbol names
GLOBAL CHECKIN$
GLOBAL CHECKOUT$
DECLARE SUB Install
DECLARE SUB Cleanup(path$)
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
DECLARE FUNCTION OnWindowsNT LIB "INIUPD.DLL" AS INTEGER
DECLARE FUNCTION VflatdPresent LIB "iniupd.DLL" AS INTEGER
DECLARE FUNCTION FShowWindow LIB "mscuistf.dll" (arg1%) AS INTEGER
INIT:
Tmp% = FShowWindow( HwndFrame )
CUIDLL$ = "mscuistf.dll" ''Custom user interface dll
HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure
SetBitmap CUIDLL$, LOGO
SetTitle "Simply 3D CD-ROM Setup"
szInf$ = GetSymbolValue("STF_SRCINFPATH")
IF szInf$ = "" THEN
szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
END IF
ReadInfFile szInf$
DEST$ = "C:\SIMPLY3D"
'$IFDEF DEBUG
i% = SetSizeCheckMode(scmOnIgnore) '' could use scmOff; def = scmOnFatal
WinDrive$ = MID$(GetWindowsDir, 1, 1)
IF IsDriveValid(WinDrive$) = 0 THEN
i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
GOTO QUIT
END IF
'$ENDIF ''DEBUG
WELCOME:
sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
IF sz$ = "CONTINUE" THEN
UIPop 1
ELSE
GOSUB ASKQUIT
GOTO WELCOME
END IF
w% = GetScreenWidth
h% = GetScreenHeight
IF OnWindowsNT() THEN
i% = DoMsgBox("This setup of Simply 3D cannot run on Windows NT.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
ERROR STFERR
GOTO QUIT
END IF
IF w% < 800 THEN
i% = DoMsgBox("display driver must be running at a minimum 800 x 600 resolution", "SETUP FATAL ERROR", MB_TASKMODAL+MB_ICONHAND+MB_OK)
ERROR STFERR
GOTO QUIT
ENDIF
IF h% < 600 THEN
i% = DoMsgBox("display driver must be running at a minimum 800 x 600 resolution", "SETUP FATAL ERROR", MB_TASKMODAL+MB_ICONHAND+MB_OK)
ERROR STFERR
GOTO QUIT
ENDIF
i% = Has87MathChip
IF i% = 0 THEN
i% = DoMsgBox("Setup could not find a MATH COPROCESSOR", "SETUP FATAL ERROR", MB_TASKMODAL+MB_ICONHAND+MB_OK)
ERROR STFERR
GOTO QUIT
ENDIF
''File Option Variables
' EXECOPT$ = "1"
' TUTOROPT$ = "1"
GETPATH:
SetSymbolValue "EditTextIn", DEST$
SetSymbolValue "EditFocus", "END"
GETPATHL1:
sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
DEST$ = GetSymbolValue("EditTextOut")
IF sz$ = "CONTINUE" THEN
IF IsDirWritable(DEST$) = 0 THEN
GOSUB BADPATH
GOTO GETPATHL1
END IF
UIPop 1
ELSEIF sz$ = "REACTIVATE" THEN
GOTO GETPATHL1
ELSEIF sz$ = "BACK" THEN
UIPop 1
GOTO WELCOME
ELSE
GOSUB ASKQUIT
GOTO GETPATH
END IF
DESTEYES$ = DEST$ + "\EYESEZ"
DESTFONT$ = DEST$ + "\VFONT"
DESTCATA$ = DEST$ + "\VCATA"
''CustInst list symbols
CHECKIN$ = "CheckItemsIn"
CHECKOUT$ = "CheckItemsOut"
FOR i% = 1 TO 7 STEP 1
AddListItem CHECKIN$, "ON"
NEXT i%
CUSTINST:
sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FCheckDlgProc", APPHELP, HELPPROC$)
IF sz$ = "CONTINUE" THEN
UIPop 1
GOTO CHECKOPTIONS
ELSEIF sz$ = "PATH" THEN
GOTO GETPATH
ELSEIF sz$ = "CHK1" THEN
' RecalcOptFiles APPFILES
' SetDriveStatus
GOTO CUSTINST
ELSEIF sz$ = "CHK2" THEN
' RecalcOptFiles OPTFILES1
' SetDriveStatus
GOTO CUSTINST
ELSEIF sz$ = "CHK3" THEN
' RecalcOptFiles OPTFILES2
' SetDriveStatus
GOTO CUSTINST
ELSE
GOSUB ASKQUIT
GOTO CUSTINST
END IF
CHECKOPTIONS:
DOEYES$ = "NO"
DOTUTORIAL$ = "NO"
DOPLAYBACK$ = "NO"
DOFONT$ = "NO"
DOCATA$ = "NO"
DODEMO$ = "NO"
DOVFW$ = "NO"
op1$ = GetListItem ( CHECKOUT$, EYESFILES)
IF op1$ = "ON" THEN
DOEYES$ = "YES"
ENDIF
op2$ = GetListItem ( CHECKOUT$, TUTORFILES)
IF op2$ = "ON" THEN
DOTUTORIAL$ = "YES"
ENDIF
op3$ = GetListItem ( CHECKOUT$, PLAYBACKFILES)
IF op3$ = "ON" THEN
DOPLAYBACK$ = "YES"
ENDIF
op4$ = GetListItem ( CHECKOUT$, FONTFILES)
IF op4$ = "ON" THEN
DOFONT$ = "YES"
ENDIF
op5$ = GetListItem ( CHECKOUT$, CATAFILES)
IF op5$ = "ON" THEN
DOCATA$ = "YES"
ENDIF
op6$ = GetListItem ( CHECKOUT$, DEMOFILES)
IF op6$ = "ON" THEN
DODEMO$ = "YES"
ENDIF
op7$ = GetListItem ( CHECKOUT$, VFWFILES)
IF op7$ = "ON" THEN
DOVFW$ = "YES"
ENDIF
INSTALLIT:
WINDIR$ = GetWindowsDir()
WINSYSDIR$ = GetWindowsSysDir()
CreateSysIniKeyValue WINDIR$ + "system.ini" , "386Enh" , "PageOverCommit" , "20" , cmoOverwrite
Install
QUIT:
ON ERROR GOTO ERRQUIT
IF ERR = 0 THEN
dlg% = EXITSUCCESS
ELSEIF ERR = STFQUIT THEN
dlg% = EXITQUIT
ELSE
dlg% = EXITFAILURE
END IF
QUITL1:
Cleanup(DEST$)
sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
GOTO QUITL1
END IF
UIPop 1
END
ERRQUIT:
i% = DoMsgBox("Setup sources were corrupted, call 818 883-7900!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
BADPATH:
sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
GOTO BADPATH
END IF
UIPop 1
RETURN
ASKQUIT:
sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
IF sz$ = "EXIT" THEN
UIPopAll
ERROR STFQUIT
ELSEIF sz$ = "REACTIVATE" THEN
GOTO ASKQUIT
ELSE
UIPop 1
END IF
RETURN
'**
'** Purpose:
'** Builds the copy list and performs all installation operations.
'** Arguments:
'** none.
'** Returns:
'** none.
'*************************************************************************
SUB Install STATIC
SRCDRIVE$ = GetSymbolValue("STF_SRCDIR")
SrcDir$ = GetSymbolValue("STF_SRCDIR") + "SIMPLY3D"
CreateDir DEST$, cmoNone
IF D