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

最新推荐文章于 2022-03-14 11:48:32 发布

iteye_10018

最新推荐文章于 2022-03-14 11:48:32 发布

阅读量2.1k

点赞数

文章标签：数据结构与算法

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

基础数据结构

　　　　数据结构确定决定了程序的开发难易程度，就像是游戏的骨架，对于电脑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