狂兵之战一个小小的游戏 - 精易论坛

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

载入 (窗口一层, , 假)
窗口一层.置外形图片 ( #外形图, #品红 )
透明标签3.标题＝到文本 (读入文件 (取运行目录 () ＋ “\” ＋ “文件名省略”))
编辑框1.内容＝到文本 (读入文件 (取运行目录 () ＋ “\” ＋ “文件名省略”))

如果 (编辑框1.内容＝ “此处省略”)
写到文件 (取运行目录 () ＋ “\” ＋ “此处省略”, 到字节集 (到文本 (“此处省略”)))

如果 (编辑框1.内容＝ “此处省略”)
信息框 (“游戏已经开启，不支持多开”, 0, )
_启动窗口.可视＝假
_启动窗口.销毁 ()

x ＝到文本 (读入文件 (取运行目录 () ＋ “/文件名省略”))
y ＝到文本 (读入文件 (x))
透明标签1.标题＝ “欢迎您：” ＋ y
写到文件 (取运行目录 () ＋ “/文件名省略”, 到字节集 (“”))
写到文件 (x, 到字节集 (“”))
真图3.从句柄创建 (图片框3.取窗口句柄 ())
真图3.置图片数据 ( #积分 )
载入 (公告, , 假)

子程序名	返回值类型	公开	备注
_时钟1_周期事件

逻辑值＝ InternetCheckConnection (“htt://www.qq.com”, 1, 0)

如果 (逻辑值＝真)
标签2.可视＝假

标签2.标题＝ “对不起，您未连接网络，无法查看公告，连接网络后重登游戏即可看到公告”
时钟1.时钟周期＝ 0

子程序名	返回值类型	公开	备注
_时钟2_周期事件

逻辑值＝ InternetCheckConnection (“htt://www.qq.com”, 1, 0)

如果 (逻辑值＝真)
超文本浏览框1.地址＝ “此段网址省略”

时钟2.时钟周期＝ 0

子程序名	返回值类型	公开	备注
_按钮3_被单击

按钮4.可视＝真
按钮3.可视＝假
分组框1.左边＝ 23
分组框1.顶边＝ 192
分组框1.宽度＝ 248
分组框1.高度＝ 104
分组框1.调整层次 ()

子程序名	返回值类型	公开	备注
_按钮4_被单击

按钮4.可视＝假
按钮3.可视＝真
分组框1.左边＝ 616
分组框1.顶边＝ 112
分组框1.宽度＝ 248
分组框1.高度＝ 100

子程序名	返回值类型	公开	备注
_选择框1_被单击

如果 (窗口一层.进度条3.位置 ≥ 窗口一层.进度条3.最大位置且窗口一层.进度条1.位置 ≥ 窗口一层.进度条1.最大位置)
信息框 (“对不起，您的资源已经全部加满，无法继续执行命令. 建议您花掉”, 0, )
选择框1.选中＝假

如果 (选择框1.选中＝真)
_资源加1_周期事件 ()
资源加1.时钟周期＝ 1000

如果 (选择框1.选中＝假)
资源加1.时钟周期＝ 0

i支持库列表	支持库注释
iext	扩展界面支持库一
HtmlView	超文本浏览框支持库

.版本 2<br />
.支持库 iext<br />
.支持库 HtmlView<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
<br />
载入 (窗口一层, , 假)<br />
窗口一层.置外形图片 (#外形图, #品红)<br />
透明标签3.标题 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ “文件名省略”))<br />
<br />
编辑框1.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ “文件名省略”))<br />
.如果 (编辑框1.内容 ＝ “此处省略”)<br />
写到文件 (取运行目录 () ＋ “\” ＋ “此处省略”, 到字节集 (到文本 (“此处省略”)))<br />
.否则<br />
<br />
.如果结束<br />
<br />
.如果 (编辑框1.内容 ＝ “此处省略”)<br />
信息框 (“游戏已经开启，不支持多开”, 0, )<br />
_启动窗口.可视 ＝ 假<br />
_启动窗口.销毁 ()<br />
.否则<br />
<br />
.如果结束<br />
<br />
x ＝ 到文本 (读入文件 (取运行目录 () ＋ “/文件名省略”))<br />
y ＝ 到文本 (读入文件 (x))<br />
透明标签1.标题 ＝ “欢迎您：” ＋ y<br />
写到文件 (取运行目录 () ＋ “/文件名省略”, 到字节集 (“”))<br />
写到文件 (x, 到字节集 (“”))<br />
真图3.从句柄创建 (图片框3.取窗口句柄 ())<br />
真图3.置图片数据 (#积分)<br />
载入 (公告, , 假)<br />
<br />
.子程序 _时钟1_周期事件<br />
<br />
逻辑值 ＝ InternetCheckConnection (“htt://www.qq.com”, 1, 0)<br />
.如果 (逻辑值 ＝ 真)<br />
标签2.可视 ＝ 假<br />
.否则<br />
标签2.标题 ＝ “对不起，您未连接网络，无法查看公告，连接网络后重登游戏即可看到公告”<br />
.如果结束<br />
时钟1.时钟周期 ＝ 0<br />
<br />
.子程序 _时钟2_周期事件<br />
<br />
逻辑值 ＝ InternetCheckConnection (“htt://www.qq.com”, 1, 0)<br />
.如果 (逻辑值 ＝ 真)<br />
超文本浏览框1.地址 ＝ “此段网址省略”<br />
.否则<br />
时钟2.时钟周期 ＝ 0<br />
.如果结束<br />
<br />
<br />
.子程序 _按钮3_被单击<br />
<br />
按钮4.可视 ＝ 真<br />
按钮3.可视 ＝ 假<br />
分组框1.左边 ＝ 23<br />
分组框1.顶边 ＝ 192<br />
分组框1.宽度 ＝ 248<br />
分组框1.高度 ＝ 104<br />
分组框1.调整层次 ()<br />
<br />
.子程序 _按钮4_被单击<br />
<br />
按钮4.可视 ＝ 假<br />
按钮3.可视 ＝ 真<br />
分组框1.左边 ＝ 616<br />
分组框1.顶边 ＝ 112<br />
分组框1.宽度 ＝ 248<br />
分组框1.高度 ＝ 100<br />
<br />
.子程序 _选择框1_被单击<br />
<br />
.如果 (窗口一层.进度条3.位置 ≥ 窗口一层.进度条3.最大位置 且 窗口一层.进度条1.位置 ≥ 窗口一层.进度条1.最大位置)<br />
信息框 (“对不起，您的资源已经全部加满，无法继续执行命令. 建议您花掉”, 0, )<br />
选择框1.选中 ＝ 假<br />
.否则<br />
<br />
.如果结束<br />
<br />
.如果 (选择框1.选中 ＝ 真)<br />
_资源加1_周期事件 ()<br />
资源加1.时钟周期 ＝ 1000<br />
<br />
.否则<br />
<br />
.如果结束<br />
<br />
.如果 (选择框1.选中 ＝ 假)<br />
资源加1.时钟周期 ＝ 0<br />
.否则<br />
<br />
.如果结束