home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Games Shareware / OS2GAMES.bin / os2games / card / cardcoll / deutsch.cmd < prev    next >
Encoding:
Text File  |  1995-01-15  |  3.7 KB  |  139 lines
  1. /********************************************************************/
  2. /*                                                                  */
  3. /* Kartenspiele für OS/2                                            */
  4. /*                                                                  */
  5. /* Deutsche 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. /* REXXUTIL laden */
  17.  
  18. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  19. Call SysLoadFuncs
  20.  
  21.  
  22. /* Initialisieren */
  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 '+        Kartenspiele für 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. /* Nachprüfen, ob bestimmte Bestandteile vorhanden sind. */
  39.  
  40. Result = SysFileTree( "CARDS.EXE", 'Files', 'F' )
  41. If Files.0 = 0 Then
  42.   Do
  43.   Say 'FEHLER: CARDS.EXE nicht gefunden!'
  44.   Signal DONE
  45.   End
  46.  
  47. Result = SysFileTree( "CARDSGER.HLP", 'Files', 'F' )
  48. If Files.0 = 0 Then
  49.   Do
  50.   Say 'FEHLER: CARDSGER.HLP nicht gefunden!'
  51.   Signal DONE
  52.   End
  53.  
  54. Result = SysFileTree( "CARDSGER.DLL", 'Files', 'F' )
  55. If Files.0 = 0 Then
  56.   Do
  57.   Say 'FEHLER: CARDSGER.DLL nicht gefunden!'
  58.   Signal DONE
  59.   End
  60.  
  61. Result = SysFileTree( "CARDSENG.HLP", 'Files', 'F' )
  62. If Files.0 = 0 Then
  63.   Do
  64.   Say 'FEHLER: CARDSENG.HLP nicht gefunden!'
  65.   Signal DONE
  66.   End
  67.  
  68. Result = SysFileTree( "CARDSENG.DLL", 'Files', 'F' )
  69. If Files.0 = 0 Then
  70.   Do
  71.   Say 'FEHLER: CARDSENG.DLL nicht gefunden!'
  72.   Signal DONE
  73.   End
  74.  
  75. /* Zielverzeichnis erfragen. */
  76.  
  77. Say 'Bitte geben Sie den vollen Verzeichnisnamen ein, wohin'
  78. Say '  CARDS installiert werden soll (Standard: C:\CARDS): '
  79. Pull Directory
  80. If Directory = "" Then Directory = 'C:\CARDS'
  81.  
  82.  
  83. /* Zielverzeichnis, falls nötig, anlegen. */
  84.  
  85. Result = SysFileTree( Directory, 'Dirs', 'D' )
  86. If Dirs.0 = 0 Then
  87.   Do
  88.   Result = SysMkDir( Directory )
  89.   if Result == 0 Then
  90.     Do
  91.     End
  92.   Else
  93.     Do
  94.     Say 'FEHLER: Kann das Zielverzeichnis nicht anlegen.'
  95.     Signal DONE
  96.     End
  97.   End
  98. Say '';
  99.  
  100.  
  101. Folder = '<WP_DESKTOP>'
  102.  
  103. /* Installation durchführen. */
  104.  
  105. Say 'Kopiere CARDS nach ' Directory '...'
  106. Copy "CARDS.EXE" Directory"\CARDS.EXE" '1>NUL'
  107. Copy "CARDSGER.HLP" Directory"\CARDSGER.HLP" '1>NUL'
  108. Copy "CARDSGER.DLL" Directory"\CARDSGER.DLL" '1>NUL'
  109. Copy "CARDSENG.HLP" Directory"\CARDSENG.HLP" '1>NUL'
  110. Copy "CARDSENG.DLL" Directory"\CARDSENG.DLL" '1>NUL'
  111.  
  112. Say 'Erzeuge Programmobjekt...'
  113. Type = 'WPProgram'
  114. Title = 'Kartenspiele'
  115. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CARDS.EXE;PARAMETERS=CARDSGER;STARTUPDIR='Directory';OBJECTID=<CARDS>;NOPRINT=YES;'
  116. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  117.  
  118. If Result = 1 Then
  119.   Say 'Objekt erzeugt!  Fertig.'
  120. Else             
  121.   Say 'FEHLER: Nicht erzeugt!'
  122.  
  123. Signal DONE
  124.  
  125. FAILURE:
  126. Say 'Fehler in der REXX-Ausführung.'
  127. Signal DONE
  128.  
  129. HALT:
  130. Say 'REXX-Halt.'
  131. Signal DONE
  132.  
  133. SYNTAX:
  134. Say 'REXX-Syntaxfehler.'
  135. Signal DONE
  136.  
  137. DONE:
  138. Exit
  139.