新易扑克牌游戏源代码

小吖头 · 发表于 2021-1-28 21:08:12

.版本 2

.子程序初始化
.局部变量计量, 整数型

.计次循环首 (58, 计量)
加入成员 (图片组, 读入文件 (取运行目录 () ＋ “\新扑克牌图片\扑克牌_(” ＋到文本 (计量) ＋ “).bmp”))
.如果真 (取字节集长度 (图片组 [计量]) ＝ 0)
信息框 (“初始化失败!” ＋ #换行符＋ “原因：没找到” ＋ #引号＋取运行目录 () ＋ “\新扑克牌图片\扑克牌_(” ＋到文本 (计量) ＋ “).bmp” ＋ #引号＋ “图片文件!”, #错误图标, )
结束 ()
.如果真结束

.计次循环尾 ()
牌是否未创建＝真
_启动窗口.底图＝图片组 [58]
显牌画板.可视＝假
显牌画板.底图＝图片组 [58]
重定义数组 (全局输赢, 假, 5)
牌号排列＝到数值 (读配置项 (取运行目录 () ＋ “\游戏配置.ini”, “游戏配置”, “牌号排列”, “0”))
计量＝到数值 (读配置项 (取运行目录 () ＋ “\游戏配置.ini”, “游戏配置”, “游戏速度”, “0”))
.如果真 (计量＝ 0)
游戏速度＝ 2000
.如果真结束
.如果真 (计量＝ 1)
游戏速度＝ 4000
.如果真结束
.如果真 (计量＝ 2)
游戏速度＝ 100

外星人群控 · 发表于 2021-1-28 22:55:24

没有上传图片 ?
读入文件 (取运行目录 () ＋ “\新扑克牌图片\扑克牌_(” ＋到文本 (计量) ＋ “).bmp”

醉卧美人膝 · 发表于 2021-1-29 01:20:16

感谢分享，很给力！~

不苦小和尚 · 发表于 2021-1-29 06:52:15

游戏源码？？？看看

如梦入秋o · 发表于 2021-1-29 08:23:09

感谢大佬分享

happyweeks365 · 发表于 2021-1-29 09:12:41

没有上传图片 ?
读入文件 (取运行目录 () ＋ “\新扑克牌图片\扑克牌_(” ＋到文本 (计量) ＋ “).bmp”

wjswzj0 · 发表于 2021-1-29 09:40:45

感谢大佬分享

gaoqing · 发表于 2021-1-29 11:34:23

谢谢分享！

kyo9766 · 发表于 2021-1-29 13:28:28

刚想玩一下，发现缺图片资源啊

huxian · 发表于 2021-1-30 06:18:34

游戏难度有没有要求，不会出现我出3他出王炸的情况吧

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

[易语言纯源码] 新易扑克牌游戏源代码

评分