home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 2 / Giga_Games_2_CD-ROM_Walnut_Creek_April_1995.iso / os2 / fmcrds.zip / deutsch.cmd next >
OS/2 REXX Batch file  |  1994-05-01  |  2KB  |  116 lines
  1. /* DEUTSCH.CMD: Installation von CARDS.EXE in Deutsch. */
  2. '@Echo Off'
  3.  
  4. /* REXXUTIL laden */
  5.  
  6. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  7. Call SysLoadFuncs
  8.  
  9.  
  10. /* Initialisieren */
  11.  
  12. Signal On Failure Name FAILURE
  13. Signal On Halt Name HALT
  14. Signal On Syntax Name SYNTAX
  15.  
  16. Call SysCls
  17. Say 'Installation von CARDS 1.02a...'
  18. Say ''
  19.  
  20.  
  21. /* Nachprüfen, ob bestimmte Bestandteile vorhanden sind. */
  22.  
  23. Language = 'DEUTSCH'
  24.  
  25. Result = SysFileTree( Language".EX_", 'Files', 'F' )
  26. If Files.0 = 0 Then
  27.   Do
  28.   Say 'FEHLER: 'Language'.EX_ nicht gefunden!'
  29.   Signal DONE
  30.   End
  31.  
  32. Result = SysFileTree( "PICTURES.DLL", 'Files', 'F' )
  33. If Files.0 = 0 Then
  34.   Do
  35.   Say 'FEHLER: PICTURES.DLL nicht gefunden!'
  36.   Signal DONE
  37.   End
  38.  
  39. Result = SysFileTree( "LIESMICH.TXT", 'Files', 'F' )
  40. If Files.0 = 0 Then
  41.   Do
  42.   Say 'FEHLER: LIESMICH.TXT nicht gefunden!'
  43.   Signal DONE
  44.   End
  45.  
  46. Result = SysFileTree( Language".HL_", 'Files', 'F' )
  47. If Files.0 = 0 Then
  48.   Do
  49.   Say 'FEHLER: 'Language'.HL_ nicht gefunden!'
  50.   Signal DONE
  51.   End
  52.  
  53. /* Zielverzeichnis erfragen. */
  54.  
  55. Say 'Bitte geben Sie den vollen Verzeichnisnamen ein, wohin'
  56. Say '  CARDS installiert werden soll (Standard: C:\CARDS): '
  57. Pull Directory
  58. If Directory = "" Then Directory = 'C:\CARDS'
  59.  
  60.  
  61. /* Zielverzeichnis, falls nötig, anlegen. */
  62.  
  63. Result = SysFileTree( Directory, 'Dirs', 'D' )
  64. If Dirs.0 = 0 Then
  65.   Do
  66.   Result = SysMkDir( Directory )
  67.   if Result == 0 Then
  68.     Do
  69.     End
  70.   Else
  71.     Do
  72.     Say 'FEHLER: Kann das Zielverzeichnis nicht anlegen.'
  73.     Signal DONE
  74.     End
  75.   End
  76. Say '';
  77.  
  78.  
  79. Folder = '<WP_DESKTOP>'
  80.  
  81. /* Installation durchführen. */
  82.  
  83. Say 'Kopiere CARDS nach ' Directory '...'
  84. Copy Language".EX_" Directory"\CARDS.EXE" '1>NUL'
  85. Copy "PICTURES.DLL" Directory"\PICTURES.DLL" '1>NUL'
  86. Copy "LIESMICH.TXT" Directory"\LIESMICH.TXT" '1>NUL'
  87. Copy Language".HL_" Directory"\CARDS.HLP" '1>NUL'
  88.  
  89. Say 'Erzeuge Programmobjekt...'
  90. Type = 'WPProgram'
  91. Title = 'Kartenspiele'
  92. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CARDS.EXE;STARTUPDIR='Directory';OBJECTID=<CARDS>;NOPRINT=YES;'
  93. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  94.  
  95. If Result = 1 Then
  96.   Say 'Objekt erzeugt!  Fertig.'
  97. Else             
  98.   Say 'FEHLER: Nicht erzeugt!'
  99.  
  100. Signal DONE
  101.  
  102. FAILURE:
  103. Say 'Fehler in der REXX-Ausführung.'
  104. Signal DONE
  105.  
  106. HALT:
  107. Say 'REXX-Halt.'
  108. Signal DONE
  109.  
  110. SYNTAX:
  111. Say 'REXX-Syntaxfehler.'
  112. Signal DONE
  113.  
  114. DONE:
  115. Exit
  116.