@echo off
setlocal enabledelayedexpansion
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下是片頭
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
title 梭哈美化版E-mail : [email protected]
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 12 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
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::以下是片尾
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
nclick="copycode($('code0'));">復制代碼