简单的超级方块易语言游戏组件例程

寻找所有当前游戏目录下的 MIDI 文件。用户可以将游戏过程中想听的所有 MIDI 文件放到当前目录中。

.判断开始 (方块类型 ＝ 0) ' 如果为空块，则返回。
返回 ()
.默认
图片画板 ＝ 方块画板 [当前关 ％ 7 ＋ 1] ' 取得画当前关的块的画板。
.如果 (仅画单一方块 ＝ 真)
图片画板.复制 (0, 0, 20, 20, 画板, 绘画左边, 绘画顶边, )
.否则
偏移值 ＝ (方块类型 － 1) × 16 ＋ 1
.计次循环首 (4, 垂直位置)
.计次循环首 (4, 水平位置)
.如果真 (块数据 [偏移值] ≠ 0)
图片画板.复制 (0, 0, 20, 20, 画板, 绘画左边 ＋ (水平位置 － 1) × 20, 绘画顶边 ＋ (垂直位置 － 1) × 20, )
.如果真结束
偏移值 ＝ 偏移值 ＋ 1
.计次循环尾 ()
.计次循环尾 ()

下落块 ＝ 选择 (即将下落块 ≠ 0, 即将下落块, 取随机数 (0, 6) × 4 ＋ 1) ' 取得当前下落块。
即将下落块 ＝ 取随机数 (0, 6) × 4 ＋ 1 ' 准备即将下落块。
下落垂直位置 ＝ 1 ' 初始下落位置
下落水平位置 ＝ 4
' 查看是否还可以下落。
偏移值 ＝ (下落块 － 1) × 16 ＋ 1
.变量循环首 (下落垂直位置, 下落垂直位置 ＋ 3, 1, 垂直位置)
.变量循环首 (下落水平位置, 下落水平位置 ＋ 3, 1, 水平位置)
.如果真 (块数据 [偏移值] ≠ 0)
.如果真 (游戏区堆积块 [垂直位置] [水平位置] ≠ 0)
' 如果不能下落则说明已经堆满。
.如果真 (音乐暂停 ＝ 假)
播放音乐 (#失败, )
.如果真结束
下落时钟.时钟周期 ＝ 0
游戏区画板.定位写出 (20, 180, “你输掉了此局！”)
开始按钮.获取焦点 ()
返回 ()
.如果真结束
游戏区堆积块 [垂直位置] [水平位置] ＝ 1
.如果真结束
偏移值 ＝ 偏移值 ＋ 1
.变量循环尾 ()
.变量循环尾 ()
画方块 (游戏区画板, 下落块, 60, 0, 假)