Board logo

标题: [游戏娱乐] 批处理超级简易桥牌2.0版 [打印本页]

作者: 小竹    时间: 2008-1-7 21:03     标题: 批处理超级简易桥牌2.0版

  1. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2. @echo off & setlocal EnableDelayedExpansion
  3. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  4. ::以下是片头
  5. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6. title "超级简易桥牌2.0版  E-mail : bizhuang0917@126.com"
  7. echo 程序载入中,请稍后……
  8. for /l %%i in (1,1,25) do set/p a=^><nul&ping /n 0 127.1>nul
  9. cls
  10. mode con lines=13  
  11. color f8
  12. echo.
  13. echo.
  14. echo.
  15. echo.
  16. echo.
  17. echo                   本程序仅用于学习交流,不得用于商业用途
  18. ping -n 2 127.1>nul
  19. cls
  20. echo.
  21. echo.
  22. echo.
  23. echo.
  24. echo        **************************************************************
  25. echo        *                欢迎使用超级简易桥牌2.0版                   *
  26. echo        **************************************************************
  27. ping -n 2 127.1>nul
  28. cls
  29. echo.
  30. echo.
  31. echo.
  32. echo.
  33. echo.
  34. echo                             作者:    小竹英雄
  35. ping -n 2 127.1>nul
  36. cls
  37. echo.
  38. echo.
  39. echo.
  40. echo.
  41. echo.
  42. echo                               英雄软件工作室
  43. ping -n 2 127.1>nul
  44. cls
  45. echo.
  46. echo.
  47. echo.
  48. echo.
  49. echo.
  50. echo                              版权所有,盗版或究
  51. ping -n 2 127.1>nul
  52. cls
  53. color E2
  54. echo.
  55. echo.
  56. echo.
  57. echo 
  58. echo                   在桥牌的大牌点计算中A=4,K=3,Q=2,J=1
  59. echo 按任意键进入游戏……
  60. pause>nul
  61. cls
  62. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  63. ::以下是从52个数中选出13个
  64. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  65. :begin
  66. for /l %%i in (1,1,52) do set a%%i=%%i
  67. set total=52
  68. set count=13
  69. :1
  70. if %count% equ 0 goto 2
  71. set/a temp=%random%%%%total%+1
  72. set   puker%count%=!a%temp%!
  73. set/a a%temp%=!a%total%!
  74. set/a total=%total%-1
  75. set/a count=%count%-1
  76. goto 1
  77. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  78. ::以下将13个数由大到小排序
  79. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  80. :2
  81. for /l %%i in (1,1,12) do (
  82. set/a w=%%i+1
  83. for /l %%j in (!w!,1,13) do (
  84. if  !puker%%i! lss !puker%%j! (
  85. set/a tt=!puker%%i!
  86. set/a puker%%i=!puker%%j!
  87. set/a puker%%j=!tt! ) ) )
  88. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  89. ::以下是将数字变换为扑克符号AKQJ
  90. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  91. set/a point=0
  92. for /l %%i in (1,1,13) do (
  93. set/a gg=!puker%%i!-1
  94. set/a flag%%i=!gg!/13
  95. set/a puker%%i=!puker%%i!%%13+1 )
  96. for /l %%i in (1,1,13) do (
  97. if !puker%%i! equ 13 set puker%%i=K&set/a point=!point!+3
  98. if !puker%%i! equ 12 set puker%%i=Q&set/a point=!point!+2
  99. if !puker%%i! equ 11 set puker%%i=J&set/a point=!point!+1
  100. if !puker%%i! equ 1 set puker%%i=A&set/a point=!point!+4 )
  101. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  102. ::以下是输出
  103. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  104. set /p bb=黑桃:<nul
  105. for /l %%i in (1,1,13) do (
  106. if !flag%%i! equ 3 set/p a=!puker%%i!<nul  )
  107. echo.
  108. set /p bb=红桃:<nul
  109. for /l %%i in (1,1,13) do (
  110. if !flag%%i! equ 2 set/p a=!puker%%i!<nul  )
  111. echo.
  112. set /p bb=方块:<nul
  113. for /l %%i in (1,1,13) do (
  114. if !flag%%i! equ 1 set/p a=!puker%%i!<nul  )
  115. echo.
  116. set /p bb=草花:<nul
  117. for /l %%i in (1,1,13) do (
  118. if !flag%%i! equ 0 set/p a=!puker%%i!<nul  )
  119. echo.
  120. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  121. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  122. echo 请输入本手牌的大牌点数
  123. set /p input=
  124. echo 让我想一想……
  125. ping -n 2 127.0.0.1 >nul
  126. if %input% equ %point% (echo 正确!是个高手呀!) else (
  127. echo 
  128. echo 错了!真遗憾!)
  129. echo 本手牌大牌点有%point%点
  130. pause
  131. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  132. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  133. cls
  134. echo 重来一次?(是/y,否/n)
  135. set /p slt=
  136. if %slt% equ y cls&goto begin
  137. if %slt% equ Y cls&goto begin
  138. cls
  139. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  140. ::以下是片尾
  141. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  142. color 0f
  143. echo.
  144. echo.
  145. echo.
  146. echo.
  147. echo                                   谢谢使用……
  148. ping -n 2 127.0.0.1>nul
  149. cls
  150. echo.
  151. echo.
  152. echo.
  153. echo.
  154. echo                                      再见!
  155. ping -n 2 127.0.0.1>nul
  156. exit
  157. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
复制代码

作者: youxi01    时间: 2008-1-7 21:14

呵呵,不错,进步从游戏开始!!
我原来的兴趣全部是编写 bat 游戏而来的,哈哈!!
支持,加油!!




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2