home *** CD-ROM | disk | FTP | other *** search
/ Computer Installation Guide - Dragon Clan Series / CD1.iso / SOUND / ADSP16 / DISK1 / FME4.MST < prev    next >
Encoding:
Text File  |  1993-12-16  |  6.3 KB  |  258 lines
  1.  
  2.  
  3.  
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10.  
  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 OPTIONS       = 800
  18. CONST APPHELP       = 900
  19. CONST BADPATH       = 6400
  20.  
  21.  
  22. CONST LOGO = 1
  23.  
  24. GLOBAL DEST$        
  25. GLOBAL OPTCUR$      
  26.  
  27. DECLARE SUB Install
  28. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  29.  
  30. DECLARE FUNCTION xTester LIB "voy.dll" (szSymbol$) AS INTEGER
  31. DECLARE FUNCTION maxMeOut LIB "voy.dll"
  32.  
  33. INIT:
  34.     CUIDLL$ = "mscuistf.dll"            
  35.     HELPPROC$ = "FHelpDlgProc"          
  36.  
  37.     SetBitmap CUIDLL$, LOGO
  38.     SetTitle "Voyetra Software"
  39.  
  40.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  41.     IF szInf$ = "" THEN
  42.         szInf$ = GetSymbolValue("STF_CWDDIR") + "fme4.INF"
  43.     END IF
  44.     ReadInfFile szInf$
  45.  
  46.     OPTCUR$ = "1"
  47.     DEST$ = "C:\B_ADSP16"
  48.  
  49. '$IFDEF DEBUG
  50.     i% = SetSizeCheckMode(scmOnIgnore)    
  51.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  52.     IF IsDriveValid(WinDrive$) = 0 THEN
  53.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  54.         GOTO QUIT
  55.     END IF
  56. '$ENDIF ''DEBUG
  57.  
  58.  
  59. WELCOME:
  60.     i% = maxMeOut()
  61.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  62.     IF sz$ = "CONTINUE" THEN
  63.         UIPop 1
  64.     ELSE
  65.         GOSUB ASKQUIT
  66.         GOTO WELCOME
  67.     END IF
  68.  
  69.  
  70. GOTO GETPATH    
  71.  
  72. OPTION:
  73.     SetSymbolValue "RadioDefault", OPTCUR$
  74. OPTL1:
  75.     sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
  76.     OPTCUR$ = GetSymbolValue("ButtonChecked")
  77.  
  78.     IF sz$ = "CONTINUE" THEN
  79.         UIPop(1)
  80.     ELSEIF sz$ = "REACTIVATE" THEN
  81.         GOTO OPTL1
  82.     ELSE
  83.         GOSUB ASKQUIT
  84.         GOTO OPTION
  85.     END IF
  86.  
  87.  
  88. GETPATH:
  89.     SetSymbolValue "EditTextIn", DEST$
  90.     SetSymbolValue "EditFocus", "END"
  91. GETPATHL1:
  92.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  93.     DEST$ = GetSymbolValue("EditTextOut")
  94.  
  95.     IF sz$ = "CONTINUE" THEN
  96.         IF IsDirWritable(DEST$) = 0 THEN
  97.             GOSUB BADPATH
  98.             GOTO GETPATHL1
  99.         END IF
  100.         UIPop 1
  101.     ELSEIF sz$ = "REACTIVATE" THEN
  102.         GOTO GETPATHL1
  103.     ELSEIF sz$ = "BACK" THEN
  104.         UIPop 1
  105.         GOTO WELCOME  
  106.     ELSE
  107.         GOSUB ASKQUIT
  108.         GOTO GETPATH
  109.     END IF
  110.  
  111.  
  112.     Install
  113.  
  114.  
  115. QUIT:
  116.     ON ERROR GOTO ERRQUIT
  117.  
  118.     IF ERR = 0 THEN
  119.         i% = xTester(DEST$)
  120.         dlg% = EXITSUCCESS
  121.  
  122.     ELSEIF ERR = STFQUIT THEN
  123.         dlg% = EXITQUIT
  124.     ELSE
  125.         dlg% = EXITFAILURE
  126.     END IF
  127. QUITL1:
  128.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  129.     IF sz$ = "REACTIVATE" THEN
  130.         GOTO QUITL1
  131.     END IF
  132.     UIPop 1
  133. NODONE:
  134.     END
  135.  
  136. ERRQUIT:
  137.     i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  138.     END
  139.  
  140.  
  141.  
  142. BADPATH:
  143.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  144.     IF sz$ = "REACTIVATE" THEN
  145.         GOTO BADPATH
  146.     END IF
  147.     UIPop 1
  148.     RETURN
  149.  
  150.  
  151.  
  152. ASKQUIT:
  153.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  154.  
  155.     IF sz$ = "EXIT" THEN
  156.         UIPopAll
  157.         ERROR STFQUIT
  158.     ELSEIF sz$ = "REACTIVATE" THEN
  159.         GOTO ASKQUIT
  160.     ELSE
  161.         UIPop 1
  162.     END IF
  163.     RETURN
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175. SUB Install STATIC
  176.  
  177.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  178.     CreateDir DEST$, cmoNone
  179.  
  180.     OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  181.     WriteToLogFile ""
  182.     WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  183.     WriteToLogFile "  User chose option: '" + OPTCUR$ + "'"
  184.     WriteToLogFile ""
  185.     WriteToLogFile "May have had to create the directory: " + DEST$
  186.     WriteToLogFile ""
  187.  
  188.     AddSectionFilesToCopyList "Apps", SrcDir$, DEST$ + "\winapps"
  189.     AddSectionFilesToCopyList "Wave", SrcDir$, DEST$ + "\sounds"
  190.     AddSectionFilesToCopyList "MIDI", SrcDir$, DEST$ + "\songs"
  191.     AddSectionFilesToCopyList "Drivers", SrcDir$, DEST$
  192.  
  193.     bla1$ = "x"
  194.     bla2$ = "x"
  195.     bla3$ = "x"
  196.     theRoom& = GetCopyListCost(bla1$,bla2$,bla3$)
  197.     haha% = 0
  198.     IF theRoom <> 0 THEN
  199.         bla1$ = "There is not enough disk space for all the files.  "
  200.         bla2$ = "Unless you are re-installing this software into "
  201.         bla3$ = "the same directory, the installation will fail.  "
  202.         bla4$ = "Do you wish to continue?"
  203.         
  204.         haha% = DoMsgBox(bla1$ + bla2$ + bla3$ + bla4$,"",4)
  205.         IF haha% = 7 THEN
  206.             RETURN
  207.         END IF
  208.     END IF
  209.     CopyFilesInCopyList
  210.     winders$ = GetWindowsDir
  211.     CopyFile DEST$ + "\vyiosvc2.dll",winders$ + "system" + "\vyiosvc2.dll",cmoOverwrite,0
  212.     CopyFile DEST$ + "\vvdmad.386",winders$ + "system" + "\vvdmad.386",cmoOverwrite,0
  213.     CopyFile DEST$ + "\winapps\voy.scr",winders$ + "voy.scr",cmoOverwrite,0
  214.  
  215.  
  216.  
  217.  
  218.     CreateProgmanGroup "ADSP-16", "", cmoNone
  219.     ShowProgmanGroup  "ADSP-16", 1, cmoNone
  220.    CreateProgmanItem "ADSP-16", "Audiostation",DEST$ + "\winapps\audiosta.exe","", cmoOverwrite
  221.    CreateProgmanItem "ADSP-16", "Orchestrator",DEST$ + "\winapps\orch.exe","", cmoOverwrite
  222.    CreateProgmanItem "ADSP-16", "WinDAT",DEST$ + "\winapps\windat.exe","", cmoOverwrite
  223.    CreateProgmanItem "ADSP-16", "SayIt!",DEST$ + "\winapps\sayit.exe","", cmoOverwrite
  224.    CreateProgmanItem "ADSP-16", "SoundScript",DEST$ + "\winapps\sscript.exe","", cmoOverwrite
  225.    CreateProgmanItem "ADSP-16", "SoundEvents",DEST$ + "\winapps\sndevent.exe","", cmoOverwrite
  226.    CreateProgmanItem "ADSP-16", "VoiceNet",DEST$ + "\winapps\voicenet.exe","", cmoOverwrite
  227.    CreateProgmanItem "ADSP-16", "Audio Calendar",DEST$ + "\winapps\cal.exe","", cmoOverwrite
  228.    CreateProgmanItem "ADSP-16", "JukeBox",DEST$ + "\winapps\jukebox.exe","", cmoOverwrite
  229.    CreateProgmanItem "ADSP-16", "Read Me","write " + DEST$ + "\winapps\readme.wri","", cmoOverwrite
  230.    CloseLogFile
  231.  
  232. END SUB
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  247.     IF szDir$ = "" THEN
  248.         MakePath = szFile$
  249.     ELSEIF szFile$ = "" THEN
  250.         MakePath = szDir$
  251.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  252.         MakePath = szDir$ + szFile$
  253.     ELSE
  254.         MakePath = szDir$ + "\" + szFile$
  255.     END IF
  256. END FUNCTION
  257.  
  258.