纸牌游戏十点半之Excel版

aoe1981 · 发表于 2014-8-30 23:51

本帖最后由 aoe1981 于 2014-9-3 21:57 编辑

　　前一段与同事聚会，席间玩起了十点半的游戏，输者喝酒，颇为有趣。
　　后来思量，所以有趣者，与同事聚而乐为其一，游戏规则之妙为二，独不为酒乎……晕乎乎胀肚！
　　一日，突发奇想，想用Excel实现该游戏规则及过程，起初感觉应当可行，而且似乎很有思路，很是激动了许久，哪怕是没做一丁点，空有想法时。
　　由于工作的繁忙，断断续续，忙里偷闲，至今日，算是实现了想像中的80%吧。由于太过复杂，比起初想像中的复杂了多倍，也有点撑不到发布想像中的完美版的时候了，便先发一个可以完整运行的初始版1.0，图谋歇一段后再奋斗！
　　图如下：
　　

　　附件如下：
　　

十点半(1.0).rar (68.83 KB, 下载次数: 128) （此版本为早期过渡，请下载41楼附件）

　　成熟版2.0见25楼：
　　http://club.excelhome.net/forum. ... 1149032&pid=7833851
　　25楼2.0版附件可算是完成了想像中的95％，只剩下规则16的小问题没有解决，已经完全可模拟十点半的游戏过程了……

　　终结版3.0见41楼：
　　http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1149032&pid=7835711
　　该附件实现了我想像中的100％，也即符合所有3楼列出的规则！！！

aoe1981 · 发表于 2014-8-30 23:52

附件为2003版，但是用2010编写的……没有在2003中试运行过，在2010中是完全正常的……

aoe1981 · 发表于 2014-8-30 23:53

本帖最后由 aoe1981 于 2014-8-31 00:15 编辑

关于纸牌游戏十点半的游戏规则：
1.一人随机洗牌，按序发牌，若干人参与竞赛；

2.每人1张底牌，根据现有牌面点数情况决定是否继续要牌；

3.A的点数为1，2到10的点数分别为2到10，花牌、大王、二王均为半点；

4.点数和为10.5时胜出，点数和小于等于10.5且牌数达到最多牌数5张时，亦胜出，此时本地称为“五龙”；
5.点数和小于等于7点时，玩家必须要牌；

6.点数和为7.5、8、8.5、9、9.5、10时玩家视情况做出是否继续要牌的选择；

7.本附件的十点半游戏中，除庄家可自主判断外，其余玩家统一遇到7.5、8、8.5时要牌，9、9.5、10时不要牌；
8.要牌后分为四种情况：继续要牌、不要牌、憋破、胜出；

9.憋破（即超出10.5）后翻牌并且立即喝酒2个，继续拿底牌、要牌，重复8；胜出后不再参与接下来的比赛；
10.所有玩家都不要牌时（胜出的除外），进入摊牌比拼；

11.胜出一个玩家，摊牌酒加2，所有胜出玩家的酒叠加后再加2（初始酒数），由最后的输家一个人喝完；
12.摊牌后的大小比较原则为：比点数、比张数、比花色；

13.点数最少的只有一家时，点数少的输；点数最少且相同的有多家时，牌的张数最少的输；

14.点数最少且相同、牌的张数最少且相同的有多家时，视牌的花色决定大小输赢；

15.花色大小为：大王>二王>桃>红>梅>方，同色点数最大的为大，比如桃10除双王外最大，有此可在摊牌时决胜；
16.摊牌后若剩余牌数还至少够发牌一轮的，应当继续发牌，直至牌发完或不够新一轮底牌时结束。

aoe1981 · 发表于 2014-8-30 23:57

1楼初始版1.0的缺陷是没有实现上楼规则7的前半部分“庄家自主判断”与规则16，这也是后续努力方向！！！

aoe1981 · 发表于 2014-8-31 00:00

摊牌后大小比较：
1.比点数；
2.比牌数；
3.比花色。
上述三种比较应该涵盖了各种复杂的牌面组合情况，从而使最终结果唯一，且始终保证最终的输家只为一个，但是这个似乎难以证明，也没有遍历过……

aoe1981 · 发表于 2014-8-31 00:02

由于纸牌的随机性，以及部分组合出现的概率问题，初始版1.0的可靠性还有待于进行大量的游戏试验，这单靠我一个人是办不到的……
由于代码中过程众多，彼此牵扯、引用，在测试上是很繁琐的，渴望得到大家的帮助！！！

aoe1981 · 发表于 2014-8-31 00:05

5楼的比较中，比花色是最复杂的……
大王>二王>桃>红>梅>方
桃10>桃9>……>桃A>桃JQK
桃JQK>红10>……
……
以此类推，须拿出最大单张花色值与他人比较，最小者为最终输家。

aoe1981 · 发表于 2014-8-31 00:06

关于比花色是如何实现的呢？
采用了数值化的方法：

Public Function huasezhi(pm$, m%, h%) '花色值计算自定义函数
Select Case Mid(pm, 1, 1)
Case Is = "王"
If Mid(pm, 1, 2) = "王1" Then
huasezhi = wj(m)(h, 5) * 10 ^ 10
ElseIf Mid(pm, 1, 2) = "王2" Then
huasezhi = wj(m)(h, 5) * 10 ^ 9
End If
Case Is = "桃"
huasezhi = wj(m)(h, 5) * 10 ^ 8
Case Is = "红"
huasezhi = wj(m)(h, 5) * 10 ^ 6
Case Is = "梅"
huasezhi = wj(m)(h, 5) * 10 ^ 4
Case Is = "方"
huasezhi = wj(m)(h, 5) * 10 ^ 2
End Select
End Function

复制代码

aoe1981 · 发表于 2014-8-31 00:08

关于随机乱序洗牌是如何实现的呢？

Public Sub xp() ' 洗牌
Dim i%, j%, k%, l!, r%, t(1 To 1, 1 To 5)
k = 0
zp1 = 说明.Range("a1:d14").Value
ReDim zp2(1 To 54, 1 To 5)
For j = 1 To 4
l = 0
For i = 2 To 14
k = k + 1
zp2(k, 1) = k '序号
zp2(k, 2) = zp1(i, j) '牌面
zp2(k, 3) = i + 2 '行号
zp2(k, 4) = j + 11 '列号
If i < 12 Then l = l + 1 Else l = 0.5
zp2(k, 5) = l '点数
Next i
Next j
zp2(53, 1) = 53: zp2(53, 2) = "王1": zp2(53, 3) = 3: zp2(53, 4) = 13: zp2(53, 5) = 0.5
zp2(54, 1) = 54: zp2(54, 2) = "王2": zp2(54, 3) = 3: zp2(54, 4) = 14: zp2(54, 5) = 0.5
Randomize
For i = 1 To 54 '香川【经典数组洗牌法】之多维应用
r = Int(Rnd() * (54 - i + 1)) + i
For j = 1 To 5
t(1, j) = zp2(r, j): zp2(r, j) = zp2(i, j): zp2(i, j) = t(1, j)
Next j
Next i
ancx = 1
MsgBox "随机乱序洗牌完毕，可以发牌！", , "友情提示"
End Sub

复制代码

对，来自于尊敬的香川大侠！！！

aoe1981 · 发表于 2014-8-31 00:10

建议大家测试时选择玩家数为5时比较方便，因为消息框总是出现在中间，会挡住玩家单元格信息的……
这也是我发下帖的原因：
http://club.excelhome.net/thread-1148863-1-1.html

		自动登录	找回密码
密码			免费注册

[原创] 纸牌游戏十点半之Excel版

评分

评分

评分