易语言答题小游戏源码

.版本 2
.支持库 shellEx
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 热键, 整数型, , "5"
.程序集变量 题库, 文本型, , "4"
.程序集变量 子题库, 文本型, , "4,10"
.程序集变量 计次, 整数型
.程序集变量 选项, 整数型
.程序集变量 问题, 文本型
.程序集变量 答案, 文本型
.程序集变量 题目, 文本型

.子程序 __启动窗口_创建完毕

热键 [1] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #键1)
热键 [2] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #键2)
热键 [3] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #键3)
热键 [5] ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #回车键)
题库 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “题库.tk”)), #换行符, )

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ 热键 [1])
    _按钮1_被单击 ()
.如果真结束
.如果真 (参数一 ＝ 热键 [2])
    _按钮2_被单击 ()
.如果真结束
.如果真 (参数一 ＝ 热键 [3])
    _按钮3_被单击 ()
.如果真结束
.如果真 (参数一 ＝ 热键 [5])
    游戏开始 ()
.如果真结束


.子程序 游戏开始

游戏状态 ＝ 1
进度条1.可视 ＝ 真
.计次循环首 (20, 计次)
    判断答题 ()
    _启动窗口.标题 ＝ “游戏中--” ＋ 到文本 (计次)
    .如果真 (游戏状态 ＝ 2)
        信息框 (“Gameover” ＋ #换行符 ＋ “你的得分” ＋ 到文本 (计次), 0, “游戏结束”, )
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
_启动窗口.标题 ＝ “计算游戏--测测你的反应速度”

.子程序 判断答题

进度条1.位置 ＝ 100
置随机数种子 ()
题目 ＝ 题库 [取随机数 (1, 取数组成员数 (题库))]
答案 ＝ 取文本右边 (题目, 1)
问题 ＝ 取文本左边 (题目, 取文本长度 (题目) － 1)
标签1.标题 ＝ 问题
.计次循环首 (20, )
    进度条1.位置 ＝ 进度条1.位置 － 5
    .如果真 (游戏状态 ＝ 2)
        跳出循环 ()
    .如果真结束
    延迟 (100)
    选项 ＝ 0
.计次循环尾 ()
.如果真 (选项 ＝ 0)
    游戏状态 ＝ 2
.如果真结束


.子程序 出题



.子程序 _按钮1_被单击

.如果真 (答案 ≠ “1”)
    游戏状态 ＝ 2
    返回 ()
.如果真结束
选项 ＝ 1
判断答题 ()

.子程序 _按钮2_被单击

.如果真 (答案 ≠ “2”)
    游戏状态 ＝ 2
    返回 ()
.如果真结束
选项 ＝ 2
判断答题 ()

.子程序 _按钮3_被单击

.如果真 (答案 ≠ “3”)
    游戏状态 ＝ 2
    返回 ()
.如果真结束
选项 ＝ 3
判断答题 ()

.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

游戏开始 ()

@GraySquirrel