home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spiele Shareware / os2games.iso / os2games / card / vpoker / install.cmd < prev    next >
Encoding:
Text File  |  1994-06-01  |  2.2 KB  |  83 lines
  1. /******************************************************************/
  2. /* VPoker Installation Program                                    */
  3. /* By Brett King                                                  */
  4. /* (c) Copyright International Business Machines Corporation 1994 */
  5. /* All rights Reserved.                                           */
  6. /******************************************************************/
  7. call RxFuncAdd SysLoadFuncs, RexxUtil, SysLoadFuncs
  8. call SysLoadFuncs
  9.  
  10. say 'VPoker Installation Program'
  11. say 'By Brett King'
  12. say '(c) Copyright International Business Machines Corporation 1994'
  13. say 'All rights Reserved.'
  14.  
  15. '@echo off'
  16. movecmd = 'MOVE '
  17. say "Creating CARDFACE directory..."
  18. rc = SysMkDir('CARDFACE')
  19. if rc <> 0 then
  20. do
  21.    call cleanup "ERROR - Unable to create CARDFACE directory"
  22.    return
  23. end
  24. 'MOVE card*.bmp cardface'
  25. if rc <> 0 then
  26. do
  27.    call cleanup "ERROR - Unable to move CARD*.BMP"
  28.    return
  29. end
  30. say "Creating SOUNDS directory..."
  31. rc = SysMkDir('SOUNDS')
  32. if rc <> 0 then
  33. do
  34.    call cleanup "ERROR - Unable to create SOUNDS directory"
  35.    return
  36. end
  37. 'MOVE sound*.wav sounds'
  38. if rc <> 0 then
  39. do
  40.    call cleanup "ERROR - Unable to move SOUND file"
  41.    return
  42. end
  43. say "Renaming temporary files..."
  44. 'ren CARDBAC*.BM@ CARDBAC*.BMP'
  45. if rc <> 0 then
  46. do
  47.    call cleanup "ERROR - Unable to ren CARDBAC.BM@"
  48.    return
  49. end
  50. 'ren VPOKER.EX@ VPOKER.EXE'
  51. if rc <> 0 then
  52. do
  53.    call cleanup "ERROR - Unable to ren VPOKER.EX@"
  54.    return
  55. end
  56. say "Adding program object to Games folder..."
  57. fspec=directory()
  58. fspec=fspec||'\VPOKER.EXE'
  59. setup='EXENAME='||fspec||';PARAMETERS=;MINIMIZED=;ASSOCFILTER=;'
  60. title = 'VPoker'
  61. classname = 'WPProgram'
  62. location = '<WP_GAMES>'
  63. result = SysCreateObject(classname, title, location, setup)
  64. If result<>1 then
  65. do
  66.    say "Warning - Unable to create program object."
  67.    say "Create a program object for VPOKER manually."
  68.    say "Type VPOKER to run."
  69.    return
  70. end
  71. say "Installation Complete!"
  72. say "Type VPOKER to run, or run from the icon in the"
  73. say "Games folder."
  74. return
  75.  
  76. cleanup:
  77.    parse arg msg
  78.    say msg
  79.    say "Cleanup the current directory.  Unzip VPOKER.ZIP again,"
  80.    say "and retry the installation."
  81.    return
  82.  
  83.