home *** CD-ROM | disk | FTP | other *** search
'' '$DEFINE DEBUG ''Define for script development/debugging '$INCLUDE 'setupapi.inc' '$INCLUDE 'msdetect.inc' DECLARE FUNCTION LoadLibrary LIB "KERNEL" (szLibFileName$) AS INTEGER DECLARE SUB FreeLibrary LIB "KERNEL" (hInst%) DECLARE FUNCTION BWCCMessageBox LIB "BWCC.DLL" (hwndParent%, szText$, szCaption$, wStyle%) AS INTEGER ''Dialog ID's 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 TOOBIG = 6300 CONST BADPATH = 6400 ''Bitmap ID CONST LOGO = 1 ''File Types CONST APPFILES = 1 CONST OPTBMPFILES = 2 CONST OPTMIDFILES = 3 CONST OPTWAVFILES = 4 CONST MB_ICONSTOP = MB_ICONHAND CONST ScreenerySubdirectory$ = "TENDO\BMPS" GLOBAL DEST$ ''Default destination directory. GLOBAL WINDRIVE$ ''Windows drive letter. GLOBAL APPOPT$ ''CustInst list symbol names GLOBAL APPNEEDS$ ''Option list costs per drive GLOBAL OPTBMPNEEDS$ GLOBAL OPTMIDNEEDS$ GLOBAL OPTWAVNEEDS$ GLOBAL EXTRACOSTS$ ''List of extra costs to add per drive GLOBAL BIGLIST$ ''List of option files cost calc results (boolean) ''Dialog list symbol names GLOBAL CHECKSTATES$ GLOBAL STATUSTEXT$ GLOBAL DRIVETEXT$ DECLARE SUB AddOptFilesToCopyList (ftype%) DECLARE SUB RecalcOptFiles (ftype%) DECLARE SUB RecalcPath DECLARE SUB SetDriveStatus DECLARE FUNCTION appendSlash (szDir$) AS STRING DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING INIT: '' hBWCC% = LoadLibrary("BWCC") CUIDLL$ = "mscuistf.dll" ''custom user interface dll HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure SetBitmap CUIDLL$, LOGO SetTitle "T E N D O Installer" SetAbout "Customized for T E N D O by", "⌐ The Slim Rum Demon, 22/8/94" szInf$ = GetSymbolValue("STF_SRCINFPATH") IF szInf$ = "" THEN szInf$ = GetSymbolValue("STF_CWDDIR") + "TENDO.INF" END IF ReadInfFile szInf$ WINDRIVE$ = MID$(GetWindowsDir, 1, 1) DEST$ = WINDRIVE$ + ":\TENDO" ''CustInst list symbols CHECKSTATES$ = "CheckItemsState" STATUSTEXT$ = "StatusItemsText" DRIVETEXT$ = "DriveStatusText" AddListItem CHECKSTATES$, "ON" AddListItem CHECKSTATES$, "" AddListItem CHECKSTATES$, "ON" AddListItem CHECKSTATES$, "ON" FOR i% = 1 TO 4 STEP 1 AddListItem STATUSTEXT$, "" NEXT i% FOR i% = 1 TO 7 STEP 1 AddListItem DRIVETEXT$, "" NEXT i% ReplaceListItem DRIVETEXT$, 7, DEST$ ''Disk cost list symbols APPNEEDS$ = "AppNeeds" OPTBMPNEEDS$ = "OptBMPNeeds" OPTMIDNEEDS$ = "OptMIDNeeds" OPTWAVNEEDS$ = "OptWAVNeeds" EXTRACOSTS$ = "ExtraCosts" BIGLIST$ = "BigList" FOR i% = 1 TO 4 STEP 1 AddListItem BIGLIST$, "" NEXT i% FOR i% = 1 TO 26 STEP 1 AddListItem EXTRACOSTS$, "0" NEXT i% APPOPT$ = "1" RecalcPath SetDriveStatus '$IFDEF DEBUG i% = SetSizeCheckMode(scmOnIgnore) '' could use scmOff; def = scmOnFatal '$ENDIF ''DEBUG ''Windows 3.11 masquerades as version 3.10. Just thought I'd let me know. IF (GetWindowsMajorVersion() * 256) + GetWindowsMinorVersion() < 778 THEN i% = BWCCMessageBox(HwndFrame(), "Sorry. T E N D O requires Microsoft Windows Version 3.1 or later!", "Unsupported Windows Version", MB_OK + MB_TASKMODAL + MB_ICONSTOP) ERROR -1 END IF CUSTINST: sz$ = UIStartDlg(CUIDLL$, CUSTINST, "FCustInstDlgProc", APPHELP, HELPPROC$) IF sz$ = "CONTINUE" THEN ''Install only if it will fit. FOR i% = 1 TO 4 STEP 1 IF GetListItem(BIGLIST$, i%) <> "" THEN GOSUB TOOBIG GOTO CUSTINST END IF NEXT i% UIPop 1 GOTO INSTALL ELSEIF sz$ = "PATH" THEN GOTO GETPATH ELSEIF sz$ = "CHK1" THEN RecalcOptFiles APPFILES SetDriveStatus GOTO CUSTINST ELSEIF sz$ = "CHK2" THEN RecalcOptFiles OPTBMPFILES SetDriveStatus GOTO CUSTINST ELSEIF sz$ = "CHK3" THEN RecalcOptFiles OPTMIDFILES SetDriveStatus GOTO CUSTINST ELSEIF sz$ = "CHK4" THEN RecalcOptFiles OPTWAVFILES SetDriveStatus GOTO CUSTINST ELSEIF sz$ = "BTN1" THEN GOTO APPFILESDLG ELSEIF sz$ = "REACTIVATE" THEN RecalcPath SetDriveStatus GOTO CUSTINST ELSE GOSUB ASKQUIT GOTO CUSTINST END IF INSTALL: ClearCopyList AddOptFilesToCopyList APPFILES AddOptFilesToCopyList OPTBMPFILES AddOptFilesToCopyList OPTMIDFILES AddOptFilesToCopyList OPTWAVFILES CreateDir DEST$, cmoNone IF GetListItem(CHECKSTATES$, OPTBMPFILES) = "ON" THEN CreateDir MakePath(DEST$, ScreenerySubdirectory$), cmoNone END IF CopyFilesInCopyList IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN szSystemINI$ = MakePath(GetWindowsDir(), "SYSTEM.INI") CreateIniKeyValue szSystemINI$, "DDEShares", "TENDO$", MakePath(DEST$, "TENDO") + ",AnyOldBollocks,,31,,0,,0,0,0", cmoNone szSystemINI$ = "" CreateProgmanGroup "T E N D O", "TENDO.GRP", cmoNone ShowProgmanGroup "T E N D O", 1, cmoNone CreateProgmanItem "T E N D O", "T E N D O", MakePath(DEST$, "TENDO.EXE"), "", cmoOverwrite END IF szINI$ = MakePath(GetWindowsDir(), "TENDO.INI") IF GetListItem(CHECKSTATES$, OPTBMPFILES) = "ON" THEN CreateIniKeyValue szINI$, "General", "Path2CD", appendSlash( DEST$), cmoOverwrite ELSE CreateIniKeyValue szINI$, "General", "Path2CD", appendSlash(GetSymbolValue("STF_SRCDIR")), cmoNone END IF szINI$ = "" QUIT: ON ERROR GOTO ERRQUIT IF ERR = 0 THEN dlg% = EXITSUCCESS ELSEIF ERR = STFQUIT THEN dlg% = EXITQUIT ELSE dlg% = EXITFAILURE END IF QUITL1: sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "") IF sz$ = "REACTIVATE" THEN GOTO QUITL1 END IF UIPop 1 '' FreeLibrary(hBWCC%) END ERRQUIT: i% = BWCCMessageBox(HwndFrame(), "Setup sources were corrupted!", "Setup Message", MB_OK + MB_TASKMODAL + MB_ICONHAND) '' FreeLibrary(hBWCC%) END GETPATH: SetSymbolValue "EditTextIn", DEST$ SetSymbolValue "EditFocus", "END" GETPATHL1: sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$) IF sz$ = "CONTINUE" THEN olddest$ = DEST$ DEST$ = GetSymbolValue("EditTextOut") ''Validate new path. IF (IsDirWritable(DEST$) = 0) OR (IsDirWritable(MakePath(DEST$, ScreenerySubdirectory$)) = 0) THEN GOSUB BADPATH GOTO GETPATHL1 END IF UIPop 1 ''Truncate display if too long. IF LEN(DEST$) > 23 THEN ReplaceListItem DRIVETEXT$, 7, MID$(DEST$, 1, 23)+"..." ELSE ReplaceListItem DRIVETEXT$, 7, DEST$ END IF ''Recalc if path changed. IF (olddest$ <> DEST$) AND (olddest$ <> DEST$+"\") AND (olddest$+"\" <> DEST$) THEN RecalcPath SetDriveStatus END IF olddest$ = "" GOTO CUSTINST ELSEIF sz$ = "REACTIVATE" THEN RecalcPath SetDriveStatus GOTO GETPATHL1 ELSEIF sz$ = "EXIT" THEN GOSUB ASKQUIT GOTO GETPATHL1 ELSE UIPop 1 GOTO CUSTINST END IF APPFILESDLG: SetSymbolValue "RadioDefault", APPOPT$ APP_L1: sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$) newopt$ = GetSymbolValue("ButtonChecked") IF sz$ = "CONTINUE" THEN UIPop 1 IF newopt$ <> APPOPT$ THEN APPOPT$ = newopt$ RecalcOptFiles APPFILES SetDriveStatus END IF newopt$ = "" GOTO CUSTINST ELSEIF sz$ = "REACTIVATE" THEN RecalcPath SetDriveStatus GOTO APP_L1 ELSEIF sz$ = "EXIT" THEN GOSUB ASKQUIT GOTO APP_L1 ELSE UIPop 1 newopt$ = "" GOTO CUSTINST END IF TOOBIG: sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "") IF sz$ = "REACTIVATE" THEN RecalcPath SetDriveStatus GOTO TOOBIG END IF UIPop 1 RETURN BADPATH: sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "") IF sz$ = "REACTIVATE" THEN RecalcPath SetDriveStatus 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: '** Adds the specified option files to the copy list. '** Arguments: '** ftype% - type of files to add, one of the following: '** APPFILES, OPTFILES1, OPTFILES2 '** Returns: '** none. '************************************************************************* SUB AddOptFilesToCopyList (ftype%) STATIC IF GetListItem(CHECKSTATES$, ftype%) = "ON" THEN SrcDir$ = GetSymbolValue("STF_SRCDIR") IF ftype% = APPFILES THEN AddSectionKeyFileToCopyList "AppLocalisedFiles" , APPOPT$, SrcDir$, DEST$ AddSectionFilesToCopyList "AppInvariantFiles" , SrcDir$, DEST$ AddSectionFilesToCopyList "-> Windows Directory" , SrcDir$, GetWindowsDir() ELSEIF ftype% = OPTBMPFILES THEN AddSectionFilesToCopyList "Additional Background Bitmaps", SrcDir$, MakePath(DEST$, ScreenerySubdirectory$) ELSEIF ftype% = OPTMIDFILES THEN AddSectionFilesToCopyList "Incidental Music" , SrcDir$, DEST$ ELSEIF ftype% = OPTWAVFILES THEN AddSectionFilesToCopyList "Sampled Sounds" , SrcDir$, DEST$ END IF SrcDir$ = "" END IF END SUB '** '** Purpose: '** Recalculates disk space for the given option files and sets '** the status info symbol "StatusItemsText". '** Arguments: '** ftype% - type of files to add, one of the following: '** APPFILES, OPTFILES1, OPTFILES2 '** Returns: '** none. '************************************************************************* SUB RecalcOptFiles (ftype%) STATIC CursorSave% = ShowWaitCursor() ClearCopyList AddOptFilesToCopyList ftype% fExtra% = 0 IF ftype% = APPFILES THEN ListSym$ = APPNEEDS$ IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN ''Add extra cost to Windows drive for .INI, ProgMan .GRP, e.t.c. ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1 ReplaceListItem EXTRACOSTS$, ndrive%, "51200" fExtra% = 1 END IF ELSEIF ftype% = OPTBMPFILES THEN ListSym$ = OPTBMPNEEDS$ ELSEIF ftype% = OPTMIDFILES THEN ListSym$ = OPTMIDNEEDS$ ELSEIF ftype% = OPTWAVFILES THEN ListSym$ = OPTWAVNEEDS$ END IF StillNeed& = GetCopyListCost(EXTRACOSTS$, ListSym$, "") cost& = 0 FOR i% = 1 TO 26 STEP 1 cost& = cost& + VAL(GetListItem(ListSym$, i%)) NEXT i% ReplaceListItem STATUSTEXT$, ftype%, STR$(cost& / 1024) + " K" IF StillNeed& > 0 THEN ReplaceListItem BIGLIST$, ftype%, "YES" ELSE ReplaceListItem BIGLIST$, ftype%, "" END IF IF fExtra% THEN ReplaceListItem EXTRACOSTS$, ndrive%, "0" END IF RestoreCursor CursorSave% ListSym$ = "" END SUB '** '** Purpose: '** Recalculates disk space and sets option status info according '** to the current destination path. '** Arguments: '** none. '** Returns: '** none. '************************************************************************* SUB RecalcPath STATIC CursorSave% = ShowWaitCursor() RecalcOptFiles APPFILES RecalcOptFiles OPTBMPFILES RecalcOptFiles OPTMIDFILES RecalcOptFiles OPTWAVFILES RestoreCursor CursorSave% END SUB '** '** Purpose: '** Sets drive status info according to latest disk space calcs. '** Arguments: '** none. '** Returns: '** none. '************************************************************************* SUB SetDriveStatus STATIC drive$ = MID$(DEST$, 1, 1) ndrive% = ASC(ucase$(drive$)) - ASC("A") + 1 cost& = VAL(GetListItem(APPNEEDS$, ndrive%)) + VAL(GetListItem(OPTBMPNEEDS$, ndrive%)) + VAL(GetListItem(OPTMIDNEEDS$, ndrive%)) + VAL(GetListItem(OPTWAVNEEDS$, ndrive%)) free& = GetFreeSpaceForDrive(drive$) 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(APPNEEDS$, ndrive%)) + VAL(GetListItem(OPTBMPNEEDS$, ndrive%)) + VAL(GetListItem(OPTMIDNEEDS$, ndrive%)) + VAL(GetListItem(OPTWAVNEEDS$, ndrive%)) IF cost& = 0 THEN ReplaceListItem DRIVETEXT$, 4, "" ReplaceListItem DRIVETEXT$, 5, "" ReplaceListItem DRIVETEXT$, 6, "" ELSE free& = GetFreeSpaceForDrive(WINDRIVE$) ReplaceListItem DRIVETEXT$, 4, WINDRIVE$ + ":" ReplaceListItem DRIVETEXT$, 5, STR$(cost& / 1024) + " K" ReplaceListItem DRIVETEXT$, 6, STR$(free& / 1024) + " K" END IF END IF END SUB FUNCTION appendSlash (szDir$) STATIC AS STRING IF MID$(szDir$, LEN(szDir$), 1) = "\" THEN appendSlash = szDir$ ELSE appendSlash = szDir$ + "\" END IF END FUNCTION '** '** 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 
