易语言写的一个斗地主游戏源码（可联网游戏）

大理寺少卿

.版本 2
.支持库 iext

.变量循环首 (1, 51, 3, i)  ' 分发牌,分别得到各个玩家的牌
    加入成员 (玩家1的牌, 牌的代码 [临时数组 ])
    加入成员 (玩家2的牌, 牌的代码 [临时数组 [i ＋ 1]])
    加入成员 (玩家3的牌, 牌的代码 [临时数组 [i ＋ 2]])
.变量循环尾 ()
.计次循环首 (3, i)  ' 还剩3张牌
    底牌 ＝ 牌的代码 [临时数组 [51 ＋ i]]
.计次循环尾 ()
玩家牌的张数 [1] ＝ 取数组成员数 (玩家1的牌)
玩家牌的张数 [2] ＝ 取数组成员数 (玩家2的牌)
玩家牌的张数 [3] ＝ 取数组成员数 (玩家3的牌)
动作 ＝ 取随机数 (1, 54) ％ 3 ＋ 1

' 数组排序 (临时数组, )
' 以下是调试程序用的==============================================================
调试变量 ＝ “”
.计次循环首 (取数组成员数 (玩家1的牌), i)
    调试变量 ＝ 调试变量 ＋ “,” ＋ 到文本 (玩家1的牌 )  ' ===================
.计次循环尾 ()
' 输出调试文本 (调试变量)
调试变量 ＝ “”
.计次循环首 (取数组成员数 (玩家2的牌), i)
    调试变量 ＝ 调试变量 ＋ “,” ＋ 到文本 (玩家2的牌 )  ' ===================
.计次循环尾 ()
' 输出调试文本 (调试变量)
调试变量 ＝ “”
.计次循环首 (取数组成员数 (玩家3的牌), i)
    调试变量 ＝ 调试变量 ＋ “,” ＋ 到文本 (玩家3的牌 )  ' ===================
.计次循环尾 ()
' 输出调试文本 (调试变量)
调试变量 ＝ “”
.计次循环首 (取数组成员数 (底牌), i)
    调试变量 ＝ 调试变量 ＋ “,” ＋ 到文本 (底牌 )  ' ========================
.计次循环尾 ()
' 输出调试文本 (调试变量)
' ================================================================================
' 开始发牌
初始化服务器数据 (服务器数据)
服务器数据.类型 ＝ “&NO=1”
服务器数据.玩家的牌 ＝ “&AM=” ＋ 到文本 (玩家1的牌 [1])
服务器数据.地主 ＝ “&DI=” ＋ 到文本 (0)
服务器数据.动作 ＝ “&DO=” ＋ 到文本 (动作)
.计次循环首 (取数组成员数 (玩家1的牌) － 1, i)
    服务器数据.玩家的牌 ＝ 服务器数据.玩家的牌 ＋ “,” ＋ 到文本 (玩家1的牌 [i ＋ 1])
.计次循环尾 ()
服务器1.发送数据 (超级列表框1.取标题 (0, 0), 转换成要发送的数据 (服务器数据), )
输出调试文本 (服务器数据.玩家的牌)
服务器数据.玩家的牌 ＝ “&AM=” ＋ 到文本 (玩家2的牌 [1])
.计次循环首 (取数组成员数 (玩家2的牌) － 1, i)
    服务器数据.玩家的牌 ＝ 服务器数据.玩家的牌 ＋ “,” ＋ 到文本 (玩家2的牌 [i ＋ 1])
.计次循环尾 ()
服务器1.发送数据 (超级列表框1.取标题 (1, 0), 转换成要发送的数据 (服务器数据), )
输出调试文本 (服务器数据.玩家的牌)
服务器数据.玩家的牌 ＝ “&AM=” ＋ 到文本 (玩家3的牌 [1])
.计次循环首 (取数组成员数 (玩家3的牌) － 1, i)
    服务器数据.玩家的牌 ＝ 服务器数据.玩家的牌 ＋ “,” ＋ 到文本 (玩家3的牌 [i ＋ 1])
.计次循环尾 ()
服务器1.发送数据 (超级列表框1.取标题 (2, 0), 转换成要发送的数据 (服务器数据), )
输出调试文本 (服务器数据.玩家的牌)
输出调试文本 (“地主：” ＋ 到文本 (地主))



里面有服务端、客户端完整源代码，直接就可以编译运行 需要3个人才能玩
xIh8aydX.rar (294.94 KB, 下载次数: 5)

2024-12-28 11:51 上传

点击文件名下载附件