更新 (小人方案组合框, #小人方案)
跳到 (1)
.如果真 (查找 (读 (#方案类型) = #音乐方案 且 读 (#方案名称) = #默认方案) = 假)
加记录 (#音乐方案, #默认方案, #移动音乐, #结束音乐, #推箱音乐, #重来音乐, #禁止音乐, #点击音乐, #撤消音乐, #背景音乐)
.如果真结束
更新 (音乐方案组合框, #音乐方案)
方案被改变 = 假
.子程序 更新
.参数 组合框, 组合框
.参数 类型, 文本型
.局部变量 临时变量, 整数型
跳到 (1)
组合框.清空 ()
.计次循环首 (取记录数 (), 临时变量)
.如果真 (查找 (读 (#方案类型) = 类型) = 真)
组合框.加入项目 (读 (#方案名称), 取记录号 ())
.如果真 (跳过 () = 假)
跳出循环 ()
.如果真结束
.如果真结束
组合框.现行选中项 = 0
.计次循环尾 ()
.子程序 _按钮1_被单击
场景方案名 = 场景方案组合框.取项目文本 (场景方案组合框.现行选中项)
小人方案名 = 小人方案组合框.取项目文本 (小人方案组合框.现行选中项)
音乐方案名 = 音乐方案组合框.取项目文本 (音乐方案组合框.现行选中项)
方案被改变 = 真
销毁 ()
.子程序 _按钮2_被单击
方案被改变 = 假
销毁 ()
推箱子游戏启动窗口的代码推箱子游戏启动窗口的代码
.版本 2
.支持库 iext
.程序集 启动窗口程序集
.程序集变量 上步横坐标, 整数型, , , 上一次走的坐标x
.程序集变量 上步纵坐标, 整数型, , , 上一次走的坐标y
.程序集变量 当前横坐标, 整数型, , , 当前位置x
.程序集变量 当前纵坐标, 整数型, , , 当前位置y
.程序集变量 上步箱子移到, 逻辑型, , , 上一次走时是否移动了箱子
.程序集变量 当前目录, 文本型, , , 当前目录
.程序集变量 当前关数, 整数型, , , 当前关数
.程序集变量 错误箱子数, 整数型, , , 未正确放置的箱子数
.程序集变量 小人步数, 整数型, , , 小人走的步数
.程序集变量 行走路径, 整数型, , "0", 小人的自动寻路路径数组
.程序集变量 不自动寻路, 逻辑型, , , 在小人行走时不自动寻路
.程序集变量 行走计数, 整数型, , , 小人行走计数
.程序集变量 声音效果, 逻辑型, , , 是否开启声音效果
.程序集变量 移动音乐开关, 整数型, , , N 0为播放 1为不播放
.子程序 读取文件, 整数型
.局部变量 文件号, 整数型
.局部变量 循环变量1, 整数型
.局部变量 循环变量2, 整数型
.局部变量 字节集长度, 整数型
.局部变量 变量, 整数型, , , funre
.局部变量 关数名称, 文本型, , , 当前关数
.局部变量 字节集变量, 字节集
.局部变量 记次变量, 整数型
.局部变量 地图字节集, 字节集
变量 = 1
小人步数 = 0
关数名称 = 到文本 (当前关数)
跳到 (1)
.如果真 (查找 (读 (#方案类型) = #游戏地图 且 读 (#方案名称) = 关数名称) = 假)
' 如果 (filenum = 1)
' 如果真 (加记录 (#游戏地图, “1”, #数据1) = 假)
' funre = 0
.如果真 (当前关数 > 100)
当前关数 = 1
.如果真结束
跳到 (1)
.如果真 (查找 (读 (#方案类型) = #游戏地图 且 读 (#方案名称) = 到文本 (当前关数)) = 假)
地图字节集 = 取字节集中间 (#地图数据, (当前关数 - 1) × 896 + 1, 896)
.如果真 (加记录 (#游戏地图, 到文本 (当前关数), 地图字节集) = 假)
变量 = 0
.如果真结束
.如果真结束
.如果真结束
.如果 (变量 ≠ 0)
错误箱子数 = 0
字节集变量 = 读 (#数据1)
字节集长度 = 取字节集长度 (字节集变量)
.如果 (字节集长度 ≠ 224 × 4)
变量 = 0
.否则
_启动窗口.标题 = #游戏版本号 + “ 你现在推的是” + 到文本 (当前关数) + “关”
记次变量 = 0
.计次循环首 (14, 循环变量1)
.计次循环首 (16, 循环变量2)
地图字节集 = 取字节集中间 (字节集变量, 记次变量 × 4 + 1, 4)
背景数组 [循环变量1] [循环变量2] = 取字节集数据 (地图字节集, #整数型)
.判断开始 (背景数组 [循环变量1] [循环变量2] = 57 或 背景数组 [循环变量1] [循环变量2] = 58)
当前横坐标 = 循环变量1
当前纵坐标 = 循环变量2
.判断 (背景数组 [循环变量1] [循环变量2] = 3)
错误箱子数 = 错误箱子数 + 1
.默认
.判断结束
记次变量 = 记次变量 + 1
.计次循环尾 ()
.计次循环尾 ()
.如果结束
.否则