home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated Swimsuit Calendar 1994 / SISWIM.iso / sisetup / init.inc < prev    next >
Encoding:
Text File  |  1994-09-20  |  6.0 KB  |  170 lines
  1. SUB InitDefaultPaths STATIC
  2.   EXE_PATH$ = "EXE_PATH"
  3.   PREV_INSTALL$ = "PREV"
  4.   SetSymbolValue PREV_INSTALL$, "NO"
  5.  
  6.   WINDRIVE$ = MID$ (WinDir$, 1, 1)
  7.   nWinDrive% = ASC (ucase$ (WINDRIVE$)) - ASC ("A") + 1
  8.  
  9.   ini$ = MakePath (GetWindowsDir, "POWERUP.INI")
  10.  
  11.   '' set CCW's program path
  12.   DEST$ = LCASE$ (GetIniKeyString (ini$, "Sports Illustrated Swimsuit Calendar", "ProgramPath"))
  13.   IF DEST$ = "" THEN
  14.     DEST$ = LCASE$ (GetIniKeyString (ini$, "POWERALBUM", "Path"))
  15.   ENDIF
  16.   IF DEST$ = "" THEN
  17.     DEST$ = LCASE$ (MakePath(RootDir$, "SISWIM"))
  18.   ELSE
  19.     ii% = DoesFileExist (MakePath (DEST$,"SISWIM.EXE"), femExists)
  20.     szVerStr$ = GetVersionOfFile (MakePath (DEST$, "SISWIM.EXE"))
  21.     ver& = GetVersionNthField (szVerStr$, 1)
  22.     if (ii% = 1) AND (ver& >= 2 ) then
  23.       SetSymbolValue PREV_INSTALL$, "YES"
  24.     endif
  25.   ENDIF
  26.  
  27.   '' pick up art directory from POWERUP.INI
  28.   DEST_ART$ = LCASE$ (GetIniKeyString (ini$, "ART", "Path"))
  29.   IF DEST_ART$ = "" THEN
  30.     DEST_ART$ = LCASE$ (MakePath(DEST$, "ART")) '' dfg
  31.   ENDIF
  32.  
  33.   '' pick up graphics filters directory from POWERUP.INI
  34.   DEST_FILTERS$ = LCASE$ (GetIniKeyString (ini$, "GRAPHICS FILTERS", "NewPath"))
  35.   IF DEST_FILTERS$ = "" THEN
  36.     DEST_FILTERS$ = LCASE$ (GetIniKeyString (ini$, "GRAPHICS FILTERS", "Path"))
  37.     if DEST_FILTERS$ = "" then
  38.       DEST_FILTERS$ = LCASE$ (MakePath( DEST$, "FILTERS")) '' dfg
  39.     ENDIF
  40.   ENDIF
  41.   SetSymbolValue EXE_PATH$, DEST$
  42.  
  43.   PROGDRIVE$ = MID$ (DEST$, 1, 1)
  44.   ARTDRIVE$ = MID$ (DEST_ART$, 1, 1)
  45.   FILTERSDRIVE$ = MID$ (DEST_FILTERS$, 1, 1)
  46. END SUB
  47.  
  48. SUB InitMainDialogSymbols STATIC
  49.   STR_REQ$ = "StrSelReq"
  50.   STR_AVAIL$ = "StrSelAvail"
  51.   DIALOG_LIST$ = "DialogList"
  52.   CHK_PROG_FILES$ = "ChkProgFiles"
  53.   CHK_STD_EVNT_LST$ = "ChkStdEvntLst"
  54.   CHK_INTL_EVNT_LST$ = "ChkIntlEvntLst"
  55.   CHK_WORK_SPCS$ = "ChkWorkSpcs"
  56.   CHK_CLIP_ART$ = "ChkClipArt"
  57.   RAD_ALBUM_ONLY$ = "RadAlbumOnly" '' dfg
  58.   RAD_BUILD_ALBUM$ = "RadBuildAlbum"
  59.   RAD_ART_ONLY$ = "RadArtOnly"
  60.   STR_PROG_PATH$ = "StrProgPath"
  61.   STR_CLIP_ART_PATH$ = "StrClipArtPath"
  62.   STR_FILTERS_PATH$ = "StrFiltersPath"
  63.   STR_REQ_PROG$ = "StrReqProg"
  64.   STR_REQ_CLIP_ART$ = "StrReqClipArt"
  65.   STR_REQ_FILTERS$ = "StrReqFilters"
  66.   STR_AVAIL_PROG$ = "StrAvailProg"
  67.   STR_AVAIL_ART$ = "StrAvailArt"
  68.   STR_AVAIL_FILTERS$ = "StrAvailFilters"
  69.   STR_REQ_PROG2$ = "StrReqProg2"
  70.   STR_REQ_SEL$ = "StrReqSEL"
  71.   STR_REQ_IEL$ = "StrReqIEL"
  72.   STR_REQ_WK_SPC$ = "StrReqWkSpc"
  73.   STR_REQ_CLIP_ART2$ = "StrReqClipArt2"
  74.   STR_REQ_ART_DLG$ = "STR_REQ_ART_DLG$"
  75.   STR_AVAIL_ART_DLG$ = "STR_AVAIL_ART_DLG$"
  76.   STR_REQ_GEN$ = "STR_REQ_GEN$"
  77.   STR_AVAIL_GEN$ = "STR_AVAIL_GEN$"
  78.   INSTALL_TTF$ = "INSTALL_TTF$"
  79.  
  80.   SetSymbolValue STR_REQ_ART_DLG$, "0"
  81.   SetSymbolValue STR_AVAIL_ART_DLG$, "0"
  82.   SetSymbolValue CHK_PROG_FILES$, "ON"
  83.   SetSymbolValue CHK_STD_EVNT_LST$, "ON"
  84.   SetSymbolValue CHK_INTL_EVNT_LST$, "ON"
  85.   SetSymbolValue CHK_WORK_SPCS$, "ON"
  86.   SetSymbolValue CHK_CLIP_ART$, "ON"
  87.   SetSymbolValue INSTALL_TTF$, "ON"
  88.   SetSymbolValue RAD_ALBUM_ONLY$, "ON"   '' dfg
  89.   SetSymbolValue RAD_BUILD_ALBUM$, "OFF" '' dfg
  90.   SetSymbolValue RAD_ART_ONLY$, "OFF"
  91.   SetSymbolValue STR_PROG_PATH$, DEST$
  92.   SetSymbolValue STR_CLIP_ART_PATH$, DEST_ART$
  93.   SetSymbolValue STR_FILTERS_PATH$, DEST_FILTERS$
  94.   SetSymbolValue STR_REQ_PROG$, "0"
  95.   SetSymbolValue STR_REQ_CLIP_ART$, "0"
  96.   SetSymbolValue STR_REQ_FILTERS$, "0"
  97.   SetSymbolValue STR_AVAIL_PROG$, "0"
  98.   SetSymbolValue STR_AVAIL_ART$, "0"
  99.   SetSymbolValue STR_AVAIL_FILTERS$, "0"
  100.   SetSymbolValue STR_REQ_PROG2$, "0"
  101.   SetSymbolValue STR_REQ_SEL$, "0"
  102.   SetSymbolValue STR_REQ_IEL$, "0"
  103.   SetSymbolValue STR_REQ_WK_SPC$, "0"
  104.   SetSymbolValue STR_REQ_CLIP_ART2$, "0"
  105. END SUB
  106.  
  107. SUB InitArtDialogSymbols STATIC
  108.   DIA_ART$="DiaArtChk"
  109.   AddListItem DIALOG_LIST$, DIA_ART$
  110.  
  111.   CHK_ART00$ = "ChkArt00"
  112.   AddListItem DIA_ART$, CHK_ART00$         '' add checkbox to dialog list
  113.   AddListItem CHK_ART00$, "ON"             '' status
  114.   AddListItem CHK_ART00$, "ON"             '' temp status -- used for dialogs
  115.   AddListItem CHK_ART00$, "artSwimsuitA"   '' file section in LYT/INF file
  116.   AddListItem CHK_ART00$, "300"            '' dialog template ID
  117.   AddListItem CHK_ART00$, "0"              '' disk cost of checked item
  118.   AddListItem CHK_ART00$, "RESA.ALB"       '' name of category album
  119.   AddListItem CHK_ART00$, "artSwimsuitAlbA"'' LYT/INF section for album file
  120.   AddListItem CHK_ART00$, "0"
  121.   AddListItem CHK_ART00$, "ON"             '' dfg - default status for reinit
  122.  
  123.   CHK_ART01$ = "ChkArt01"
  124.   AddListItem DIA_ART$, CHK_ART01$         '' add checkbox to dialog list
  125.   AddListItem CHK_ART01$, "OFF"            '' status
  126.   AddListItem CHK_ART01$, "OFF"            '' temp status -- used for dialogs
  127.   AddListItem CHK_ART01$, "artSwimsuitB"   '' file section in LYT/INF file
  128.   AddListItem CHK_ART01$, "301"            '' dialog template ID
  129.   AddListItem CHK_ART01$, "0"              '' disk cost of checked item
  130.   AddListItem CHK_ART01$, "RESB.ALB"       '' name of category album
  131.   AddListItem CHK_ART01$, "artSwimsuitAlbB"'' LYT/INF section for album file
  132.   AddListItem CHK_ART01$, "0"
  133.   AddListItem CHK_ART01$, "OFF"            '' dfg - default status for reinit
  134. END SUB
  135.  
  136. SUB ReInitArtDialogSymbols STATIC
  137.   '' get the cost of the CLIP ART
  138.   j% = GetListLength (DIA_ART$)
  139.   FOR i% = 1 to j% STEP 1
  140.      szChkSym$ = GetListItem (DIA_ART$, i%)
  141.      szDefaultStatus$ = GetListItem (szChkSym$, DEFAULT_STATUS)
  142.      ReplaceListItem szChkSym$, STATUS, szDefaultStatus$
  143.   NEXT i%
  144. END SUB
  145.  
  146. FUNCTION GetAlbumName STATIC AS STRING
  147.   '' get the name of the one and only album selected
  148.   j% = GetListLength (DIA_ART$)
  149.   FOR i% = 1 to j% STEP 1
  150.      szChkSym$ = GetListItem (DIA_ART$, i%)
  151.      szStatus$ = GetListItem (szChkSym$, STATUS)
  152.      IF (szStatus$ = _ON$) THEN
  153.        GetAlbumName = GetListItem (szChkSym$, ALBUM)
  154.      ENDIF
  155.   NEXT i%
  156. END FUNCTION
  157.  
  158. FUNCTION GetDriveName(szPath$) STATIC AS STRING
  159.  
  160.   szTemp$ = szPath$
  161.  
  162.   x% = INSTR(szPath$, ":")
  163.   if x%>0 then
  164.     szTemp$ = MakePath (MID$ (szPath$, 1, x%), "")
  165.   endif
  166.  
  167.   GetDriveName = szTemp$
  168.  
  169. END FUNCTION
  170.