.版本 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_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 游戏开始 ()