The Best of Game Classics/cd2.bin/CYBER/SETUP1/AST.MS_/AST.MS

Text File | 1994-10-08 | 5KB | 233 lines

'**************************************************************************
'*                       MSSetup for Wasteroids
'**************************************************************************

'$DEFINE DEBUG  ''Define for script development/debugging

'$INCLUDE 'setupapi.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 CHECK         = 2500
CONST BADPATH       = 6400
CONST RESTART       = 1000

''Check types
CONST LOAD_WAST     = 1
CONST LOAD_WING     = 2

''Bitmap ID
CONST LOGO = 1

GLOBAL DEST$        ''Default destination directory.

DECLARE SUB Install
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING

GLOBAL CHECKSTATES$ ''Dialog list symbol names

GLOBAL bInstallDVA%

DECLARE FUNCTION VflatdPresent LIB "iniupd.DLL" AS INTEGER

INIT:
    bInstallDVA% = 0

    CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
    HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure

    SetBitmap CUIDLL$, LOGO
    SetTitle "Setup for Wasteroids"

     szInf$ = GetSymbolValue("STF_SRCINFPATH")
    IF szInf$ = "" THEN
        szInf$ = GetSymbolValue("STF_CWDDIR") + "AST.INF"
    END IF
    ReadInfFile szInf$

    DEST$ = "C:\WINAPPS\GAMES\W-AST"

WELCOME:
     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
     IF sz$ = "CONTINUE" THEN
          UIPop 1
     ELSE
          GOSUB ASKQUIT
          GOTO WELCOME
     END IF

     CHECKSTATES$ = "CheckItemsIn"
     AddListItem CHECKSTATES$, "ON"
     AddListItem CHECKSTATES$, "ON"

CHECK:
     sz$ = UIStartDlg(CUIDLL$, CHECK, "FCheckDlgProc", APPHELP, HELPPROC$)
     IF sz$ = "CONTINUE" THEN
          UIPop 1
     ELSE
          GOSUB ASKQUIT
          GOTO CHECK
     END IF

     CHECKSTATES$ = "CheckItemsOut"

' nothing to do?
     IF GetListItem(CHECKSTATES$, LOAD_WAST) = "ON" THEN
          GOSUB GETPATH
          Install
     END IF

     IF GetListItem(CHECKSTATES$, LOAD_WING) = "ON" THEN
          GOSUB InstallWinG
     END IF


QUIT:
     ON ERROR GOTO ERRQUIT

     IF ERR = 0 THEN
          dlg% = EXITSUCCESS
     ELSEIF ERR = STFQUIT THEN
          dlg% = EXITQUIT
     ELSE
          dlg% = EXITFAILURE
     END IF

QUITL1:
     if dlg% = EXITSUCCESS AND bInstallDVA% = 1 then
          sz$ = UIStartDlg(CUIDLL$, RESTART, "FInfoDlgProc", APPHELP, HELPPROC$)
          UIPop 1
     end if

     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 555-1212!", "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

     SrcDir$ = GetSymbolValue("STF_SRCDIR")
     CreateDir DEST$, cmoNone

     AddSectionFilesToCopyList "W-ast", SrcDir$, DEST$
     CopyFilesInCopyList

     CreateProgmanGroup "Wasteroids", "", cmoNone
     ShowProgmanGroup  "Wasteroids", 1, cmoNone
     CreateProgmanItem "Wasteroids", "Wasteroids", MakePath(DEST$,"ast.exe"), "", cmoOverwrite

END SUB

'*** Install WinG

InstallWing:

     SrcDir$ = GetSymbolValue("STF_SRCDIR")
     DEST$ = GetWindowsSysDir

     AddSectionFilesToCopyList "WinG", SrcDir$, DEST$
     CopyFilesInCopyList

     IF VflatdPresent() = 0 THEN
          CreateSysIniKeyValue GetWindowsDir + "system.ini", "386Enh", "device", GetWindowsSysDir+"dva.386", cmoOverwrite
          bInstallDVA% = 1
     END IF

     RETURN

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 CHECK
     ELSE
          GOSUB ASKQUIT
          GOTO GETPATH
     END IF

     RETURN

'**
'** Purpose:
'**     Appends a file name to the end of a directory path,
'**     inserting a backslash character as needed.
'** Arguments:
'**     szDir$  - full directory path (with optional ending "\")
'**     szFile$ - filename to append to directory
'** Returns:
'**     Resulting fully qualified path name.
'*************************************************************************
FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
     IF szDir$ = "" THEN
          MakePath = szFile$
     ELSEIF szFile$ = "" THEN
          MakePath = szDir$
     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
          MakePath = szDir$ + szFile$
     ELSE
          MakePath = szDir$ + "\" + szFile$
     END IF
END FUNCTION