@echo off
:lis
cls&setlocal enabledelayedexpansion
for %%a in (黑桃 红桃 梅花 方块) do (
  for /l %%b in (2 1 14) do (
  set ww=00%%b
  set ww=!ww:~-2!
  set _!random!=!ww!-%%a
))
for /f "tokens=2,3 delims=_-=" %%a in ('set _^|sort /r') do (
   set /a var+=1&if !var! leq 13 set +%%a-%%b=%%a
)
for /f "tokens=1,2 delims=+=" %%a in ('set +^|sort') do (
  for /f "tokens=1,2 delims=-" %%i in ("%%a") do (
     set /a suz=100%%i%%100,jia=10
     for %%k in (J Q K A) do set /a jia+=1&call set suz=%%suz:!jia!=%%k%%
     set %%j=!%%j! !suz!
))
for %%a in (黑桃 红桃 梅花 方块) do if not "!%%a!"=="" echo %%a !%%a!
echo\&echo 按任意键，进行下一轮发牌。
pause>nul&endlocal
goto lis
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1,1,13) do (call :random&call :model)
echo.&pause>nul&exit
:random
set random1=%random%
set random2=%random%
set /a random1%%=14
set /a random2%%=5
if %random1% equ 0 (goto random) else (
	(set 11=J)&(set 12=Q)&(set 13=K)
	if %random2% equ 0 (goto random) else (
	(set 1=桃)&(set 2=杏)&(set 3=梅)&(set 4=方)
	set model=!%random2%!
	if %random1% lss 11 (
		if %random1% equ 1 (set num= A) else (set num= !random1!)
	) else (set num= !%random1%!)
	goto :eof
	)
)
:model
echo.  ┌────┐
echo.  │!model!　　!num!│
echo.  │　　　　│
echo.  │　　　　│
echo.  │　　　　│
echo.  │　　　　│
echo.  │!num!　　!model!│
echo.  └────┘
goto :eof
复制代码