home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spiele Shareware / os2games.iso / os2games / card / cardcoll / english.cmd < prev    next >
Encoding:
Text File  |  1995-01-15  |  3.6 KB  |  141 lines
  1. /********************************************************************/
  2. /*                                                                  */
  3. /* Card Games for OS/2                                              */
  4. /*                                                                  */
  5. /* English Installation, Version 2.1 (ShareWare)                    */
  6. /*                                                                  */
  7. /* Copyright 1994, 1995 (C) by Felix Maschek, Schneverdingen        */
  8. /*                                                                  */
  9. /* EMail: CompuServe 100120,1370                                    */
  10. /*                   OS2SHARE                                       */
  11. /*                                                                  */
  12. /********************************************************************/
  13.  
  14. '@Echo Off'
  15.  
  16. /* load REXXUTIL */
  17.  
  18. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  19. Call SysLoadFuncs
  20.  
  21.  
  22. /* Initialisation */
  23.  
  24. Signal On Failure Name FAILURE
  25. Signal On Halt Name HALT
  26. Signal On Syntax Name SYNTAX
  27.  
  28. Call SysCls
  29. Say ' '
  30. Say '+---------------------------------------------------------------+'
  31. Say '+         Card Games for OS/2,  Version 2.1 (ShareWare)         +'
  32. Say '+    Copyright 1994, 1995 by Felix Maschek, Schneverdingen      +'
  33. Say '+---------------------------------------------------------------+'
  34. Say ' '
  35. Say 'Installation...'
  36. Say ''
  37.  
  38.  
  39. /* Check... */
  40.  
  41. Result = SysFileTree( "CARDS.EXE", 'Files', 'F' )
  42. If Files.0 = 0 Then
  43.   Do
  44.   Say 'ERROR: CARDS.EXE not found!'
  45.   Signal DONE
  46.   End
  47.  
  48. Result = SysFileTree( "CARDSENG.HLP", 'Files', 'F' )
  49. If Files.0 = 0 Then
  50.   Do
  51.   Say 'ERROR: CARDSENG.HLP not found!'
  52.   Signal DONE
  53.   End
  54.  
  55. Result = SysFileTree( "CARDSENG.DLL", 'Files', 'F' )
  56. If Files.0 = 0 Then
  57.   Do
  58.   Say 'ERROR: CARDSENG.DLL not found!'
  59.   Signal DONE
  60.   End
  61.  
  62. Result = SysFileTree( "CARDSGER.HLP", 'Files', 'F' )
  63. If Files.0 = 0 Then
  64.   Do
  65.   Say 'ERROR: CARDSGER.HLP not found!'
  66.   Signal DONE
  67.   End
  68.  
  69. Result = SysFileTree( "CARDSGER.DLL", 'Files', 'F' )
  70. If Files.0 = 0 Then
  71.   Do
  72.   Say 'ERROR: CARDSGER.DLL not found!'
  73.   Signal DONE
  74.   End
  75.  
  76. /* Zielverzeichnis erfragen. */
  77.  
  78. Say 'Please enter the full target path for CARDS'
  79. Say '  Default: C:\CARDS: '
  80. Pull Directory
  81. If Directory = "" Then Directory = 'C:\CARDS'
  82.  
  83.  
  84. /* create target-path. */
  85.  
  86. Result = SysFileTree( Directory, 'Dirs', 'D' )
  87. If Dirs.0 = 0 Then
  88.   Do
  89.   Result = SysMkDir( Directory )
  90.   if Result == 0 Then
  91.     Do
  92.     End
  93.   Else
  94.     Do
  95.     Say 'ERROR: Can''t create target path.'
  96.     Signal DONE
  97.     End
  98.   End
  99. Say '';
  100.  
  101. /* Create desktop object */
  102.  
  103. Folder = '<WP_DESKTOP>'
  104.  
  105. /* Install */
  106.  
  107. Say 'Copying CARDS to ' Directory '...'
  108. Copy "CARDS.EXE" Directory"\CARDS.EXE" '1>NUL'
  109. Copy "CARDSGER.HLP" Directory"\CARDSGER.HLP" '1>NUL'
  110. Copy "CARDSGER.DLL" Directory"\CARDSGER.DLL" '1>NUL'
  111. Copy "CARDSENG.HLP" Directory"\CARDSENG.HLP" '1>NUL'
  112. Copy "CARDSENG.DLL" Directory"\CARDSENG.DLL" '1>NUL'
  113.  
  114. Say 'Creating desktop object...'
  115. Type = 'WPProgram'
  116. Title = 'Cardgames'
  117. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CARDS.EXE;PARAMETERS=CARDSENG;STARTUPDIR='Directory';OBJECTID=<CARDS>;NOPRINT=YES;'
  118. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  119.  
  120. If Result = 1 Then
  121.   Say 'Desktop object was created!  Ready.'
  122. Else             
  123.   Say 'ERROR: Can''t create desktop object!'
  124.  
  125. Signal DONE
  126.  
  127. FAILURE:
  128. Say 'Error while processing REXX.'
  129. Signal DONE
  130.  
  131. HALT:
  132. Say 'REXX-Halt.'
  133. Signal DONE
  134.  
  135. SYNTAX:
  136. Say 'REXX-Syntaxerror.'
  137. Signal DONE
  138.  
  139. DONE:
  140. Exit
  141.