home *** CD-ROM | disk | FTP | other *** search
/ VRML & 3D on the Web for Dummies / VRML4DMYZ.iso / pc / pc_stuff / build / caligari / truespc2 / setup.mst < prev    next >
Text File  |  1993-11-18  |  8KB  |  264 lines
  1. '**************************************************************************
  2. '*                       trueSpace2 Setup 1.0
  3. '**************************************************************************
  4.  
  5. '***'$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. CONST APPHELP       = 900
  18. CONST BADPATH       = 6400
  19. CONST SMALLWIN      = 2200
  20. CONST RESTART       = 2600
  21. CONST RESTARTII     = 2700
  22. CONST PREP3DR        = 5000
  23. CONST POSRESTART    = 7100
  24.  
  25. ''Bitmap ID
  26. CONST LOGO = 1
  27.  
  28. GLOBAL SizeReq&  '' Total Disk Size required for installation
  29.  
  30. ''File Types
  31. GLOBAL WinDir$
  32. GLOBAL WinSysDir$
  33. GLOBAL WINDRIVE$    ''Windows Drive Letter.
  34. GLOBAL DEST$        ''Default destination directory.
  35. GLOBAL FROMDRIVE$    ''installation drive letter
  36. GLOBAL HasMath%     ''has math coprocessor
  37. GLOBAL HasEMU%      ''math emulator already installed
  38.  
  39. DECLARE SUB Install
  40. DECLARE SUB EMUInstall
  41. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  42. DECLARE SUB Reboot LIB "iniupd.dll"
  43. DECLARE FUNCTION ExitWindowsExec  LIB "User" (Exec$, Param$) AS INTEGER
  44. DECLARE FUNCTION WinExec LIB "Kernel" (Cmd$, State%) AS INTEGER
  45.  
  46. INIT:
  47.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  48.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  49.  
  50.     SetBitmap CUIDLL$, LOGO
  51.     SetTitle "Caligari trueSpace2 Trial Version"
  52.  
  53.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  54.     IF szInf$ = "" THEN
  55.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  56.     END IF
  57.  
  58.     ReadInfFile szInf$
  59.  
  60.     WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
  61.     DEST$ = WINDRIVE$ + ":\truedemo"
  62.  
  63. WELCOME:
  64.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  65.     IF sz$ = "CONTINUE" THEN
  66.         UIPop 1
  67.     ELSE
  68.         GOSUB ASKQUIT
  69.         GOTO WELCOME
  70.     END IF
  71.  
  72. GETPATH:
  73.     SetSymbolValue "EditTextIn", DEST$
  74.     SetSymbolValue "EditFocus", "END"
  75. GETPATHL1:
  76.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  77.     DEST$ = GetSymbolValue("EditTextOut")
  78.  
  79.     IF sz$ = "CONTINUE" THEN
  80.         IF IsDirWritable(DEST$) = 0 THEN
  81.             GOSUB BADPATH
  82.             GOTO GETPATHL1
  83.         END IF
  84.         UIPop 1
  85.     ELSEIF sz$ = "REACTIVATE" THEN
  86.         GOTO GETPATHL1
  87.     ELSEIF sz$ = "BACK" THEN
  88.         UIPop 1
  89.         GOTO WELCOME
  90.     ELSE
  91.         GOSUB ASKQUIT
  92.         GOTO GETPATH
  93.     END IF
  94.  
  95.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  96.     WinDir$ = GetWindowsDir()
  97.     WinSysDir$ = GetWindowsSysDir()
  98.     FROMDRIVE$ = MID$(SrcDir$, 1, 1)
  99.     HasMath% = Has87MathChip()
  100.  
  101.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  102.     AddSectionFilesToCopyList "OBJECTS", SrcDir$, DEST$ + "\OBJECTS"
  103.     AddSectionFilesToCopyList "SCENES", SrcDir$, DEST$ + "\SCENES"
  104.     AddSectionFilesToCopyList "BUMPS", SrcDir$, DEST$ + "\BUMPS"
  105.     AddSectionFilesToCopyList "TEXTURES", SrcDir$, DEST$ + "\TEXTURES"
  106.     AddSectionFilesToCopyList "ENVIRMNT", SrcDir$, DEST$ + "\ENVIRMNT"
  107.     AddSectionFilesToCopyList "PROCSETS", SrcDir$, DEST$ + "\PROCSETS"
  108.     AddSectionFilesToCopyList "PLUGINS", SrcDir$, DEST$ + "\PLUGINS"
  109.     AddSectionFilesToCopyList "VBRUN", SrcDir$, WinDir$
  110.  
  111.     IF HasMath% < 1 THEN
  112.         AddSectionFilesToCopyList "Emulator", SrcDir$, WinSysDir$
  113.     END IF
  114.  
  115. ''  Check windrive diskspace
  116.     SizeReq& = GetCopyListCost ("","", "")
  117.     IF SizeReq& <> 0 THEN
  118.         GOSUB SMALLWIN
  119.         END
  120.     END IF
  121.  
  122.     Install
  123.  
  124. ''  If no emulator installed then no need to restart windows
  125.     IF HasMath%  > 0 THEN
  126.         GOTO QUIT
  127.     ENDIF
  128.  
  129.     sz$ = UIStartDlg(cuidll$, POSRESTART, "FInfo0DlgProc", 0, "")
  130.     UIPop 1
  131.  
  132. QUIT:
  133.     ON ERROR GOTO ERRQUIT
  134.  
  135.     IF ERR = 0 THEN
  136.         dlg% = EXITSUCCESS
  137.     ELSEIF ERR = STFQUIT THEN
  138.         dlg% = EXITQUIT
  139.     ELSE
  140.         dlg% = EXITFAILURE
  141.     END IF
  142. QUITL1:
  143.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  144.     IF sz$ = "REACTIVATE" THEN
  145.         GOTO QUITL1
  146.     END IF
  147.     UIPop 1
  148.  
  149.     Prog$ = FROMDRIVE$ + ":\install\3dr\install.exe WIN32S"
  150.     Sta% = 3
  151.  
  152.     J% = WinExec (Prog$, Sta%)
  153.     END
  154.  
  155. ERRQUIT:
  156.     i% = DoMsgBox("An installation problem occured, please call Caligari Technical Support.", "Setup Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  157.     END
  158.  
  159. ASKQUIT:
  160.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  161.  
  162.     IF sz$ = "EXIT" THEN
  163.         UIPopAll
  164. ''        ERROR STFQUIT
  165.         END
  166.     ELSEIF sz$ = "REACTIVATE" THEN
  167.         GOTO ASKQUIT
  168.     ELSE
  169.         UIPop 1
  170.     END IF
  171.     RETURN
  172.  
  173. SMALLWIN:
  174.     sz$ = UIStartDlg(CUIDLL$, SMALLWIN, "FInfo0DlgProc", 0, "")
  175.     IF sz$ = "REACTIVATE" THEN
  176.         GOTO SMALLWIN
  177.     END IF
  178.     UIPop 1
  179.     RETURN
  180.  
  181. BADPATH:
  182.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  183.     IF sz$ = "REACTIVATE" THEN
  184.         GOTO BADPATH
  185.     END IF
  186.     UIPop 1
  187.     RETURN
  188.  
  189. '**
  190. '** Purpose:
  191. '**     performs all installation operations.
  192. '** Arguments:
  193. '**     none.
  194. '** Returns:
  195. '**     none.
  196. '*************************************************************************
  197. SUB Install STATIC
  198.  
  199.     CreateDir DEST$, cmoNone
  200.  
  201.     CopyFilesInCopyList
  202.  
  203.     IF HasMath% < 1 THEN
  204.         EMUInstall
  205.     END IF
  206.  
  207.     CreateIniKeyValue "WIN.INI", "Extensions", "tsd", DEST$ + "\TRUESPAC.EXE ^.tsd", cmoOverwrite
  208.     CreateProgmanGroup "trueSpace", "", cmoNone
  209.     ShowProgmanGroup  "trueSpace", 1, cmoNone
  210.     CreateProgmanItem "trueSpace", "trueSpace2", MakePath(DEST$,"truespac.exe"), "", cmoOverwrite
  211.     CreateProgmanItem "trueSpace", "Readme2", MakePath(DEST$,"readme20.wri"), "", cmoOverwrite
  212.     CreateProgmanItem "trueSpace", "Self-running Demo 1024x768", MakePath(DEST$,"dems1024.tsd"), "", cmoOverwrite
  213.     CreateProgmanItem "trueSpace", "Self-running Demo 800x600", MakePath(DEST$,"dems800.tsd"), "", cmoOverwrite
  214.     CreateProgmanItem "trueSpace", "QuickStart Demo 1024x768", MakePath(DEST$,"quicsta1.tsd"), "", cmoOverwrite
  215.     CreateProgmanItem "trueSpace", "QuickStart Demo 800x600", MakePath(DEST$,"quicsta8.tsd"), "", cmoOverwrite
  216.     CreateProgmanItem "trueSpace", "Shuttle 1024x768", MakePath(DEST$,"shtl1024.tsd"), "", cmoOverwrite
  217.     CreateProgmanItem "trueSpace", "Shuttle 800x600", MakePath(DEST$,"shtle800.tsd"), "", cmoOverwrite
  218.     CreateProgmanItem "trueSpace", "Fish 1024x768", MakePath(DEST$,"fish1.tsd"), "", cmoOverwrite
  219.     CreateProgmanItem "trueSpace", "Fish 800x600", MakePath(DEST$,"fish8.tsd"), "", cmoOverwrite
  220.     CreateProgmanItem "trueSpace", "trueSpace2 Help", "winhelp.exe " + MakePath(DEST$,"truespac.hlp"), "", cmoOverwrite
  221.     CreateProgmanItem "trueSpace", "KPT 2.0 Samples Help", "winhelp.exe " + MakePath(DEST$,"plugins\kpt20-sp.hlp"), "", cmoOverwrite
  222.  
  223. END SUB
  224.  
  225. '**
  226. '** Purpose:
  227. '**     install math emulator in system.ini file
  228. '** Arguments:
  229. '**     none.
  230. '** Returns:
  231. '**     none.
  232. '*************************************************************************
  233. SUB EMUInstall STATIC
  234.  
  235.     HasEMU% = DoesIniKeyExist("system.ini", "386Enh", "wemu")
  236.     IF HasEMU% < 1 THEN
  237.         CreateIniKeyValue WinDir$ + "system.ini", "386Enh", "wemu", "installed", cmoOverwrite
  238.         CreateSysIniKeyValue WinDir$ + "system.ini", "386Enh", "device", "wemu387.386", cmoOverwrite
  239.     END IF
  240.  
  241. END SUB
  242.  
  243. '**
  244. '** Purpose:
  245. '**     Appends a file name to the end of a directory path,
  246. '**     inserting a backslash character as needed.
  247. '** Arguments:
  248. '**     szDir$  - full directory path (with optional ending "\")
  249. '**     szFile$ - filename to append to directory
  250. '** Returns:
  251. '**     Resulting fully qualified path name.
  252. '*************************************************************************
  253. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  254.     IF szDir$ = "" THEN
  255.         MakePath = szFile$
  256.     ELSEIF szFile$ = "" THEN
  257.         MakePath = szDir$
  258.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  259.         MakePath = szDir$ + szFile$
  260.     ELSE
  261.         MakePath = szDir$ + "\" + szFile$
  262.     END IF
  263. END FUNCTION
  264.