CMD下批处理小游戏21点

everest79

规则：
发牌与叫牌为先闲后庄
庄为电脑，闲为玩家
首次发牌一家两张，一明一暗，庄家的明牌显示在屏幕上给闲家参考，闲家的明牌做为一个值提供给电脑判断是否要牌，然后闲家首先决定是否叫牌
当闲家爆掉(大于21点)时，庄家直接赢得本局，庄家不用再叫牌
闲家牌总数达到五张时，自动结束闲家叫牌，转为庄家选择叫牌
闲家放弃叫牌后转为庄家叫牌
相同点数庄吃闲，五张牌大4-20点
要求：
在CMD下不能显示扑克牌图案，用汉字代替
需要有总局数，庄闲胜局纪录
胜利判定需要你自定义一个渐进递归的算式，例如
总局为1-5局时需要对战比分 1:2
6-15局时比分 1:1.9
...
具体局数自定义，递归单位也自定义
游戏的结局有三个结果，第一是庄胜闲，第二是闲胜庄，第三是累死电累（达到总局上限）
牌的正面：

┏━━┓
┃A   ┃
┃    ┃
┃  梅┃
┗━━┛
复制代码

牌的背面

┏━━┓
┃++++┃
┃++++┃
┃++++┃
┗━━┛
复制代码

操作界面

┏━━┓┏━━┓
┃6   ┃┃++++┃
┃    ┃┃++++┃
┃  方┃┃++++┃
┗━━┛┗━━┛










┏━━┓┏━━┓
┃10  ┃┃A   ┃
┃    ┃┃    ┃
┃  黑┃┃  梅┃
┗━━┛┗━━┛
复制代码

我自已也在写，但判断方面比较困难
首先电脑叫牌与否取决于自已牌面大小，对家明牌，对家叫了几张牌，接近21点时叫牌判断不但要考虚这些，还需要添加一个随机数
再者就是代码的效率，这个每个人的爱好不同，就不多讲了

everest79

抛砖引玉，我只写了一半，逻辑方面还没有完成

@ECHO OFF
:Init
ECHO A=0 B=0 >ll.txt
SETLOCAL ENABLEDELAYEDEXPANSION
Set _String=黑红梅方
Set _Replace1=1  A   1  1
Set _Replace2=A3 K  13 10
Set _Replace3=A2 Q  12 10
Set _Replace4=AA J  11 10
Set _Replace5=A0 10 10 10
Set /A _ZFen=0,_XFen=0,Total+=1


:Start
Set /A Count+=1,1/(2/Count) 2>nul||Set Count=2&&Goto SelectP
If Not Defined _Computer2 (
   CALL :FaPai Computer%Count%
   If Not Defined _Computer2 (
      CALL :Screen "A" "!DianShu:~0,2!" "!HuaSe!"
      CAll :Back "A"
   )
) 
CALL :FaPai Players%Count%
CALL :Screen "B" "!DianShu:~0,2!" "!HuaSe!"
Goto Start

:SelectP
Set /A CountP+=1,1/(3/CountP) 2>nul||Set CountP=3&&Goto SelectC
If Not Defined _Players3 (
   Set ACount=2
   CALL :JiFen Players SelectP
)
CALL :Output
Set /P Instr="(Quit;Enter any key;Enter):"
If Defined Instr (
   If /I *!Instr! == *quit (
      Goto :eof
   ) Else (
      Set /A CountP=CountP-1
      Goto SelectC
   )
)
CALL :Console "Players" "B" "SelectP" %CountP%
Goto %_Label%

:SelectC
Set /A CountC+=1,1/(3/CountC) 2>nul||Set CountC=3&&Goto End
Set /A _Chk1=Players1+10,_Chk2=(21-ComputerFen-CountP)/2
Set /A _Chk3=%random%%%2,_Chk4=%random%%%100
If Not Defined _Computer3 (
   Set ACount=2
   CALL :JiFen Computer SelectC
)
If %ComputerFen% LSS 15 (
   Goto Next) Else (
   If !_Chk1! GTR !ComputerFen! (
      If !CountP! GTR 0 (
         If !_Chk2! GEQ 2 (
           If !_Chk3! EQU 1 (Goto Next)
         ) Else (
         If !_Chk2! LEQ -2 (
           If !_Chk4! EQU 99 (Goto Next)
         )
         )
      )
   )
)
Set /A CountC-=1
Goto End
:Next
CALL :Console "Computer" "A" "SelectC" %CountC%
Goto %_Label%



:Console
::%1=Players(Computer) %2=B(A) %3=Select+C(P)
Set /A ACount=Count+%~4
CALL :FaPai %~1%ACount%
CALL :JiFen %~1 %~3
CALL :Screen "%~2" "!DianShu:~0,2!" "!HuaSe!"
Goto :eof

:FaPai
::%1=Computer(Players)+Count
Set /A DianShu=%random%%%13+1
If *!Set%DianShu%! == *Not Goto FaPai
Set _%~1=%DianShu%
If Not Defined Set%DianShu% (
CALL :Strto
Set Set%DianShu%=!Str!
)
Set Set%DianShu%=!Set%DianShu%:Not=!
Set HuaSe=!Set%DianShu%:~0,1!
Set Set%DianShu%=!Set%DianShu%:%HuaSe%=!Not
:Conver
For /F "tokens=2-5 delims== " %%a in ('
Set _Replace') DO (
Set "DianShu=!DianShu:%%a=%%b! "
Set _%~1=!_%~1:%%c=%%d!
)
Set _x%~1=!DianShu:~0,2! !HuaSe!
Goto :eof

:Strto
Set Str=%_String%
Set /A _str1=%random%%%4
Set _str2=!Str:~%_str1%,4!
Set Str=%_str2%!Str:%_str2%=!
Set /A _str1=%random%%%3+1
Set _str2=!Str:~0,-%_str1%!
Set Str=%_str2%!Str:%_str2%=!
Goto :eof

:JiFen
Set /A Shangx=21,Fen=0,aaa=0,bbb=0,xxx=0
For /L %%i in (1,1,%ACount%) DO (
Set /A aaa=!_%~1%%i!,bbb=aaa/^(aaa*aaa^)*10,Fen+=aaa+bbb,Shangx+=bbb
Set /A xxx+=aaa/^(aaa*aaa^)
)
If %xxx% GTR 0 Set /A Fen=Fen-(xxx-1)*10
If %Fen% LEQ %Shangx% (
Set _Label=%~2
If !Fen! GTR 21 Set /A Fen-=10
) Else (
Set _Label=Overflow
Set _Lose=%~2
If !Shangx! GTR 21 Set /A Fen-=10)
Set %~1Fen=%Fen%
Goto :eof

:Screen
::%1=A(B) %2=DianShu %3=HuaSe
Set %~11=!%~11!┏━━┓
Set %~12=!%~12!┃%~2  ┃
Set %~13=!%~13!┃    ┃
Set %~14=!%~14!┃  %~3┃
Set %~15=!%~15!┗━━┛
Goto :eof

:Back
Set %~11=!%~11!┏━━┓
Set %~12=!%~12!┃++++┃
Set %~13=!%~13!┃++++┃
Set %~14=!%~14!┃++++┃
Set %~15=!%~15!┗━━┛
Goto :eof

:Output
CLS
CALL :Show 5 A
CALL :Show 9
ECHO.%_XFen%/%Total%
CALL :Show 5 B
CALL :Show 2
Goto :eof

:Show
For /L %%i in (1,1,%~1) DO ECHO.!%~2%%i!
Goto :eof

:Overflow
If *%_Lose% == *SelectC (
Set _Lose=闲) Else (Set _Lose=庄)
Goto Pri

:End
If %ComputerFen% GEQ %PlayersFen% (
Set _Lose=庄) Else (Set _Lose=闲)
Goto Pri
:Pri
Set /A CountC+=Count
For /L %%i in (1,1,5) DO Set "A%%i="
For /L %%i in (1,1,%CountC%) DO CALL :Screen "A" "!_xComputer%%i:~0,2!" "!_xComputer%%i:~-1!"
CALL :Output
ECHO %_Lose%赢 
For /F "tokens=1,2" %%i in (ll.txt) DO Set /a %%i,%%j
If *%_Lose% == *庄 (
Set /A A+=1) Else (
Set /A B+=1)
ECHO A=%A% B=%B% >ll.txt
PAUSE>nul
ENDLOCAL

Goto :Init
复制代码