易语言写的一个斗地主游戏源码（可联网游戏）
.版本 2.支持库 iext
.变量循环首 (1, 51, 3, i)' 分发牌,分别得到各个玩家的牌
加入成员 (玩家1的牌, 牌的代码 [临时数组 ])
加入成员 (玩家2的牌, 牌的代码 [临时数组 ])
加入成员 (玩家3的牌, 牌的代码 [临时数组 ])
.变量循环尾 ()
.计次循环首 (3, i)' 还剩3张牌
底牌 ＝ 牌的代码 [临时数组 ]
.计次循环尾 ()
玩家牌的张数 ＝ 取数组成员数 (玩家1的牌)
玩家牌的张数 ＝ 取数组成员数 (玩家2的牌)
玩家牌的张数 ＝ 取数组成员数 (玩家3的牌)
动作 ＝ 取随机数 (1, 54) ％ 3 ＋ 1
' 数组排序 (临时数组, )
' 以下是调试程序用的==============================================================
调试变量 ＝ “”
.计次循环首 (取数组成员数 (玩家1的牌), i)
调试变量 ＝ 调试变量 ＋ “,” ＋ 到文本 (玩家1的牌 )' ===================
.计次循环尾 ()
' 输出调试文本 (调试变量)
调试变量 ＝ “”
.计次循环首 (取数组成员数 (玩家2的牌), i)
调试变量 ＝ 调试变量 ＋ “,” ＋ 到文本 (玩家2的牌 )' ===================
.计次循环尾 ()
' 输出调试文本 (调试变量)
调试变量 ＝ “”
.计次循环首 (取数组成员数 (玩家3的牌), i)
调试变量 ＝ 调试变量 ＋ “,” ＋ 到文本 (玩家3的牌 )' ===================
.计次循环尾 ()
' 输出调试文本 (调试变量)
调试变量 ＝ “”
.计次循环首 (取数组成员数 (底牌), i)
调试变量 ＝ 调试变量 ＋ “,” ＋ 到文本 (底牌 )' ========================
.计次循环尾 ()
' 输出调试文本 (调试变量)
' ================================================================================
' 开始发牌
初始化服务器数据 (服务器数据)
服务器数据.类型 ＝ “&NO=1”
服务器数据.玩家的牌 ＝ “&AM=” ＋ 到文本 (玩家1的牌 )
服务器数据.地主 ＝ “&DI=” ＋ 到文本 (0)
服务器数据.动作 ＝ “&DO=” ＋ 到文本 (动作)
.计次循环首 (取数组成员数 (玩家1的牌) － 1, i)
服务器数据.玩家的牌 ＝ 服务器数据.玩家的牌 ＋ “,” ＋ 到文本 (玩家1的牌 )
.计次循环尾 ()
服务器1.发送数据 (超级列表框1.取标题 (0, 0), 转换成要发送的数据 (服务器数据), )
输出调试文本 (服务器数据.玩家的牌)
服务器数据.玩家的牌 ＝ “&AM=” ＋ 到文本 (玩家2的牌 )
.计次循环首 (取数组成员数 (玩家2的牌) － 1, i)
服务器数据.玩家的牌 ＝ 服务器数据.玩家的牌 ＋ “,” ＋ 到文本 (玩家2的牌 )
.计次循环尾 ()
服务器1.发送数据 (超级列表框1.取标题 (1, 0), 转换成要发送的数据 (服务器数据), )
输出调试文本 (服务器数据.玩家的牌)
服务器数据.玩家的牌 ＝ “&AM=” ＋ 到文本 (玩家3的牌 )
.计次循环首 (取数组成员数 (玩家3的牌) － 1, i)
服务器数据.玩家的牌 ＝ 服务器数据.玩家的牌 ＋ “,” ＋ 到文本 (玩家3的牌 )
.计次循环尾 ()
服务器1.发送数据 (超级列表框1.取标题 (2, 0), 转换成要发送的数据 (服务器数据), )
输出调试文本 (服务器数据.玩家的牌)
输出调试文本 (“地主：” ＋ 到文本 (地主))
里面有服务端、客户端完整源代码，直接就可以编译运行 需要3个人才能玩
页:
[1]