@echo off
setlocal enabledelayedexpansion
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下是片头
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
title "梭哈美化版  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 2e 
echo.
echo.
echo.
echo.
echo.
echo                   本程序仅用于学习交流，不得用于商业用途
ping -n 2 127.1>nul
cls
echo.
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 
echo.
echo.
echo.
echo.
echo.
echo                              版权所有，盗版或究
ping -n 2 127.1>nul
cls 
color 2e
echo.
echo.
echo.
echo 
echo 按任意键进入游戏……
pause>nul
mode con lines=25 
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
::
::以下为投注
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
::
:start
set mymoney=1000
set oncemoney=100

:begin
cls
echo 赌神先生，您有赌资!mymoney!元
echo 请投注
set /p oncemoney=
if not defined oncemoney echo  您没有投注！请重新投注!!&pause&goto begin
if !oncemoney! gtr !mymoney! echo 投注错误！&pause&goto begin
if !oncemoney! leq 0 echo 投注错误！&pause&goto begin
if not defined oncemoney echo投注错误！&pause&goto begin
set /a mymoney=!mymoney!-!oncemoney!

cls
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
::
::以下发10张牌，其中有5张是用于交换牌时备用的。
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
::   
 for /l %%i in (1,1,52) do set a%%i=%%i
set total=52
set count=10
::发10张牌，其中有5张是备用的
:1
if %count% equ 0 goto 2
set/a temp=%random%%%%total%+1
set   pk%count%=!a%temp%!
set/a a%temp%=!a%total%!
set/a total=%total%-1
set/a count=%count%-1
goto 1

:2
for /l %%i in (1,1,10) do (
set/a tt=!pk%%i!-1
set/a flag%%i=!tt!/13
set/a pk%%i=!pk%%i!%%13+1
set left%%i=!flag%%i!
set right%%i=!pk%%i!
if !pk%%i! equ 13 set pk%%i=A 
if !pk%%i! equ 12 set pk%%i=K 
if !pk%%i! equ 11 set pk%%i=Q 
if !pk%%i! equ 10 set pk%%i=J 
if !pk%%i! equ 9 set pk%%i=10
if !pk%%i! equ 8 set pk%%i=9 
if !pk%%i! equ 7 set pk%%i=8 
if !pk%%i! equ 6 set pk%%i=7 
if !pk%%i! equ 5 set pk%%i=6 
if !pk%%i! equ 4 set pk%%i=5 
if !pk%%i! equ 3 set pk%%i=4 
if !pk%%i! equ 2 set pk%%i=3 
if !pk%%i! equ 1 set pk%%i=2 

if !flag%%i! equ 3 set pk%%i=  !pk%%i!
if !flag%%i! equ 2 set pk%%i=  !pk%%i!
if !flag%%i! equ 1 set pk%%i=  !pk%%i!
if !flag%%i! equ 0 set pk%%i= !pk%%i!
)
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
::
::显示并让用户选择要交换的牌
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::
echo 同花大顺×500           大顺×300                 同花顺×100 
echo 顺子×50                 同花×30                    四条×20 
echo 葫芦×15                 三条×10                     两对×5
echo ┏━━━━┓ ┏━━━━┓┏━━━━┓┏━━━━┓┏━━━━┓
echo ┃!pk1!    ┃ ┃!pk2!    ┃┃!pk3!    ┃┃!pk4!    ┃┃!pk5!    ┃
echo ┃        ┃ ┃        ┃┃        ┃┃        ┃┃        ┃
echo ┃ Super  ┃ ┃ Super  ┃┃ Super  ┃┃ Super  ┃┃ Super  ┃
echo ┃  Hero  ┃ ┃  Hero  ┃┃  Hero  ┃┃  Hero  ┃┃  Hero  ┃
echo ┃        ┃ ┃        ┃┃        ┃┃        ┃┃        ┃
echo ┃!pk1!    ┃ ┃!pk2!    ┃┃!pk3!    ┃┃!pk4!    ┃┃!pk5!    ┃
echo ┗━━━━┛ ┗━━━━┛┗━━━━┛┗━━━━┛┗━━━━┛ 
echo       1            2           3           4           5











echo 请选择要交换的牌（用12345表示）
set slt=                                 
for /l %%i in (1,1,5) do (  
set slt%%i=
)
set/p slt= 
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::[size=5]实现换牌 （怎么实现换牌的）[/size]
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
::
for /l %%i in (0,1,4) do (
set/a k=%%i+1
set slt!k!=!slt:~%%i,1!
if not defined slt!k! goto 3
) [size=5]：：这个for语句有何用？[/size]




                                                        

:3
for /l %%i in (6,1,10) do (
set/a vv=%%i-5
set tleft!vv!=!left%%i!
set tright!vv!=!right%%i!
set tpuke!vv!=!pk%%i!
)
for /l %%j in (1,1,5) do (
set left!slt%%j!=!tleft%%j!
set right!slt%%j!=!tright%%j!
set pk!slt%%j!=!tpuke%%j!
)
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
echo ┏━━━━┓ ┏━━━━┓┏━━━━┓┏━━━━┓┏━━━━┓
echo ┃!pk1!    ┃ ┃!pk2!    ┃┃!pk3!    ┃┃!pk4!    ┃┃!pk5!    ┃
echo ┃        ┃ ┃        ┃┃        ┃┃        ┃┃        ┃
echo ┃ Super  ┃ ┃ Super  ┃┃ Super  ┃┃ Super  ┃┃ Super  ┃
echo ┃  Hero  ┃ ┃  Hero  ┃┃  Hero  ┃┃  Hero  ┃┃  Hero  ┃
echo ┃        ┃ ┃        ┃┃        ┃┃        ┃┃        ┃
echo ┃!pk1!    ┃ ┃!pk2!    ┃┃!pk3!    ┃┃!pk4!    ┃┃!pk5!    ┃
echo ┗━━━━┛ ┗━━━━┛┗━━━━┛┗━━━━┛┗━━━━┛ 
for /l %%i in (1,1,25) do set/p a=^><nul&ping /n 0 127.1>nul
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
set samecolor=0
set bigline=0
set samecolor=0
set sameline=0
set samefour=0
set hulu=0
set samethree=0
set twocouples=0
set str=
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
::
::以下判断是否同花
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
::
if %left1% equ !left2! if !left2! equ !left3! if !left3! equ !left4! if  
!left4! equ !left5! set samecolor=1
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
::
::以下判断是否为顺子
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
::

for /l %%i in (1,1,4) do (
set/a w=%%i+1
for /l %%j in (!w!,1,5) do (
if  !right%%i! lss !right%%j! (
set/a tt=!right%%i!
set/a right%%i=!right%%j!
set/a right%%j=!tt! ) ) )

::以上为排序
set/a t1=%right5%+1
set/a t2=%right4%+1
set/a t3=%right3%+1
set/a t4=%right2%+1
if %right4% equ %t1% if %right3% equ %t2% if %right2% equ %t3% if  
%right1% equ %t4% set sameline=1
if !sameline! equ 1 if !right1! equ 13 set bigline=1
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
::
::以下是判断是否为两对，三条，四条，葫芦
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
::
for /l %%i in (1,1,5) do (
if !right%%i! equ 13 set right%%i=A
if !right%%i! equ 12 set right%%i=K
if !right%%i! equ 11 set right%%i=Q
if !right%%i! equ 10 set right%%i=J
if !right%%i! equ 9 set right%%i=T
if !right%%i! equ 8 set right%%i=9
if !right%%i! equ 7 set right%%i=8
if !right%%i! equ 6 set right%%i=7
if !right%%i! equ 5 set right%%i=6
if !right%%i! equ 4 set right%%i=5
if !right%%i! equ 3 set right%%i=4
if !right%%i! equ 2 set right%%i=3
if !right%%i! equ 1 set right%%i=2
set str=!str!!right%%i!

)


for /l %%i in (1,1,4) do (
	set/a w=%%i+1
	for /l %%j in (!w!,1,5) do (
		if  !right%%i! equ !right%%j! (
			set e1=!right%%i!
			set e2=!right%%j!
			goto 4
		)
	)
)
goto 5

:4
set str=!str:%e1%=0!
set h1=!str:~0,1!
set h2=!str:~1,1!
set h3=!str:~2,1!
set h4=!str:~3,1!
set h5=!str:~4,1!

set box=0
for /l %%i in (1,1,5) do (
	if !h%%i! equ 0 set/a box+=1
)

if !box! equ 4 set samefour=1&goto 5

if !box! equ 3 (
	set str=!str:0=!
	set m=!str:~0,1!
)
::此时m就有值了，否则m的值不正确！
if !box! equ 3 (
	set str=!str:%m%=0!
	if !str! equ 00 set hulu=1&goto 5
	set samethree=1&goto 5
)
set str=!str:0=!
set g1=!str:~0,1!
set g2=!str:~1,1!
set g3=!str:~2,1!
if !g1! equ !g2! if !g2! equ !g3! set hulu=1&goto 5
for /l %%i in (1,1,2) do (
	set/a w=%%i+1
	for /l %%j in (!w!,1,3) do (
		if !g%%i! equ !g%%j! (
			set twocouples=1&goto 5
		)
	)
)

goto 5
		


:5
set increase=0
if !samecolor! equ 1 if !bigline! equ 1 set increase=501&goto 6
if !bigline! equ 1 set increase=301&goto 6
if !samecolor! equ 1 if !sameline! equ 1 set increase=101&goto 6
if !sameline! equ 1 set increase=51&goto 6
if !samecolor! equ 1 set increase=31&goto 6
if !samefour! equ 1 set increase=21&goto 6
if !hulu! equ 1 set increase=16&goto 6
if !samethree! equ 1 set increase=11&goto 6
if !twocouples! equ 1 set increase=6&goto 6


:6
if !increase! equ 501 echo 恭喜你，同花大顺！ 
if !increase! equ 301 echo 恭喜你，大顺！
if !increase! equ 101 echo 恭喜你，同花顺！
if !increase! equ 51 echo 恭喜你，顺子！
if !increase! equ 31 echo 恭喜你，同花！
if !increase! equ 21 echo 恭喜你，四条！
if !increase! equ 16 echo 恭喜你，葫芦！
if !increase! equ 11 echo 恭喜你，三条！
if !increase! equ 6 echo 恭喜你，两对！
if !increase! equ 0 echo 对不起，什么都不是！
pause
set /a mymoney=!mymoney!+(!increase!*!oncemoney!)
if !mymoney! leq 0 echo 输光了吧！还赌神呢，整个一白痴！&pause>nul&goto  
end
if !mymoney! geq 10000 echo 赌神果然名不虚传，您赢了！&pause>nul&goto  
end
cls
goto begin

:end
cls
echo 重玩一次？（是/y，否/n）
set/p select=
if !select! equ y goto start
if !select! equ Y goto start
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下是片尾
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
复制代码

echo 请选择要交换的牌（用12345表示）
set slt=                                 
for /l %%i in (1,1,5) do (  
set slt%%i=
)
::清空 slt[1-5] 变量的值，以免以往的输入影响下文判断
set/p slt= 
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
for /l %%i in (0,1,4) do (
set/a k=%%i+1
set slt!k!=!slt:~%%i,1!
rem 从左至右分别获取 slt 变量的字符为 slt[1-5] 的值
if not defined slt!k! goto 3
rem 假如当前字符为 slt 变量最后一个字符，则跳转到标签 :3
)
复制代码

:3
for /l %%i in (6,1,10) do (
set/a vv=%%i-5
set tleft!vv!=!left%%i!
rem 获取 left 变量的第六到第十个字符为 tleft[1-5] 变量的值
set tright!vv!=!right%%i!
rem 同理
set tpuke!vv!=!pk%%i!
rem 同理
)
::看这个 6 1 10 的范围，估计 left、right、pk 可能都是用于存储经过乱序排列后的可用牌序的变量吧，而 tleft[1-5]、tright[1-5]、tpuke[1-5] 这三组变量当然就是存储换牌之后的值了
for /l %%j in (1,1,5) do (
set left!slt%%j!=!tleft%%j!
rem 将实现换牌，还记得 slt%%j 是什么吗？slt1~slt5 是用户输入的第 1~5 个字符，而 tleft[1-5] 则是刚才重新取出的五张牌，所以将 left!str[用户的输入]! 替换为 tleft[1-5] 就实现了换牌
set right!slt%%j!=!tright%%j!
rem 同理
set pk!slt%%j!=!tpuke%%j!
rem 同理
)
::不了解 left 和 right 两组变量是干嘛用的，但是 pk 这组变量很明显就是指桌上的牌。
复制代码