home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / OS2 / SPEL / ENTRTAN5 / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1994-12-26  |  8KB  |  230 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( 'TETRAVEX.EXE', 'Files', 'F' )
  96. If Files.0 = 0 Then
  97.   Do
  98.   Say 'ERROR: TETRAVEX.EXE not found! Installation cancelled.'
  99.   Signal DONE
  100.   End
  101. Result = SysFileTree( 'TETRAVEX.HLP', 'Files', 'F' )
  102. If Files.0 = 0 Then
  103.   Do
  104.   Say 'ERROR: TETRAVEX.HLP not found! Installation cancelled.'
  105.   Signal DONE
  106.   End
  107. Result = SysFileTree( 'LICENSE.TXT', 'Files', 'F' )
  108. If Files.0 = 0 Then
  109.   Do
  110.   Say 'ERROR: LICENSE.TXT not found! Installation cancelled.'
  111.   Signal DONE
  112.   End
  113. Result = SysFileTree( 'ENTRTAIN.DOC', 'Files', 'F' )
  114. If Files.0 = 0 Then
  115.   Do
  116.   Say 'ERROR: ENTRTAIN.DOC not found! Installation cancelled.'
  117.   Signal DONE
  118.   End
  119. Say 'Please enter the full name of the directory to which you want'
  120. Say 'the Entertainment Pack for OS/2 installed (default C:\OS2\APPS): '
  121. Pull Directory
  122. If Directory = "" Then Directory = 'C:\OS2\APPS'
  123. Result = SysFileTree( Directory, 'Dirs', 'D' )
  124. If Dirs.0 = 0 Then
  125.   Do
  126.   Result = SysMkDir( Directory )
  127.   if Result == 0 Then
  128.     Do
  129.     End
  130.   Else
  131.     Do
  132.     Say 'ERROR: Unable to create target directory. Installation cancelled.'
  133.     Signal DONE
  134.     End
  135.   End
  136. Say ''
  137. Say 'The program objects will be placed in the Games folder...'
  138. Folder = '<WP_GAMES>'
  139. Say ''
  140. Say 'Copying BG.EXE to' Directory '...'
  141. Copy BG.EXE Directory                  '1>NUL'
  142. Say 'Copying BG.HLP to' Directory '...'
  143. Copy BG.HLP Directory                  '1>NUL'
  144. Say 'Copying FOUR.EXE to' Directory '...'
  145. Copy FOUR.EXE Directory                  '1>NUL'
  146. Say 'Copying FOUR.HLP to' Directory '...'
  147. Copy FOUR.HLP Directory                  '1>NUL'
  148. Say 'Copying MASTER.EXE to' Directory '...'
  149. Copy MASTER.EXE Directory                  '1>NUL'
  150. Say 'Copying MASTER.HLP to' Directory '...'
  151. Copy MASTER.HLP Directory                  '1>NUL'
  152. Say 'Copying OTHELLO.EXE to' Directory '...'
  153. Copy OTHELLO.EXE Directory                  '1>NUL'
  154. Say 'Copying OTHELLO.HLP to' Directory '...'
  155. Copy OTHELLO.HLP Directory                  '1>NUL'
  156. Say 'Copying PEGGED.EXE to' Directory '...'
  157. Copy PEGGED.EXE Directory                  '1>NUL'
  158. Say 'Copying PEGGED.HLP to' Directory '...'
  159. Copy PEGGED.HLP Directory                  '1>NUL'
  160. Say 'Copying TIC.EXE to' Directory '...'
  161. Copy TIC.EXE Directory                  '1>NUL'
  162. Say 'Copying TIC.HLP to' Directory '...'
  163. Copy TIC.HLP Directory                  '1>NUL'
  164. Say 'Copying GALAXY.EXE to' Directory '...'
  165. Copy GALAXY.EXE Directory                  '1>NUL'
  166. Say 'Copying GALAXY.HLP to' Directory '...'
  167. Copy GALAXY.HLP Directory                  '1>NUL'
  168. Say 'Copying TETRAVEX.EXE to' Directory '...'
  169. Copy TETRAVEX.EXE Directory                  '1>NUL'
  170. Say 'Copying TETRAVEX.HLP to' Directory '...'
  171. Copy TETRAVEX.HLP Directory                 '1>NUL'
  172. Say 'Copying LICENSE.TXT to' Directory '...'
  173. Copy LICENSE.TXT Directory                  '1>NUL'
  174. Say 'Copying ENTRTAIN.DOC to' Directory '...'
  175. Copy ENTRTAIN.DOC Directory                  '1>NUL'
  176. Say ''
  177. Say 'Creating program objects...'
  178. Say ''
  179. Type = 'WPProgram'
  180. Title = 'Backgammon'
  181. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\BG.EXE;STARTUPDIR='Directory';OBJECTID=<BG>;NOPRINT=YES;'
  182. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  183. If Result = 1 Then
  184.   Title = 'Connect Four'
  185.   Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\FOUR.EXE;STARTUPDIR='Directory';OBJECTID=<FOUR>;NOPRINT=YES;'
  186.   Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  187.   If Result = 1 Then
  188.     Title = 'Master Mind'
  189.     Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MASTER.EXE;STARTUPDIR='Directory';OBJECTID=<MASTER>;NOPRINT=YES;'
  190.     Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  191.     If Result = 1 Then
  192.       Title = 'Othello'
  193.       Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\OTHELLO.EXE;STARTUPDIR='Directory';OBJECTID=<OTHELLO>;NOPRINT=YES;'
  194.       Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  195.       If Result = 1 Then
  196.         Title = 'Pegged'
  197.         Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\PEGGED.EXE;STARTUPDIR='Directory';OBJECTID=<PEGGED>;NOPRINT=YES;'
  198.         Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  199.         If Result = 1 Then
  200.           Title = 'Tic Tac Toe'
  201.           Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\TIC.EXE;STARTUPDIR='Directory';OBJECTID=<TIC>;NOPRINT=YES;'
  202.           Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  203.           If Result = 1 Then
  204.             Title = 'Galaxy'
  205.             Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\GALAXY.EXE;STARTUPDIR='Directory';OBJECTID=<GALAXY>;NOPRINT=YES;'
  206.             Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  207.             If Result = 1 Then
  208.               Title = 'TetraVex'
  209.               Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\TETRAVEX.EXE;STARTUPDIR='Directory';OBJECTID=<TETRA>;NOPRINT=YES;'
  210.               Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  211.               If Result = 1 Then
  212.                 E ENTRTAIN.DOC '1>NUL'
  213.                 Say 'The Entertainment Pack for OS/2 was successfully installed.'
  214.                 Exit
  215.  
  216. Say 'ERROR: Unable to create objects. Installation cancelled.'
  217. Exit
  218.  
  219. FAILURE:
  220. Say 'Installation error.'
  221. Signal DONE
  222. HALT:
  223. Say 'Installation error.'
  224. Signal DONE
  225. SYNTAX:
  226. Say 'Installation error.'
  227. Signal DONE
  228. DONE:
  229. Exit
  230.