所需阅读权限 1[游戏娱乐] 批处理做扑克“斗地主”

netbenton

“斗地主的艰苦岁月”：
6.10 以前：

界面，洗牌，发牌，整理牌面，选牌，出牌等基本框架已经完成，就差电脑方如何出牌了。

6.13 更新：
做好了叫地主功能，好做了各方随机说话功能。
做好了各方出牌演示，只是还不能正常打牌，是乱出的。

6.14 更新：
1、做到了各方只能根据规则从小到大出牌，但是只能做到单式出牌（单个，双，三个，四个），还“不懂”什么是“三带一”。
2、可以判断赢牌方。

7.3 更新：
批处理“斗地主”的雏形出来了！！！！激动啊。。。
不过还在存很多bug，电脑方没有智能，只懂规则（已经很难搞了）

9.29 更新：
*改正了开始玩家可以不出的问题
*增加了ai对4炸的“认识”
*ai出牌从原来的单到双，改为从小出牌，
*增加了少于两长牌时警告提示
*增加了ai打三带1或三带2时的灵活性。
*对于玩家出牌的功能，已经基本善。

目前歉缺：
ai不分敌友，
ai先出牌时没有技巧可言，“不懂”发组合牌型
无计分功能
无音效，（准备用QQ游戏斗地主的声音）




有时间还将陆续更新。。。

（由于文件太大，只能用上传附件了。为了节约空间，6.16发的附件已经删除）


还将继续完善，敬请留意。。。

netbenton

谢谢，握手，相信我们可以完成的。

目前还要解决这几个问题：
1，如何显示玩家选择牌时，牌的凸出效果
已然采用了显示缓存方式，只要修改缓存中相应的变量即可，我已经有方案，主要是效率问题

2，如何让电脑方“明白”他有什么牌，选择什么出牌方案
先得匹配出电脑方的各种符合规则的牌，然后再选择，在打牌过程中还要根据已出牌面出牌。

netbenton

特效（玩家选择的凸出效果）做出来了，效率很高，大家可以接着做其它部分。
是根据变量chu中的#和@来区别是否选择来进行显示的，对后面的开发很方便。
代码如下，欢迎测试。

@echo off
::用于特效显示的数所初始化
(set chu0=$
set m1=1
set m2=2
set m3=3
set m4=

set a$#0=        &rem 定义尾巴
set b$#0=—=—=╮
set c$#0=      │
set d$#0=      │
set e$#0=      │
set f$#0=批  §│
set g$#0=  处  │
set h$#0=§  理│
set i$#0=━=━=╯

set a$@0=—=—=╮
set b$@0=      │
set c$@0=      │
set d$@0=      │
set e$@0=批  §│
set f$@0=  处  │
set g$@0=§  理│
set h$@0=━=━=╯
set i$@0=

set a$#1=—=╮
set b$#1=—=┷=╮
set c$#1=      │
set d$#1=      │
set e$#1=      │
set f$#1=批  §│
set g$#1=  处  │
set h$#1=§  理│
set i$#1=━=━=╯

set a$@1=—=—=╮
set b$@1=      │
set c$@1=      │
set d$@1=      │
set e$@1=批  §│
set f$@1=  处  │
set g$@1=§  理│
set h$@1=━=┯=╯
set i$@1=━=╯

set a$#2=╮
set b$#2=┷=—=╮
set c$#2=      │
set d$#2=      │
set e$#2=      │
set f$#2=批  §│
set g$#2=  处  │
set h$#2=§  理│
set i$#2=━=━=╯

set a$@2=—=—=╮
set b$@2=      │
set c$@2=      │
set d$@2=      │
set e$@2=批  §│
set f$@2=  处  │
set g$@2=§  理│
set h$@2=┯=━=╯
set i$@2=╯

set a@00$=╭=
set b@00$=│!ob!
set c@00$=│!oc!
set d@00$=│ 
set e@00$=│ 
set f@00$=│ 
set g@00$=│ 
set h@00$=╰=
set i@00$=   &rem 突出第一个,第一位

set a@10=╭=
set b@10=┥!ob!
set c@10=┊!oc!
set d@10=┊ 
set e@10=┊ 
set f@10=┊ 
set g@10=┊ 
set h@10=╰-
set i@10=━=&rem 突出第N个,第N位，变换

set a@12=╭=
set b@12=┥!ob!
set c@12=┊!oc!
set d@12=┊ 
set e@12=┊ 
set f@12=┊ 
set g@12=┊ 
set h@12=╰-
set i@12=━=&rem 突出第N个,第1，2位，变换

set a@13=╭=
set b@13=┥!ob!
set c@13=┊!oc!
set d@13=┊ 
set e@13=┊ 
set f@13=┊ 
set g@13=┊ 
set h@13=╰-
set i@13=━=&rem 突出第N个,第3位，变换

set a@0=╭=
set b@0=┊!ob!
set c@0=┊!oc!
set d@0=┊ 
set e@0=┊ 
set f@0=┊ 
set g@0=┊ 
set h@0=╰=
set i@0=   &rem 突出第N个,第N位

set a@2=╭=
set b@2=┊!ob!
set c@2=┊!oc!
set d@2=┊ 
set e@2=┊ 
set f@2=┊ 
set g@2=┊ 
set h@2=╰-
set i@2=━=&rem 突出第N个,第2位

set a@3=╭=
set b@3=┊!ob!
set c@3=┊!oc!
set d@3=┊ 
set e@3=┊ 
set f@3=┊ 
set g@3=┊ 
set h@3=╰-
set i@3=╯ &rem 突出第N个,第3位




set a#00$=   &rem 不突第一个
set b#00$=╭=
set c#00$=│!ob!
set d#00$=│!oc!
set e#00$=│ 
set f#00$=│ 
set g#00$=│ 
set h#00$=│ 
set i#00$=╰=

set a#10=—=&rem 不突第N个,第N位,变换
set b#10=╭=
set c#10=┊!ob!
set d#10=┊!oc!
set e#10=┊ 
set f#10=┊ 
set g#10=┊ 
set h#10=┤ 
set i#10=╰=

set a#12=—=&rem 不突第N个,第1，2位,变换
set b#12=╭=
set c#12=┊!ob!
set d#12=┊!oc!
set e#12=┊ 
set f#12=┊ 
set g#12=┊ 
set h#12=┤ 
set i#12=╰=

set a#13=—=&rem 不突第N个,第3位,变换
set b#13=╭=
set c#13=┊!ob!
set d#13=┊!oc!
set e#13=┊ 
set f#13=┊ 
set g#13=┊ 
set h#13=┤ 
set i#13=╰=

set a#0=   &rem 不突第N个,第1位
set b#0=╭=
set c#0=┊!ob!
set d#0=┊!oc!
set e#0=┊ 
set f#0=┊ 
set g#0=┊ 
set h#0=┊ 
set i#0=╰=

set a#2=—=&rem 不突第N个,第2位
set b#2=╭=
set c#2=┊!ob!
set d#2=┊!oc!
set e#2=┊ 
set f#2=┊ 
set g#2=┊ 
set h#2=┊ 
set i#2=╰=

set a#3=╮ &rem 不突第N个,第3位
set b#3=╭=
set c#3=┊!ob!
set d#3=┊!oc!
set e#3=┊ 
set f#3=┊ 
set g#3=┊ 
set h#3=┊ 
set i#3=╰=

)

setlocal enabledelayedexpansion
::为了显示方便，用p代替10
::定义花色数据
set a1=
&set a2=&set a3=&set a4=&set a5=&set a6=

(::定义显示缓存
set ec1=  ┌──┐
set ec2=  │ 17 │
set ec3=  │    │  ┍=┑ 
set ec4=  │ 张 │  │1│
set ec5=  │    │  │!a6!│
set ec6=  ╘≡≡╛  ┕=┙ 
set ec7=
set ec8=
set ec9=                                                                                  ┌──┐
set ec10=                                                                                  │ 12 │
set ec11=                                                                      ┍=┑       │    │
set ec12=                                                                      │2│       │ 张 │
set ec13=                                                                      │!a5!│       │    │
set ec14=                                                                      ┕=┙       ╘≡≡╛
set ec15=
set ec16=
set ec17=
set ec18=
set ec19=
set ec20=
set ec21=
set ec22=
set ec23=     ┍=┑
set ec24=     │8│
set ec25=     │!a6!│
set ec26=     ┕=┙
    set ec36=       a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q 
)
set n=0
for %%a in (a b c d e f g h i j k l m n o p q) do (set w%%a=!n!&set/a n=n+1)

::随机排序54张牌（洗牌）
for %%a in (3 4 5 6 7 8 9 p J Q K A 2) do (for %%b in (!a3! !a5! !a4! !a6!) do (set #p!random!.%%a-%%b=1))
set #P!random!.w-!a1!=1
set #P!random!.W-!a2!=1

::发牌，并留三张底
set/a m=0,n=0
for /f "tokens=2 delims==." %%a in ('set #p') do (
set /a m=m%%3+1,n+=1
if !n! leq 51 (
for %%c in (!m!) do (
  set he%%c=!he%%c! %%a
)
) else (set di=!di! %%a)
)
set he&echo 显示三家牌
echo.
set di&echo 显示底牌
echo.

::整理各家手上的牌
for /l %%a in (1,1,3) do (
setlocal enabledelayedexpansion
for %%b in (!he%%a!) do (
  for /f "tokens=1,2 delims=-" %%c in ("%%b") do (
   set p.d%%c=!p.d%%c! %%c
   set p.f%%c=!p.f%%c! %%d
  )
)
for %%b in (3 4 5 6 7 8 9 p J Q K A 2 w) do (
  set pai%%ad=!pai%%ad!!p.d%%b!
  set pai%%af=!pai%%af!!p.f%%b!
)
for /f "tokens=1,2 delims=." %%b in ("!pai%%ad:* =!.!pai%%af:* =!") do (
  endlocal
  set pai%%ad=%%b
  set pai%%af=%%c
)
)

set pai&echo 显示整理好各家的牌
echo.
pause
mode con: cols=100 lines=200
echo.

set pad=!pai1d: =!
set paf=!pai1f: =!
::测试用，玩家选择的为:@,没选为:#
set chu=#########################

:loop
set c#=@
set c@=#

set a1=
set/a n=16,@=4,#=4
set is@=$
setlocal enabledelayedexpansion
for /l %%a in (0,1,!n!) do (
        for %%z in (!chu:~%%a^,1!) do (
                set hu=&set var=
                if %%z neq !is@! (
                        set/a var=!is@!
                        set/a hu=m!var!
                        set is@=%%z&set %%z=1
                        if %%a equ 0 set %%z=4
                ) else (set /a !is@!+=1)
                if !is@! equ @ (set/a n@#=m!@!) else (set/a n@#=m!#!)
                set var=!n@#!!hu!
                if !n@#!!hu! equ 11 set var=12
        for /f "tokens=1-4" %%b in ("!pad:~%%a,1! !paf:~%%a,1! !var! !chu%%a!") do (
                set oc=%%c&set ob=%%b

rem 测试用变量显示：echo b%%z%%d%%e        !@!-!#!        !b%%z%%d%%e!  !var!

                for %%i in (a b c d e f g h i) do (
                        for %%j in ("!%%i%%z%%d%%e!") do (
                                set %%iN=!%%iN!%%~j
                )        )

        ))
)

if !n@#! equ 3 set n@#=0
for %%i in (a b c d e f g h i) do (
        for %%j in ("%%i$!is@!!n@#!") do (
                set %%iN=!%%iN!!%%~j!
)        )

set "spac=     "

endlocal&(set ec27=%spac%%an%
set ec28=%spac%%bn%
set ec29=%spac%%cn%
set ec30=%spac%%dn%
set ec31=%spac%%en%
set ec32=%spac%%fn%
set ec33=%spac%%gn%
set ec34=%spac%%hn%
set ec35=%spac%%in%)
::把玩家的牌处理结果送到显示缓存

:error
::把显示缓存进行显示输出
cls
(for /l %%a in (1,1,36) do echo;!ec%%a!
set /p input=选择要出牌：
set chu=%chu%
for %%a in (a b c d e f g h i j k l m n o p q) do (for %%b in (!w%%a!) do set input=!input:%%a= %%b !)
for %%a in (!input!) do (
        if %%a gtr 20 goto :error
        if %%a lss 0 goto :error
        set/a var=1+%%a
        for /f "tokens=1,2" %%b in ("!chu:~%%a,1! !var!") do (
                set chu=!chu:~,%%a!!c%%b!!chu:~%%c!
        )
))
goto :loop


echo !a1!  !a2!  !a3!  !a4!  !a5!  !a6! 

pause
复制代码

netbenton

发一个可以实现牌型判断的子功能
“3#3-2.1.1” 代表333444带两个单牌（飞机）
第一位为关键点数3，#3表示3个3，-2表示连继两组333444,
后面的.1.1表示带两个牌。
下面的代码可以把牌组（如：33344479）转换成上述规则串。

@echo off&setlocal enabledelayedexpansion
set kkk=3456789pJQKA2vw#


set /a var=10-1

set pad=33344479
set paf=xyxyxyxyxyxyxyx

for /l %%a in (0,1,!var!) do (
        for %%b in ("!pad:~%%a,1!") do (
                set/a pd.%%~b+=1
                set pds.%%~b=!pds.%%~b!!pad:~%%a,1!
                set pfs.%%~b=!pfs.%%~b!!paf:~%%a,1!
        )
)

for %%a in (3 4 5 6 7 8 9 p J Q K A 2 v w) do (
        for %%b in (!pd.%%a!) do (
                set pd.#%%b=!pd.#%%b! %%a
        )
)
for /l %%a in (4,-1,1) do (
        set vkk=0!kkk!
        set pstr=
        set n=1
        if defined pd.#%%a (
                for %%b in (!pd.#%%a!) do (
                        if not defined ptop (
                                if "!vkk:~,1!" equ "%%b" (set /a n+=1) else (set pstr=!pstr!.!n!&set n=1)
                                set vkk=!vkk:*%%b=!
                        ) else (set pstr=!pstr!.%%a)
                )
                if not defined ptop (set ptop=!pd.#%%a:~1,1!#%%a-!n!!pstr:~2!) else (set pstr1=!pstr1!.%%a!pstr:~2!)
        )
)

set ppp=!ptop!!pstr1!                        

set ppp
set ps
set pt
set pd
pause
复制代码

如此一为，可以把所的斗地主牌型规则进行如下定义：

 
(rem 牌型定义
set #3-1.1=三带一
set #3-1.2=三带二
set #3-2.1.1=飞机
set #3-2.2=飞机
set #3-2.2.2=飞机
set #3-3=三顺
set #3-3.1.1.1=三顺拖
set #3-3.2.2.2=三顺拖
set #4-1.1.1=四带二
set #4-1.2.2=四带二
set #2-3=连对
set #2-4=连对
set #2-5=连对
set #2-6=连对
set #2-7=连对
set #2-8=连对
set #2-9=连对
set #2-10=连对
set #1-5=顺子
set #1-6=顺子
set #1-7=顺子
set #1-8=顺子
set #1-9=顺子
set #1-10=顺子
set #1-11=顺子
set #1-12=顺子
set #1-1=n
set #2-1=一对n
set #3-1=三个n
set #4-1=炸弹
set v#1-2=王炸)
复制代码

欢迎感兴趣的人一起来讨论！

[ 本帖最后由 netbenton 于 2009-6-18 20:57 编辑 ]

netbenton

谢谢提出意见。

我明白你的意思，可是一行字母不够用呀？！最多时可是有20张牌哦！

我觉得好像不是很麻烦，选错了再改过就是了，因为是可以多次选，重选（乒乓），并且不用按顺序的
如：
akbc = abck
abcdab  = cd


最后更新请注意一楼的附件

[ 本帖最后由 netbenton 于 2009-8-2 22:12 编辑 ]