home *** CD-ROM | disk | FTP | other *** search
/ Sexy Bytes: Outside Dreams / SexyBytes_OutsideDreams_PCD0895.bin / setup / erotic.mst < prev    next >
Text File  |  1995-08-17  |  7KB  |  285 lines
  1. '**************************************************************************
  2. '*                     Erotic... Setup
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9. '$INCLUDE 'msregdb.inc'
  10. '$INCLUDE 'msshared.inc'
  11.  
  12.  
  13. ''Dialog ID's
  14.  
  15. CONST OPTIONS       = 800
  16. CONST ASKQUIT       = 200
  17. CONST APPHELP       = 900
  18. CONST EXITE         = 2000
  19. CONST EXITG         = 2200
  20. CONST QUITE         = 2300
  21. CONST QUITG         = 2700
  22. CONST FAILE         = 2800
  23. CONST FAILG         = 3000
  24. CONST ASKG          = 3100  
  25. CONST ASKE          =  600 
  26.  
  27. ''Bitmap ID
  28. CONST LOGO = 1
  29.  
  30. GLOBAL DEST$        ''Default destination directory.
  31. GLOBAL OPTCUR$      ''Option selection from option dialog.
  32. GLOBAL NAM$         ''User Name
  33. GLOBAL FIRM$        ''Company Name
  34. GLOBAL WINDRIVE$    ''Windows Drive Letter VFW
  35.  
  36.  
  37. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  38. WinDir$ = GetWindowsDir()
  39. WinSysDir$ = GetWindowSSysDir()
  40.  
  41. DECLARE SUB Install
  42. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  43. DECLARE SUB BWCCREGISTER LIB "BWCC.DLL" 
  44. CONST SW_SHOWMAXIMIZED=3
  45. DECLARE FUNCTION ShowWindow  LIB "user.exe" (hWnd%,iShow%) AS INTEGER
  46.  
  47.  
  48. INIT:
  49.     
  50.     BWCCREGISTER
  51.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  52.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  53.     hWnd%=HwndFrame()
  54.     junk%=ShowWindow(hWnd%,SW_SHOWMAXIMIZED)
  55.  
  56.     MajorVer% = GetWindowsMajorVersion()
  57.     MinorVer% = GetWindowsMinorVersion()
  58.     
  59.     IF  MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
  60.     i% = DoMsgBox("Microsoft Windows version 3.10 or greater is required for this software.  Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  61.         END
  62.     END IF
  63.  
  64.     SetBitmap CUIDLL$, LOGO
  65.     SetTitle "Setup"
  66.  
  67.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  68.     IF szInf$ = "" THEN
  69.         szInf$ = GetSymbolValue("STF_CWDDIR") + "erotic.INF"
  70.     END IF
  71.     ReadInfFile szInf$
  72.  
  73.     OPTCUR$ = "1"
  74.     DEST$ = "C:\erotic"
  75.     WINDRIVE$ = MID$(WinDir$, 1, 1)
  76.     FIRM$ = ""
  77.     NAM$  = ""
  78.     UDEST$ = ""
  79.   
  80. '$IFDEF DEBUG
  81.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  82.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  83.     IF IsDriveValid(WinDrive$) = 0 THEN
  84.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  85.         GOTO QUIT
  86.     END IF
  87. '$ENDIF ''DEBUG
  88.  
  89.  
  90. OPTION:
  91.     SetSymbolValue "RadioDefault", OPTCUR$
  92.  
  93.     
  94. OPTL1:
  95.     sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
  96.     OPTCUR$ = GetSymbolValue("ButtonChecked")
  97.  
  98.  
  99.     IF sz$ = "CONTINUE" THEN
  100.         UIPop(1)
  101.         IF OPTCUR$ = "1" THEN    '' Deutsch
  102.              GOTO INSTALL_B
  103.         ELSE
  104.                 IF OPTCUR$ = "2" THEN       '' English
  105.                         GOTO INSTALL_B
  106.                 END IF
  107.         END IF
  108.    
  109.     ELSE
  110.         GOSUB ASKQUIT
  111.         GOTO OPTION
  112.     END IF
  113.  
  114.  
  115. INSTALL_B:
  116.  
  117.          Install
  118.     
  119.         
  120.          
  121. QUIT:
  122.     ON ERROR GOTO ERRQUIT
  123.  
  124.     IF ERR = 0 THEN
  125.                       IF OPTCUR$ = "1" THEN
  126.                              
  127.                              dlg% = EXITG
  128.                       ELSE
  129.                       
  130.                       IF OPTCUR$ = "2" THEN
  131.                       
  132.                              dlg% = EXITE
  133.                       END IF
  134.                       END IF
  135.                       
  136.     ELSEIF ERR = STFQUIT THEN
  137.                       
  138.                       IF OPTCUR$ = "1" THEN
  139.                              
  140.                              dlg% = QUITG
  141.                       ELSE
  142.                       
  143.                       IF OPTCUR$ = "2" THEN
  144.                       
  145.                              dlg% = QUITE
  146.                       END IF
  147.                       END IF
  148.  
  149.     ELSE
  150.                       IF OPTCUR$ = "1" THEN
  151.                              
  152.                              dlg% = FAILG
  153.                       ELSE
  154.                       
  155.                       IF OPTCUR$ = "2" THEN
  156.                       
  157.                              dlg% = FAILE
  158.                       END IF
  159.                       END IF
  160.  
  161.     END IF
  162.     
  163. QUITL1:
  164.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  165.     IF sz$ = "REACTIVATE" THEN
  166.         GOTO QUITL1
  167.     END IF
  168.     UIPop 1
  169.  
  170.     END
  171.  
  172. ERRQUIT:
  173.     
  174.         IF OPTCUR$ = "1" THEN
  175.  
  176.                 i% = DoMsgBox("Setup Quelle defekt, bitte nehmen Sie mit Sentfactor Limited Kontakt auf.", "Setup Meldung", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  177.     
  178.         ELSE
  179.  
  180.          IF OPTCUR$ = "2" THEN
  181.            
  182.                 i% = DoMsgBox("Setup sources were corrupted, please contact Sentfactor Limited.", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  183.     END IF
  184.  
  185.     END IF
  186. END
  187.  
  188.     
  189. ASKQUIT:
  190.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  191.  
  192.     IF sz$ = "EXIT" THEN
  193.         UIPopAll
  194.         ERROR STFQUIT
  195.     ELSEIF sz$ = "REACTIVATE" THEN
  196.         GOTO ASKQUIT
  197.     ELSE
  198.         UIPop 1
  199.     END IF
  200.     RETURN
  201.  
  202.  
  203. ASK_G:
  204.     sz$ = UIStartDlg(CUIDLL$, ASKG, "FQuitDlgProc", 0, "")
  205.  
  206.     IF sz$ = "EXIT" THEN
  207.         UIPopAll
  208.         ERROR STFQUIT
  209.     ELSEIF sz$ = "REACTIVATE" THEN
  210.         GOTO ASK_G
  211.     ELSE
  212.         UIPop 1
  213.     END IF
  214.     RETURN
  215.     
  216. ASK_E:
  217.     sz$ = UIStartDlg(CUIDLL$, ASKE, "FQuitDlgProc", 0, "")
  218.  
  219.     IF sz$ = "EXIT" THEN
  220.         UIPopAll
  221.         ERROR STFQUIT
  222.     ELSEIF sz$ = "REACTIVATE" THEN
  223.         GOTO ASK_E
  224.     ELSE
  225.         UIPop 1
  226.     END IF
  227.     RETURN
  228.  
  229. '**
  230. '** Purpose:
  231. '**     Builds the copy list and performs all installation operations.
  232. '** Arguments:
  233. '**     none.
  234. '** Returns:
  235. '**     none.
  236. '*************************************************************************
  237. SUB Install STATIC
  238.  
  239.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  240.     WinDir$ = GetWindowsDir()
  241.     WinSysDir$ = GetWindowSSysDir()
  242.  
  243.     
  244.     IF OPTCUR$ = "1" THEN
  245.     
  246.     CreateProgmanGroup "Erotic", "", cmoNone
  247.     ShowProgmanGroup  "Erotic", 1, cmoNone
  248.     CreateProgmanItem "Erotic", "Outside Dreams", SrcDir$ + "deutsch" + "\" + "1066g.exe", "", cmoOverwrite
  249.  
  250.     ELSE
  251.  
  252.     CreateProgmanGroup "Erotic", "", cmoNone
  253.     ShowProgmanGroup  "Erotic", 1, cmoNone
  254.     CreateProgmanItem "Erotic", "Outside Dreams", SrcDir$ + "english" + "\" + "1066e.exe", "", cmoOverwrite
  255.  
  256.     ENDIF
  257.     
  258.  
  259. END SUB
  260.  
  261.  
  262.  
  263. '**
  264. '** Purpose:
  265. '**     Appends a file name to the end of a directory path,
  266. '**     inserting a backslash character as needed.
  267. '** Arguments:
  268. '**     szDir$  - full directory path (with optional ending "\")
  269. '**     szFile$ - filename to append to directory
  270. '** Returns:
  271. '**     Resulting fully qualified path name.
  272. '*************************************************************************
  273. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  274.     IF szDir$ = "" THEN
  275.         MakePath = szFile$
  276.     ELSEIF szFile$ = "" THEN
  277.         MakePath = szDir$
  278.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  279.         MakePath = szDir$ + szFile$
  280.     ELSE
  281.         MakePath = szDir$ + "\" + szFile$
  282.     END IF
  283. END FUNCTION
  284.  
  285.