吾爱分享资源网

 找回密码
 立即注册
快捷导航
搜索
查看: 458|回复: 0

华容道(易语言2005年大赛三等奖)源码

[复制链接]

1668

主题

1790

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
18384
金币
8274
发表于 2021-1-19 22:00:24 | 显示全部楼层 |阅读模式
请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

提取密码:5ifx88 
下载次数:1  文件大小:0 Bytes 
下载权限: 不限 以上或 VIP会员   [加入VIP]   [获取金币]  [免费赚金币]



QQ截图20210119215836.jpg
部分代码如下
  
窗口程序集名保 留  保 留备 注
启动窗口程序集   
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
如果 (是否已注册 ())
标题 = “华容道——已注册版”
标题 = “华容道——未注册版”
读取阵法列表 ()
子程序名返回值类型公开备 注
_游戏画板_鼠标左键被按下逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
变量名类 型静态数组备 注
变量1整数型  
变量2整数型  
变量3整数型  
变量1 = 纵向位置 \ 60 + 1
变量2 = 横向位置 \ 60 + 1
如果 (准备走动)
如果 (阵法 [ (变量1 - 1) × 4 + 变量2] ≠ 0)
鸣叫 ()
准备走动 = 假
变量3 = 是否能移动 (阵法, 上次坐标x, 上次坐标y)
判断 (位与 (1, 变量3) = 1 变量1 - 上次坐标x = -1 变量2 = 上次坐标y)
图形上移 (上次坐标x, 上次坐标y)
判断 (位与 (2, 变量3) = 2 变量2 = 上次坐标y 变量1 > 上次坐标x)
图形下移 (上次坐标x, 上次坐标y)
判断 (位与 (4, 变量3) = 4 变量2 < 上次坐标y 变量1 = 上次坐标x)
图形左移 (上次坐标x, 上次坐标y)
判断 (位与 (8, 变量3) = 8 变量2 > 上次坐标y 变量1 = 上次坐标x)
图形右移 (上次坐标x, 上次坐标y)
鸣叫 ()
准备走动 = 假

如果真 (阵法 [ (变量1 - 1) × 4 + 变量2] = 8)
如果 (变量1 > 1 变量2 > 1)
如果 (阵法 [ (变量1 - 2) × 4 + 变量2] = 8 阵法 [ (变量1 - 1) × 4 + 变量2 - 1] = 8)
变量1 = 变量1 - 1
变量2 = 变量2 - 1
判断 (阵法 [ (变量1 - 2) × 4 + 变量2] = 3 阵法 [ (变量1 - 2) × 4 + 变量2] = 1)
变量1 = 变量1 - 1
如果 (阵法 [ (变量1 - 1) × 4 + 变量2 - 1] = 2 阵法 [ (变量1 - 1) × 4 + 变量2 - 1] = 1)
变量2 = 变量2 - 1





如果 (变量1 > 1)
判断 (阵法 [ (变量1 - 2) × 4 + 变量2] = 3 阵法 [ (变量1 - 2) × 4 + 变量2] = 1)
变量1 = 变量1 - 1



如果 (变量2 > 1)
如果 (阵法 [ (变量1 - 1) × 4 + 变量2 - 1] = 2 阵法 [ (变量1 - 1) × 4 + 变量2 - 1] = 1)
变量2 = 变量2 - 1








变量3 = 是否能移动 (阵法, 变量1, 变量2)
判断 (变量3 = 1)
图形上移 (变量1, 变量2)
判断 (变量3 = 2)
图形下移 (变量1, 变量2)
判断 (变量3 = 4)
图形左移 (变量1, 变量2)
判断 (变量3 = 8)
图形右移 (变量1, 变量2)
判断 (变量3 ≠ 0)
准备走动 = 真
上次坐标x = 变量1
上次坐标y = 变量2



是否已成功 ()
子程序名返回值类型公开备 注
_阵法列表框_双击选择  
停止计算 = 真
阵法索引 = 阵法列表框.现行选中项 + 1
初始化画板 ()
子程序名返回值类型公开备 注
_电脑计算走法_被选择  
变量名类 型静态数组备 注
变量1整数型  
文件名文本型  
如果真 (是否已注册 ())
信息框 (“未注册版无法使用此功能,查看帮助中的注册方法~”, 0, )
返回 ()
初始化画板 ()
计次循环首 (20, 变量1)
文件名 = 文件名 + 到文本 (阵法 [变量1])
计次循环尾 ()
停止计算 = 假
游戏画板.禁止 = 真
禁止菜单 ()
文件名 = 取运行目录 ()“\电脑算法\” + 文件名 + “.mgx”
如果 (文件是否存在 (文件名))
清除数组 (记录数据)
清除数组 (父索引)
清除数组 (成功数据)
加入成员 (记录数据, 阵法)
加入成员 (父索引, 0)
加入成员 (保存数据, 0)
标签4.可视 = 真
如果 (电脑计算走法 ())
处理数据 ()
标签4.可视 = 假
如果 (停止计算)

信息框 (“无路可走哟!”, 0, )
标签4.可视 = 假
允许菜单 ()
初始化画板 ()
返回 ()
初始化画板 ()
计次循环首 (取数组成员数 (返回数据), 变量1)
处理事件 ()
如果真 (停止计算)
返回 ()
演示程序 (返回数据 [变量1])
延时 (500)
计次循环尾 ()
保存电脑算法 (文件名)
演示电脑算法 (文件名)

子程序名返回值类型公开备 注
_停止演示_被选择  
停止计算 = 真
初始化画板 ()
允许菜单 ()
子程序名返回值类型公开备 注
_重新开始_被选择  
停止计算 = 真
初始化画板 ()
子程序名返回值类型公开备 注
允许菜单  
电脑计算走法.禁止 = 假
成功走法演示.禁止 = 假
本局重演.禁止 = 假
子程序名返回值类型公开备 注
禁止菜单  
电脑计算走法.禁止 = 真
成功走法演示.禁止 = 真
本局重演.禁止 = 真
子程序名返回值类型公开备 注
_退出_被选择  
停止计算 = 真
结束 ()
子程序名返回值类型公开备 注
_阵法列表框_鼠标右键被放开逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型   
纵向位置整数型   
功能键状态整数型   
弹出菜单 (工具, , )
子程序名返回值类型公开备 注
_关于_被选择  
载入 (关于窗口, , )
子程序名返回值类型公开备 注
_帮助信息_被选择  
载入 (帮助窗口, , )
子程序名返回值类型公开备 注
_注册信息_被选择  
载入 (注册窗口, , )
子程序名返回值类型公开备 注
_阵法设计_被选择  
载入 (设计新阵法窗口, , )
子程序名返回值类型公开备 注
_最高记录_被选择  
载入 (查看记录窗口, , )
子程序名返回值类型公开备 注
_删除阵法_被选择  
变量名类 型静态数组备 注
变量1整数型  
文件号整数型  
如果 (阵法列表框.现行选中项 < 9)
信息框 (“内置阵法不可删除~~,不好意思!”, 0, )
返回 ()
阵法索引 = 阵法列表框.现行选中项 + 1
删除成员 (阵法数组, 阵法索引, 1)
阵法列表框.删除项目 (阵法索引 - 1)
文件号 = 打开文件 (取运行目录 ()“\阵法.mg变量1”, #重写, )
计次循环首 (取数组成员数 (阵法数组), 变量1)
写出数据 (文件号, 阵法数组 [变量1])
写出数据 (文件号, _启动窗口.阵法列表框.取项目文本 (变量1 - 1))
计次循环尾 ()
关闭文件 (文件号)
写配置项 (取运行目录 ()“\配置.ini”, “zf”, “total”, 到文本 (阵法总数 - 1))
读取阵法列表 ()

子程序名返回值类型公开备 注
_重新命名_被选择  
变量名类 型静态数组备 注
变量整数型  
文件号整数型  
阵法名文本型  
如果 (阵法列表框.现行选中项 < 9)
信息框 (“内置阵法不可重命名~~,不好意思!”, 0, )
返回 ()
如果真 (输入框 (“请输入新名称”, “阵法更名”, , 阵法名, ))
如果真 (阵法名 = “”)
返回 ()
阵法索引 = 阵法列表框.现行选中项 + 1
阵法列表框.置项目文本 (阵法索引 - 1, 阵法名)
文件号 = 打开文件 (取运行目录 ()“\阵法.mgx”, #重写, )
计次循环首 (取数组成员数 (阵法数组), 变量)
写出数据 (文件号, 阵法数组 [变量])
写出数据 (文件号, _启动窗口.阵法列表框.取项目文本 (变量 - 1))
计次循环尾 ()
关闭文件 (文件号)
读取阵法列表 ()


子程序名返回值类型公开备 注
_本局重演_被选择  
变量名类 型静态数组备 注
变量1整数型  
变量2整数型 0
游戏画板.禁止 = 真
禁止菜单 ()
计次循环首 (步骤列表框.取项目数 (), 变量1)
加入成员 (变量2, 步骤列表框.取项目数值 (变量1 - 1))
计次循环尾 ()
步骤列表框.清空 ()
步骤列表框.刷新显示 ()
初始化画板 ()
计次循环首 (取数组成员数 (变量2), 变量1)
如果 (停止计算 = )
步骤列表框.刷新显示 ()
演示程序 (变量2 [变量1])
返回 ()
延时 (500)
计次循环尾 ()
子程序名返回值类型公开备 注
_成功走法演示_被选择  
变量名类 型静态数组备 注
文件名文本型  
如果真 (是否已注册 ())
信息框 (“未注册版无法使用此功能,查看帮助中的注册方法~”, 0, )
返回 ()
初始化画板 ()
停止计算 = 假
游戏画板.禁止 = 真
禁止菜单 ()
文件名 = 取运行目录 ()“\成功走法\”查看字节集 (阵法数组 [阵法索引])“.mgx”
如果 (文件是否存在 (文件名))
演示电脑算法 (文件名)
信息框 (“无成功走法记录,自己努力哟~”, 0, )





上一篇:易语言制作大话西游Ⅱ自动发言工具源码
下一篇:易语言扫雷完美版源码
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2021-3-2 21:54 , Processed in 1.802570 second(s), 44 queries .
Powered by Discuz! X3.2 © 2001-2017 Comsenz Inc.
快速回复 返回顶部 返回列表