麻将游戏数据结构和AI算法

用休息时间零零散散写完了网络麻将游戏,感觉其中有不少值得记录的东西。

基础数据结构

    数据结构确定决定了程序的开发难易程度,就像是游戏的骨架,对于电脑AI难度设定和玩家的游戏体验起着决定性的作用。

0、麻将ID构架

    用一维数组PAICAPTION(143)来记录每张牌的ID和文字信息,数组内容为文字描述,下标用作ID(0-143,共144张牌) 1、胡牌判断基本构架

    用一维数组来记录各个牌型的数量,例如      int PAI[38] = { 0, 1,1,1,0,1,1,1,0,0, // PAI[ 1- 9] 壹万~玖万的个数 0, 0,0,0,0,0,3,0,0,0, // PAI[11-19] 壹铜~玖铜的个数 0, 0,0,0,0,0,0,0,0,0, // PAI[21-29] 壹条~玖条的个数 0, 0,1,1,1,0,0,0 // PAI[31-37] 东南西北中发白的个数 };

2、手牌基本构架

    用二维数组来记录,例如

    SELFPAI(17,1) 注:每人手里最多能有18张牌

    参数1:每张牌的ID,即在PAICAPTION数组中的下标

    参数2:每张牌的状态,-1 =》无牌,1=》普通牌,2=》碰牌,3=》吃牌,4=》暗杠,5=》明杠

3、吃碰杠胡的临时数据构架

    主要用来记录触发吃碰杠胡的临时数据,用动态数组记录就行,就不多啰嗦了。

有了这些基本构架,所有的牌和玩家手牌的状态就一目了然了,对于后期开发电脑的AI和游戏流程就方便多了。

客户端主要算法

0、标准胡牌判断算法

    用胡牌判断基本构架,递归检查。一副成胡牌由刻子和顺子组成,每次递归时把刻子或顺子的牌数量减一,最后为0时即是胡牌型。

Public Function HU(arrPai) As Boolean '检查标准胡牌型 Dim i As Integer If Remain(arrPai) = 0 Then HU = True: Exit Function For i = 0 To UBound(arrPai) If arrPai(i) > 0 Then Exit For Next If arrPai(i) = 4 Then arrPai(i) = 0 If HU(arrPai) = True Then HU = True: Exit Function arrPai(i) = 4 End If If arrPai(i) >= 3 Then arrPai(i) = arrPai(i) - 3 If HU(arrPai) = True Then HU = True: Exit Function arrPai(i) = arrPai(i) + 3 End If If Jiang = 0 And arrPai(i) >= 2 Then Jiang = 1 arrPai(i) = arrPai(i) - 2 If HU(arrPai) = True Then HU = True: Exit Function arrPai(i) = arrPai(i) + 2 Jiang = 0 End If If i > 30 Then HU = False: Exit Function If (i Mod 10 < 8) And (arrPai(i + 1) > 0) And (arrPai(i + 2) > 0) Then arrPai(i) = arrPai(i) - 1 arrPai(i + 1) = arrPai(i + 1) - 1 arrPai(i + 2) = arrPai(i + 2) - 1 If HU(arrPai) = True Then HU = True: Exit Function arrPai(i) = arrPai(i) + 1 arrPai(i + 1) = arrPai(i + 1) + 1 arrPai(i + 2) = arrPai(i + 2) + 1 End If HU = False

End Function

    七对、十三幺、全不靠胡牌型属于特例,单独写出算法即可。

    吃、碰、杠的算法用胡牌判断基本构架和手牌基本构架也可轻松解决。

1、游戏流程控制算法

    需要几个重要的标志变量:CurrentIndex(当前控牌玩家ID)、MoPaiIndex(当前摸牌玩家ID)、SharePAIIndex(当前出牌玩家ID)、HostIndex(庄家ID)、SharePAI(最后的出牌ID,对应PAICAPTION数组的下标)、FaPaiFlag(发牌标志),iBool (要牌标志)其中AI开头的变量用于电脑AI,算法实现如下:

If sharePAI = -1 And CurrentIndex = MoPaiIndex Then '自己摸牌

Call MoPAI_Click '调用摸牌模块 ElseIf sharePAI > -1 And sharePAIIndex <> MoPaiIndex And CurrentIndex <> MoPaiIndex Then '别人打出的牌,并且不轮到自己控牌

    iBool = False Call SetOldHPPai '保存上次的手牌,只含普通牌 Call ChkTing '检查听牌 If ChkSharePAI("ChkHu") = True Then'检查胡牌

     iBool = True Call DelSharePAI '把别人打出的牌放入自己的手牌构架

     AiHupaiFlag = True End If If QGangFlag = False Then '检查明杠和碰牌 If ChkSharePAI("ChkMingGang") = True Then

      iBool = True Call DelSharePAI AiGangFlag = True: AiMingGangFlag = True: AiPengFlag = True Else If ChkSharePAI("ChkPeng") = True Then

       iBool = True Call DelSharePAI AiPengFlag = True End If End If '检查吃牌 If (sharePAIIndex + 1) Mod PlayerCount = MoPaiIndex Then '确认是上家打出得牌 If ChkSharePAI("ChkChi") = True Then iBool = True: Call DelSharePAI AiChiFlag = True End If End If End If Call AddNoUsePAI Call SetCtrlFlag((sharePAIIndex + 1) Mod PlayerCount) '检查要牌完毕

If iBool = False Then '没有自己需要的牌 '向服务器端发送信息,等待服务器反馈。

     格式:出牌者序号 自己的序号 控牌类型值 Call SendServerData("DoValue=" & CStr(sharePAIIndex) & "_" & CStr(MoPaiIndex) & "_9999") Else '有自己要的牌 Call EventSound("要牌", SoundSex) '出现选择胡、吃等按钮时的声音 Call CallNeedPaiAI End If ElseIf sharePAI > -1 And sharePAIIndex <> MoPaiIndex And CurrentIndex = MoPaiIndex Then '别人打出得牌,轮到自己控牌 '继续完成胡、杠、碰、吃等操作

    (此处非常重要,过程就是,比如要胡别人打出的牌,向服务器端发送“胡”的要牌信息后,等待服务器端检查是否有其他人抢胡,如果没有其他人抢胡,才能完成胡牌过程。如果服务器够强的话,也可以把整个流程控制放到服务器端执行——大概测了一下,每个客户端占用大约5-10M内存,1000人在线内存占用就是5G-10G,再加上电脑AI,CPU也是不堪重负啊。) If Left(EndDoValue, 1) = CStr(MoPaiIndex) Then '确认是自己发出的要牌信息 Call AddSharePAI '恢复14张 iStr = Mid(EndDoValue, 3) EndDoValue = "" Select Case CInt(iStr) Case HuValue '胡 Call EndDoHuPai Case GangValue '明杠 Call EndDoMingGang Case PengValue '碰 Call EndDoPeng Case ChiValue '吃 Call EndDoChi End Select End If ElseIf sharePAI > -1 And sharePAIIndex = MoPaiIndex And CurrentIndex = MoPaiIndex Then '轮到自己控牌 If Len(EndDoValue) > 0 Then '把控制权给需要胡、杠、碰、吃等操作的玩家 CurrentIndex = CInt(Left(EndDoValue, 1)) '3_3000 Call SendServerData("CurrentIndex=" & CStr(CurrentIndex)) Call SendServerData("EndDoValue=" & EndDoValue) Else '打出的牌没人要并且抢杠不成立 EndDoValue = "" If QGangFlag = True Then QGangFlag = False Call SendServerData("QGangFlag=False") '结束抢杠过程,无人抢杠 Call EndDoMingGang '完成自己的明杠 Else '转移控制权给自己的下家 sharePAI = -1 CurrentIndex = (MoPaiIndex + 1) Mod PlayerCount Call NextControlPlayer End If End If End If

服务器端主要算法

0、电脑麻将AI算法

    由于我编的不仅是可以玩家之间联网游戏,而且还可以让电脑加入,所以有了这个AI算法。以防三缺一,呵呵。我把电脑的AI难度设计为了3级,主要说说最基础也是最简单的1级难度:

    要牌判断比较简单,与客户端的要牌判断类似,不在敷述。

    出牌策略是重点,决定了AI的难度。我把它分成了8步。

    a、检查听牌

    b、去除间隔2个空位的不连续单牌,从两头向中间排查

    c、去除间隔1个空位的不连续单牌,从两头向中间排查

    d、去除连续牌数为4、7、10、13中的一张牌,让牌型成为无将胡牌型。如2344条,去除4条。

    e、去除连续牌数为3、6、9、12中的一张牌,有将则打一吃二成为无将听牌型(如233条,去除3条);无将则打一成将成为有将胡牌型(如233条,去除2条)。

    f、去除连续牌数位2、5、8、11中的一张牌,让牌型成为有将听牌型。如23445条,去除5条。

    g、从将牌中打出一张牌。

    这8步是标准胡牌AI的基础,其中对于七对等特殊胡牌型没有涉及,可以把电脑设定为超过4或5对时转为特殊胡牌AI。AI难度2级时加入海牌的策略,即考虑桌面上已出的牌,AI难度3级时加入记牌分析模块,即记录玩家的出牌过程并进行分析。

1、麻将番数算法

    国标麻将有88种番,可以参考《中国麻将竞赛规则》或者《世界麻将大赛麻将规则》。写算番的过程比较累人,毕竟有88种啊,直接累死-_-!

    麻将算番有5条基本原则:

    1.不重复原则

        当某个番种,由于组牌的条件所决定,在其成立的同时,必然并存着其他番种,则其他番种不重复计分。

    2.不拆移原则

        确定一个番种后,不能将其自身再拆开互相组成新的番种计分。

    3.不得相同的原则

        凡已组合过某一番种的牌,不能再同其他一副牌组成相同的番种计分

    4.就高不就低原则

        有两副以上的牌,有可能组成两个以上的番种,而只能选其中一种计分时,可选择分高的番种计分。

    5.套算一次原则

        如有尚未组合过的一副牌,只可同已组合过的相应一副牌套算一次。

    一定要注意最后的套算一次原则,否则算出的番数会过多。

    还有,由于不同的算番过程会导致番数的不同,所以这里也需要使用递归,直至找出能算出最大的番数为止。

结束语:游戏雏形出来后让哥们试玩了一下,还不错,4人联网时没什么问题,就是有电脑参加时AI还是偏高,看来还得写个“AI降低模块”来让电脑随机的“傻一次”,呵呵。

原文发布于微信公众号 - Golang语言社区(Golangweb)

原文发表时间:2016-09-05

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏图形学与OpenGL

OpenGL开发库的详细介绍zz

开发基于OpenGL的应用程序,必须先了解OpenGL的库函数。它采用C语言风格,提供大量的函数来进行图形的处理和显示。OpenGL库函数的命名方式非常有规律...

31630
来自专栏数说戏聊

Python3分析Excel数据

使用xlrd和xlwt扩展包,确定工作簿中工作表的数量、名称和每个工作表中行列的数量。 1excel_introspect_workbook.py

12020
来自专栏racaljk

人工智能搜索策略(上)

   广度优先搜索: 从初始节点S0开始逐层向下扩展,在第n层节点还没有全部搜索完之前,不进入第n+1层节点的搜索。Open表中的节点总是按进入的先后排序,先进...

47140
来自专栏Play & Scala 技术分享

Scala Macro 现状介绍

39350
来自专栏代码永生,思想不朽

utf8中文字符串的多模式匹配算法的优化

上个月接触到了我组的一个关于在海量文本中匹配字符串业务。读源代码时发现一些问题,并针对这些问题做了优化工作,效果非常明显。

50830
来自专栏SimpleAI

令人困惑的TensorFlow【1】

我叫 Jacob,是 Google AI Resident 项目的研究学者。我是在 2017 年夏天加入该项目的,尽管已经拥有了丰富的编程经验,并且对机器学习的...

11420
来自专栏PPV课数据科学社区

【学习】《R实战》读书笔记(第二章)

“读书会是一种在于拓展视野、宏观思维、知识交流、提升生活的活动。PPV课R语言读书会以“学习、分享、进步”为宗旨,通过成员协作完成R语言专业书籍的精读和分享,达...

36590
来自专栏阮一峰的网络日志

贝叶斯推断及其互联网应用(三):拼写检查

(这个系列的第一部分介绍了贝叶斯定理,第二部分介绍了如何过滤垃圾邮件,今天是第三部分。) 使用Google的时候,如果你拼错一个单词,它会提醒你正确的拼法。 比...

424120
来自专栏机器之心

令人困惑的TensorFlow!

我叫 Jacob,是 Google AI Resident 项目的研究学者。我是在 2017 年夏天加入该项目的,尽管已经拥有了丰富的编程经验,并且对机器学习的...

15530
来自专栏Spark学习技巧

SparkSql的Catalyst之图解简易版

一,基本介绍 一言不合就上图。 ? 由上图可以看出Catalyst的作用尤为重要。MLPipelines Structured Streaming,GraphF...

22080

扫码关注云+社区

领取腾讯云代金券