home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Classic / MultimediaClassic.mdf / hardsoft / gusmax.set / bonus1-2 / bonus.inf < prev    next >
Encoding:
Text File  |  1994-07-12  |  10.3 KB  |  243 lines
  1. ;;WINDOWS=====================================================================
  2. ;;
  3. ;; Copyright '93, '94 Advanced Gravis Computer Technology Ltd.
  4. ;;                             All Rights Reserved
  5. ;;
  6. ;;      YOU MUST INSTALL THIS SOFTWARE FROM YOUR MAIN ULTRASOUND DISKS
  7. ;;
  8. ;;===========================================================================
  9. ;;
  10. ;; **WINDOWS** INSTALL = NOTE: This is used by parent script to determine
  11. ;;                             if we need to determine where Windows is.
  12. ;;                             If it isn't here on line two then the parent
  13. ;;                             script will not determine this before calling
  14. ;;                             the child process
  15. ;;
  16. ;;===========================================================================
  17. ;;            Title:     Gravis UltraSound Bonus Install
  18. ;;            Date:      03/02/94
  19. ;;
  20. ;; Purpose: Base script to configure bonus software installed
  21. ;;
  22. ;; Revisions: Allow user to selectivley install bonus software
  23. ;;    1.6 - 06/24/94 - taken out referenced to gsetup 'cause not used by
  24. ;;                      epic pinball anymore
  25. ;;          07/11/94 - added references to instgrps to create intro to midi
  26. ;;                     icons, etc
  27. ;; Limitations: a) Can not call procedures in parent script
  28. ;;              b) Can only access variables of parent script
  29. ;;              c) Can only modify the following variables:
  30. ;;                     [Number7] thru [Number9]
  31. ;;                     [String7] thru [String9]
  32. ;;                     [Point8]  thru [Point9]
  33. ;;                     [YesOrNo9]
  34. ;;                     [ReadmeName]
  35. ;;
  36. ;; Todo: Test this on a non windows setup
  37. ;;       Add in more bonus software
  38. ;;
  39. ;;===========================================================================
  40.  
  41.   ClearScreen
  42.  
  43.   TextBox WhiteOnBlue @xy(Center,5)
  44.     Use the space bar to toggle the Bonus software you do not want to install.
  45.   EndTextBox
  46.  
  47.   SetBottomLineAttrTo YellowOnRed
  48.   SetBottomLineTo     "             Press <RETURN> to Accept and Proceed with Installation             "
  49.  
  50.   GetMenuChoice WhiteOnLightBlue @xy(Center,9) PreselectAll Highlight 1 UseHeader "Bonus Software Menu"
  51.       MidiSoft Recording Session
  52.       ; Music composition and recording sequencing program (Windows)
  53.       Power Chords
  54.       ; Guitar based music sequencer and drum machine      (Windows)
  55.       Wave Lite
  56.       ; Wave editor                                        (Windows)
  57.       Sound Station
  58.       ; Multimedia stereo component system and mixer       (Windows)
  59.       UltraSound Studio
  60.       ; Digital recording studio                               (DOS)
  61.       Epic Pinball
  62.       ; Fast action game with dynamic UltraSound sound         (DOS)
  63.   EndGetMenuChoice
  64.  
  65.   InCase Choice is
  66.       =1: QueFileGroup 1 IfNewer IfNotEqual
  67.       =2: QueFileGroup 2 IfNewer IfNotEqual
  68.       =3: QueFileGroup 3 IfNewer IfNotEqual
  69.       =4: QueFileGroup 4 IfNewer IfNotEqual
  70.       =5: QueFileGroup 5 IfNewer IfNotEqual
  71.       =6: QueFileGroup 6 IfNewer IfNotEqual
  72.   EndInCase
  73.  
  74.  
  75.   [CurQueSize] := QueSize                      
  76.  
  77.   ClearScreen
  78.   Do InstallWhere                              
  79.  
  80.   Logging On                                   
  81.   SetLogFileTo [InstallationDirectory]\INSTALL.LOG 
  82.   SetBottomLineAttrTo WhiteOnBlue
  83.   SetBottomLineTo     "               Remember to mail in your UltraSound registration!                "
  84.  
  85.   ClearScreen
  86.   GetQuedFiles ShowJustOne                     
  87.   Logging Off                                  
  88.  
  89.   SetBottomLineAttrTo WhiteOnBlue
  90.   SetBottomLineTo     "Configuring DOS and Windows applications...                                     "
  91.  
  92.   ModifyTextFile [WinDir]\INSTGRPS.INI Quietly
  93.     InSection [general]
  94.         AddOrChangeLineWith (AppName=,,) as "AppName=Gravis UltraSound" at End
  95.     InSection [groups]
  96.         AddOrChangeLineWith (1=,,) as "1=Gravis UltraSound" at End
  97.   EndModifyTextFile
  98.  
  99.   If FileExists [InstallationDirectory]\SESSION\SESSION.EXE
  100.       ModifyTextFile [WinDir]\INSTGRPS.INI Quietly
  101.           InSection [group 1]
  102.             AddOrChangeLineWith (0=,,) as "0=[InstallationDirectory]\SESSION\SESSION.EXE, MIDISoft Recording Session" At End
  103.             AddOrChangeLineWith (6=,,) as "6=WINHELP -i INTRO_NOTATION [InstallationDirectory]\SESSION\INTRO.HLP, Introduction to Musical Notation" At End
  104.             AddOrChangeLineWith (7=,,) as "7=WINHELP -i INTRO_MIDI [InstallationDirectory]\SESSION\INTRO.HLP, Introduction to MIDI" At End
  105.             AddOrChangeLineWith (8=,,) as "8=WINHELP -i INTRO_GENERAL_MIDI [InstallationDirectory]\SESSION\INTRO.HLP, General MIDI" At End
  106.       EndModifyTextFile
  107.   EndIf
  108.  
  109.   If FileExists [InstallationDirectory]\PWRCHORD\POWCHORD.EXE
  110.       ModifyTextFile [WinDir]\INSTGRPS.INI Quietly
  111.           InSection [group 1]
  112.             AddOrChangeLineWith (1=,,) as "1=[InstallationDirectory]\PWRCHORD\POWCHORD.EXE, Power Chords" At End
  113.             AddOrChangeLineWith (2=,,) as "2=[InstallationDirectory]\PWRCHORD\POWCHORD.EXE TUTOR1.SCR, Power Chords Tutorial" At End
  114.             AddOrChangeLineWith (3=,,) as "3=[InstallationDirectory]\PWRCHORD\POWCHORD.EXE DEMO.SCR, Power Chords Demo" At End
  115.       EndModifyTextFile
  116.   EndIf
  117.  
  118.   If FileExists [InstallationDirectory]\WAVELITE\WAVE.EXE
  119.       ModifyTextFile [WinDir]\INSTGRPS.INI Quietly
  120.           InSection [group 1]
  121.             AddOrChangeLineWith (4=,,) as "4=[InstallationDirectory]\WAVELITE\WAVE.EXE, WaveLite" At End
  122.       EndModifyTextFile
  123.   EndIf
  124.  
  125.   If FileExists [InstallationDirectory]\SSTATION\SSTATION.EXE
  126.       ModifyTextFile [WinDir]\INSTGRPS.INI Quietly
  127.           InSection [group 1]
  128.             AddOrChangeLineWith (5=,,) as "5=[InstallationDirectory]\SSTATION\SSTATION.EXE, Sound Station" At End
  129.       EndModifyTextFile
  130.   EndIf
  131.  
  132.   If FileExists [InstallationDirectory]\INSTGRPS.EXE .AND. .NOT. [WinDir] = BlankString
  133.     ExamineTextFile [WinDir]\WIN.INI Quietly
  134.           [String9] := LineWith (run,=,)
  135.     EndModifyTextFile
  136.  
  137.     If [String9] = Blankstring                   
  138.         [String9] := "run="                      
  139.     EndIf
  140.     If .NOT. [String9] Contains INSTGRPS         
  141.         [String7] := [String9] [InstallationDirectory]\INSTGRPS.EXE
  142.  
  143.         ModifyTextFile [WinDir]\WIN.INI Quietly
  144.             InSection [WINDOWS]
  145.               AddOrChangeLineWith (run,=,) as "[String7]" at End
  146.         EndModifyTextFile
  147.     EndIf
  148.   EndIf
  149.  
  150.   If FileExists [InstallationDirectory]\WAVELITE\WAVE.EXE
  151.     ModifyTextFile [InstallationDirectory]\WAVELITE\WAVE.INI Quietly
  152.         AddOrChangeLineWith ([WaveForWindows],,) as "[WaveForWindows]" at End
  153.       InSection [WaveForWindows]
  154.         AddOrChangeLineWith (PlayBufferSize=,,)       as "PlayBufferSize=32768" at End
  155.         AddOrChangeLineWith (RecordBufferSize=,,)     as "RecordBufferSize=32768" at End
  156.         AddOrChangeLineWith (MeterBufferSize=,,)      as "MeterBufferSize=1024" at End
  157.         AddOrChangeLineWith (MaxWaveBuffs=,,)         as "MaxWaveBuffs=3" at End
  158.         AddOrChangeLineWith (ObtainedMaxWaveBuffs=,,) as "ObtainedMaxWaveBuffs=3" at End
  159.         AddOrChangeLineWith (CurrentInDevice=,,)      as "CurrentInDevice=0" at End
  160.         AddOrChangeLineWith (CurrentOutDevice=,,)     as "CurrentOutDevice=0" at End
  161.     EndModifyTextFile
  162.   EndIf
  163.  
  164.   If FileExists [InstallationDirectory]\PWRCHORD\POWCHORD.INI
  165.       CopyFiles From [InstallationDirectory]\PWRCHORD to [WinDir] Quietly
  166.          POWCHORD.INI
  167.       EndCopyFiles
  168.       DeleteFiles from [InstallationDirectory]\PWRCHORD Quietly
  169.          POWCHORD.INI
  170.       EndDeleteFiles
  171.   EndIf
  172.  
  173.   If FileExists [InstallationDirectory]\SSTATION\SNDSTAT.INI
  174.       CopyFiles From [InstallationDirectory]\SSTATION to [WinDir] Quietly
  175.          SNDSTAT.INI
  176.       EndCopyFiles
  177.       DeleteFiles from [InstallationDirectory]\SSTATION Quietly
  178.          SNDSTAT.INI
  179.       EndDeleteFiles
  180.       ModifyTextFile [WinDir]\SNDSTAT.INI Quietly
  181.             AddOrChangeLineWith (MIDIDir=,,)    as "MIDIDir=[InstallationDirectory]\SSTATION"    at End
  182.             AddOrChangeLineWith (WaveDir=,,)    as "WaveDir=[InstallationDirectory]\SSTATION"    at End
  183.             AddOrChangeLineWith (WaveRecDir=,,) as "WaveRecDir=[InstallationDirectory]\SSTATION" at End
  184.       EndModifyTextFile
  185.   EndIf
  186.  
  187.  
  188.   SetBottomLineAttrTo WhiteOnBlue
  189.   SetBottomLineTo     "               Remember to mail in your UltraSound registration!                "
  190.  
  191. Procedure InstallWhere
  192. :Point4
  193.     [UltraDIR] := EnvironmentStringFor ULTRADIR       
  194.  
  195.     If [UltraDIR] = Blankstring                       
  196.       DetermineInstallationDrive [CurQueSize] RequireFixed ConfirmRAM AllowNetwork ShowDrivesWithSpace
  197.       [UltraDIR] := InstallationDrive:\ULTRASND
  198.     Else
  199.         TextBox WhiteOnBlue @xy(Center,19)
  200.                 NOTE: You are updating from a previous installation. Only those files
  201.                 which are newer or have changed since your last install will be copied.
  202.         EndTextBox
  203.     EndIf
  204.  
  205.     SetBottomLineAttrTo YellowOnRed
  206.     SetBottomLineTo     "             Press <RETURN> to Accept and Proceed with Installation             "
  207.  
  208.     DetermineInstallationDirectory [UltraDIR] [CurQueSize] RequireFixed
  209.  
  210.     If [UltraDir] = Blankstring                  
  211.         Dialog PressAnyKey WhiteOnBlue @xy(Center,Center) UseHeader "No Installation Directory Selected"
  212.             You must choose a directory to install the UltraSound Software.
  213.         EndDialog
  214.         Goto Point4
  215.     EndIf
  216.  
  217.  
  218.     [Number9] := FreeSpaceOnDrive InstallationDrive
  219.     [Number9] := [Number9] + 2000000
  220.     If DriveIsDoubleSpace InstallationDrive .AND. [Number9] < [CurQueSize]
  221.         DO InstStatus
  222.         Dialog [YesOrNo1] WhiteOnBlue @xy(Center,Center) UseHeader "Double Space Drive Detected"
  223.             Programs such as STACKER and DOUBLE SPACE may not
  224.             accurately report the true drive space remaining.
  225.             You have selected to install the UltraSound software
  226.             to such a drive. This drive may have just enough
  227.             space for the install.
  228.  
  229.             .cAre you sure you wish to continue?
  230.         EndDialog
  231.         SetBottomLineAttrTo YellowOnRed
  232.         SetBottomLineTo     "             Press <RETURN> to Accept and Proceed with Installation             "
  233.         If [YesOrNo1] = NoCharacter
  234.             GOTO Point4
  235.         EndIf
  236.     EndIf
  237.  
  238. EndProcedure
  239.  
  240. Return                                           
  241.  
  242.  
  243.