home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 April / IMM0495.ISO / share / os2 / spiele4 / install.cmd < prev    next >
OS/2 REXX Batch file  |  1994-09-14  |  7KB  |  210 lines
  1. /* Entertainment Pack for OS/2 Installation */
  2. '@Echo Off'
  3. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  4. Call SysLoadFuncs
  5. Signal On Failure Name FAILURE
  6. Signal On Halt Name HALT
  7. Signal On Syntax Name SYNTAX
  8. Call SysCls
  9. Say 'Installing Entertainment Pack for OS/2...'
  10. Say ''
  11. Result = SysFileTree( 'BG.EXE', 'Files', 'F' )
  12. If Files.0 = 0 Then
  13.   Do
  14.   Say 'ERROR: BG.EXE not found! Installation cancelled.'
  15.   Signal DONE
  16.   End
  17. Result = SysFileTree( 'BG.HLP', 'Files', 'F' )
  18. If Files.0 = 0 Then
  19.   Do
  20.   Say 'ERROR: BG.HLP not found! Installation cancelled.'
  21.   Signal DONE
  22.   End
  23. Result = SysFileTree( 'FOUR.EXE', 'Files', 'F' )
  24. If Files.0 = 0 Then
  25.   Do
  26.   Say 'ERROR: FOUR.EXE not found! Installation cancelled.'
  27.   Signal DONE
  28.   End
  29. Result = SysFileTree( 'FOUR.HLP', 'Files', 'F' )
  30. If Files.0 = 0 Then
  31.   Do
  32.   Say 'ERROR: FOUR.HLP not found! Installation cancelled.'
  33.   Signal DONE
  34.   End
  35. Result = SysFileTree( 'MASTER.EXE', 'Files', 'F' )
  36. If Files.0 = 0 Then
  37.   Do
  38.   Say 'ERROR: MASTER.EXE not found! Installation cancelled.'
  39.   Signal DONE
  40.   End
  41. Result = SysFileTree( 'MASTER.HLP', 'Files', 'F' )
  42. If Files.0 = 0 Then
  43.   Do
  44.   Say 'ERROR: MASTER.HLP not found! Installation cancelled.'
  45.   Signal DONE
  46.   End
  47. Result = SysFileTree( 'OTHELLO.EXE', 'Files', 'F' )
  48. If Files.0 = 0 Then
  49.   Do
  50.   Say 'ERROR: OTHELLO.EXE not found! Installation cancelled.'
  51.   Signal DONE
  52.   End
  53. Result = SysFileTree( 'OTHELLO.HLP', 'Files', 'F' )
  54. If Files.0 = 0 Then
  55.   Do
  56.   Say 'ERROR: OTHELLO.HLP not found! Installation cancelled.'
  57.   Signal DONE
  58.   End
  59. Result = SysFileTree( 'PEGGED.EXE', 'Files', 'F' )
  60. If Files.0 = 0 Then
  61.   Do
  62.   Say 'ERROR: PEGGED.EXE not found! Installation cancelled.'
  63.   Signal DONE
  64.   End
  65. Result = SysFileTree( 'PEGGED.HLP', 'Files', 'F' )
  66. If Files.0 = 0 Then
  67.   Do
  68.   Say 'ERROR: PEGGED.HLP not found! Installation cancelled.'
  69.   Signal DONE
  70.   End
  71. Result = SysFileTree( 'TIC.EXE', 'Files', 'F' )
  72. If Files.0 = 0 Then
  73.   Do
  74.   Say 'ERROR: TIC.EXE not found! Installation cancelled.'
  75.   Signal DONE
  76.   End
  77. Result = SysFileTree( 'TIC.HLP', 'Files', 'F' )
  78. If Files.0 = 0 Then
  79.   Do
  80.   Say 'ERROR: TIC.HLP not found! Installation cancelled.'
  81.   Signal DONE
  82.   End
  83. Result = SysFileTree( 'GALAXY.EXE', 'Files', 'F' )
  84. If Files.0 = 0 Then
  85.   Do
  86.   Say 'ERROR: GALAXY.EXE not found! Installation cancelled.'
  87.   Signal DONE
  88.   End
  89. Result = SysFileTree( 'GALAXY.HLP', 'Files', 'F' )
  90. If Files.0 = 0 Then
  91.   Do
  92.   Say 'ERROR: GALAXY.HLP not found! Installation cancelled.'
  93.   Signal DONE
  94.   End
  95. Result = SysFileTree( 'LICENSE.TXT', 'Files', 'F' )
  96. If Files.0 = 0 Then
  97.   Do
  98.   Say 'ERROR: LICENSE.TXT not found! Installation cancelled.'
  99.   Signal DONE
  100.   End
  101. Result = SysFileTree( 'ENTRTAIN.DOC', 'Files', 'F' )
  102. If Files.0 = 0 Then
  103.   Do
  104.   Say 'ERROR: ENTRTAIN.DOC not found! Installation cancelled.'
  105.   Signal DONE
  106.   End
  107. Say 'Please enter the full name of the directory to which you want'
  108. Say 'the Entertainment Pack for OS/2 installed (default C:\OS2\APPS): '
  109. Pull Directory
  110. If Directory = "" Then Directory = 'C:\OS2\APPS'
  111. Result = SysFileTree( Directory, 'Dirs', 'D' )
  112. If Dirs.0 = 0 Then
  113.   Do
  114.   Result = SysMkDir( Directory )
  115.   if Result == 0 Then
  116.     Do
  117.     End
  118.   Else
  119.     Do
  120.     Say 'ERROR: Unable to create target directory. Installation cancelled.'
  121.     Signal DONE
  122.     End
  123.   End
  124. Say ''
  125. Say 'The program objects will be placed in the Games folder...'
  126. Folder = '<WP_GAMES>'
  127. Say ''
  128. Say 'Copying BG.EXE to' Directory '...'
  129. Copy BG.EXE Directory                  '1>NUL'
  130. Say 'Copying BG.HLP to' Directory '...'
  131. Copy BG.HLP Directory                  '1>NUL'
  132. Say 'Copying FOUR.EXE to' Directory '...'
  133. Copy FOUR.EXE Directory                  '1>NUL'
  134. Say 'Copying FOUR.HLP to' Directory '...'
  135. Copy FOUR.HLP Directory                  '1>NUL'
  136. Say 'Copying MASTER.EXE to' Directory '...'
  137. Copy MASTER.EXE Directory                  '1>NUL'
  138. Say 'Copying MASTER.HLP to' Directory '...'
  139. Copy MASTER.HLP Directory                  '1>NUL'
  140. Say 'Copying OTHELLO.EXE to' Directory '...'
  141. Copy OTHELLO.EXE Directory                  '1>NUL'
  142. Say 'Copying OTHELLO.HLP to' Directory '...'
  143. Copy OTHELLO.HLP Directory                  '1>NUL'
  144. Say 'Copying PEGGED.EXE to' Directory '...'
  145. Copy PEGGED.EXE Directory                  '1>NUL'
  146. Say 'Copying PEGGED.HLP to' Directory '...'
  147. Copy PEGGED.HLP Directory                  '1>NUL'
  148. Say 'Copying TIC.EXE to' Directory '...'
  149. Copy TIC.EXE Directory                  '1>NUL'
  150. Say 'Copying TIC.HLP to' Directory '...'
  151. Copy TIC.HLP Directory                  '1>NUL'
  152. Say 'Copying GALAXY.EXE to' Directory '...'
  153. Copy GALAXY.EXE Directory                  '1>NUL'
  154. Say 'Copying GALAXY.HLP to' Directory '...'
  155. Copy GALAXY.HLP Directory                  '1>NUL'
  156. Say 'Copying LICENSE.TXT to' Directory '...'
  157. Copy LICENSE.TXT Directory                  '1>NUL'
  158. Say 'Copying ENTRTAIN.DOC to' Directory '...'
  159. Copy ENTRTAIN.DOC Directory                  '1>NUL'
  160. Say ''
  161. Say 'Creating program objects...'
  162. Say ''
  163. Type = 'WPProgram'
  164. Title = 'Backgammon'
  165. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\BG.EXE;STARTUPDIR='Directory';OBJECTID=<BG>;NOPRINT=YES;'
  166. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  167. If Result = 1 Then
  168.   Title = 'Connect Four'
  169.   Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\FOUR.EXE;STARTUPDIR='Directory';OBJECTID=<FOUR>;NOPRINT=YES;'
  170.   Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  171.   If Result = 1 Then
  172.     Title = 'Master Mind'
  173.     Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MASTER.EXE;STARTUPDIR='Directory';OBJECTID=<MASTER>;NOPRINT=YES;'
  174.     Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  175.     If Result = 1 Then
  176.       Title = 'Othello'
  177.       Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\OTHELLO.EXE;STARTUPDIR='Directory';OBJECTID=<OTHELLO>;NOPRINT=YES;'
  178.       Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  179.       If Result = 1 Then
  180.         Title = 'Pegged'
  181.         Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\PEGGED.EXE;STARTUPDIR='Directory';OBJECTID=<PEGGED>;NOPRINT=YES;'
  182.         Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  183.         If Result = 1 Then
  184.           Title = 'Tic Tac Toe'
  185.           Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\TIC.EXE;STARTUPDIR='Directory';OBJECTID=<TIC>;NOPRINT=YES;'
  186.           Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  187.           If Result = 1 Then
  188.             Title = 'Galaxy'
  189.             Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\GALAXY.EXE;STARTUPDIR='Directory';OBJECTID=<GALAXY>;NOPRINT=YES;'
  190.             Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  191.             If Result = 1 Then
  192.               E ENTRTAIN.DOC '1>NUL'
  193.               Say 'The Entertainment Pack for OS/2 was successfully installed.'
  194.               Exit
  195.  
  196. Say 'ERROR: Unable to create objects. Installation cancelled.'
  197. Exit
  198.  
  199. FAILURE:
  200. Say 'Installation error.'
  201. Signal DONE
  202. HALT:
  203. Say 'Installation error.'
  204. Signal DONE
  205. SYNTAX:
  206. Say 'Installation error.'
  207. Signal DONE
  208. DONE:
  209. Exit
  210.