'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'

''Dialog ID's
CONST _GETPATH	= 101
CONST _BADPATH	= 102
CONST _BILLBOARD = 105
CONST _COMPLETE	 = 107
''Bitmap ID
CONST LOGO 	= 104

GLOBAL DEST$        ''Default destination directory.
GLOBAL MAKEGROUP$    
    
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING


INIT:
    CUIDLL$ = "mscuistf.dll"
    BADPROC$ = "BGF2_BadPathDlgProc"
    BILLBOARDPROC$ = "BGF2_BillBoardDlgProc"
    MAKEGROUP$ = "FALSE"
    
    SetTitle "WinGames.Inc - Board Games For II"

    szInf$ = GetSymbolValue("STF_SRCINFPATH")
    IF szInf$ = "" THEN
        szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
    ENDIF
    ReadInfFile szInf$

    DEST$ = "C:\WINGAMES.INC\BGF2"

WELCOME:
    SetSymbolValue "EditTextIn", DEST$
    sz$ = UIStartDlg( CUIDLL$, _GETPATH, "BGF2_GetPathDlgProc", _BADPATH, BADPROC$)
    DEST$ = GetSymbolValue("EditTextOut")
    IF sz$ = "OK" THEN
		IF IsDirWritable(DEST$) = 0 THEN
            GOSUB BADPATH
            GOTO WELCOME
        ELSE
		    UIPop 1
		    GOTO INSTALL        
        END IF
    ELSE
	    UIPop 1
        GOTO QUIT
    ENDIF

INSTALL:               
	
    szBuf$ = UIStartDlg( CUIDLL$, _BILLBOARD, "BGF2_BillBoardDlgProc", _BADPATH, BADPROC$)
    ClearCopyList
    SrcDir$ = GetSymbolValue("STF_SRCDIR")
    AddSectionFilesToCopyList "APP_FILES", SrcDir$, DEST$
    CreateDir DEST$, cmoNone
    OldCursor% = ShowWaitCursor()
	SetCopyGaugePosition 500, 500
    CopyFilesInCopyList
    RestoreCursor OldCursor%
    UIPop 1
    szBye$ = UIStartDlg( CUIDLL$, _COMPLETE, "BGF2_CompleteDlgProc", _BADPATH, BADPROC$)
    CreateProgmanGroup "WinGames.Inc", "", cmoNone
    ShowProgmanGroup  "WinGames.Inc", 1, cmoNone
   	CreateProgmanItem "WinGames.Inc", "Board Games For II", MakePath(DEST$,"bgf2.exe"), MakePath(DEST$,"bgf2.exe")+",0,10,10,"+DEST$, cmoOverwrite
   	CreateProgmanItem "WinGames.Inc", "Instructions", "WinHelp.Exe "+MakePath(DEST$,"bgf2.hlp"), MakePath(DEST$,"bgf2.exe")+",1,50,50,"+DEST$, cmoOverwrite
	
QUIT:
	END


BADPATH:
    sz$ = UIStartDlg(CUIDLL$, _BADPATH, "BGF2_BadPathDlgProc", 0, "")
    IF sz$ = "REACTIVATE" THEN
        GOTO BADPATH
    END IF
    UIPop 1
    RETURN

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$
    ENDIF
END FUNCTION