home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Cinemania 1994 / CINEMANIA94.iso / msstp / upgrade.inc < prev   
Text File  |  1993-08-25  |  3KB  |  95 lines
  1.  
  2. ' Code to check for UPGRADE.TXT file and if it exists, check for old
  3. ' version of Cinemania.
  4.  
  5. CONST WELCOME_UPGRADE    = 10010
  6. CONST UPG_1        = 10011
  7. CONST HELP_UPG_1    = 10012
  8. CONST NO_OLDCIN        = 10013
  9. CONST UPG_2        = 10014
  10.  
  11. ' In case first include file:
  12.     GoTo INIT
  13.  
  14. UPGRADECHECK:
  15.     ' Check for upgrade installation. If it is an upgrade setup, check for
  16.     ' the old book.  If the file exists we do the normal installation else
  17.     ' inform the user the fact and quit.
  18.     '-----------------------------------------------------------------------
  19.     Upgrade = 0
  20.     IF DoesFileExist(SRCDIR$+"MISC\UPGRADE.TXT", cmoNone) <> 0 THEN
  21.         Upgrade = 1 
  22.         i% = 0
  23.  
  24.         WELCOME_UPGRADE_AGAIN:
  25.             sz$ = UIStartDlg(CUIDLL$, WELCOME_UPGRADE, "FInfoDlgProc", GENERIC_HELP, "FHelpDlgProc")
  26.             IF sz$ = "EXIT" THEN
  27.               GOSUB DIAG_QUIT
  28.               sz$ = "REACTIVATE"
  29.             ENDIF
  30.         IF sz$ = "REACTIVATE" THEN
  31.             GOTO WELCOME_UPGRADE_AGAIN
  32.         END IF
  33.         UIPop 1
  34.         ' Check for old Cinemania 1992
  35.         ' ----------------------------
  36.     NEXTTRY:
  37.         Size& = GetSizeOfFile(SRCDIR$+"CONTENT\CINMANIA.MVB")
  38.         IF Size& = 139104719 OR Size& = 139120830 THEN
  39.             GOTO ITEXISTS
  40.         ELSE
  41.             i% = i% + 1
  42.             IF (i% < 4) THEN 
  43.                 UPG_1_AGAIN:
  44.                     sz$ = UIStartDlg(CUIDLL$, UPG_1, "FInfoDlgProc", HELP_UPG_1, "FHelpDlgProc")
  45.                     IF sz$ = "EXIT" THEN
  46.                       GOSUB DIAG_QUIT
  47.                       sz$ = "REACTIVATE"
  48.                     ENDIF
  49.                 IF sz$ = "REACTIVATE" THEN
  50.                     GOTO UPG_1_AGAIN
  51.                 END IF
  52.                 UIPop 1
  53.                 GOTO NEXTTRY    ' Allow 3 times to try 
  54.             ENDIF
  55.       
  56.             NO_OLDCIN_AGAIN:
  57.                 sz$=UIStartDlg(CUIDLL$, NO_OLDCIN, "FInfoDlgProc", HELP_UPG_1, "FHelpDlgProc")
  58.             IF sz$ = "REACTIVATE" THEN
  59.                 GOTO NO_OLDCIN_AGAIN
  60.             END IF
  61.             UIPop 1
  62.  
  63.             GOTO QUIT_FAILURE
  64.             END
  65.  
  66.         ENDIF
  67.         
  68.     ENDIF
  69.                      
  70. ITEXISTS:
  71. ' Ask to reinsert the disk if Upgrade = 1
  72. ' ---------------------------------------
  73.     IF Upgrade = 0 THEN
  74.         GOTO ALLSET
  75.     ENDIF
  76.     
  77.     NEW_BOOK_NOT_FOUND:
  78.         UPG_2_AGAIN:
  79.             sz$=UIStartDlg(CUIDLL$, UPG_2, "FInfoDlgProc", GENERIC_HELP, "FHelpDlgProc")
  80.             IF sz$ = "EXIT" THEN
  81.               GOSUB DIAG_QUIT
  82.               sz$ = "REACTIVATE"
  83.             ENDIF
  84.         IF sz$ = "REACTIVATE" THEN
  85.             GOTO UPG_2_AGAIN
  86.         END IF
  87.     IF DoesFileExist(SRCDIR$+"CNMNIA94.MVB", cmoNone) = 0 THEN
  88.         GOTO NEW_BOOK_NOT_FOUND
  89.     END IF
  90.  
  91.     UIPop 1
  92.  
  93. ALLSET:               
  94.     RETURN
  95.