home *** CD-ROM | disk | FTP | other *** search
/ Guinness Multimedia Disc of Records 1993 / GrolierEP-1993GuinnessMultimediaDiscOfRecords-MSDOS-Eng.iso / ggndos.inf < prev    next >
INI File  |  1993-05-19  |  17KB  |  561 lines
  1. ;; This is the installation script for DOS
  2. DefineVariables
  3. Text     [Title] := The 1993 Guinness Multimedia Disc of Records
  4. Text     [AppName]      := GGN
  5. Text     [InitFile]     := GGN.CFG
  6. Text     [AppExe]       := GGN.EXE
  7. ;;Text     [AppHelp]      := GGN.HLP
  8.  
  9. Text     [Video]     := tmmvid.EXE
  10.  
  11. Text     [Idx1]       := topindex.lst
  12. Text     [Idx2]       := super.lst
  13. Text     [Idx3]       := picindex.lst
  14. Text     [Idx4]       := alpha.lst
  15. Text     [Idx5]       := rrp.lst
  16. Text     [Idx6]       := topindex.idx
  17. Text     [Idx7]       := picindex.idx
  18. Text     [Idx8]       := vidindex.idx
  19. Text     [Idx9]       := super.idx
  20.  
  21. ;;Text     [Icon1]    := LOGO
  22. ;;Text     [Icon2]    := TOPIC
  23. ;;Text     [Icon3]    := SRCH
  24. ;;Text     [Icon4]    := SPRL
  25. ;;Text     [Icon5]    := BRWS
  26. ;;Text     [Icon6]    := RND
  27. ;;Text     [Icon7]    := PICT
  28. ;;Text     [Icon8]    := MOVIE
  29. ;;Text     [Bmp1]        := header.bmp
  30. ;;Text     [BGBitmap]    := splash.bmp
  31.  
  32. Text     [BckGndPic]    := VidBG.pcx
  33. Text     [CPL1]        := dblist.cpl
  34. Text     [CPL2]        := defaults.cpl
  35. Text     [CPL3]        := err_msgs.cpl
  36. Text     [CPL4]        := stopword.cpl
  37. Text     [HD]        := InstalitDirectoryharddisk
  38. Text     [UserVersion]
  39. Text     [NewVersion]
  40. Text     [TextVar]
  41. Text     [TempDir]    := \tmp
  42. EndDefineVariables
  43.  
  44. [Number8] := 0
  45.  
  46. Do SetupGro
  47.  
  48.  
  49. Dialog 
  50.   .cThanks for purchasing [Title].
  51. EndDialog
  52.  
  53. [Point1]
  54.  
  55. GetMenuChoice
  56.   Install [Title]
  57.     ; Use this choice initially for a
  58.     ; complete installation.  It will
  59.     ; use approximately 4MB of your 
  60.     ; hard disk.
  61. ;;  Install smallest version of [Title]
  62. ;;    ; Use this choice initially for a
  63. ;;    ; complete installation.  It will
  64. ;;    ; use approximately 2.5 MB of your 
  65. ;;    ; hard disk but performance will 
  66. ;;    ; be slower.
  67.   Finished
  68.     ; Exit this installation process
  69. EndGetMenuChoice
  70.  
  71. InCase Choice is
  72.   =1:  Do Install
  73.   =2:  Do ByeBye
  74. ;;  =2:  Do SmInstall
  75. ;;  =3:  Do ByeBye
  76. EndInCase
  77.  
  78. Procedure Install
  79. ;;    Install procedure that INCLUDES indexes
  80.  
  81.   [InstallationDirectory] := C:\GGN
  82.  
  83.   Dialog [InstallationDirectory] 44
  84.     Please indicate the drive and directory where
  85.     [Title] should be installed.
  86.   EndDialog
  87.  
  88.   CreateDirectoryIfNecessary [InstallationDirectory]
  89.   ChangeDirectoryTo [InstallationDirectory]
  90.   CreateDirectoryIfNecessary [InstallationDirectory][TempDir]
  91.  
  92.   CopyFiles from [HD] to [InstallationDirectory]
  93.     *.*
  94.   EndCopyFiles
  95.  
  96.    SetFileAttrTo 00 for [InstallationDirectory]\[AppExe]
  97.    SetFileAttrTo 00 for [InstallationDirectory]\[InitFile]
  98. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[AppHelp]
  99.    SetFileAttrTo 00 for [InstallationDirectory]\[Idx1]
  100.    SetFileAttrTo 00 for [InstallationDirectory]\[Idx2]
  101.    SetFileAttrTo 00 for [InstallationDirectory]\[Idx3]
  102.    SetFileAttrTo 00 for [InstallationDirectory]\[Idx4]
  103.    SetFileAttrTo 00 for [InstallationDirectory]\[Idx5]
  104.    SetFileAttrTo 00 for [InstallationDirectory]\[Idx6]
  105.    SetFileAttrTo 00 for [InstallationDirectory]\[Idx7]
  106.    SetFileAttrTo 00 for [InstallationDirectory]\[Idx8]
  107.    SetFileAttrTo 00 for [InstallationDirectory]\[Idx9]
  108.    SetFileAttrTo 00 for [InstallationDirectory]\[BckGndPic]
  109.    SetFileAttrTo 00 for [InstallationDirectory]\[CPL1]
  110.    SetFileAttrTo 00 for [InstallationDirectory]\[CPL2]
  111.    SetFileAttrTo 00 for [InstallationDirectory]\[CPL3]
  112.    SetFileAttrTo 00 for [InstallationDirectory]\[CPL4]
  113.    SetFileAttrTo 00 for [InstallationDirectory]\[Video]
  114.  
  115. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon1]
  116. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon2]
  117. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon3]
  118. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon4]
  119. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon5]
  120. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon6]
  121. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon7]
  122. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon8]
  123. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Bmp1]
  124. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[BGBitmap]
  125.  
  126. ;;   ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  127. ;;     InSection [GGN]
  128. ;;     AddOrChangeLineWith (Indexes,=,) as "Indexes=[InstallationDirectory]" at end
  129. ;;   EndModifyTextFile
  130.  
  131.    DeleteFiles
  132.      [CPL1]
  133.      [InitFile]
  134.    EndDeleteFiles
  135.  
  136.    ClearScreen
  137.    Do SetCfg
  138.  
  139. ;; fixup dblist (note remove [InstallFromDrive]:\ if dbase on hd)
  140.    ModifyTextFile [InstallationDirectory]\[CPL1] Quietly NoBackup
  141.      AddOrChangeLineWith (GGN,GGN) as "GGN [InstallFromDrive]:\GGN" At Beginning
  142.    EndModifyTextFile
  143.  
  144.   Do ByeBye
  145.  
  146. EndProcedure        ;; end Install procedure
  147.  
  148. Procedure SmInstall
  149. ;;    Install procedure without copying indexes to hard disk
  150.   [InstallationDirectory] := C:\GGN
  151.  
  152.   Dialog [InstallationDirectory] 44
  153.     Please indicate the drive and directory where
  154.     [Title] should be installed.
  155.   EndDialog
  156.  
  157.   CreateDirectoryIfNecessary [InstallationDirectory]
  158.   ChangeDirectoryTo [InstallationDirectory]
  159.   CreateDirectoryIfNecessary [InstallationDirectory][TempDir]
  160.  
  161.  
  162.   CopyFiles from [HD] to [InstallationDirectory]
  163. ;;    [InitFile]  
  164.     [AppExe]    
  165. ;;    [AppHelp]   
  166.     [Video]     
  167. ;;    [Icon1]    
  168. ;;    [Icon2]    
  169. ;;    [Icon3]    
  170. ;;    [Icon4]    
  171. ;;    [Icon5]    
  172. ;;    [Icon6]    
  173. ;;    [Icon7]    
  174. ;;    [Icon8]    
  175. ;;    [Bmp1]        
  176. ;;    [BGBitmap]        
  177.     [CPL1]        
  178.     [CPL2]        
  179.     [CPL3]        
  180.     [CPL4]        
  181.   EndCopyFiles
  182.  
  183.    SetFileAttrTo 00 for [InstallationDirectory]\[AppExe]
  184.    SetFileAttrTo 00 for [InstallationDirectory]\[InitFile]
  185. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[AppHelp]
  186.    SetFileAttrTo 00 for [InstallationDirectory]\[Video]
  187. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon1]
  188. ::   SetFileAttrTo 00 for [InstallationDirectory]\[Icon2]
  189. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon3]
  190. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon4]
  191. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon5]
  192. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon6]
  193. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon7]
  194. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Icon8]
  195. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[Bmp1]
  196. ;;   SetFileAttrTo 00 for [InstallationDirectory]\[BGBitmap]
  197.  
  198. ;;   ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  199. ;;     InSection [GGN]
  200. ;;     AddOrChangeLineWith (Indexes,=,) as "Indexes=[HD]" at end
  201. ;;   EndModifyTextFile
  202.  
  203.    Do SetCfg
  204.  
  205. ;; fixup dblist.cpl
  206.    ModifyTextFile [InstallationDirectory]\[CPL1] Quietly NoBackup
  207.      AddOrChangeLineWith (GGN,GGN) as "GGN [InstallFromDrive]:\GGN" At Beginning
  208.    EndModifyTextFile
  209.  
  210.   Do ByeBye
  211.  
  212. EndProcedure        ;; End small install procedure
  213.  
  214. Procedure SetCfg
  215.  
  216.   Dialog [InstallFromDrive] 1
  217.     Please indicate the drive letter of the CD-ROM
  218.     drive where Guinness will be located.
  219.   EndDialog
  220.  
  221. ;; Setup disk to get database from
  222.    ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  223.      InSection [GGN]
  224.      AddOrChangeLineWith (Disk,=,) as "Disk=[InstallFromDrive]" at end
  225.    EndModifyTextFile
  226.  
  227. ;;   ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  228. ;;     InSection [GGN]
  229. ;;     AddOrChangeLineWith (DB,=,) as "DB=[InstallFromDrive]:\GGN" at end
  230. ;;   EndModifyTextFile
  231.  
  232. GetMenuChoice Highlight 2
  233.   SVGA
  234.     ; This application works with VGA and most SVGA display boards.
  235.     ; Select SVGA if you have an SVGA board installed in your computer.
  236.     ; If you encounter display problems, reinstall with VGA selected.
  237.     ;
  238.   VGA
  239.     ; This application works with VGA and most SVGA display boards.
  240.     ; Select SVGA if you have an SVGA board installed in your computer.
  241.     ; If you encounter display problems, reinstall with VGA selected.
  242.     ;
  243. EndGetMenuChoice
  244.  
  245. InCase Choice is
  246.   =1:  [TextVar] := "VGA8"
  247.   =2:  [TextVar] := "VGA4"
  248. EndInCase
  249.  
  250.    ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  251. ;;     InSection [VIDEO]
  252.      AddOrChangeLineWith (VGA,=) as "[TextVar]=TRUE" at end
  253.    EndModifyTextFile
  254.  
  255.  
  256. GetMenuChoice
  257.   Mediavision Sound Board
  258.     ; To get sound with your movies,
  259.     ; select the type of sound board 
  260.     ; you have installed.
  261.     ; 
  262.   Windows Sound System
  263.     ; To get sound with your movies,
  264.     ; select the type of sound board 
  265.     ; you have installed.
  266.     ; 
  267.   Sound Blaster Series
  268.     ; To get sound with your movies,
  269.     ; select the type of sound board 
  270.     ; you have installed.
  271.     ; 
  272.   Adlib Gold Series
  273.     ; To get sound with your movies,
  274.     ; select the type of sound board 
  275.     ; you have installed.
  276.     ; 
  277.   None
  278.     ; Select this if you don't have
  279.     ; a sound board installed.
  280.     ;
  281. EndGetMenuChoice
  282.  
  283. InCase Choice is
  284.   =1:  Do SetMediaVSnd
  285.   =2:  Do SetWinSnd
  286.   =3:  Do SetSound
  287.   =4:  Do SetAdLib
  288.   =5:  Do AutoSnd
  289. EndInCase
  290.  
  291.  
  292.   [Number8] := 1
  293.  
  294.  
  295. EndProcedure            ;; end procedure SetCfg
  296.  
  297. Procedure AutoSnd
  298.    ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  299.      InSection [SOUND]
  300.      AddOrChangeLineWith (SndBrd,=,) as "SndBrd=0" at end
  301.    EndModifyTextFile
  302. EndProcedure
  303.  
  304. Procedure SetMediaVSnd
  305.    ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  306.      InSection [SOUND]
  307.      AddOrChangeLineWith (SndBrd,=,) as "SndBrd=0" at end
  308.    EndModifyTextFile
  309. EndProcedure
  310.  
  311. Procedure SetWinSnd
  312.    ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  313.      InSection [SOUND]
  314.      AddOrChangeLineWith (SndBrd,=,) as "SndBrd=0" at end
  315.    EndModifyTextFile
  316. EndProcedure
  317.  
  318.  
  319. Procedure SetSound
  320.  
  321. ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  322.   InSection [SOUND]
  323.   AddOrChangeLineWith (SndBrd,=,) as "SndBrd=2" at end
  324. EndModifyTextFile
  325.  
  326. GetMenuChoice Highlight 1
  327.   220
  328.     ; Select the Port that your Sound Blaster Board uses.
  329.     ; The default is 220.  If you don't know this information 
  330.     ; you should be able to find it by looking at your 
  331.     ; autoexec.bat or config.sys. 
  332.     ; 
  333.   240
  334.     ; Select the Port that your Sound Blaster Board uses.
  335.     ; The default is 220.  If you don't know this information 
  336.     ; you should be able to find it by looking at your 
  337.     ; autoexec.bat or config.sys. 
  338.     ; 
  339. EndGetMenuChoice
  340.  
  341. InCase Choice is
  342.   =1:  [TextVar] := "220"
  343.   =2:  [TextVar] := "240"
  344. EndInCase
  345.  
  346.  
  347.    ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  348.      InSection [SOUND]
  349.      AddOrChangeLineWith (SndPort,=,) as "SndPort=[TextVar]" at end
  350.    EndModifyTextFile
  351.  
  352. GetMenuChoice Highlight 4
  353.   2
  354.     ; Select the IRQ that your Sound Blaster Board uses.
  355.     ; The default is 7.  If you don't know this information 
  356.     ; you should be able to find it by looking at your 
  357.     ; autoexec.bat or config.sys. 
  358.     ; 
  359.   3
  360.     ; Select the IRQ that your Sound Blaster Board uses.
  361.     ; The default is 7.  If you don't know this information 
  362.     ; you should be able to find it by looking at your 
  363.     ; autoexec.bat or config.sys. 
  364.     ; 
  365.   5
  366.     ; Select the IRQ that your Sound Blaster Board uses.
  367.     ; The default is 7.  If you don't know this information 
  368.     ; you should be able to find it by looking at your 
  369.     ; autoexec.bat or config.sys. 
  370.     ; 
  371.   7
  372.     ; Select the IRQ that your Sound Blaster Board uses.
  373.     ; The default is 7.  If you don't know this information 
  374.     ; you should be able to find it by looking at your 
  375.     ; autoexec.bat or config.sys. 
  376.     ; 
  377. EndGetMenuChoice
  378.  
  379. InCase Choice is
  380.   =1:  [TextVar] := "2"
  381.   =2:  [TextVar] := "3"
  382.   =3:  [TextVar] := "5"
  383.   =4:  [TextVar] := "7"
  384. EndInCase
  385.  
  386.    ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  387.      InSection [SOUND]
  388.      AddOrChangeLineWith (SndIrq,=,) as "SndIrq=[TextVar]" at end
  389.    EndModifyTextFile
  390.  
  391. GetMenuChoice Highlight 2
  392.   0
  393.     ; Select the DMA that your Sound Blaster Board uses.
  394.     ; The default is 1.  If you don't know this information 
  395.     ; you should be able to find it by looking at your 
  396.     ; autoexec.bat or config.sys. 
  397.     ; 
  398.   1
  399.     ; Select the DMA that your Sound Blaster Board uses.
  400.     ; The default is 1.  If you don't know this information 
  401.     ; you should be able to find it by looking at your 
  402.     ; autoexec.bat or config.sys. 
  403.     ; 
  404.   3
  405.     ; Select the DMA that your Sound Blaster Board uses.
  406.     ; The default is 1.  If you don't know this information 
  407.     ; you should be able to find it by looking at your 
  408.     ; autoexec.bat or config.sys. 
  409.     ; 
  410. EndGetMenuChoice
  411.  
  412. InCase Choice is
  413.   =1:  [TextVar] := "0"
  414.   =2:  [TextVar] := "1"
  415.   =3:  [TextVar] := "3"
  416. EndInCase
  417.  
  418.    ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  419.      InSection [SOUND]
  420.      AddOrChangeLineWith (SndDma,=,) as "SndDma=[TextVar]" at end
  421.    EndModifyTextFile
  422.  
  423. EndProcedure
  424.  
  425. Procedure SetAdLib
  426.  
  427. ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  428.   InSection [SOUND]
  429.   AddOrChangeLineWith (SndBrd,=,) as "SndBrd=3" at end
  430. EndModifyTextFile
  431.  
  432. GetMenuChoice Highlight 3
  433.   220
  434.     ; Select the Port that your Adlib Gold Series Board uses.
  435.     ; The default is 388.  If you don't know this information 
  436.     ; you should be able to find it by looking at your 
  437.     ; autoexec.bat or config.sys. 
  438.     ; 
  439.   240
  440.     ; Select the Port that your Adlib Gold Series Board uses.
  441.     ; The default is 388.  If you don't know this information 
  442.     ; you should be able to find it by looking at your 
  443.     ; autoexec.bat or config.sys. 
  444.     ; 
  445.   388
  446.     ; Select the Port that your Adlib Gold Series Board uses.
  447.     ; The default is 388.  If you don't know this information 
  448.     ; you should be able to find it by looking at your 
  449.     ; autoexec.bat or config.sys. 
  450.     ; 
  451. EndGetMenuChoice
  452.  
  453. InCase Choice is
  454.   =1:  [TextVar] := "220"
  455.   =2:  [TextVar] := "240"
  456.   =3:  [TextVar] := "388"
  457. EndInCase
  458.  
  459.  
  460.    ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  461.      InSection [SOUND]
  462.      AddOrChangeLineWith (SndPort,=,) as "SndPort=[TextVar]" at end
  463.    EndModifyTextFile
  464. ;;   ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  465. ;;     InSection [SOUND]
  466. ;;     AddOrChangeLineWith (SndPort,=,) as "SndPort=388" at end
  467. ;;   EndModifyTextFile
  468.  
  469. GetMenuChoice Highlight 3
  470.   3
  471.     ; Select the IRQ that your AdLib Gold Sound Board uses.
  472.     ; The default is 5.  If you don't know this information 
  473.     ; you should be able to find it by looking at your 
  474.     ; autoexec.bat or config.sys. 
  475.     ; 
  476.   4
  477.     ; Select the IRQ that your AdLib Gold Sound Board uses.
  478.     ; The default is 5.  If you don't know this information 
  479.     ; you should be able to find it by looking at your 
  480.     ; autoexec.bat or config.sys. 
  481.     ; 
  482.   5
  483.     ; Select the IRQ that your AdLib Gold Sound Board uses.
  484.     ; The default is 5.  If you don't know this information 
  485.     ; you should be able to find it by looking at your 
  486.     ; autoexec.bat or config.sys. 
  487.     ; 
  488.   7
  489.     ; Select the IRQ that your AdLib Gold Sound Board uses.
  490.     ; The default is 5.  If you don't know this information 
  491.     ; you should be able to find it by looking at your 
  492.     ; autoexec.bat or config.sys. 
  493.     ; 
  494. EndGetMenuChoice
  495.  
  496. InCase Choice is
  497.   =1:  [TextVar] := "3"
  498.   =2:  [TextVar] := "4"
  499.   =3:  [TextVar] := "5"
  500.   =4:  [TextVar] := "7"
  501. EndInCase
  502.  
  503.    ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  504.      InSection [SOUND]
  505.      AddOrChangeLineWith (SndIrq,=,) as "SndIrq=[TextVar]" at end
  506.    EndModifyTextFile
  507.  
  508. GetMenuChoice Highlight 1
  509.   1
  510.     ; Select the DMA that your AdLib Gold Sound Board uses.
  511.     ; The default is 1  If you don't know this information 
  512.     ; you should be able to find it by looking at your 
  513.     ; autoexec.bat or config.sys. 
  514.     ; 
  515.   2
  516.     ; Select the DMA that your AdLib Gold Sound Board uses.
  517.     ; The default is 1  If you don't know this information 
  518.     ; you should be able to find it by looking at your 
  519.     ; autoexec.bat or config.sys. 
  520.     ; 
  521.   3
  522.     ; Select the DMA that your AdLib Gold Sound Board uses.
  523.     ; The default is 1  If you don't know this information 
  524.     ; you should be able to find it by looking at your 
  525.     ; autoexec.bat or config.sys. 
  526.     ; 
  527. EndGetMenuChoice
  528.  
  529. InCase Choice is
  530.   =1:  [TextVar] := "1"
  531.   =2:  [TextVar] := "2"
  532.   =3:  [TextVar] := "3"
  533. EndInCase
  534.  
  535.    ModifyTextFile [InstallationDirectory]\[Initfile] Quietly NoBackup
  536.      InSection [SOUND]
  537.      AddOrChangeLineWith (SndDma,=,) as "SndDma=[TextVar]" at end
  538.    EndModifyTextFile
  539.  
  540. EndProcedure
  541.  
  542. Procedure ByeBye
  543.   if [Number8] = 1
  544.   else
  545.      Popup [Title] was not successfully installed.
  546.   Endif
  547.    
  548.   Dialog PressAKey WhiteOnBrown
  549.     Thanks for purchasing [Title].
  550.   EndDialog
  551.   SoLong
  552. EndProcedure
  553.  
  554.  
  555. Procedure SetupGro
  556.   SetTopLineTo Installing [Title] (Press Esc to exit)
  557. EndProcedure
  558.  
  559. EndScript
  560.  
  561.