| ::Code By wankoilz 2011/6/11 @win7 QQ:375913828 |
| ::From bbs.bathome.net 批处理之家 |
| @echo off&setlocal enabledelayedexpansion |
| mode con lines=34 cols=42&title 梭哈-人机对战 by wankoilz&color 8e |
| |
| echo 行赌生涯，梭哈-人机对战 规则说明： |
| echo ┏━━━━━━━━━━━━━━━━━━┓ |
| echo ┃总共发五张牌。第一轮发底牌，不下注。┃ |
| echo ┃而后每发一张牌进行一轮下注，共四轮。┃ |
| echo ┃在任何一轮中你可以下注，也可以弃牌。┃ |
| echo ┃四轮下注完毕后所有人亮底牌比大小，牌┃ |
| echo ┃面大者胜（如果有相同的则平分赌注）。┃ |
| echo ┃ ┃ |
| echo ┃下注规则： ┃ |
| echo ┃每轮按照牌面大小顺序下注。 ┃ |
| echo ┃上次下注数额 ^<=下注数额^<= 任何玩家所┃ |
| echo ┃剩最小资金。否则视为非法。 ┃ |
| echo ┃ ┃ |
| echo ┃ShowHand规则： ┃ |
| echo ┃当桌面上有人剩余资金不够跟注时，玩家┃ |
| echo ┃可以选择以那人剩余资金为标准下注，此┃ |
| echo ┃为ShowHand。此时其他人可以选择跟注，┃ |
| echo ┃直接发完5张牌，比大小。 ┃ |
| echo ┃ ┃ |
| echo ┃牌面大小规则： ┃ |
| echo ┃同花顺^>四条^>葫芦（三条+一对）^>同花^> ┃ |
| echo ┃连顺^>三条^>两对^>一对^>单牌 ┃ |
| echo ┃A^>K^>Q^>J^>10...^>2， A2345 视为连顺 ┃ |
| echo ┃◇◆○●代表四种花色，花色不分大小 ┃ |
| echo ┣━━━━━━━━━━━━━━━━━━┫ |
| echo ┃总之，玩了就知道了，你懂的....电脑绝┃ |
| echo ┃不是吃干饭的，你试试认认真真和电脑玩┃ |
| echo ┃几把就知道厉害了，嘿嘿... ┃ |
| echo ┃ ┃ |
| echo ┃准备开始你的行赌生涯吧... ┃ |
| echo ┗━━━━━━━━━━━━━━━━━━┛ |
| set "dj=同花顺_17 四条_11 葫芦_10 同花_9 连顺_8 三条_7 两对_6 一对_3 单牌_0" |
| for %%i in (%dj%) do for /f "delims=_ tokens=1-2" %%j in ("%%i") do set _%%k=%%j |
| set bdfs_1=53550&set bdfs_2=3570&set bdfs_3=238&set bdfs_4=15&set bdfs_5=1 |
| set/p zj=请输入你的名字：&set zs=张三&set ls=李四 |
| set names=zj zs ls |
| set zj_dz=10000&set zs_dz=10000&set ls_dz=10000 |
| set @=◇&set #=◆&set $=○&set [=●&set hs=@#$[ |
| for /l %%i in (2,1,9) do for %%j in (@ # $ [) do set %%j0%%i=!%%j!%%i |
| for %%i in (11J,12Q,13K,14A) do for %%j in (@ # $ [) do (set tmp=%%i&set %%j!tmp:~,-1!=!%%j!!tmp:~-1!) |
| for %%i in (@ # $ [) do set %%i10=!%%i!10 |
| set tmp= |
| set h1=┏━━┓ |
| set h2=┃ @@┃ |
| set h3=┃ ┃ |
| set h4=┃ ┃ |
| set h5=┗━━┛ |
| set "xs=(for /l %%i in (1,1,5) do ((for %%j in ($) do (set "t=%%j "^&set t=^!t:~,3^!^&for %%k in ("^^!t^^!") do set tmp=^!h%%i: @@=%%~k^!^&set/p=^!tmp^!^<nul))^&echo;))" |
| |
| :main |
| cls&echo 等待洗牌... |
| setlocal&set dc=0&set t_names=%names%&set min_xz=1 |
| for %%i in (%names%) do ( |
| call :fp&set %%i_pkbl=!pkbl! |
| call :pd "!%%i_pkbl!" "%%i" |
| for %%j in (!pk!) do set "t=%%j "&set t=!t:~,3!&set %%i_pk=!%%i_pk!!t! |
| set %%i_tpk1=◎@@◎@@◎@@◎@@ |
| set c=0&for /l %%j in (0,3,12) do set/a c+=1&set "dp_!c!=!%%i_pk:~%%j,3!" |
| set c=0&for %%j in (!%%i_sz!) do set/a c+=1&set dp_sz_!c!=%%j |
| for /l %%j in (1,1,5) do ( |
| set/a ran_jh=!random!%%5+1 |
| for %%k in (!ran_jh!) do ( |
| set "t=!dp_%%j!"&set "dp_%%j=!dp_%%k!"&set "dp_%%k=!t!" |
| set t=!dp_sz_%%j!&set dp_sz_%%j=!dp_sz_%%k!&set dp_sz_%%k=!t! |
| )) |
| for /l %%j in (1,1,5) do set "%%i_pk_lx=!%%i_pk_lx!!dp_%%j!"&set %%i_sz_lx=!%%i_sz_lx! !dp_sz_%%j! |
| set %%i_tpk2=!%%i_pk_lx:~0,12!&set set "%%i_dp=!%%i_pk_lx:~12,3!" |
| for %%j in (!%%i_sz_lx!) do set "t=%%j "&set t=!t:~,3!&set %%i_pmbd=!%%i_pmbd!!t! |
| set %%i_pmbd=@@@!%%i_pmbd:~,12! |
| ) |
| cls |
| for /l %%i in (0,3,12) do ( |
| set names_ph=&set max_pm_name= |
| set max_xz=30000&for %%i in (!t_names!) do if !%%i_dz! lss !max_xz! set max_xz=!%%i_dz!&set max_xz_name=%%i |
| set/a hh+=1,hh_xz=hh-1 |
| if %%i equ 0 call :xs %%i&echo;&pause |
| if %%i gtr 0 ( |
| if !min_xz! geq !max_xz! set S_H=ok |
| call :pmbd %%i |
| for %%j in (!names_ph!) do ( |
| cls&call :xs %%i %%j |
| call :xz %%j |
| set/a %%j_dz-=%%j_xz,dc+=%%j_xz |
| if !%%j_xz! gtr !min_xz! set min_xz=!%%j_xz! |
| echo !xz_echo! |
| if "!%%j_xz!"=="!max_xz!" set S_H=ok |
| echo;&pause |
| set "tz_pd=!t_names: =!"&if "!tz_pd:~2!"=="" goto :zjsl |
| ) |
| if defined S_H goto :zjsl |
| )) |
| |
| :zjsl |
| cls |
| if defined S_H if not "!tz_pd:~2!"=="" echo 本轮ShowHand！ |
| if not "!tz_pd:~2!"=="" ( |
| echo 下注完毕，所有人亮牌：&echo; |
| ) else ( |
| echo 除!%t_names: =%!外，其他人弃牌&echo; |
| ) |
| if not "!tz_pd:~2!"=="" ( |
| for %%i in (%t_names%) do ( |
| echo !%%i! 剩余现金!%%i_dz!元 |
| set pkxs=&for /l %%j in (0,3,12) do set pkxs=!pkxs! !%%i_pk:~%%j,3! |
| %xs:$=!pkxs!% |
| for %%j in (!%%i_djfs!) do echo !_%%j! |
| )) |
| |
| set winners=&set c_winners=&call :bd djfs sz |
| for %%i in (%winners%) do set winners_name=!winners_name! !%%i! |
| if not "!tz_pd:~2!"=="" echo;&echo !winners_name:~1!以 !winner_dj! 胜。 |
| set/a dc_winners=dc/c_winners 2>nul |
| for %%i in (%winners%) do set/a %%i_dz+=dc_winners |
| if "%c_winners%"=="1" ( |
| echo !winners_name:~1!收揽了桌上的%dc_winners%元 |
| ) else ( |
| echo !winners_name:~1!平分桌上的%dc_winners%元 |
| ) |
| if %zj_dz% leq 0 echo;&echo !zj! 已输得身无分文，行赌生涯到此为止了！&echo;&pause&exit |
| for %%i in (%names:zj=%) do if !%%i_dz! leq 0 set names=!names:%%i=!&echo;&echo !%%i! 输得精光，被勒令退出赌场！ |
| for %%i in (%names%) do set/a c_names+=1 |
| if "%c_names%"=="1" pause&call :dsds |
| endlocal&set zj_dz=%zj_dz%&set zs_dz=%zs_dz%&set ls_dz=%ls_dz%&set names=%names% |
| echo;&pause&goto :main |
| |
| |
| :fp ::::::::::::::::::::::::::::::::发牌::::::::::::::::::::::::::::::: |
| set n=0&set pk=&set pkbl= |
| :lp |
| set/a rnd1=!random!%%4,rnd2=!random!%%13+2 |
| set rnd2=0!rnd2!&set rnd2=!rnd2:~-2! |
| set tmp=!hs:~%rnd1%,1!!rnd2! |
| if not defined __%tmp% set __%tmp%=ok&set ___%tmp%=ok&set/a n+=1 |
| if %n% lss 5 goto :lp |
| for /f "delims=_=" %%i in ('set ___^|sort/+5') do set pk=!pk! !%%i!&set pkbl=!pkbl! %%i |
| for /f "delims==" %%i in ('set ___') do set %%i= |
| goto :eof |
| |
| |
| :pd :::::::::::::::::::::牌面种类判断(同花顺?对子?等等)::::::::::::::::: |
| setlocal |
| set c=0&set t= |
| set pdzf=0123456789abcdefghi&set "s=%~1"&set djfs=0 |
| set "sz=!s!"&for %%i in (@0 #0 $0 [0 @ # $ [) do set sz=!sz:%%i=! |
| for %%i in (%s%) do set t=%%i&set ta=!ta! !t:~,1!&set t= |
| for %%i in (%sz%) do ((if "%%i"=="!L!" set/a c+=1&set t=!t! %%i)&set L=%%i) |
| if !c! equ 3 if "!t:%t:~-1%=!"==" " (set/a djfs+=11) else (set/a djfs+=10) |
| if !c! equ 2 ( |
| for /f "tokens=1-2" %%i in ("!t!") do ( |
| if %%i equ %%j (set/a djfs+=7) else (set/a djfs+=6) |
| )) |
| |
| if !c! equ 1 set/a djfs+=3 |
| for %%i in ("%sz%" " 1%sz: 14=%") do ( |
| for %%j in (%%~i) do set t1=!t1!!pdzf:~%%j,1! |
| set t=%%~i&set t=!t:~,3! |
| for %%k in (!t!) do if "!pdzf:~%%k,5!"=="!t1!" set/a djfs+=8 |
| set t1=&set t2=%%~i |
| ) |
| if %djfs% equ 8 if "%t2:~-1%"=="5" set sz=%t2% |
| if "!ta:%ta:~-1%=!"==" " set/a djfs+=9 |
| |
| endlocal&set %~2_djfs=%djfs%&set %~2_sz=%sz%&goto :eof |
| |
| |
| :bd <djfs/pm_djfs> <sz/pm_sz>::::::::::::::::::牌面大小判断:::::::::::::::::::::::: |
| setlocal |
| for %%i in (%t_names%) do set/a x+=1 |
| if !x! equ 1 endlocal&set winners=!t_names: =!&set c_winners=1&goto :eof |
| for %%i in (%t_names%) do ( |
| for %%j in (!%%i_%2!) do set t=@%%j&set %%i_bdsz=!%%i_bdsz!!t:~-2! |
| if !%%i_%1! equ 10 ( |
| for /f "delims=_ tokens=1-2" %%j in ("!%%i_bdsz:~2,2!_!%%i_bdsz:~4,2!") do ( |
| if "%%j"=="%%k" (set %%i_bdsz=!%%i_bdsz:~-2! %%j) else (set %%i_bdsz=%%j %%k) |
| ))) |
| for %%i in (%t_names%) do ( |
| for %%j in (3 6 7 11) do ( |
| if !%%i_%1! equ %%j ( |
| set tmp=!%%i_bdsz! |
| for /l %%k in (0,2,8) do ( |
| for %%l in ("!%%i_bdsz:~%%k,2!") do ( |
| if not "%%~l"=="" ( |
| if "%%~l"=="!L!" set tmp=!tmp:%%~l=!%%~l |
| set L=%%~l |
| ))) |
| set %%i_bdsz=!tmp!&set tmp= |
| ))) |
| |
| for %%i in (%t_names%) do ( |
| set c=0 |
| for /l %%j in (8,-2,0) do ( |
| if not "!%%i_bdsz:~%%j,2!"=="" ( |
| set t=!%%i_bdsz:~%%j,2!&set t=!t:@=!&set/a c+=1 |
| for %%k in (!c!) do set/a %%i_bdfs=!t!*!bdfs_%%k!+%%i_bdfs |
| ))) |
| for %%i in (%t_names%) do ( |
| if !%%i_%1! geq !max! (set djfspx=!djfspx! %%i&set max=!%%i_djfs! |
| ) else (set djfspx=%%i !djfspx! |
| )) |
| |
| set max=&for %%i in (%t_names%) do if !%%i_%1! gtr !max! set winner=%%i&set max=!%%i_%1! |
| set names_ph=!djfspx! |
| for /f "tokens=1-3" %%i in ("!djfspx!") do ( |
| if "%%k"=="" ( |
| if !%%j_%1! equ !%%i_%1! ( |
| if !%%j_bdfs! gtr !%%i_bdfs! set winner=%%j&set names_ph=%%j %%i |
| if !%%j_bdfs! lss !%%i_bdfs! set winner=%%i&set names_ph=%%i %%j |
| if !%%j_bdfs! equ !%%i_bdfs! set winner=%%i %%j&set names_ph=%%j %%i |
| ) else ( |
| if !%%j_%1! gtr !%%i_%1! set names_ph=%%j %%i |
| if !%%j_%1! lss !%%i_%1! set names_ph=%%i %%j |
| ) |
| ) else ( |
| if !%%i_%1! equ !%%j_%1! if !%%i_%1! neq !%%k_%1! ( |
| if !%%i_bdfs! gtr !%%j_bdfs! set names_ph=%%k %%i %%j |
| if !%%i_bdfs! lss !%%j_bdfs! set names_ph=%%k %%j %%i |
| if !%%j_bdfs! equ !%%k_bdfs! set names_ph=%%k %%i %%j |
| ) |
| if !%%j_%1! equ !%%k_%1! if !%%j_%1! neq !%%i_%1! ( |
| if !%%j_bdfs! gtr !%%k_bdfs! set winner=%%j&set names_ph=%%j %%k %%i |
| if !%%j_bdfs! lss !%%k_bdfs! set winner=%%k&set names_ph=%%k %%j %%i |
| if !%%j_bdfs! equ !%%k_bdfs! set winner=%%j %%k&set names_ph=%%j %%k %%i |
| ) |
| if !%%j_%1! equ !%%k_%1! if !%%j_%1! equ !%%i_%1! ( |
| if !%%j_bdfs! gtr !%%k_bdfs! set winner=%%j&set bigger=!%%j_bdfs! |
| if !%%j_bdfs! lss !%%k_bdfs! set winner=%%k&set bigger=!%%k_bdfs! |
| if !%%i_bdfs! gtr !bigger! set winner=%%i |
| for %%m in (!winner!) do for /f "tokens=1-2" %%n in ("!t_names:%%m= !") do ( |
| if !%%n_bdfs! gtr !%%o_bdfs! ( |
| set names_ph=!winner! %%n %%o |
| ) else ( |
| set names_ph=!winner! %%o %%n |
| )) |
| if !%%j_bdfs! equ !%%k_bdfs! if !%%j_bdfs! gtr !%%i_bdfs! set winner=%%j %%k |
| if !%%j_bdfs! equ !%%i_bdfs! if !%%j_bdfs! gtr !%%k_bdfs! set winner=%%j %%i |
| if !%%i_bdfs! equ !%%k_bdfs! if !%%i_bdfs! gtr !%%j_bdfs! set winner=%%i %%k |
| if !%%j_bdfs! equ !%%k_bdfs! if !%%j_bdfs! equ !%%i_bdfs! set winner=%%i %%j %%k |
| ))) |
| for %%i in (%winner%) do ( |
| for %%j in (!%%i_djfs!) do set winner_dj=!_%%j! |
| set winners=!winners! %%i |
| for %%j in (!%%i_%1!) do set d=!_%%j! |
| set/a c_winners+=1 |
| ) |
| endlocal&set winners=%winners%&set winner_dj=%winner_dj%&set c_winners=%c_winners%&set names_ph=%names_ph%&set max_pm_name=%names_ph:~,2%&goto :eof |
| |
| |
| :xz ::::::::::::::::::::::::下注::::::::::::::::::::::::::::::: |
| if "%1"=="zj" ( |
| if defined S_H ( |
| if "!max_pm_name!"=="zj" ( |
| echo !%max_xz_name%!剩余资金不够跟注，你是否 ShowHand？ |
| set/p zj_xz=输入【s】ShowHand,【q】弃牌： |
| if "!zj_xz!"=="s" ( |
| set zj_xz=!max_xz!&set xz_echo= !zj!下注!zj_xz!元 叫ShowHand |
| ) else ( |
| if "!zj_xz!"=="q" ( |
| set t_names=!t_names:zj=!&set zj_xz=0&set xz_echo= !zj!弃牌 |
| ) else ( |
| echo 非法输入！&pause>nul&goto :xz)) |
| ) else ( |
| echo 有人ShowHand，是否跟注？ |
| set/p zj_xz=输入【s】跟注ShowHand,【q】弃牌： |
| if "!zj_xz!"=="s" ( |
| set zj_xz=!max_xz!&set xz_echo= !zj!跟注!zj_xz!元 ShowHand |
| ) else ( |
| if "!zj_xz!"=="q" ( |
| set t_names=!t_names:zj=!&set zj_xz=0&set xz_echo= !zj!弃牌 |
| ) else ( |
| echo 非法输入！&pause>nul&goto :xz)) |
| ) |
| ) else ( |
| echo 你本轮下注最少!min_xz!元,最多!max_xz!元&echo; |
| set/p zj_xz=请输入金额【输入q弃牌】: |
| if "!zj_xz!"=="q" ( |
| set t_names=!t_names:zj=!&set zj_xz=0&set xz_echo= !zj!弃牌 |
| ) else ( |
| for /l %%i in (!min_xz!,1,!max_xz!) do if "%%i"=="!zj_xz!" set hf=ok |
| if defined hf ( |
| set hf= |
| if "!zj_xz!"=="!max_xz!" ( |
| set xz_echo= !zj!下注!zj_xz!元，叫ShowHand |
| ) else (set xz_echo= !zj!下注!zj_xz!元) |
| ) else ( |
| echo 非法输入！&pause>nul&goto :xz)) |
| ) |
| ) else ( |
| if defined S_H ( |
| set/a ran_xzpd=^(!random!%%10000^)+^(^(!%1_djfs!+1^)/2*800^)-!zj_djfs!*200-!max_xz!/2 |
| if !ran_xzpd! geq 2100 ( |
| set %1_xz=!max_xz!&set xz_echo= !%1!下注!%1_xz!元 叫ShowHand |
| ) else (set t_names=!t_names:%1=!&set %1_xz=0&set xz_echo= !%1!弃牌) |
| ) else ( |
| set/a ran_xzpd=^(!random!%%10000^)+^(^(!%1_djfs!+1^)/2*800^)-!zj_djfs!*70-!min_xz!/10 |
| set/a ran_xz=^(!random!%%50+50^)*^(!%1_djfs!+1^)+!min_xz! |
| if !ran_xz! geq !max_xz! ( |
| set/a ran_xz=!max_xz!-1 |
| ) else ( |
| if "!hh!"=="5" if not "!max_pm_name!"=="%1" set ran_xz=!min_xz! |
| ) |
| if !ran_xzpd! leq 1900 set t_names=!t_names:%1=!&set %1_xz=0&set xz_echo= !%1!弃牌 |
| if !ran_xzpd! gtr 1900 if !ran_xzpd! leq 7900 if !min_xz! lss 3500 ( |
| set %1_xz=!min_xz!&set xz_echo= !%1!下注!min_xz!元 |
| ) else (set t_names=!t_names:%1=!&set %1_xz=0&set xz_echo= !%1!弃牌) |
| if !ran_xzpd! gtr 7900 set %1_xz=!ran_xz!&set xz_echo= !%1!下注!ran_xz!元 |
| )) |
| goto :eof |
| |
| |
| :xs ::::::::::::::::::::::::::::扑克显示::::::::::::::::::::::::: |
| if %1 equ 0 (echo 发第!hh!张牌：底牌&echo;) else (echo 发第!hh!张牌，进行第!hh_xz!轮下注&echo;) |
| for %%j in (!t_names!) do ( |
| set %%j_tpk_t=!%%j_tpk1:~%1!!%%j_tpk2:~,%1!底@@ |
| set %%j_pkxs= |
| for /l %%k in (0,1,4) do ( |
| set/a x=%%k*3&for %%m in (!x!) do set %%j_pkxs=!%%j_pkxs! !%%j_tpk_t:~%%m,3! |
| ) |
| set pkxs=!%%j_pkxs! |
| echo !%%j! 剩余现金!%%j_dz!元 |
| %xs:$=!pkxs!% |
| ) |
| echo;&echo 桌上赌注总共!dc!元&echo; |
| if %1 equ 12 if "%2"=="zj" echo 最后一轮下注，下注后亮牌定胜负！&echo; |
| if %1 gtr 0 if "%2"=="!max_pm_name!" echo !%max_pm_name%!牌面最大，!%max_pm_name%!先说话 |
| goto :eof |
| |
| |
| :pmbd :::::::::::::::::::::::::获取每轮最大牌面玩家::::::::::::::::::::::::: |
| for %%i in (!t_names!) do ( |
| set %%i_pm=!%%i_pmbd:~3,%1! |
| set %%i_pm_px= |
| set c=0&for %%j in (!%%i_pm!) do set/a c+=1&set t!c!=%%j |
| for /l %%j in (1,1,!c!) do ( |
| for /l %%k in (1,1,!c!) do ( |
| if !t%%j! gtr !t%%k! set t=!t%%j!&set t%%j=!t%%k!&set t%%k=!t! |
| )) |
| for /l %%j in (1,1,!c!) do set %%i_pm_px=!t%%j! !%%i_pm_px! |
| call :pd " !%%i_pm_px!" "%%i_pm" |
| ) |
| call :bd pm_djfs pm_sz |
| goto :eof |
| |
| |
| :dsds :::::::::::::::::::::::::你赢了!::::::::::::::::::::::::::::::::::: |
| cls |
| for /l %%i in (1,1,8) do echo; |
| set s1=张三李四技不如人，输得精光，一败涂地... |
| set s2=!zj! 赌术非凡，独占鳌头，成为新一代赌神！ |
| set s3=很多年以后，民间还流传着 !zj! 的故事... ... |
| for /l %%i in (1,1,3) do ( |
| for /l %%j in (0,1,30) do set/p=!s%%i:~%%j,1!<nul&ping/n 1 127.1>nul |
| echo;&echo;&ping/n 2 127.1>nul |
| ) |
| pause&exitCOPY |
发表于 2011-6-14 19:41
| 