Board logo

标题: [游戏娱乐] 批处理扑克游戏:梭哈-人机对战 [打印本页]

作者: wankoilz    时间: 2011-6-14 19:41     标题: 批处理扑克游戏:梭哈-人机对战

如果对梭哈有了解,输入名字就可以直接开始了,不熟悉梭哈的兄弟玩之前先看看规则。
这个游戏和真正梭哈唯一不同之处在于花色不分大小,所以存在牌面相等的情况。
话不多说,赶紧来赌博吧... ...
  1. ::Code By wankoilz 2011/6/11 @win7 QQ:375913828
  2. ::From bbs.bathome.net 批处理之家
  3. @echo off&setlocal enabledelayedexpansion
  4. mode con lines=34 cols=42&title 梭哈-人机对战  by wankoilz&color 8e
  5. echo   行赌生涯,梭哈-人机对战 规则说明:
  6. echo  ┏━━━━━━━━━━━━━━━━━━┓
  7. echo  ┃总共发五张牌。第一轮发底牌,不下注。┃
  8. echo  ┃而后每发一张牌进行一轮下注,共四轮。┃
  9. echo  ┃在任何一轮中你可以下注,也可以弃牌。┃
  10. echo  ┃四轮下注完毕后所有人亮底牌比大小,牌┃
  11. echo  ┃面大者胜(如果有相同的则平分赌注)。┃
  12. echo  ┃                                    ┃
  13. echo  ┃下注规则:                          ┃
  14. echo  ┃每轮按照牌面大小顺序下注。          ┃
  15. echo  ┃上次下注数额 ^<=下注数额^<= 任何玩家所┃
  16. echo  ┃剩最小资金。否则视为非法。          ┃
  17. echo  ┃                                    ┃
  18. echo  ┃ShowHand规则:                      ┃
  19. echo  ┃当桌面上有人剩余资金不够跟注时,玩家┃
  20. echo  ┃可以选择以那人剩余资金为标准下注,此┃
  21. echo  ┃为ShowHand。此时其他人可以选择跟注,┃
  22. echo  ┃直接发完5张牌,比大小。             ┃
  23. echo  ┃                                    ┃
  24. echo  ┃牌面大小规则:                      ┃
  25. echo  ┃同花顺^>四条^>葫芦(三条+一对)^>同花^> ┃
  26. echo  ┃连顺^>三条^>两对^>一对^>单牌            ┃
  27. echo  ┃A^>K^>Q^>J^>10...^>2,  A2345 视为连顺   ┃
  28. echo  ┃◇◆○●代表四种花色,花色不分大小  ┃
  29. echo  ┣━━━━━━━━━━━━━━━━━━┫
  30. echo  ┃总之,玩了就知道了,你懂的....电脑绝┃
  31. echo  ┃不是吃干饭的,你试试认认真真和电脑玩┃
  32. echo  ┃几把就知道厉害了,嘿嘿...           ┃
  33. echo  ┃                                    ┃
  34. echo  ┃准备开始你的行赌生涯吧...           ┃
  35. echo  ┗━━━━━━━━━━━━━━━━━━┛
  36. set "dj=同花顺_17 四条_11 葫芦_10 同花_9 连顺_8 三条_7 两对_6 一对_3 单牌_0"
  37. for %%i in (%dj%) do for /f "delims=_ tokens=1-2" %%j in ("%%i") do set _%%k=%%j
  38. set bdfs_1=53550&set bdfs_2=3570&set bdfs_3=238&set bdfs_4=15&set bdfs_5=1
  39. set/p zj=请输入你的名字:&set zs=张三&set ls=李四
  40. set names=zj zs ls
  41. set zj_dz=10000&set zs_dz=10000&set ls_dz=10000
  42. set @=◇&set #=◆&set $=○&set [=●&set hs=@#$[
  43. for /l %%i in (2,1,9) do for %%j in (@ # $ [) do set %%j0%%i=!%%j!%%i
  44. for %%i in (11J,12Q,13K,14A) do for %%j in (@ # $ [) do (set tmp=%%i&set %%j!tmp:~,-1!=!%%j!!tmp:~-1!)
  45. for %%i in (@ # $ [) do set %%i10=!%%i!10
  46. set tmp=
  47. set h1=┏━━┓
  48. set h2=┃ @@┃
  49. set h3=┃    ┃
  50. set h4=┃    ┃
  51. set h5=┗━━┛
  52. set "xs=(for /l %%i in (1,1,5) do ((for %%j in ($) do (set "t=%%j "^&set t=^!t:~,3^!^&for %%k in ("^^!t^^!") do set tmp=^!h%%i: @@=%%~k^!^&set/p=^!tmp^!^<nul))^&echo;))"
  53. :main
  54. cls&echo  等待洗牌...
  55. setlocal&set dc=0&set t_names=%names%&set min_xz=1
  56. for %%i in (%names%) do (
  57.     call :fp&set %%i_pkbl=!pkbl!
  58.     call :pd "!%%i_pkbl!" "%%i"
  59.     for %%j in (!pk!) do set "t=%%j "&set t=!t:~,3!&set %%i_pk=!%%i_pk!!t!
  60.     set %%i_tpk1=◎@@◎@@◎@@◎@@
  61.     set c=0&for /l %%j in (0,3,12) do set/a c+=1&set "dp_!c!=!%%i_pk:~%%j,3!"
  62.     set c=0&for %%j in (!%%i_sz!) do set/a c+=1&set dp_sz_!c!=%%j
  63.     for /l %%j in (1,1,5) do (
  64.         set/a ran_jh=!random!%%5+1
  65.         for %%k in (!ran_jh!) do (
  66.             set "t=!dp_%%j!"&set "dp_%%j=!dp_%%k!"&set "dp_%%k=!t!"
  67.             set t=!dp_sz_%%j!&set dp_sz_%%j=!dp_sz_%%k!&set dp_sz_%%k=!t!
  68.     ))
  69.     for /l %%j in (1,1,5) do set "%%i_pk_lx=!%%i_pk_lx!!dp_%%j!"&set %%i_sz_lx=!%%i_sz_lx! !dp_sz_%%j!
  70.     set %%i_tpk2=!%%i_pk_lx:~0,12!&set set "%%i_dp=!%%i_pk_lx:~12,3!"
  71.     for %%j in (!%%i_sz_lx!) do set "t=%%j  "&set t=!t:~,3!&set %%i_pmbd=!%%i_pmbd!!t!
  72.     set %%i_pmbd=@@@!%%i_pmbd:~,12!
  73. )
  74. cls
  75. for /l %%i in (0,3,12) do (
  76.     set names_ph=&set max_pm_name=
  77.     set max_xz=30000&for %%i in (!t_names!) do if !%%i_dz! lss !max_xz! set max_xz=!%%i_dz!&set max_xz_name=%%i
  78.     set/a hh+=1,hh_xz=hh-1
  79.     if %%i equ 0 call :xs %%i&echo;&pause
  80.     if %%i gtr 0 (
  81.         if !min_xz! geq !max_xz! set S_H=ok
  82.         call :pmbd %%i
  83.         for %%j in (!names_ph!) do (
  84.             cls&call :xs %%i %%j
  85.             call :xz %%j
  86.             set/a %%j_dz-=%%j_xz,dc+=%%j_xz
  87.             if !%%j_xz! gtr !min_xz! set min_xz=!%%j_xz!
  88.             echo !xz_echo!
  89.             if "!%%j_xz!"=="!max_xz!" set S_H=ok
  90.             echo;&pause
  91.             set "tz_pd=!t_names: =!"&if "!tz_pd:~2!"=="" goto :zjsl
  92.         )
  93.      if defined S_H goto :zjsl
  94. ))
  95. :zjsl
  96. cls
  97. if defined S_H if not "!tz_pd:~2!"=="" echo  本轮ShowHand!
  98. if not "!tz_pd:~2!"=="" (
  99.     echo  下注完毕,所有人亮牌:&echo;
  100. ) else (
  101.     echo  除!%t_names: =%!外,其他人弃牌&echo;
  102. )
  103. if not "!tz_pd:~2!"=="" (
  104.     for %%i in (%t_names%) do (
  105.         echo  !%%i!  剩余现金!%%i_dz!元
  106.         set pkxs=&for /l %%j in (0,3,12) do set pkxs=!pkxs! !%%i_pk:~%%j,3!
  107.         %xs:$=!pkxs!%
  108.         for %%j in (!%%i_djfs!) do echo  !_%%j!
  109. ))
  110. set winners=&set c_winners=&call :bd djfs sz
  111. for %%i in (%winners%) do set winners_name=!winners_name! !%%i!
  112. if not "!tz_pd:~2!"=="" echo;&echo  !winners_name:~1!以 !winner_dj! 胜。
  113. set/a dc_winners=dc/c_winners 2>nul
  114. for %%i in (%winners%) do set/a %%i_dz+=dc_winners
  115. if "%c_winners%"=="1" (
  116.     echo  !winners_name:~1!收揽了桌上的%dc_winners%元
  117. ) else (
  118.     echo  !winners_name:~1!平分桌上的%dc_winners%元
  119. )
  120. if %zj_dz% leq 0 echo;&echo  !zj! 已输得身无分文,行赌生涯到此为止了!&echo;&pause&exit
  121. for %%i in (%names:zj=%) do if !%%i_dz! leq 0 set names=!names:%%i=!&echo;&echo  !%%i! 输得精光,被勒令退出赌场!
  122. for %%i in (%names%) do set/a c_names+=1
  123. if "%c_names%"=="1" pause&call :dsds
  124. endlocal&set zj_dz=%zj_dz%&set zs_dz=%zs_dz%&set ls_dz=%ls_dz%&set names=%names%
  125. echo;&pause&goto :main
  126. :fp ::::::::::::::::::::::::::::::::发牌:::::::::::::::::::::::::::::::
  127. set n=0&set pk=&set pkbl=
  128. :lp
  129. set/a rnd1=!random!%%4,rnd2=!random!%%13+2
  130. set rnd2=0!rnd2!&set rnd2=!rnd2:~-2!
  131. set tmp=!hs:~%rnd1%,1!!rnd2!
  132. if not defined __%tmp% set __%tmp%=ok&set ___%tmp%=ok&set/a n+=1
  133. if %n% lss 5 goto :lp
  134. for /f "delims=_=" %%i in ('set ___^|sort/+5') do set pk=!pk! !%%i!&set pkbl=!pkbl! %%i
  135. for /f "delims==" %%i in ('set ___') do set %%i=
  136. goto :eof
  137. :pd :::::::::::::::::::::牌面种类判断(同花顺?对子?等等):::::::::::::::::
  138. setlocal
  139. set c=0&set t=
  140. set pdzf=0123456789abcdefghi&set "s=%~1"&set djfs=0
  141. set "sz=!s!"&for %%i in (@0 #0 $0 [0 @ # $ [) do set sz=!sz:%%i=!
  142. for %%i in (%s%) do set t=%%i&set ta=!ta! !t:~,1!&set t=
  143. for %%i in (%sz%) do ((if "%%i"=="!L!" set/a c+=1&set t=!t! %%i)&set L=%%i)
  144. if !c! equ 3 if "!t:%t:~-1%=!"=="   " (set/a djfs+=11) else (set/a djfs+=10)
  145. if !c! equ 2 (
  146.     for /f "tokens=1-2" %%i in ("!t!") do (
  147.         if %%i equ %%j (set/a djfs+=7) else (set/a djfs+=6)
  148. ))
  149. if !c! equ 1 set/a djfs+=3
  150. for %%i in ("%sz%" " 1%sz: 14=%") do (
  151.     for %%j in (%%~i) do set t1=!t1!!pdzf:~%%j,1!
  152.     set t=%%~i&set t=!t:~,3!
  153.     for %%k in (!t!) do if "!pdzf:~%%k,5!"=="!t1!" set/a djfs+=8
  154.     set t1=&set t2=%%~i
  155. )
  156. if %djfs% equ 8 if "%t2:~-1%"=="5" set sz=%t2%
  157. if "!ta:%ta:~-1%=!"=="     " set/a djfs+=9
  158. endlocal&set %~2_djfs=%djfs%&set %~2_sz=%sz%&goto :eof
  159. :bd  <djfs/pm_djfs> <sz/pm_sz>::::::::::::::::::牌面大小判断::::::::::::::::::::::::
  160. setlocal
  161. for %%i in (%t_names%) do set/a x+=1
  162. if !x! equ 1 endlocal&set winners=!t_names: =!&set c_winners=1&goto :eof
  163. for %%i in (%t_names%) do (
  164.     for %%j in (!%%i_%2!) do set t=@%%j&set %%i_bdsz=!%%i_bdsz!!t:~-2!
  165.     if !%%i_%1! equ 10 (
  166.         for /f "delims=_ tokens=1-2" %%j in ("!%%i_bdsz:~2,2!_!%%i_bdsz:~4,2!") do (
  167.             if "%%j"=="%%k" (set %%i_bdsz=!%%i_bdsz:~-2! %%j) else (set %%i_bdsz=%%j %%k)
  168. )))
  169. for %%i in (%t_names%) do (
  170.     for %%j in (3 6 7 11) do (
  171.         if !%%i_%1! equ %%j (
  172.             set tmp=!%%i_bdsz!
  173.             for /l %%k in (0,2,8) do (
  174.                 for %%l in ("!%%i_bdsz:~%%k,2!") do (
  175.                     if not "%%~l"=="" (
  176.                         if "%%~l"=="!L!" set tmp=!tmp:%%~l=!%%~l
  177.                         set L=%%~l
  178. )))
  179. set %%i_bdsz=!tmp!&set tmp=
  180. )))
  181. for %%i in (%t_names%) do (
  182.     set c=0
  183.     for /l %%j in (8,-2,0) do (
  184.         if not "!%%i_bdsz:~%%j,2!"=="" (
  185.             set t=!%%i_bdsz:~%%j,2!&set t=!t:@=!&set/a c+=1
  186.             for %%k in (!c!) do set/a %%i_bdfs=!t!*!bdfs_%%k!+%%i_bdfs
  187. )))
  188. for %%i in (%t_names%) do (
  189.     if !%%i_%1! geq !max! (set djfspx=!djfspx! %%i&set max=!%%i_djfs!
  190.     ) else (set djfspx=%%i !djfspx!
  191. ))
  192. set max=&for %%i in (%t_names%) do if !%%i_%1! gtr !max! set winner=%%i&set max=!%%i_%1!
  193. set names_ph=!djfspx!
  194. for /f "tokens=1-3" %%i in ("!djfspx!") do (
  195.     if "%%k"=="" (
  196.         if !%%j_%1! equ !%%i_%1! (
  197.             if !%%j_bdfs! gtr !%%i_bdfs! set winner=%%j&set names_ph=%%j %%i
  198.             if !%%j_bdfs! lss !%%i_bdfs! set winner=%%i&set names_ph=%%i %%j
  199.             if !%%j_bdfs! equ !%%i_bdfs! set winner=%%i %%j&set names_ph=%%j %%i
  200.         ) else (
  201.             if !%%j_%1! gtr !%%i_%1! set names_ph=%%j %%i
  202.             if !%%j_%1! lss !%%i_%1! set names_ph=%%i %%j
  203.         )
  204.     ) else (
  205.     if !%%i_%1! equ !%%j_%1! if !%%i_%1! neq !%%k_%1! (
  206.         if !%%i_bdfs! gtr !%%j_bdfs! set names_ph=%%k %%i %%j
  207.         if !%%i_bdfs! lss !%%j_bdfs! set names_ph=%%k %%j %%i
  208.         if !%%j_bdfs! equ !%%k_bdfs! set names_ph=%%k %%i %%j
  209.     )
  210.     if !%%j_%1! equ !%%k_%1! if !%%j_%1! neq !%%i_%1! (
  211.         if !%%j_bdfs! gtr !%%k_bdfs! set winner=%%j&set names_ph=%%j %%k %%i
  212.         if !%%j_bdfs! lss !%%k_bdfs! set winner=%%k&set names_ph=%%k %%j %%i
  213.         if !%%j_bdfs! equ !%%k_bdfs! set winner=%%j %%k&set names_ph=%%j %%k %%i
  214.     )
  215.     if !%%j_%1! equ !%%k_%1! if !%%j_%1! equ !%%i_%1! (
  216.         if !%%j_bdfs! gtr !%%k_bdfs! set winner=%%j&set bigger=!%%j_bdfs!
  217.         if !%%j_bdfs! lss !%%k_bdfs! set winner=%%k&set bigger=!%%k_bdfs!
  218.         if !%%i_bdfs! gtr !bigger! set winner=%%i
  219.         for %%m in (!winner!) do for /f "tokens=1-2" %%n in ("!t_names:%%m= !") do (
  220.             if !%%n_bdfs! gtr !%%o_bdfs! (
  221.                 set names_ph=!winner! %%n %%o
  222.             ) else (
  223.                 set names_ph=!winner! %%o %%n
  224.         ))
  225.         if !%%j_bdfs! equ !%%k_bdfs! if !%%j_bdfs! gtr !%%i_bdfs! set winner=%%j %%k
  226.         if !%%j_bdfs! equ !%%i_bdfs! if !%%j_bdfs! gtr !%%k_bdfs! set winner=%%j %%i
  227.         if !%%i_bdfs! equ !%%k_bdfs! if !%%i_bdfs! gtr !%%j_bdfs! set winner=%%i %%k
  228.         if !%%j_bdfs! equ !%%k_bdfs! if !%%j_bdfs! equ !%%i_bdfs! set winner=%%i %%j %%k
  229. )))
  230. for %%i in (%winner%) do (
  231.     for %%j in (!%%i_djfs!) do set winner_dj=!_%%j!
  232.     set winners=!winners! %%i
  233.     for %%j in (!%%i_%1!) do set d=!_%%j!
  234.     set/a c_winners+=1
  235. )
  236. endlocal&set winners=%winners%&set winner_dj=%winner_dj%&set c_winners=%c_winners%&set names_ph=%names_ph%&set max_pm_name=%names_ph:~,2%&goto :eof
  237. :xz ::::::::::::::::::::::::下注:::::::::::::::::::::::::::::::
  238. if "%1"=="zj" (
  239.     if defined S_H (
  240.         if "!max_pm_name!"=="zj" (
  241.             echo  !%max_xz_name%!剩余资金不够跟注,你是否 ShowHand?
  242.             set/p zj_xz=输入【s】ShowHand,【q】弃牌:
  243.             if "!zj_xz!"=="s" (
  244.                 set zj_xz=!max_xz!&set xz_echo= !zj!下注!zj_xz!元 叫ShowHand
  245.             ) else (
  246.                 if "!zj_xz!"=="q" (
  247.                     set t_names=!t_names:zj=!&set zj_xz=0&set xz_echo= !zj!弃牌
  248.                 ) else (
  249.                     echo 非法输入!&pause>nul&goto :xz))
  250.         ) else (
  251.             echo  有人ShowHand,是否跟注?
  252.             set/p zj_xz=输入【s】跟注ShowHand,【q】弃牌:
  253.             if "!zj_xz!"=="s" (
  254.                 set zj_xz=!max_xz!&set xz_echo= !zj!跟注!zj_xz!元 ShowHand
  255.             ) else (
  256.                 if "!zj_xz!"=="q" (
  257.                     set t_names=!t_names:zj=!&set zj_xz=0&set xz_echo= !zj!弃牌
  258.                 ) else (
  259.                     echo 非法输入!&pause>nul&goto :xz))
  260.         )
  261.     ) else (
  262.         echo  你本轮下注最少!min_xz!元,最多!max_xz!元&echo;
  263.         set/p zj_xz=请输入金额【输入q弃牌】:
  264.         if "!zj_xz!"=="q" (
  265.             set t_names=!t_names:zj=!&set zj_xz=0&set xz_echo= !zj!弃牌
  266.         ) else (
  267.              for /l %%i in (!min_xz!,1,!max_xz!) do if "%%i"=="!zj_xz!" set hf=ok
  268.              if defined hf (
  269.                  set hf=
  270.                  if "!zj_xz!"=="!max_xz!" (
  271.                      set xz_echo= !zj!下注!zj_xz!元,叫ShowHand
  272.                  ) else (set xz_echo= !zj!下注!zj_xz!元)
  273.               ) else (
  274.                  echo 非法输入!&pause>nul&goto :xz))
  275.     )
  276. ) else (
  277.     if defined S_H (
  278.         set/a ran_xzpd=^(!random!%%10000^)+^(^(!%1_djfs!+1^)/2*800^)-!zj_djfs!*200-!max_xz!/2
  279.         if !ran_xzpd! geq 2100 (
  280.             set %1_xz=!max_xz!&set xz_echo= !%1!下注!%1_xz!元 叫ShowHand
  281.         ) else (set t_names=!t_names:%1=!&set %1_xz=0&set xz_echo= !%1!弃牌)
  282.     ) else (
  283.         set/a ran_xzpd=^(!random!%%10000^)+^(^(!%1_djfs!+1^)/2*800^)-!zj_djfs!*70-!min_xz!/10
  284.         set/a ran_xz=^(!random!%%50+50^)*^(!%1_djfs!+1^)+!min_xz!
  285.         if !ran_xz! geq !max_xz! (
  286.             set/a ran_xz=!max_xz!-1
  287.         ) else (
  288.             if "!hh!"=="5" if not "!max_pm_name!"=="%1" set ran_xz=!min_xz!
  289.         )
  290.         if !ran_xzpd! leq 1900 set t_names=!t_names:%1=!&set %1_xz=0&set xz_echo= !%1!弃牌
  291.         if !ran_xzpd! gtr 1900 if !ran_xzpd! leq 7900 if !min_xz! lss 3500 (
  292.             set %1_xz=!min_xz!&set xz_echo= !%1!下注!min_xz!元
  293.         ) else (set t_names=!t_names:%1=!&set %1_xz=0&set xz_echo= !%1!弃牌)
  294.         if !ran_xzpd! gtr 7900 set %1_xz=!ran_xz!&set xz_echo= !%1!下注!ran_xz!元
  295. ))
  296. goto :eof
  297. :xs ::::::::::::::::::::::::::::扑克显示:::::::::::::::::::::::::
  298. if %1 equ 0 (echo  发第!hh!张牌:底牌&echo;) else (echo  发第!hh!张牌,进行第!hh_xz!轮下注&echo;)
  299. for %%j in (!t_names!) do (
  300.     set %%j_tpk_t=!%%j_tpk1:~%1!!%%j_tpk2:~,%1!底@@
  301.     set %%j_pkxs=
  302.     for /l %%k in (0,1,4) do (
  303.         set/a x=%%k*3&for %%m in (!x!) do set %%j_pkxs=!%%j_pkxs! !%%j_tpk_t:~%%m,3!
  304.     )
  305.     set pkxs=!%%j_pkxs!
  306.     echo  !%%j!  剩余现金!%%j_dz!元
  307.     %xs:$=!pkxs!%
  308. )
  309. echo;&echo  桌上赌注总共!dc!元&echo;
  310. if %1 equ 12 if "%2"=="zj" echo  最后一轮下注,下注后亮牌定胜负!&echo;
  311. if %1 gtr 0 if "%2"=="!max_pm_name!" echo  !%max_pm_name%!牌面最大,!%max_pm_name%!先说话
  312. goto :eof
  313. :pmbd :::::::::::::::::::::::::获取每轮最大牌面玩家:::::::::::::::::::::::::
  314. for %%i in (!t_names!) do (
  315.     set %%i_pm=!%%i_pmbd:~3,%1!
  316.     set %%i_pm_px=
  317.     set c=0&for %%j in (!%%i_pm!) do set/a c+=1&set t!c!=%%j
  318.     for /l %%j in (1,1,!c!) do (
  319.         for /l %%k in (1,1,!c!) do (
  320.             if !t%%j! gtr !t%%k! set t=!t%%j!&set t%%j=!t%%k!&set t%%k=!t!
  321.     ))   
  322.     for /l %%j in (1,1,!c!) do set %%i_pm_px=!t%%j! !%%i_pm_px!
  323.     call :pd " !%%i_pm_px!" "%%i_pm"
  324. )
  325. call :bd pm_djfs pm_sz
  326. goto :eof
  327. :dsds :::::::::::::::::::::::::你赢了!:::::::::::::::::::::::::::::::::::
  328. cls
  329. for /l %%i in (1,1,8) do echo;
  330. set s1=张三李四技不如人,输得精光,一败涂地...
  331. set s2=!zj! 赌术非凡,独占鳌头,成为新一代赌神!
  332. set s3=很多年以后,民间还流传着 !zj! 的故事... ...
  333. for /l %%i in (1,1,3) do (
  334.     for /l %%j in (0,1,30) do set/p=!s%%i:~%%j,1!<nul&ping/n 1 127.1>nul
  335.     echo;&echo;&ping/n 2 127.1>nul
  336. )
  337. pause&exit
复制代码

作者: batman    时间: 2011-6-14 19:54

楼主莫不是赌王世家。。。

专门写赌博工具?
作者: wankoilz    时间: 2011-6-14 19:57

我是赌城老板...
作者: chenqldiy    时间: 2011-6-14 22:04

太有意思了,做成这样,不过开始发一个牌之前能不能显示没有牌,后面来1张就出现一张呢?
作者: wankoilz    时间: 2011-6-14 22:15

本帖最后由 wankoilz 于 2011-6-15 07:10 编辑
太有意思了,做成这样,不过开始发一个牌之前能不能显示没有牌,后面来1张就出现一张呢?
chenqldiy 发表于 2011-6-14 22:04

将就吧,把它当成空牌位就是了...
作者: web    时间: 2012-10-16 22:45

娱乐   解闷的东西
作者: 0123456789    时间: 2012-11-11 12:08

代码好复杂,看不懂。
作者: uxdhoh    时间: 2012-11-12 19:00

就是喜欢你的帖子 没办法
作者: xswl    时间: 2022-12-4 12:05

谁能把他对齐,强迫症




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