Enciclopedia Tolkien/EnciclopediaTOLKIEN.iso/title.mst

Text File | 1993-11-29 | 5KB | 235 lines

    GLOBAL TitleShortName$
    GLOBAL TitleLongName$
    GLOBAL MVBFileName$
    GLOBAL PromptForPath%
    GLOBAL DefaultPath$
    GLOBAL ProgManGroup$
    GLOBAL ProgManItem$
        GLOBAL szTitleDir$

    TitleShortName$ = "Tolkien"
    TitleLongName$ = "Enciclopedia de Tolkien"
    MVBFileName$ = "TOLKIEN"

    PromptForPath% = 0

    DefaultPath$ = ""

    ProgManGroup$ = "Enciclopedia de Tolkien"

    ProgManItem$ = "Enciclopedia de Tolkien"

    GLOBAL CUIDLL$

    '$INCLUDE 'setupapi.inc'

    CUIDLL$ = "mscuistf.dll"

    CONST DESTPATH      = 1000
    CONST APPHELP       = 2000
    CONST TOOBIG        = 3000
    CONST BADPATH       = 4000
    CONST SUCCESS       = 5000

    CONST LOGO = 1

    DECLARE FUNCTION AddFont LIB "mscuistf.dll" (szFont$, szName$) AS INTEGER
    DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
    DECLARE FUNCTION GetTitleDir (szDefault$) AS STRING
    DECLARE FUNCTION CopyFiles(szTitleDir$) AS INTEGER
    DECLARE SUB RegisterFont(fontfile$, fontname$)
    DECLARE SUB ModifyViewerIni
    DECLARE SUB RegisterCustomFonts
    DECLARE SUB ModifyProgramManager
    DECLARE SUB ShowSuccess
    DECLARE SUB RegisterDrivers

    i% = SetSizeCheckMode(scmOff)

    SetTitle "Instalaci≤n de la Enciclopedia de Tolkien"
    SetBitmap CUIDLL$, LOGO

    ReadInfFile GetSymbolValue("STF_CWDDIR") + "TITLE.INF"

    IF PromptForPath% = 1 THEN
        szTitleDir$ = GetTitleDir(DefaultPath$)
        IF szTitleDir$ = "" THEN
            GOTO QUIT
        ENDIF
    ELSE
        szTitleDir$ = GetWindowsDir()
    ENDIF

    IF CopyFiles(szTitleDir$) = 0 THEN
        GOTO QUIT
    ENDIF

    CreateIniKeyValue "WIN.INI", "Extensions", "MVB", "mviewer2.exe", cmoNone

    ModifyViewerIni

    RegisterCustomFonts

    RegisterDrivers

    ModifyProgramManager

    ShowSuccess


    RUN "mviewer2.exe " + MVBFileName$ + ".MVB", NOWAIT

QUIT:

    END



FUNCTION GetTitleDir (szDefault$) STATIC AS STRING

    SetSymbolValue "String", TitleShortName$
    SetSymbolValue "EditTextIn", szDefault$
    SetSymbolValue "EditFocus", "ALL"

    GETPATH:

    sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, "FHelpDlgProc")

    IF sz$ = "CONTINUE" THEN
        szTitleDir$ = GetSymbolValue("EditTextOut")
        IF IsDirWritable(szTitleDir$) = 0 THEN

            BADPATH:

            sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfoDlgProc", 0, "")
            IF sz$ = "REACTIVATE" THEN
                GOTO BADPATH
            END IF
            UIPop 1
            GOTO GETPATH
        END IF
        UIPop 1
        CreateDir szTitleDir$, cmoNone

    ELSEIF sz$ = "REACTIVATE" THEN
        GOTO GETPATH

    ELSE
        szTitleDir$ = ""

    END IF

    GetTitleDir = szTitleDir$

END FUNCTION


FUNCTION CopyFiles(szTitleDir$) STATIC AS INTEGER

    AddSectionFilesToCopyList "System Files", GetSymbolValue("STF_SRCDIR"), GetWindowsSysDir()

    AddSectionFilesToCopyList "Installed Title Files", GetSymbolValue("STF_SRCDIR"), szTitleDir$

    szExtras$ = "Extra"
    szCosts$ = "Costs"
    szNeededs$ = "Neededs"
    FOR i% = 1 TO 26 STEP 1
        AddListItem szExtras$, "0"
    NEXT i%

    ReplaceListItem szExtras$, ASC(MID$(GetWindowsDir(), 1, 1)) - ASC("A") + 1, STR$(4096)

    StillNeed& = GetCopyListCost(szExtras$, szCosts$, szNeededs$)

    FOR i% = 1 TO 26 STEP 1
        IF VAL(GetListItem(szNeededs$, i%)) > 0 THEN

            SetSymbolValue "String1", LTRIM$(STR$(VAL(GetListItem(szCosts$, i%)) / 1024))
            SetSymbolValue "String2", CHR$(i% - 1 + ASC("A"))

            TOOBIG:

            sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfoDlgProc", 0, "")
            IF sz$ = "REACTIVATE" THEN
                GOTO TOOBIG
            END IF
            UIPop 1
            CopyFiles = 0
            GOTO DONTCOPY
        END IF
    NEXT i%

    CopyFilesInCopyList

    CopyFiles = 1

DONTCOPY:

END FUNCTION


SUB ShowSuccess STATIC

    SUCCESS:

    SetSymbolValue "String1", TitleShortName$
    sz$ = UIStartDlg(CUIDLL$, SUCCESS, "FInfoDlgProc", 0, "")
    IF sz$ = "REACTIVATE" THEN
        GOTO SUCCESS
    END IF
    UIPop 1

END SUB


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


SUB RegisterFont(fontfile$, fontname$) STATIC

    IF AddFont(fontfile$, fontname$) = -1 THEN
        j% = DoMsgBox("No se pudo instalar la fuente " + fontfile$ + ".", "Instalaci≤n de fuentes", 0)
    ENDIF

END SUB


SUB ModifyViewerIni STATIC

    szIni$ = MakePath(GetWindowsDir(), "VIEWER.INI")

    CreateIniKeyValue szIni$, MVBFileName$, "Name", TitleLongName$, cmoOverwrite
    CreateIniKeyValue szIni$, MVBFileName$, "Path", GetSymbolValue("STF_SRCDIR"), cmoOverwrite
    CreateIniKeyValue szIni$, "FILES", MVBFileName$ + ".MVB", GetSymbolValue("STF_SRCDIR") + "," + "Please insert the " + TitleLongName$ + " disk.", cmoOverwrite
END SUB


SUB ModifyProgramManager STATIC
    CreateProgmanGroup ProgmanGroup$, "", cmoNone
    ShowProgmanGroup ProgmanGroup$, 1, cmoNone
    CreateProgmanItem ProgmanGroup$, ProgmanItem$, "mviewer2.exe " + MakePath(GetSymbolValue("STF_SRCDIR"), MVBFileName$ + ".MVB"), MakePath("", MVBFileName$ + ".ICO"), cmoOverwrite
END SUB


SUB RegisterCustomFonts STATIC

    RegisterFont "vikingn.ttf", "Viking normal (TrueType)"

END SUB


SUB RegisterDrivers STATIC


END SUB