:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@echo off & setlocal EnableDelayedExpansion
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下是片头
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
title "超级简易桥牌2.0版  E-mail : bizhuang0917@126.com"
echo 程序载入中，请稍后……
for /l %%i in (1,1,25) do set/p a=^><nul&ping /n 0 127.1>nul
cls
mode con lines=13  
color f8 
echo.
echo.
echo.
echo.
echo.
echo                   本程序仅用于学习交流，不得用于商业用途
ping -n 2 127.1>nul
cls
echo.
echo.
echo.
echo.
echo        **************************************************************
echo        *                欢迎使用超级简易桥牌2.0版                   *
echo        **************************************************************
ping -n 2 127.1>nul
cls
echo.
echo.
echo.
echo.
echo.
echo                             作者：    小竹英雄
ping -n 2 127.1>nul
cls
echo.
echo.
echo.
echo.
echo.
echo                               英雄软件工作室
ping -n 2 127.1>nul
cls 
echo.
echo.
echo.
echo.
echo.
echo                              版权所有，盗版或究
ping -n 2 127.1>nul
cls 
color E2
echo.
echo.
echo.
echo 
echo                   在桥牌的大牌点计算中A=4，K=3，Q=2，J=1
echo 按任意键进入游戏……
pause>nul
cls
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下是从52个数中选出13个
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:begin
for /l %%i in (1,1,52) do set a%%i=%%i
set total=52
set count=13
:1
if %count% equ 0 goto 2
set/a temp=%random%%%%total%+1
set   puker%count%=!a%temp%!
set/a a%temp%=!a%total%!
set/a total=%total%-1
set/a count=%count%-1
goto 1
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下将13个数由大到小排序
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:2
for /l %%i in (1,1,12) do (
set/a w=%%i+1
for /l %%j in (!w!,1,13) do (
if  !puker%%i! lss !puker%%j! (
set/a tt=!puker%%i!
set/a puker%%i=!puker%%j!
set/a puker%%j=!tt! ) ) )
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下是将数字变换为扑克符号AKQJ
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
set/a point=0
for /l %%i in (1,1,13) do (
set/a gg=!puker%%i!-1
set/a flag%%i=!gg!/13 
set/a puker%%i=!puker%%i!%%13+1 )
for /l %%i in (1,1,13) do (
if !puker%%i! equ 13 set puker%%i=K&set/a point=!point!+3
if !puker%%i! equ 12 set puker%%i=Q&set/a point=!point!+2
if !puker%%i! equ 11 set puker%%i=J&set/a point=!point!+1
if !puker%%i! equ 1 set puker%%i=A&set/a point=!point!+4 )
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下是输出
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
set /p bb=黑桃：<nul
for /l %%i in (1,1,13) do (
if !flag%%i! equ 3 set/p a=!puker%%i!<nul  )
echo.

set /p bb=红桃：<nul
for /l %%i in (1,1,13) do (
if !flag%%i! equ 2 set/p a=!puker%%i!<nul  )
echo.

set /p bb=方块：<nul
for /l %%i in (1,1,13) do (
if !flag%%i! equ 1 set/p a=!puker%%i!<nul  )
echo.
set /p bb=草花：<nul
for /l %%i in (1,1,13) do (
if !flag%%i! equ 0 set/p a=!puker%%i!<nul  )
echo.
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
echo 请输入本手牌的大牌点数
set /p input=
echo 让我想一想……
ping -n 2 127.0.0.1 >nul
if %input% equ %point% (echo 正确！是个高手呀！) else (
echo 
echo 错了！真遗憾！) 
echo 本手牌大牌点有%point%点
pause
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
cls
echo 重来一次？（是/y，否/n）
set /p slt=
if %slt% equ y cls&goto begin
if %slt% equ Y cls&goto begin
cls
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下是片尾
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
color 0f
echo.
echo.
echo.
echo.
echo                                   谢谢使用……
ping -n 2 127.0.0.1>nul
cls
echo.
echo.
echo.
echo.
echo                                      再见！
ping -n 2 127.0.0.1>nul
exit
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
复制代码