中国DOS联盟

俺的斗地主脚本已经基本完成了前台界面,现正处于后台部分.http://www.cn-dos.net/forum/viewthread.php?tid=50331&fpage=1
最近写了牌型检测模块,V0.2版在2楼测试完成后再优化嵌入斗地主脚本
如玩家输入一串牌7890JQKA,电脑返回 顺子 字样
玩家输入一串牌JQKA2,电脑返回 违规 字样
0代表10 N代表王
现发布测试,大家有事没事欢迎回帖!
代码如下:

@echo off&SETLOCAL ENABLEDELAYEDEXPANSION&(CHCP 437 &GRAFTABL 936)>NUL

title sybn 斗地主牌型检测模块V0.1

:2

set /p p6s=请输入牌型如7890JQKA,N代表王,0代表10:

set p6s=0%p6s:1=A%

set px=违规!

for %%a in (3 4 5 6 7 8 9 0 J Q K A 2 N) do set ps%%a=0

for /l %%a in (1,1,20) do for /f %%b in ("!p6s:~%%a,1!") do set /a ps%%b+=1

set /a p6zs=%ps3%+%ps4%+%ps5%+%ps6%+%ps7%+%ps8%+%ps9%+%ps0%+%psj%+%psq%+%psk%+%psa%+%ps2%+%psn%

set p6ss=%ps3%%ps4%%ps5%%ps6%%ps7%%ps8%%ps9%%ps0%%psj%%psq%%psk%%psa%-%ps2%%psn%$

title sybn 斗地主牌型检测模块V0.1 中间代码: %p6ss% . %p6zs%张

::单牌

if %p6zs% == 1 set px=单牌



::3张和飞机

::解释:  %p6ss:3=.% == %p6ss%  表示%p6ss%中没有3则if生效,加上not表示有3则if生效

if %p6zs% == 3 if not %p6ss:3=.% == %p6ss% set px=3张

if %p6zs% == 4 if not %p6ss:3=.% == %p6ss% set px=3带1

if %p6zs% == 5 if not %p6ss:3=.% == %p6ss% if not %p6ss:2=.% == %p6ss% set px=3带对

if %p6zs% == 6 if not %p6ss:33=.% == %p6ss% set px=飞机

if %p6zs% == 8 if not %p6ss:33=.% == %p6ss% set px=飞机带单

if %p6zs% == 10 if not %p6ss:33=.% == %p6ss% if %p6ss:1=.% == %p6ss% set px=飞机带对

if %p6zs% == 9 if not %p6ss:333=.% == %p6ss% set px=三顺

if %p6zs% == 12 if not %p6ss:333=.% == %p6ss% set px=三顺带单

if %p6zs% == 15 if not %p6ss:333=.% == %p6ss% if %p6ss:1=.% == %p6ss% set px=三顺带对

if %p6zs% == 12 if not %p6ss:3333=.% == %p6ss% set px=三大顺

if %p6zs% == 16 if not %p6ss:3333=.% == %p6ss% set px=三大顺带单

set p6ss3=%p6ss:3333=.%

if %p6zs% == 20 if not %p6ss:3333=.% == %p6ss% if %p6ss:1=.% == %p6ss% if %p6ss3:3=.% == %p6ss3% set px=三大顺带对

if %p6zs% == 15 if not %p6ss:33333=.% == %p6ss% set px=三巨顺

if %p6zs% == 20 if not %p6ss:33333=.% == %p6ss% set px=三巨顺带单

if %p6zs% == 18 if not %p6ss:333333=.% == %p6ss% set px=三神顺



::对子和兄弟

if %p6zs% == 2 if %p6ss:1=.% == %p6ss% set px=对子

if %p6zs% == 6 if not %p6ss:222=.% == %p6ss% set px=3兄弟

if %p6zs% == 8 if not %p6ss:2222=.% == %p6ss% set px=4兄弟

if %p6zs% == 10 if not %p6ss:22222=.% == %p6ss% set px=5兄弟

if %p6zs% == 12 if not %p6ss:222222=.% == %p6ss% set px=6兄弟

if %p6zs% == 14 if not %p6ss:2222222=.% == %p6ss% set px=7兄弟

if %p6zs% == 16 if not %p6ss:22222222=.% == %p6ss% set px=8兄弟

if %p6zs% == 18 if not %p6ss:222222222=.% == %p6ss% set px=9兄弟

if %p6zs% == 20 if not %p6ss:2222222222=.% == %p6ss% set px=10兄弟



::顺子

if %p6zs% == 5 if not %p6ss:11111=.% == %p6ss% set px=5张顺子

if %p6zs% == 6 if not %p6ss:111111=.% == %p6ss% set px=6张顺子

if %p6zs% == 7 if not %p6ss:1111111=.% == %p6ss% set px=7张顺子

if %p6zs% == 8 if not %p6ss:11111111=.% == %p6ss% set px=8张顺子

if %p6zs% == 9 if not %p6ss:111111111=.% == %p6ss% set px=9张顺子

if %p6zs% == 10 if not %p6ss:1111111111=.% == %p6ss% set px=10张顺子

if %p6zs% == 11 if not %p6ss:11111111111=.% == %p6ss% set px=11张顺子

if %p6zs% == 12 if not %p6ss:111111111111=.% == %p6ss% set px=12张顺子



::炸弹

if %p6zs% == 4 if not %p6ss:4=.% == %p6ss% set px=4炸

if %p6zs% == 2 if not %p6ss:2$=.% == %p6ss% set px=王炸

echo.

echo.              %px%:%p6s:~1,99%

echo.

goto :2

[ Last edited by sl543001 on 2010-3-12 at 11:39 ]

有效牌用于对比各种相同类型的牌的大小(顺子和兄弟里的最大一张,3张里的不含带牌的最大一张)
例如 333A的有效牌为3 5556的有效牌为5,所以333A<5556

@echo off&SETLOCAL ENABLEDELAYEDEXPANSION&(CHCP 437 &GRAFTABL 936)>NUL

title sybn 斗地主牌型检测模块V0.2

:2

set /p p6s=请输入牌型如7890JQKA,N代表王,0代表10:

set p6s=0%p6s:1=A%

set px=违规

set p6yx=0

::标记字符串对应的牌

set ps=---34567890JQKA02N$

::初始化

for /l %%a in (0,1,4) do set pss%%a=0

for %%a in (3 4 5 6 7 8 9 0 J Q K A 2 N) do set ps%%a=0&set p6zs%%a=0

::计算各中点数的牌的数量

for /l %%a in (1,1,20) do for /f %%b in ("!p6s:~%%a,1!") do set /a ps%%b+=1

::计算牌的数量

set /a p6zs=%ps3%+%ps4%+%ps5%+%ps6%+%ps7%+%ps8%+%ps9%+%ps0%+%psj%+%psq%+%psk%+%psa%+%ps2%+%psn%

::获取标记字符串%p6ss%

set p6ss=---%ps3%%ps4%%ps5%%ps6%%ps7%%ps8%%ps9%%ps0%%psj%%psq%%psk%%psa%0%ps2%%psn%$

::提取最大的单张,2张,3张,4张

for /l %%a in (3,1,17) do set pss!p6ss:~%%a,1!=%%a

title sybn 斗地主牌型检测模块V0.1 中间代码: %p6ss% . %p6zs%张

::单牌

if %p6zs% == 1 set px=单牌&set p6yx=%pss1%

::3张和飞机

::解释:  %p6ss:3=.% == %p6ss%  表示%p6ss%中没有3则if生效,加上not表示有3则if生效

if %p6zs% == 3 if not %p6ss:3=.% == %p6ss% set px=三张

if %p6zs% == 4 if not %p6ss:3=.% == %p6ss% set px=三带一

if %p6zs% == 5 if not %p6ss:3=.% == %p6ss% if not %p6ss:2=.% == %p6ss% set px=三带对

if %p6zs% == 6 if not %p6ss:33=.% == %p6ss% set px=飞机

if %p6zs% == 8 if not %p6ss:33=.% == %p6ss% set px=飞机带单

if %p6zs% == 10 if not %p6ss:33=.% == %p6ss% if %p6ss:1=.% == %p6ss% set px=飞机带对

if %p6zs% == 9 if not %p6ss:333=.% == %p6ss% set px=三顺

if %p6zs% == 12 if not %p6ss:333=.% == %p6ss% set px=三顺带单

if %p6zs% == 15 if not %p6ss:333=.% == %p6ss% if %p6ss:1=.% == %p6ss% set px=三顺带对

if %p6zs% == 12 if not %p6ss:3333=.% == %p6ss% set px=三大顺

if %p6zs% == 16 if not %p6ss:3333=.% == %p6ss% set px=三大顺带单

::为防止出现类似333444555666777qqqkkkaa被误认为三大顺带对加入下面一行

set p6ss3=%p6ss:3333=.%

if %p6zs% == 20 if not %p6ss:3333=.% == %p6ss% if %p6ss:1=.% == %p6ss% if %p6ss3:3=.% == %p6ss3% set px=三大顺带对

if %p6zs% == 15 if not %p6ss:33333=.% == %p6ss% set px=三巨顺

if %p6zs% == 20 if not %p6ss:33333=.% == %p6ss% set px=三巨顺带单

if %p6zs% == 18 if not %p6ss:333333=.% == %p6ss% set px=三神顺

::对子和兄弟

if %p6zs% == 2 if %p6ss:1=.% == %p6ss% set px=对子&set p6yx=%pss2%

if %p6zs% == 6 if not %p6ss:222=.% == %p6ss% set px=3兄弟

if %p6zs% == 8 if not %p6ss:2222=.% == %p6ss% set px=4兄弟

if %p6zs% == 10 if not %p6ss:22222=.% == %p6ss% set px=5兄弟

if %p6zs% == 12 if not %p6ss:222222=.% == %p6ss% set px=6兄弟

if %p6zs% == 14 if not %p6ss:2222222=.% == %p6ss% set px=7兄弟

if %p6zs% == 16 if not %p6ss:22222222=.% == %p6ss% set px=8兄弟

if %p6zs% == 18 if not %p6ss:222222222=.% == %p6ss% set px=9兄弟

if %p6zs% == 20 if not %p6ss:2222222222=.% == %p6ss% set px=10兄弟

::顺子

if %p6zs% == 5 if not %p6ss:11111=.% == %p6ss% set px=5张顺子

if %p6zs% == 6 if not %p6ss:111111=.% == %p6ss% set px=6张顺子

if %p6zs% == 7 if not %p6ss:1111111=.% == %p6ss% set px=7张顺子

if %p6zs% == 8 if not %p6ss:11111111=.% == %p6ss% set px=8张顺子

if %p6zs% == 9 if not %p6ss:111111111=.% == %p6ss% set px=9张顺子

if %p6zs% == 10 if not %p6ss:1111111111=.% == %p6ss% set px=10张顺子

if %p6zs% == 11 if not %p6ss:11111111111=.% == %p6ss% set px=11张顺子

if %p6zs% == 12 if not %p6ss:111111111111=.% == %p6ss% set px=12张顺子

::炸弹

if %p6zs% == 4 if not %p6ss:4=.% == %p6ss% set px=4炸&set p6yx=%pss4%

if %p6zs% == 2 if not %p6ss:2$=.% == %p6ss% set px=王炸&set p6yx=%pss2%

::提取有效牌(顺子和兄弟里的最大一张,3张里的不含带牌的最大一张)

if not %px:顺子=.% == %px% set p6yx=%pss1%

if not %px:兄弟=.% == %px% set p6yx=%pss2%

if not %px:三=.% == %px% set p6yx=%pss3%

echo.

echo.              %px%:(%p6yx%)%p6s:~1,99%

echo.

goto :2