home *** CD-ROM | disk | FTP | other *** search
/ Informática Multimedia: Special Games / INFESPGAMES.mdf / os2 / planets / upgrade.cmd < prev    next >
Encoding:
Text File  |  1995-09-12  |  1.2 KB  |  52 lines
  1. /* This ReXX-Programm will delete your temporary */
  2. /* turns to enter your new register-code before */
  3. /* unpacking the result-file. */
  4. /* Not necessary if you have a new result-file */
  5. /* (not unpacked) in your player-directory */
  6.  
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  9. Call SysLoadFuncs
  10.  
  11. Parse Arg dir 
  12.  
  13. if dir = "" then signal NODIR
  14.  
  15. Call SysFileTree dir, FileStem, 'D'
  16. if FileStem.0 = '0' then signal DIRNOTFOUND
  17.  
  18. say 'Upgrading will delete you temporary turns. Continue (Y/N) ?'
  19. Key = SysGetKey( 'NOECHO' )
  20. Key = translate(Key)
  21. If Key = 'N' Then signal QUIT
  22.  
  23. '@cd ' dir
  24.  
  25. Call SysFileTree 'temp', FileStem, 'F'
  26. if FileStem.0 = '0' then signal NODELETE
  27.  
  28. '@attrib ' 'temp ' '-H'
  29. '@del ' 'temp'
  30.  
  31. NODELETE:
  32. '@cd.. '
  33. say ''
  34. say 'Done.'
  35. say ''
  36. say 'Please copy OS2PL.EXE to your specific directory and start it'
  37. say '(do not specify option /u !).' 
  38. say 'The first thing you should do is entering your register-code.'
  39. say 'After that you are ready to unpack the result-file.' 
  40. signal QUIT
  41.  
  42. DIRNOTFOUND:
  43. say 'Directory Not Found'
  44. signal QUIT
  45.  
  46.  
  47. NODIR:
  48. say 'No Directory Given'
  49. say 'Syntax: UPGRADE <player-directory>'
  50.  
  51. QUIT:
  52.