窗口程序集名 | 保 留 | 保 留 | 备 注 |
游戏窗口程序集 | | | |
变量名 | 类 型 | 数组 | 备 注 |
球位 | 整数型 | 81 |
后继球 | 整数型 | 0 |
选中球位 | 整数型 | |
球形状态 | 整数型 | |
分数 | 整数型 | |
名次 | 整数型 | |
控件被激活 | 逻辑型 | |
机读文本 | 机读文本 | |
配置文件名 | 文本型 | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
变量 | 整数型 | | |
文本分数 | 文本型 | | |
新榜内容 | 文本型 | | |
常用词语 | 文本型 | | 3 |
机读文本.
设置语音库 (“VW Lily”)球形状态 = 2
计次循环首 (3, 变量
) 
后继球画板.
画直线 ( (变量 - 1
) × 40,
0, (变量 - 1
) × 40, 后继球画板.高度
)
计次循环尾 ()后继球画板.
画直线 (0, 0, 后继球画板.宽度, 0
)配置文件名 =
取运行目录 () +
“\gaoguai.ini”
如果 (文件是否存在 (配置文件名
) =
假)
计次循环首 (10, 变量
)

文本分数 =
到文本 (多项选择 (变量, 1870, 1640, 1500, 1320, 510, 470, 135, 100, 55, 20
))


文本分数 =
取重复文本 (7 -
取文本长度 (文本分数
),
“0”) + 文本分数


荣誉榜
[变量
] = 文本分数 +
“搞怪”

新榜内容 = 新榜内容 + 荣誉榜
[变量
] +
#换行符 
计次循环尾 ()
写到文件 (配置文件名,
到字节集 (新榜内容
))
复制数组 (荣誉榜,
分割文本 (取字节集数据 (读入文件 (配置文件名
),
#文本型 ),
#换行符, 10
))
最高分名字.标题 = 文本替换 (荣誉榜 [1], 1, 7, )画分数 (到数值 (取文本左边 (荣誉榜
[1
], 7
)), 标签最高分
)_开始游戏_被选择 ()常用词语
[1
] =
“白球”常用词语
[2
] =
“魔法球”常用词语
[3
] =
“白色球”加入成员 (常用词语,
“红球”)加入成员 (常用词语,
“蓝球”)加入成员 (常用词语,
“绿球”)加入成员 (常用词语,
“黄球”)加入成员 (常用词语,
“紫球”)语音识别.
加入常用 (常用词语
)变量名 | 类 型 | 静态 | 数组 | 备 注 |
变量 | | | |
横坐标 | 整数型 | | |
纵坐标 | 整数型 | | |
已走步数.标题 =
“-1”消球总数.标题 =
“0”
如果真 (取数组成员数 (后继球
) ≠ 0
)
播放音乐 ( #控件选中, )禁止重画 ()时钟选中动画.时钟周期 = 0
分数 = 0
画分数 (分数, 分数标签
)重定义数组 (球位, 假, 81
)
计次循环首 (81, 变量
)
二维球位到坐标 (变量, 横坐标, 纵坐标
)
连续赋值 (选择 (变量 % 2 = 0,
#黑色, 取颜色值 (33, 32, 33
)), 画板游戏区.刷子颜色, 画板游戏区.画笔颜色
)
画板游戏区.
画矩形 (横坐标, 纵坐标, 横坐标 + 40, 纵坐标 + 40
)
计次循环尾 ()画板游戏区.画笔颜色 =
#深灰
计次循环首 (9, 变量
) 
画板游戏区.
画直线 ( (变量 - 1
) × 40,
0, (变量 - 1
) × 40, 画板游戏区.高度
)
画板游戏区.
画直线 (0, (变量 - 1
) × 40, 画板游戏区.
宽度, (变量 - 1
) × 40
)
计次循环尾 ()重定义数组 (后继球, 假, 5
) 生成后继球 (假)加球 ()重定义数组 (后继球, 假, 3
)生成后继球 (真)选中球位 = 0
允许重画 ()|
_画板游戏区_鼠标左键被按下 | 逻辑型 | |
|
横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
现球位 | 整数型 | | |
球位数组 | 整数型 | | 0 |
临时数组 | 整数型 | | 0 |
变量 | 整数型 | | |
.
现球位 = (纵向位置 \ 40) × 9 + 横向位置 \ 40 + 1
如果真 (球位
[现球位
] = 0
且 选中球位 = 0
)
返回 (假)
如果真 (现球位 = 选中球位
)
返回 (假)
如果真 (球位
[现球位
] > 0
)
播放音乐 (多项选择 (取随机数 (1, 6
),
#选中1, #选中2, #选中3, #选中4, #选中5, #选中6 ),
)
如果真 (选中球位 > 0
)
画球形 (选中球位, 球位
[选中球位
], 1
)
选中球位 = 现球位
球形状态 =
取随机数 (2, 6
)
画球形 (现球位, 球位
[现球位
], 球形状态
)
时钟选中动画.时钟周期 = 180
返回 (假)
如果真 (寻找路径 (选中球位, 现球位, 球位数组
) =
假)
播放音乐 ( #无效球位, )
返回 (假)
时钟选中动画.时钟周期 = 0
如果真 (取数组成员数 (球位数组
) > 4
)
播放音乐 (多项选择 (取随机数 (1, 6
),
#移动1, #移动2, #移动3, #移动4, #移动5, #移动6 ),
)移动球位 (球位数组)球位
[现球位
] = 球位
[选中球位
]连续赋值 (0, 球位
[选中球位
], 选中球位
) 清除数组 (球位数组
)
如果真 (判断可否消球 (现球位, 球位数组
) =
假)
如果真 (加球 () =
假) 
游戏结束 ()
返回 (假)
画球形 (现球位, 球位 [现球位], 1)
生成后继球 (真)
返回 (假)
数组排序 (球位数组,
)现球位 = 0
计次循环首 (取数组成员数 (球位数组
), 变量
)
如果真 (球位数组
[变量
] = 现球位
) 
到循环尾 ()
现球位 = 球位数组 [变量]
加入成员 (临时数组, 现球位
)
计次循环尾 ()消除球位 (临时数组
)
计次循环首 (取数组成员数 (临时数组
), 变量
) 
球位
[临时数组
[变量
]] = 0
计次循环尾 ()加分 (取数组成员数 (临时数组
))
返回 (假)变量名 | 类 型 | 静态 | 数组 | 备 注 |
得分 | 整数型 | | |
额外球 | 整数型 | | |
排名信息 | 文本型 | | |
一举 | 文本型 | | |
前名次 | 整数型 | | |
额外球 = 球数 - 5
得分 = 额外球 × 额外球 × 5 + 10
分数 = 分数 + 得分
计次循环首 (10, 名次
)
如果真 (分数 >
到数值 (荣誉榜
[名次
]))

跳出循环 ()

计次循环尾 ()置随机数种子 ()
如果真 (前名次 = 0
)
前名次 = 11
如果 (名次 = 前名次
)
判断 (额外球 = 0
)

判断 (名次 = 11
)


排名信息 =
“如果你能再得” +
到文本 (到数值 (取文本左边 (荣誉榜
[10
], 7
)) - 分数 + 10
) +
“分,就能进[url=]荣誉榜[/url]了!”

判断 (名次 = 1
)


排名信息 =
“你依然第是一名!
欲穷千里目,更上一层楼。”


排名信息 =
“如果你能再得” +
到文本 (到数值 (取文本左边 (荣誉榜
[名次 - 1
], 7
)) - 分数 + 10
) +
“分,就能战胜第” +
到文本 (名次 - 1
) +
“名。”




排名信息 =
“加” +
到文本 (得分
) +
“分!”


如果真 (前名次 - 名次 > 1
)
一举 =
“一举”
判断 (名次 = 10
)
排名信息 =
“恭喜你,进了[url=]荣誉榜[/url]!”
判断 (名次 = 1
)
排名信息 =
“你真了不起!” + 一举 +
“拿下了第一名。”
排名信息 = 一举 +
“打入前” +
到文本 (名次
) +
“名”前名次 = 名次机读文本.文本到语音 (2, 排名信息, , )
如果 (额外球 = 0
)
提示框.
弹出提示框 (_启动窗口.左边 + 分数标签.左边 + 分数标签.宽度, _启动窗口.顶边 + 分数标签.顶边,
“ [url=]” + 玩家名称 +
“![/url]
[hr]
本次你一共消去5个球,
只得到了基础分 (10分) [url=][color=14982693] (游戏说明)[/color][/url]
[hr]
” + 排名信息, -1, )

提示框.
弹出提示框 (_启动窗口.左边 + 分数标签.左边 + 分数标签.宽度, _启动窗口.顶边 + 分数标签.顶边,
“ [url=]” + 玩家名称 +
“![/url]
[hr]
本次你一共消去” + 到文本 (球数) +
“个球:
5个基础球加10分
” + 到文本 (球数 - 5) +
“个额外球加” + 到文本 (额外球 × 额外球 × 5) +
“分” +
“ (” + 到文本 (额外球 × 额外球 × 5) +
“=” + 到文本 (额外球) +
“×” + 到文本 (额外球) +
“×5)
一共得了” + 到文本 (得分) +
“分。 [url=] (游戏说明)[/url]
[hr]
” + 排名信息, -1, )
播放音乐 ( #加分, )画分数 (分数, 分数标签
)消球总数.标题 =
到文本 (到数值 (消球总数.标题
) + 球数
)
判断 (标识文本 =
“荣誉榜”)
_查看荣誉榜_被选择 ()
判断 (标识文本 =
“游戏说明”)
_游戏说明_被选择 ()
判断 (标识文本 =
“玩家名称”)
_游戏说明_被选择 ()
载入 (更名窗口, ,
真)
变量名 | 类 型 | 静态 | 数组 | 备 注 |
变量 | 整数型 | | |
图片号 | 整数型 | | |
置随机数种子 ()
计次循环首 (取数组成员数 (后继球
), 变量
) 
如果 (到数值 (编辑框1.内容
) > 0
且 到数值 (编辑框1.内容
) < 9
)

后继球
[变量
] =
到数值 (编辑框1.内容
)

编辑框1.内容 =
“”

后继球
[变量
] =
取随机数 (1, 33
)

如果真 (后继球
[变量
] ≠ 1
) 


后继球
[变量
] =
取随机数 (2, 8
)



如果真 (画板显示
)

画板动画缓冲.画笔颜色 =
#黑色 

画板动画缓冲.刷子颜色 =
#黑色 

画板动画缓冲.
画矩形 (0, 0, 40, 40
)

图片号 =
载入图片 (取球 (后继球
[变量
], 0
))


画板动画缓冲.
画图片 (图片号, 0, 0, , , -
#品红 )

画板动画缓冲.
复制 (0, 0, 39, 39,
后继球画板, (变量 - 1
) × 40 + 1, 1,
)
卸载图片 (图片号
)

计次循环尾 ()|
二维球位到坐标 | | |
|
球位号 | 整数型 | | | |
横坐标 | 整数型 | | | | 纵坐标 | 整数型 | | | |
横坐标
= ( (球位号 - 1
) % 9
) × 40
纵坐标
= ( (球位号 - 1
) \ 9
) × 40
|
坐标到二维球位 | | |
|
球位号 | 整数型 | | | |
横坐标 | 整数型 | | | | 纵坐标 | 整数型 | | | |
横坐标
= (球位号 - 1
) % 9 + 1
纵坐标
= (球位号 - 1
) \ 9 + 1
如果真 (横坐标 ≤ 0
或 横坐标 > 9
或 纵坐标 ≤ 0
或 纵坐标 > 9
)
返回 (-1
)返回 ( (纵坐标 - 1) × 9 + 横坐标)|
寻找路径 | 逻辑型 | |
|
起始球位 | 整数型 | | | |
终止球位 | 整数型 | | | | 连通路径 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
父球位 | 整数型 | | |
访问标志 | 整数型 | | 81 |
空位数组 | 整数型 | | 0 |
当前球位 | 整数型 | | |
横坐标 | 整数型 | | |
纵坐标 | 整数型 | | |
临时坐标 | 整数型 | | |
变量 | 整数型 | | |
坐标到二维球位 (起始球位, 横坐标, 纵坐标
)访问标志
[起始球位
] = -1
父球位 = 起始球位
判断循环首 (真)
计次循环首 (4, 变量
) 

临时坐标 =
多项选择 (变量, 横坐标 - 1, 横坐标 + 1, 纵坐标 + 1, 纵坐标 - 1
)

如果 (变量 ≤ 2
)


当前球位 =
二维到一维球位 (临时坐标, 纵坐标
)


当前球位 =
二维到一维球位 (横坐标, 临时坐标
)

如果真 (当前球位 = -1
)

到循环尾 ()

如果真 (当前球位 = 终止球位
) 

插入成员 (连通路径, 1, 终止球位
)


判断循环首 (访问标志
[父球位
] ≠ -1
) 


插入成员 (连通路径, 1, 父球位
)



父球位 = 访问标志
[父球位
]


判断循环尾 ()

插入成员 (连通路径, 1, 起始球位
)

返回 (真)

如果真 (球位
[当前球位
] = 0
且 访问标志
[当前球位
] = 0
) 

加入成员 (空位数组, 当前球位
)


访问标志
[当前球位
] = 父球位




计次循环尾 ()
如果真 (球位
[选中球位
] = 1
) 
插入成员 (连通路径, 1, 终止球位
)
插入成员 (连通路径, 1, 起始球位
)
返回 (真)
如果真 (取数组成员数 (空位数组
) = 0
)
返回 (假)
父球位 = 空位数组 [1]
坐标到二维球位 (空位数组
[1
], 横坐标, 纵坐标
)
删除成员 (空位数组, 1, 1
)
判断循环尾 ()返回 (假)变量名 | 类 型 | 静态 | 数组 | 备 注 |
横坐标 | 整数型 | | |
纵坐标 | 整数型 | | |
图片号 | 整数型 | | |
如果真 (球位号 ≠ 0
)
二维球位到坐标 (球位号, 横坐标, 纵坐标
)
如果 (球色 = 0
) 
连续赋值 (选择 (球位号 % 2 = 0,
#黑色, 取颜色值 (33, 32, 33
)), 画板游戏区.刷子颜色, 画板游戏区.画笔颜色
)

画板游戏区.
画矩形 (横坐标 + 1, 纵坐标 + 1, 横坐标 + 40, 纵坐标 + 40
) 
返回 ()
连续赋值 (选择 (球位号 % 2 = 0,
#黑色, 取颜色值 (33, 32, 33
)), 画板动画缓冲.刷子颜色, 画板动画缓冲.画笔颜色
)

画板动画缓冲.
画矩形 (0, 0, 40, 40
)
图片号 = 载入图片 (取球 (球色, 状态))
画板动画缓冲.
画图片 (图片号, 0, 0, 40, 40, -
#品红 )
画板动画缓冲.
复制 (0, 0, 40, 40, 画板游戏区, 横坐标 + 1, 纵坐标 + 1,
)
卸载图片 (图片号
)
变量循环首 (2,
取数组成员数 (移动路径
), 1, 变量
)
画球形 (移动路径
[变量 - 1
], 0, 0
)
画球形 (移动路径
[变量
], 球位
[移动路径
[1
]], 球形状态
)
延时 (50
)
变量循环尾 ()变量名 | 类 型 | 静态 | 数组 | 备 注 |
横坐标 | 整数型 | | |
纵坐标 | 整数型 | | |
当前横坐标 | 整数型 | | |
当前纵坐标 | 整数型 | | |
当前球位 | 整数型 | | |
同色球位 | 整数型 | | 0 |
方 | 整数型 | | |
向 | 整数型 | | |
全白球 | 逻辑型 | | |
球色 | 整数型 | | |
如果真 (球位
[球位号
] = 1
) 
计次循环首 (7, 球色
)

球位
[球位号
] = 球色 + 1

判断可否消球 (球位号, 可消球位
) 
计次循环尾 ()
球位
[球位号
] = 1

如果 (取数组成员数 (可消球位
) > 0
)
返回 (真)
返回 (假)
坐标到二维球位 (球位号, 横坐标, 纵坐标)
计次循环首 (4, 向
)
清除数组 (同色球位
)
加入成员 (同色球位, 球位号
)
计次循环首 (2, 方
)

当前横坐标 =
选择 (向 = 2, 横坐标,
多项选择 (方, 横坐标 - 1, 横坐标 + 1
))


当前纵坐标 =
多项选择 (向, 纵坐标,
多项选择 (方, 纵坐标 - 1, 纵坐标 + 1
),
多项选择 (方, 纵坐标 - 1, 纵坐标 + 1
),
多项选择 (方, 纵坐标 + 1, 纵坐标 - 1
))


当前球位 =
二维到一维球位 (当前横坐标, 当前纵坐标
)

判断循环首 (当前球位 ≠ -1
)


如果真 (球位号 = 0
或 当前球位 = 0
)


返回 (假)


如果真 (球位
[当前球位
] ≠ 球位
[球位号
] 且 球位
[当前球位
] ≠ 1
)


跳出循环 ()


如果 (方 = 1
) 


插入成员 (同色球位, 1, 当前球位
)


加入成员 (同色球位, 当前球位
)

当前横坐标 = 选择 (向 = 2, 横坐标, 多项选择 (方, 当前横坐标 - 1, 当前横坐标 + 1))


当前纵坐标 =
多项选择 (向, 当前纵坐标,
多项选择 (方, 当前纵坐标 - 1, 当前纵坐标 + 1
),
多项选择 (方, 当前纵坐标 - 1, 当前纵坐标 + 1
),
多项选择 (方, 当前纵坐标 + 1, 当前纵坐标 - 1
))



当前球位 =
二维到一维球位 (当前横坐标, 当前纵坐标
)

判断循环尾 ()
计次循环尾 ()
如果真 (取数组成员数 (同色球位
) ≥ 5
)
加入成员 (可消球位, 同色球位
) 

计次循环尾 ()
如果 (取数组成员数 (可消球位
) > 0
)
返回 (真)
返回 (假)
播放音乐 (多项选择 (取随机数 (1, 6
),
#消除1, #消除2, #消除3, #消除4, #消除5, #消除6 ),
)
计次循环首 (6, 次数
)
计次循环首 (取数组成员数 (可消球位
), 变量
)
画球形 (可消球位
[变量
], 0, 0
)
计次循环尾 ()
延时 (50
)
如果真 (次数 ≥ 6
) 
跳出循环 ()
计次循环首 (取数组成员数 (可消球位
), 变量
)
画球形 (可消球位
[变量
], 球位
[可消球位
[变量
]], 7
)
计次循环尾 ()
延时 (100
)
计次循环尾 ()球数总计.标题 =
到文本 (到数值 (球数总计.标题
) -
取数组成员数 (可消球位
))
已走步数.标题 =
到文本 (到数值 (已走步数.标题
) + 1
)变量名 | 类 型 | 静态 | 数组 | 备 注 |
文本分数 | 文本型 | | |
结果文本 | 文本型 | | |
变量 | 整数型 | | |
文本分数 =
到文本 (要画的分数
)文本分数 =
取重复文本 (7 -
取文本长度 (文本分数
),
“0”) + 文本分数
计次循环首 (7, 变量
)
结果文本 = 结果文本 +
取文本中间 (文本分数, 变量, 1
) +
“ ”
计次循环尾 ()标签.标题 =
取文本左边 (结果文本, 13
)变量名 | 类 型 | 静态 | 数组 | 备 注 |
空位 | 整数型 | | 0 |
随机数 | 整数型 | | |
可消球位 | 整数型 | | 0 |
位置 | 整数型 | | |
次数 | 整数型 | | |
序号 | 整数型 | | |
图片号 | 整数型 | | |
横坐标 | 整数型 | | |
纵坐标 | 整数型 | | |
临时数组 | 整数型 | | 0 |
时钟选中动画.时钟周期 = 0
如果真 (取数组成员数 (后继球
) = 3
)
播放音乐 ( #加入新球, )
计次循环首 (81, 位置
)
如果真 (球位
[位置
] = 0
)
加入成员 (空位, 位置
)

计次循环尾 ()置随机数种子 ()
计次循环首 (取数组成员数 (后继球
), 位置
)
如果真 (取数组成员数 (空位
) = 0
) 
返回 (假)
随机数 = 取随机数 (1, 取数组成员数 (空位))
如果真 (取数组成员数 (后继球
) = 3
) 
二维球位到坐标 (空位
[随机数
], 横坐标, 纵坐标
)
连续赋值 (选择 (空位
[随机数
] % 2 = 0,
#黑色, 取颜色值 (33, 32, 33
)), 画板动画缓冲.刷子颜色, 画板动画缓冲.画笔颜色
)

画板动画缓冲.
画矩形 (0, 0, 40, 40
)

图片号 =
载入图片 (取球 (后继球
[位置
], 0
))


计次循环首 (3, 次数
) 


画板动画缓冲.
画图片 (图片号,
多项选择 (次数, 16, 12, 8
),
多项选择 (次数, 16, 12, 8
),
多项选择 (次数, 8, 16, 24
),
多项选择 (次数, 8, 16, 24
), -
#品红 )


画板动画缓冲.
复制 (0, 0, 40, 40, 画板游戏区, 横坐标 + 1, 纵坐标 + 1,
)

延时 (30
)

计次循环尾 ()
卸载图片 (图片号
)
画球形 (空位 [随机数], 后继球 [位置], 1)
球位
[空位
[随机数
]] = 后继球
[位置
]
清除数组 (可消球位
)
清除数组 (临时数组
)
如果真 (判断可否消球 (空位
[随机数
], 可消球位
))

播放音乐 (多项选择 (取随机数 (1, 6
),
#消除1, #消除2, #消除3, #消除4, #消除5, #消除6 ),
)
数组排序 (可消球位,
)

次数 = 0


计次循环首 (取数组成员数 (可消球位
), 序号
)


如果真 (可消球位
[序号
] = 次数
)


到循环尾 ()

次数 = 可消球位 [序号]

加入成员 (临时数组, 次数
)

计次循环尾 ()
消除球位 (临时数组
)

计次循环首 (取数组成员数 (临时数组
), 序号
) 


球位
[临时数组
[序号
]] = 0


加入成员 (空位, 临时数组
[序号
])

计次循环尾 ()
加分 (取数组成员数 (临时数组
))
删除成员 (空位, 随机数, 1)
计次循环尾 ()球数总计.标题 =
到文本 (81 -
取数组成员数 (空位
))
已走步数.标题 =
到文本 (到数值 (已走步数.标题
) + 1
)
如果真 (取数组成员数 (空位
) = 0
)
返回 (假)返回 (真)_启动窗口.可视 = 假
播放音乐 ( #控件选中, )载入 (退出确认窗口, _启动窗口,
真)播放音乐 ( #控件选中, )位置 = 2
变量名 | 类 型 | 静态 | 数组 | 备 注 |
偏移量 | 整数型 | | |
次数 | 整数型 | | |
图片号 | 整数型 | | |
横坐标 | 整数型 | | |
纵坐标 | 整数型 | | |
偏移量 = 偏移量 + 1
如果真 (偏移量 ≥ 5
)
偏移量 = 1
连续赋值 (选择 (选中球位 % 2 = 0, #黑色, 取颜色值 (33, 32, 33)), 画板动画缓冲.刷子颜色, 画板动画缓冲.画笔颜色)画板动画缓冲.
画矩形 (0, 0, 40, 40
)
如果真 (次数 % 5 = 0
或 球形状态 = 1
) 
判断 (球形状态 = 2
)

球形状态 =
取随机数 (1, 5
)
判断 (球形状态 = 3
)

球形状态 =
多项选择 (取随机数 (1, 4
), 3, 2, 5, 6
)
判断 (球形状态 = 4
)

球形状态 =
多项选择 (取随机数 (1, 4
), 4, 2, 5, 6
)
判断 (球形状态 = 5
或 球形状态 = 6
)

球形状态 =
多项选择 (取随机数 (1, 4
), 5, 2, 3, 4
)

球形状态 = 2

次数 = 次数 + 1图片号 =
载入图片 (取球 (球位
[选中球位
], 球形状态
))
画板动画缓冲.
画图片 (图片号, 0,
多项选择 (偏移量, -2, 0, 2, 0
), , , -
#品红 )卸载图片 (图片号
)二维球位到坐标 (选中球位, 横坐标, 纵坐标
)画板动画缓冲.
复制 (0, 0, 40, 40, 画板游戏区, 横坐标 + 1, 纵坐标 + 1,
)变量名 | 类 型 | 静态 | 数组 | 备 注 |
新榜内容 | 文本型 | | |
文本分数 | 文本型 | | |
位数 | 整数型 | | |
结果文本 | 文本型 | | |
标记组件 | 标签 | | |
文本数组 | 文本型 | | 0 |
清除数组 (后继球
)时钟选中动画.时钟周期 = 0
文本分数 =
到文本 (分数
)文本分数 =
取重复文本 (7 -
取文本长度 (文本分数
),
“0”) + 文本分数
如果 (名次 ≠ 11
)
载入 (入榜窗口, _启动窗口,
真)
插入成员 (荣誉榜, 名次, 文本分数 + 玩家名称
) 
最高分名字.标题 =
文本替换 (荣誉榜
[1
], 1, 7,
)
画分数 (到数值 (取文本左边 (荣誉榜
[1
], 7
)), 标签最高分
)
计次循环首 (10, 名次
)

新榜内容 = 新榜内容 + 荣誉榜
[名次
] +
#换行符 
计次循环尾 ()
写到文件 (配置文件名,
到字节集 (新榜内容
))
载入 (窗口荣誉榜, _启动窗口,
真)
播放音乐 ( #无效球位, )
载入 (失败窗口, _启动窗口,
真)写配置项 (取运行目录 () + “/搞怪配置.ini”, 玩家名称, “游戏次数”, 到文本 (到数值 (读配置项 (取运行目录 () + “/搞怪配置.ini”, 玩家名称, “游戏次数”, )) + 1))_开始游戏_被选择 ()
如果真 (球色 = 0
)
返回 ({ })
判断 (状态 = 0
)
返回 (多项选择 (球色,
#白球原始, #红球原始, #蓝球原始, #黄球原始, #绿球原始, #紫球原始, #褐球原始, #青球原始 ))
判断 (状态 = 1
)
返回 (多项选择 (球色,
#白球闭眼, #红球闭眼, #蓝球闭眼, #黄球闭眼, #绿球闭眼, #紫球闭眼, #褐球闭眼, #青球闭眼 ))
判断 (状态 = 2
)
返回 (多项选择 (球色,
#白球中看, #红球中看, #蓝球中看, #黄球中看, #绿球中看, #紫球中看, #褐球中看, #青球中看 ))
判断 (状态 = 3
)
返回 (多项选择 (球色,
#白球左看, #红球左看, #蓝球左看, #黄球左看, #绿球左看, #紫球左看, #褐球左看, #青球左看 ))
判断 (状态 = 4
)
返回 (多项选择 (球色,
#白球右看, #红球右看, #蓝球右看, #黄球右看, #绿球右看, #紫球右看, #褐球右看, #青球右看 ))
判断 (状态 = 5
)
返回 (多项选择 (球色,
#白球上看, #红球上看, #蓝球上看, #黄球上看, #绿球上看, #紫球上看, #褐球上看, #青球上看 ))
判断 (状态 = 6
)
返回 (多项选择 (球色,
#白球下看, #红球下看, #蓝球下看, #黄球下看, #绿球下看, #紫球下看, #褐球下看, #青球下看 ))
判断 (状态 = 7
)
返回 (多项选择 (球色,
#白球消除, #红球消除, #蓝球消除, #黄球消除, #绿球消除, #紫球消除, #褐球消除, #青球消除 ))

返回 ({ })|
_图形按钮最小化_鼠标位置被移动 | 逻辑型 | |
|
横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
如果真 (控件被激活 =
假)
控件被激活 = 真
播放音乐 ( #控件激活, )
|
_图形按钮关闭_鼠标位置被移动 | 逻辑型 | |
|
横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
如果真 (控件被激活 =
假)
控件被激活 = 真
播放音乐 ( #控件激活, )
|
__启动窗口_鼠标位置被移动 | 逻辑型 | |
|
横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
如果真 (玩家名称标签.文本颜色 ≠
#蓝色 )
玩家名称标签.文本颜色 =
#蓝色
如果真 (控件被激活 ≠
假)
控件被激活 = 假
播放音乐 ( #控件选中, )载入 (窗口荣誉榜, _启动窗口,
真)_图形按钮关闭_被单击 ()播放音乐 ( #控件选中, )载入 (游戏说明窗口, _启动窗口,
真)|
__启动窗口_鼠标右键被放开 | 逻辑型 | |
|
横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
弹出菜单 (菜单,
取鼠标水平位置 () - 15,
取鼠标垂直位置 () - 10
)菜单.选中 = 假
|
_玩家名称标签_鼠标左键被按下 | 逻辑型 | |
|
横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
播放音乐 ( #控件选中, )载入 (更名窗口, ,
真)|
_玩家名称标签_鼠标位置被移动 | 逻辑型 | |
|
横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
如果真 (玩家名称标签.文本颜色 ≠
#红色 )
玩家名称标签.文本颜色 =
#红色 
机读文本.
文本到语音 (0,
“你好,” + 玩家名称, ,
)
判断 (寻找文本 (识别文本,
“红”, ,
假) ≠ -1
)
编辑框1.内容 =
“2”
提示框.
弹出提示框 (_启动窗口.左边 + 后继球画板.左边 + 后继球画板.宽度 + 5, _启动窗口.顶边 + 后继球画板.顶边 + 5,
“红球吗?,待会给你。”, -1,
真)
判断 (寻找文本 (识别文本,
“蓝”, ,
假) ≠ -1
)
提示框.
弹出提示框 (_启动窗口.左边 + 后继球画板.左边 + 后继球画板.宽度 + 5, _启动窗口.顶边 + 后继球画板.顶边 + 5,
“蓝球吗?,待会给你。”, -1,
真)
编辑框1.内容 =
“3”
判断 (寻找文本 (识别文本,
“黄”, ,
假) ≠ -1
)
提示框.
弹出提示框 (_启动窗口.左边 + 后继球画板.左边 + 后继球画板.宽度 + 5, _启动窗口.顶边 + 后继球画板.顶边 + 5,
“黄球吗?,待会给你。”, -1,
真)
编辑框1.内容 =
“4”
判断 (寻找文本 (识别文本,
“绿”, ,
假) ≠ -1
)
提示框.
弹出提示框 (_启动窗口.左边 + 后继球画板.左边 + 后继球画板.宽度 + 5, _启动窗口.顶边 + 后继球画板.顶边 + 5,
“绿球吗?,待会给你。”, -1,
真)
编辑框1.内容 =
“5”
判断 (寻找文本 (识别文本,
“紫”, ,
假) ≠ -1
)
提示框.
弹出提示框 (_启动窗口.左边 + 后继球画板.左边 + 后继球画板.宽度 + 5, _启动窗口.顶边 + 后继球画板.顶边 + 5,
“紫球吗?,待会给你。”, -1,
真)
编辑框1.内容 =
“6”
判断 (寻找文本 (识别文本,
“褐”, ,
假) ≠ -1
)
提示框.
弹出提示框 (_启动窗口.左边 + 后继球画板.左边 + 后继球画板.宽度 + 5, _启动窗口.顶边 + 后继球画板.顶边 + 5,
“褐球吗?,待会给你。”, -1,
真)
编辑框1.内容 =
“7”
判断 (寻找文本 (识别文本,
“青”, ,
假) ≠ -1
)
提示框.
弹出提示框 (_启动窗口.左边 + 后继球画板.左边 + 后继球画板.宽度 + 5, _启动窗口.顶边 + 后继球画板.顶边 + 5,
“青球吗?,待会给你。”, -1,
真)
编辑框1.内容 =
“8”

如果真 (编辑框1.内容 =
“”)
提示框.
弹出提示框 (_启动窗口.左边 + 后继球画板.左边 + 后继球画板.宽度 + 5, _启动窗口.顶边 + 后继球画板.顶边 + 5,
“对不起,我没听懂。”, -1,
假)语音识别.释放 ()|
_后继球画板_鼠标左键被按下 | 逻辑型 | |
|
横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
如果真 (已出球数 <
到数值 (已走步数.标题
) ÷ 3
)
提示框.
弹出提示框 (_启动窗口.左边 + 后继球画板.左边 + 后继球画板.宽度 + 5, _启动窗口.顶边 + 后继球画板.顶边 + 5,
“亲,你可以大声说喊出你想要的球!”, -1,
假)
语音识别.
创建 (0, 1
)
已出球数 = 已出球数 + 1
