Mega Dittos - The Screensaver/megadittos.iso/dittos/specific.inc

Text File | 1994-07-03 | 11KB | 303 lines

''
'' MegaDittos 1.0 CD-specific install functions
'' Copyright (c) 1994 Aristosoft, Inc.
''

'' Globals:
GLOBAL ADDir$    '' After Dark's directory
GLOBAL SSDir$   '' screen saver directory
GLOBAL SSRes%   '' Result of query

'' Set up product-specific titles, etc.
SUB SetProductTitles STATIC
    SetTitle "MegaDittos CD"
END SUB


FUNCTION InfFile() STATIC AS STRING
    InfFile = "RAWDEAL.INF"
END FUNCTION


FUNCTION MakeInstDir(D$) STATIC AS STRING

    '' If we're lucky, this will tell us where we're located
    S$ = GetIniKeyString(WININI$, "Aristosoft", "DITTOS")

    '' If that didn't work, then we'll punt with the default
    IF S$ = "" THEN
    S$ = D$ + ":\DITTOS"
    END IF

    '' DITTO.EXE must be in the DITTO directory
    IF EXISTS(MakePath(S$, "DITTO.EXE")) THEN
    r% = DoMsgBox("An installed copy of MegaDittos was found in " + S$+ ".  Setup recommends that you install this product in the same location.", "MegaDittos", MB_OK)
    ELSE
        '' Find out where to install .AD files, if anywhere
        ADDir$ = GetIniKeyString(MakePath(WINDIR$, "AD_PREFS.INI"), "After Dark", "Path")
        IF EXISTS(MakePath(ADDir$, "AD.EXE")) THEN
            SSRes% = DoMsgBox("Setup has located a copy of After Dark in " + ADDir$ + ".  Do you want to use MegaDittos with After Dark?", "MegaDittos", MB_YESNO)
            S$ = ADDir$
        ELSE
            SSRes% = IDNO
            ADDir$ = ""
        END IF
    END IF
    MakeInstDir = S$
    P$ = ""
END FUNCTION


SUB AddInfSectionNames(BASE$, TAPPS$, SOUNDS$, VOICES$, BASEINST$, TAPPSINST$, SOUNDSINST$, VOICESINST$) STATIC

    '' These are the base files we can install
    IF SSRes% = IDNO THEN
        AddListItem BASE$, "Base Files"
    END IF
    SetSymbolValue BASEINST$, GetSymbolValue(BASE$)

    '' These are the screen savers we can install
    AddListItem TAPPS$, "Billvis and Gorehead"
    AddListItem TAPPS$, "Clinton Coneheads"
    AddListItem TAPPS$, "Dollar Bill"
    AddListItem TAPPS$, "HillaryCare"
    AddListItem TAPPS$, "Hillarygizer Bunny"
    AddListItem TAPPS$, "Liberassic Park"
    AddListItem TAPPS$, "Owl Gore"
    AddListItem TAPPS$, "Raw Deal Headlines"
    AddListItem TAPPS$, "Whitewater Grafting"

    '' By default, we install all Talking Apps
    SetSymbolValue TAPPSINST$, GetSymbolValue(TAPPS$)

    AddListItem TAPPS$, "Billvis (extended version)"

    '' These are the sounds we can install

    '' By default, we install all the above
    SetSymbolValue SOUNDSINST$, GetSymbolValue(SOUNDS$)
END SUB


SUB RecalcPath STATIC
    CursorSave% = ShowWaitCursor()
    RecalcOptFiles BASEFILES
    RecalcOptFiles SOUNDFILES
    RecalcOptFiles TAPPFILES
    RestoreCursor CursorSave%
END SUB


SUB AddOptFiles STATIC
    AddOptFilesToCopyList BASEFILES
    AddOptFilesToCopyList TAPPFILES
    AddOptFilesToCopyList SOUNDFILES
END SUB


SUB AddOptFilesToCopyList (ftype%) STATIC

    IF GetListItem(CHECKSTATES$, ftype%) = "ON" THEN
    SrcDir$ = GetSymbolValue("STF_SRCDIR")
        IF ftype% = BASEFILES THEN

            '' Base files
            l% = GetListLength(BASEINST$)
            FOR i% = 1 TO l% STEP 1
                AddSectionFilesToCopyList GetListItem(BASEINST$, i%), SrcDir$, DEST$
            NEXT i%

            '' We always install these
            AddSectionFilesToCopyList "System Files", SrcDir$, SYSDIR$

            IF INSTDSOUND% OR EXISTS(MakePath(SYSDIR$, "DSOUND.DLL")) THEN
                AddSectionFilesToCopyList "DSOUND Files", SrcDir$, SYSDIR$
            END IF

        ELSEIF ftype% = TAPPFILES THEN

            l% = GetListLength(TAPPSINST$)

        FOR i% = 1 TO l% STEP 1
                AddSectionFilesToCopyList GetListItem(TAPPSINST$, i%), SrcDir$, DEST$
        NEXT i%
        END IF
    SrcDir$ = ""
    END IF

END SUB


SUB SetDriveStatus STATIC
    FITS% = 0
    drive$ = MID$(DEST$, 1, 1)
    ndrive% = ASC(ucase$(drive$)) - ASC("A") + 1

    cost& = VAL(GetListItem(BASENEEDS$, ndrive%))
    cost& = cost& + VAL(GetListItem(SOUNDNEEDS$, ndrive%))
    cost& = cost& + VAL(GetListItem(TAPPNEEDS$, ndrive%))

    free& = GetFreeSpaceForDrive(drive$)
    IF cost& > free& THEN
    FITS% = 1
    END IF
    ReplaceListItem DRIVETEXT$, 1, drive$ + ":"
    ReplaceListItem DRIVETEXT$, 2, STR$(cost& / 1024) + " K"
    ReplaceListItem DRIVETEXT$, 3, STR$(free& / 1024) + " K"

    IF drive$ = WINDRIVE$ THEN
    ReplaceListItem DRIVETEXT$, 4, ""
    ReplaceListItem DRIVETEXT$, 5, ""
    ReplaceListItem DRIVETEXT$, 6, ""
    ELSE
    ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1

    cost& = VAL(GetListItem(BASENEEDS$, ndrive%))
    cost& = cost& + VAL(GetListItem(SOUNDNEEDS$, ndrive%))
    cost& = cost& + VAL(GetListItem(TAPPNEEDS$, ndrive%))

    IF cost& = 0 THEN
        ReplaceListItem DRIVETEXT$, 4, ""
        ReplaceListItem DRIVETEXT$, 5, ""
        ReplaceListItem DRIVETEXT$, 6, ""
    ELSE
        free& = GetFreeSpaceForDrive(WINDRIVE$)
        IF cost& > free& THEN
        FITS% = 1
        END IF
        ReplaceListItem DRIVETEXT$, 4, WINDRIVE$ + ":"
        ReplaceListItem DRIVETEXT$, 5, STR$(cost& / 1024) + " K"
        ReplaceListItem DRIVETEXT$, 6, STR$(free& / 1024) + " K"
    END IF
    END IF
END SUB


'' Add billboard dialogs for this app
SUB AddBillboards STATIC
    AddToBillboardList CUIDLL$, BBD1, "FModelessDlgProc", 100
    AddToBillboardList CUIDLL$, BBD2, "FModelessDlgProc", 100
    AddToBillboardList CUIDLL$, BBD3, "FModelessDlgProc", 100
    AddToBillboardList CUIDLL$, BBD4, "FModelessDlgProc", 100
    AddToBillboardList CUIDLL$, BBD5, "FModelessDlgProc", 100
    AddToBillboardList CUIDLL$, BBD6, "FModelessDlgProc", 100
END SUB


CONST IDC_OWNER = 104
CONST IDC_WORKPLACE = 106
CONST RT_RCDATA = 10

SUB ConfigureApps STATIC

    '' This is so Fixer can find where we're installed
    CreateIniKeyValue WININI$, "Aristosoft", "DITTOS", DEST$, cmoOverwrite

    IF SSRes% = IDNO THEN
        '' This is the name of the group we'll install into
        GROUP$ = "MegaDittos"
        CreateProgmanGroup GROUP$, "", cmoNone
    END IF

    '' Configure base applications
    IF GetListItem(CHECKSTATES$, BASEFILES) = "ON" THEN

        '' Install this only if we're not using AD
        IF SSRes% = IDNO THEN
            ''Stamp the WFSABOUT resources
            IF len(OWNER$) > 0 THEN
                StampResource "Base Files", "Runner", DEST$, RT_RCDATA, IDC_OWNER, OWNER$ + chr$(0), len(OWNER$) + 1
            ELSE
                StampResource "Base Files", "Runner", DEST$, RT_RCDATA, IDC_OWNER, " " + chr$(0), 2
            END IF
            IF len(WORKPLACE$) > 0 THEN
                StampResource "Base Files", "Runner", DEST$, RT_RCDATA, IDC_WORKPLACE, WORKPLACE$ + chr$(0), len(WORKPLACE$) + 1
            ELSE
                StampResource "Base Files", "Runner", DEST$, RT_RCDATA, IDC_WORKPLACE, " " + chr$(0), 2
            END IF

            CreateProgmanItem GROUP$, "MegaDittos", MakePath(DEST$, "ditto.exe"), "", cmoOverwrite
            CreateProgmanItem GROUP$, "Read Me!", MakePath(DEST$, "readme.wri"), "", cmoOverwrite
        END IF

        '' Setup Video for Windows
    CreateIniKeyValue SYSINI$, "Drivers", "VIDC.CVID", "iccvid.drv", cmoNone
        CreateIniKeyValue SYSINI$, "Drivers", "wavemapper", "msacm.drv", cmoNone
        CreateIniKeyValue SYSINI$, "Drivers", "MSACM.msadpcm", "msadpcm.acm", cmoNone

    END IF

    '' Install DSOUND.DLL as the wave driver if there isn't one already, somewhere...
    IF INSTDSOUND% AND EXISTS(MakePath(SYSDIR$, "DSOUND.DLL")) THEN
    CreateIniKeyValue SYSINI$, "drivers", "wave", "DSOUND.DLL", cmoOverwrite
    END IF
END SUB



'' Remove all files and directories...

SUB DoUninstall STATIC
    IF IDYES = DoMsgBox("Are you sure you want to remove MegaDittos from your system?", "MegaDittos", MB_YESNO) THEN
    DEST$ = GetIniKeyString(WININI$, "Aristosoft", "DITTOS")
    IF DEST$ <> "" THEN

        SendProgmanCommand "[DeleteGroup(""MegaDittos"")]"

            KillFile MakePath(DEST$, "RODBUNNY.AD")
            KillFile MakePath(DEST$, "HILLCARE.AD")