home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / w3_games / mjshel40.arj / MJSHEL40.BAT next >
DOS Batch File  |  1991-09-01  |  3KB  |  93 lines
  1. @Echo off
  2. cls
  3. If exist MJSHEL40.RES DEL MJSHEL40.RES
  4. If x%1==xZIP goto ZIP
  5. If x%1==xPLAY goto PLAY
  6. If x%1==xUNZIP goto UNZIP
  7. If x%1==xTMP goto ZIPDIR
  8. goto FAIL
  9. :ZIP
  10. cls
  11. ECHO.
  12. ECHO.
  13. ECHO                    ╔════════════════════════════════════════╗
  14. ECHO                    ║                                        ║
  15. ECHO                    ║     Mah Jongg Tile Set Manager 4.0     ║
  16. ECHO                    ║      is creating or updating your      ║
  17. ECHO                    ║          ZIPped Tile Sets.             ║
  18. ECHO                    ║     This may take a few minutes!       ║
  19. ECHO                    ║                                        ║
  20. ECHO                    ║                                        ║
  21. ECHO                    ╚════════════════════════════════════════╝
  22. ECHO. 
  23. pkzip -u mah_tiles *.til
  24. If ErrorLevel 1 goto FAIL
  25. del *.TIL
  26. goto SUCCESS
  27. :PLAY
  28. If x%2==xNo goto playmah
  29. cls
  30. ECHO.
  31. ECHO.
  32. ECHO                    ╔════════════════════════════════════════╗
  33. ECHO                    ║                                        ║
  34. ECHO                    ║     Mah Jongg Tile Set Manager 4.0     ║
  35. ECHO                    ║       is unZIPping your selected       ║
  36. ECHO                    ║              Tile Set.                 ║
  37. ECHO                    ║                                        ║
  38. ECHO                    ║   Your game will start momentarily!    ║
  39. ECHO                    ║                                        ║
  40. ECHO                    ╚════════════════════════════════════════╝
  41. ECHO. 
  42. pkunzip -o mah_tiles %3 >NUL
  43. If Errorlevel 1 goto FAIL
  44. :playmah
  45. mahjongg %4 %5 %6 %7 %8 %9 -u%3
  46. del %3
  47. goto SUCCESS
  48. :UNZIP
  49. cls
  50. ECHO.
  51. ECHO.
  52. ECHO                    ╔════════════════════════════════════════╗
  53. ECHO                    ║                                        ║
  54. ECHO                    ║     Mah Jongg Tile Set Manager 4.0     ║
  55. ECHO                    ║ is unZIPping your Mah Jongg Tile Sets. ║
  56. ECHO                    ║                                        ║
  57. ECHO                    ║     This may take a few minutes!       ║
  58. ECHO                    ║                                        ║
  59. ECHO                    ║                                        ║
  60. ECHO                    ╚════════════════════════════════════════╝
  61. ECHO. 
  62. PKUNZIP MAH_TILES *.TIL
  63. If Errorlevel 1 goto FAIL
  64. If exist MAH_TILES.ZIP del MAH_TILES.ZIP
  65. If exist MJSHEL40.DIR del MJSHEL40.DIR
  66. goto SUCCESS
  67. :ZIPDIR
  68. cls
  69. ECHO.
  70. ECHO.
  71. ECHO.
  72. ECHO                    ╔════════════════════════════════════════╗
  73. ECHO                    ║                                        ║
  74. ECHO                    ║     Mah Jongg Tile Set Manager 4.0     ║
  75. ECHO                    ║                  is                    ║
  76. ECHO                    ║        creating a directory of         ║
  77. ECHO                    ║                 your                   ║
  78. ECHO                    ║          ZIPPED Tiles Sets             ║
  79. ECHO                    ║                                        ║
  80. ECHO                    ╚════════════════════════════════════════╝
  81. ECHO. 
  82. PKZIP -VBN MAH_TILES >MJSHEL40.TMP
  83. If Errorlevel 1 goto FAIL
  84. goto SUCCESS
  85. :FAIL
  86. echo FAIL >MJSHEL40.RES
  87. goto END
  88. :SUCCESS
  89. echo OK >MJSHEL40.RES
  90. :END
  91. exit
  92.  
  93.