易语言制作推箱子小游戏的代码
DLL命令表
.版本2 .DLL命令写配置文件,整数型,,"WritePrivateProfileStringA",,如果配置文件不存在则将被创建 .参数小节名,文本型,,就是用中括号括起来的内容 .参数项目名,文本型,,就是等号前边的内容 .参数项目值,文本型,,就是等号后面的内容 .参数文件名,文本型,,就是你要写入的那个文件 .DLL命令读配置整数,整数型,,"GetPrivateProfileIntA" .参数小节名,文本型 .参数项目名,文本型 .参数默认值,整数型,,如果找不到对应的项目则返回该值 .参数文件名,文本型 .DLL命令运行文件,整数型,"shell32.dll","ShellExecuteA" .参数hwnd,整数型 .参数lpOperation,文本型,,"open","print","explore" .参数lpFile,文本型 .参数pParameters,文本型 .参数lpDirectory,文本型 .参数nShowCmd,整数型,,9 .DLL命令读配置文本,整数型,,"GetPrivateProfileStringA",,备注：该函数返回的值是被读文本的字符个数，实际上该文本被存放在参数“缓冲容器”里面，利用“取文本左边”命令可以得到需要的文本。 .参数小节名,文本型 .参数项目名,文本型 .参数默认值,文本型,,可以为“” .参数缓冲容器,文本型,,一般将容器的大小设定为255 .参数缓冲容积,整数型,,应与缓冲容器的大小相等255 .参数文件名,文本型
常量表
.版本2 .常量游戏版本号,"“推箱子2.2”" .常量数据库名,"“E-BOX”" .常量方案类型,"“方案类型”" .常量方案名称,"“方案名称”" .常量数据1,"“数据1”" .常量数据2,"“数据2”" .常量数据3,"“数据3”" .常量数据4,"“数据4”" .常量数据5,"“数据5”" .常量数据6,"“数据6”" .常量数据7,"“数据7”" .常量数据8,"“数据8”" .常量场景方案,"“场景方案”" .常量小人方案,"“小人方案”" .常量音乐方案,"“音乐方案”" .常量游戏地图,"“游戏地图”" .常量默认方案,"“默认方案”"
全局变量表
.版本2 .全局变量保存标志,整数型 .全局变量背景数组,整数型,,"14,16",背景数组 .全局变量总图片号组,整数型,,"256",用来保存游戏中用到的图片的图片号 .全局变量撤消数组,撤消类型,,"0",用来实现多次撤消操作 .全局变量正在录像中,逻辑型 .全局变量录像播放中,逻辑型 .全局变量录像数组,整数型,,"0" .全局变量录像地图数据,字节集 .全局变量临时地图数据,字节集 .全局变量第一次画,逻辑型 .全局变量选择关卡,整数型 .全局变量移动音乐,字节集 .全局变量结束音乐,字节集 .全局变量推箱音乐,字节集 .全局变量重来音乐,字节集 .全局变量禁止音乐,字节集 .全局变量点击音乐,字节集 .全局变量撤消音乐,字节集 .全局变量背景音乐,字节集 .全局变量小人方案名,文本型 .全局变量场景方案名,文本型 .全局变量音乐方案名,文本型 .全局变量方案被改变,逻辑型
自定义数据类型表
.版本2 .数据类型撤消类型 .成员x,整数型 .成员y,整数型 .成员ifmove,逻辑型 .数据类型位置类型 .成员x,整数型 .成员y,整数型 .数据类型数据类型2 .成员步数,整数型 .成员位置,位置类型 .成员方向,整数型 .成员上一步,位置类型
图形处理程序集代码
.版本2 .程序集图形处理程序集 .程序集变量循环变量1,整数型 .程序集变量循环变量2,整数型 .子程序载入图片号,逻辑型,,返回真则图片全部载入成功 .参数类型,文本型 .参数方案,文本型 .局部变量画片数,整数型 重定义数组(总图片号组,真,256) .判断开始(类型＝#场景方案) .如果(场景方案名＝“”) 场景方案名＝#默认方案 总图片号组[1]＝载入图片(#背景图) 总图片号组[2]＝载入图片(#墙图) 总图片号组[3]＝载入图片(#地板图) 总图片号组[4]＝载入图片(#黄箱子图) 总图片号组[5]＝载入图片(#箱子位置图) 总图片号组[8]＝载入图片(#红箱子图) .否则 跳到(1) .如果(查找(读(#方案类型)＝#场景方案且读(#方案名称)＝场景方案名)＝真) 总图片号组[1]＝载入图片(读(#数据1)) 总图片号组[2]＝载入图片(读(#数据2)) 总图片号组[3]＝载入图片(读(#数据3)) 总图片号组[4]＝载入图片(读(#数据4)) 总图片号组[5]＝载入图片(读(#数据5)) 总图片号组[8]＝载入图片(读(#数据6)) .否则 总图片号组[1]＝载入图片(#背景图) 总图片号组[2]＝载入图片(#墙图) 总图片号组[3]＝载入图片(#地板图) 总图片号组[4]＝载入图片(#黄箱子图) 总图片号组[5]＝载入图片(#箱子位置图) 总图片号组[8]＝载入图片(#红箱子图) .如果结束 .如果结束 .如果真(总图片号组[1]＝0或总图片号组[2]＝0或总图片号组[3]＝0或总图片号组[4]＝0或总图片号组[5]＝0或总图片号组[8]＝0) 返回(假) .如果真结束 返回(真) .判断(类型＝#小人方案) .如果(小人方案名＝“”) 小人方案名＝#默认方案 总图片号组[52]＝载入图片(#上1) 总图片号组[53]＝载入图片(#上2) 总图片号组[54]＝载入图片(#左1) 总图片号组[55]＝载入图片(#左2) 总图片号组[56]＝载入图片(#右1) 总图片号组[57]＝载入图片(#右2) 总图片号组[58]＝载入图片(#下1) 总图片号组[59]＝载入图片(#下2) .否则 跳到(1) .如果(查找(读(#方案类型)＝#小人方案且读(#方案名称)＝小人方案名)＝真) 总图片号组[52]＝载入图片(读(#数据1)) 总图片号组[53]＝载入图片(读(#数据2)) 总图片号组[54]＝载入图片(读(#数据3)) 总图片号组[55]＝载入图片(读(#数据4)) 总图片号组[56]＝载入图片(读(#数据5)) 总图片号组[57]＝载入图片(读(#数据6)) 总图片号组[58]＝载入图片(读(#数据7)) 总图片号组[59]＝载入图片(读(#数据8)) .否则 总图片号组[52]＝载入图片(#上1) 总图片号组[53]＝载入图片(#上2) 总图片号组[54]＝载入图片(#左1) 总图片号组[55]＝载入图片(#左2) 总图片号组[56]＝载入图片(#右1) 总图片号组[57]＝载入图片(#右2) 总图片号组[58]＝载入图片(#下1) 总图片号组[59]＝载入图片(#下2) .如果结束 .如果结束 .如果真(总图片号组[52]＝0或总图片号组[53]＝0或总图片号组[54]＝0或总图片号组[55]＝0或总图片号组[56]＝0或总图片号组[57]＝0或总图片号组[58]＝0或总图片号组[59]＝0) 返回(假) .如果真结束 总图片号组[62]＝总图片号组[52] 总图片号组[63]＝总图片号组[53] 总图片号组[64]＝总图片号组[54] 总图片号组[65]＝总图片号组[55] 总图片号组[66]＝总图片号组[56] 总图片号组[67]＝总图片号组[57] 总图片号组[68]＝总图片号组[58] 总图片号组[69]＝总图片号组[59] 返回(真) .默认 返回(假) .判断结束 返回(真) 画片数＝0 .计次循环首(256,循环变量1) .如果真(总图片号组[循环变量1]＞0) 画片数＝画片数＋1 .如果真结束 .计次循环尾() .如果(画片数≠14＋8) 返回(假) .否则 返回(真) .如果结束 .子程序载入音乐,逻辑型 .如果(音乐方案名＝“”) 音乐方案名＝#默认方案 移动音乐＝#移动音乐 结束音乐＝#结束音乐 推箱音乐＝#推箱音乐 重来音乐＝#重来音乐 禁止音乐＝#禁止音乐 点击音乐＝#点击音乐 撤消音乐＝#撤消音乐 背景音乐＝#背景音乐 .否则 跳到(1) .如果(查找(读(#方案类型)＝#音乐方案且读(#方案名称)＝音乐方案名)＝真) 移动音乐＝读(#数据1) 结束音乐＝读(#数据2) 推箱音乐＝读(#数据3) 重来音乐＝读(#数据4) 禁止音乐＝读(#数据5) 点击音乐＝读(#数据6) 撤消音乐＝读(#数据7) 背景音乐＝读(#数据8) .否则 移动音乐＝#移动音乐 结束音乐＝#结束音乐 推箱音乐＝#推箱音乐 重来音乐＝#重来音乐 禁止音乐＝#禁止音乐 点击音乐＝#点击音乐 撤消音乐＝#撤消音乐 背景音乐＝#背景音乐 .如果结束 .如果结束 返回(真) .子程序画图片 .参数横坐标,整数型 .参数纵坐标,整数型 .参数画片编号,整数型 .如果真(总图片号组[画片编号＋1]＝0) 返回() .如果真结束 _启动窗口.画板1.画图片(总图片号组[画片编号＋1],(纵坐标－1)×30,(横坐标－1)×30,30,30,1) .子程序画背景,,,这个过程占用时间太多,起码用去"_画板1_按下某键"事件99%的时间,造成了画面延时,需改进. .参数快速画,逻辑型 .局部变量临时循环变量1,整数型 .局部变量临时循环变量2,整数型 处理事件() _启动窗口.时钟1.时钟周期＝0 .计次循环首(14,循环变量1) .计次循环首(16,循环变量2) .如果真(快速画＝真) .如果真(背景数组[循环变量1][循环变量2]＝0或背景数组[循环变量1][循环变量2]＝1) 到循环尾() .如果真结束 .如果真结束 画图片(循环变量1,循环变量2,背景数组[循环变量1][循环变量2]) .计次循环尾() .计次循环尾() 第一次画＝假 _启动窗口.时钟1.时钟周期＝500 .子程序卸载图片号 .计次循环首(256,循环变量1) .如果真(总图片号组[循环变量1]＞0) 卸载图片(总图片号组[循环变量1]) .如果真结束 .计次循环尾() .子程序创建数据库,逻辑型 .局部变量字段,字段信息,,"10" .如果真(文件是否存在(#数据库名＋“.edb”)＝假) 字段[1].名称＝#方案类型 字段[1].类型＝#文本型 字段[1].最大文本长度＝8 字段[2].名称＝#方案名称 字段[2].类型＝#文本型 字段[2].最大文本长度＝128 字段[3].名称＝#数据1 字段[3].类型＝#字节集型 字段[4].名称＝#数据2 字段[4].类型＝#字节集型 字段[5].名称＝#数据3 字段[5].类型＝#字节集型 字段[6].名称＝#数据4 字段[6].类型＝#字节集型 字段[7].名称＝#数据5 字段[7].类型＝#字节集型 字段[8].名称＝#数据6 字段[8].类型＝#字节集型 字段[9].名称＝#数据7 字段[9].类型＝#字节集型 字段[10].名称＝#数据8 字段[10].类型＝#字节集型 .如果真(创建(#数据库名,字段)＝假) 返回(假) .如果真结束 .如果真结束 .如果真(打开(#数据库名,,,,,,)＝假) 返回(假) .如果真结束 返回(真) 选择方案窗口程序集 .版本2 .程序集选择方案窗口程序集 .子程序_选择方案窗口_创建完毕 跳到(1) .如果真(查找(读(#方案类型)＝#场景方案且读(#方案名称)＝#默认方案)＝假) 加记录(#场景方案,#默认方案,#背景图,#墙图,#地板图,#黄箱子图,#箱子位置图,#红箱子图) .如果真结束 更新(场景方案组合框,#场景方案) 跳到(1) .如果真(查找(读(#方案类型)＝#小人方案且读(#方案名称)＝#默认方案)＝假) 加记录(#小人方案,#默认方案,#上1,#上2,#下1,#下2,#左1,#左2,#右1,#右2) .如果真结束 更新(小人方案组合框,#小人方案) 跳到(1) .如果真(查找(读(#方案类型)＝#音乐方案且读(#方案名称)＝#默认方案)＝假) 加记录(#音乐方案,#默认方案,#移动音乐,#结束音乐,#推箱音乐,#重来音乐,#禁止音乐,#点击音乐,#撤消音乐,#背景音乐) .如果真结束 更新(音乐方案组合框,#音乐方案) 方案被改变＝假 .子程序更新 .参数组合框,组合框 .参数类型,文本型 .局部变量临时变量,整数型 跳到(1) 组合框.清空() .计次循环首(取记录数(),临时变量) .如果真(查找(读(#方案类型)＝类型)＝真) 组合框.加入项目(读(#方案名称),取记录号()) .如果真(跳过()＝假) 跳出循环() .如果真结束 .如果真结束 组合框.现行选中项＝0 .计次循环尾() .子程序_按钮1_被单击 场景方案名＝场景方案组合框.取项目文本(场景方案组合框.现行选中项) 小人方案名＝小人方案组合框.取项目文本(小人方案组合框.现行选中项) 音乐方案名＝音乐方案组合框.取项目文本(音乐方案组合框.现行选中项) 方案被改变＝真 销毁() .子程序_按钮2_被单击 方案被改变＝假 销毁()
推箱子游戏启动窗口的代码
.版本2
.支持库iext
.程序集启动窗口程序集
.程序集变量上步横坐标,整数型,,,上一次走的坐标x
.程序集变量上步纵坐标,整数型,,,上一次走的坐标y
.程序集变量当前横坐标,整数型,,,当前位置x
.程序集变量当前纵坐标,整数型,,,当前位置y
.程序集变量上步箱子移到,逻辑型,,,上一次走时是否移动了箱子
.程序集变量当前目录,文本型,,,当前目录
.程序集变量当前关数,整数型,,,当前关数
.程序集变量错误箱子数,整数型,,,未正确放置的箱子数
.程序集变量小人步数,整数型,,,小人走的步数
.程序集变量行走路径,整数型,,"0",小人的自动寻路路径数组
.程序集变量不自动寻路,逻辑型,,,在小人行走时不自动寻路
.程序集变量行走计数,整数型,,,小人行走计数
.程序集变量声音效果,逻辑型,,,是否开启声音效果
.程序集变量移动音乐开关,整数型,,,N0为播放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
.计次循环尾()
.计次循环尾()
.如果结束
.否则
当前关数＝0
.如果结束
撤消.禁止＝真
工具条1.加入状态(0,#禁止)
清除数组(撤消数组)
正在录像中＝假
录像播放中＝假
开始录像.禁止＝假
停止录像.禁止＝真
播放录像.禁止＝真
停止播放.禁止＝真
保存录像.禁止＝真
返回游戏.禁止＝真
打开录像文件.禁止＝假
返回(变量)
'以下是旧程序,不使用
返回(变量)
变量＝1
小人步数＝0
关数名称＝当前目录＋“\bbk\box”＋到文本(当前关数)＋“.bbk”
.如果真(文件是否存在(关数名称)＝假)
.如果(当前关数＝1)
变量＝0
.否则
当前关数＝1
关数名称＝当前目录＋“\bbk\box1.bbk”
.如果真(文件是否存在(关数名称)＝假)
变量＝0
.如果真结束
.如果结束
.如果真结束
.如果(变量≠0)
错误箱子数＝0
文件号＝打开文件(关数名称,#读入,)
移到文件首(文件号)
字节集长度＝取文件长度(文件号)
.如果(字节集长度≠224×4)
变量＝0
.否则
_启动窗口.标题＝#游戏版本号＋“你现在推的是”＋到文本(当前关数)＋“关”
.计次循环首(14,循环变量1)
.计次循环首(16,循环变量2)
读入数据(文件号,背景数组[循环变量1][循环变量2])
.判断开始(背景数组[循环变量1][循环变量2]＝57或背景数组[循环变量1][循环变量2]＝58)
当前横坐标＝循环变量1
当前纵坐标＝循环变量2
.判断(背景数组[循环变量1][循环变量2]＝3)
错误箱子数＝错误箱子数＋1
.默认
.判断结束
.计次循环尾()
.计次循环尾()
.如果结束
关闭文件(文件号)
.否则
当前关数＝0
.如果结束
撤消.禁止＝真
工具条1.加入状态(0,#禁止)
返回(变量)
.子程序__启动窗口_创建完毕
.局部变量返回结果,整数型
.局部变量循环变量1,整数型
.局部变量循环变量2,整数型
.局部变量场景方案名长度,整数型
.如果真(创建数据库()＝真)
跳到(1)
.如果真(查找(读(#方案类型)＝#场景方案且读(#方案名称)＝#默认方案)＝假)
加记录(#场景方案,#默认方案,#背景图,#墙图,#地板图,#黄箱子图,#箱子位置图,#红箱子图)
.如果真结束
跳到(1)
.如果真(查找(读(#方案类型)＝#小人方案且读(#方案名称)＝#默认方案)＝假)
加记录(#小人方案,#默认方案,#上1,#上2,#下1,#下2,#左1,#左2,#右1,#右2)
.如果真结束
跳到(1)
.如果真(查找(读(#方案类型)＝#音乐方案且读(#方案名称)＝#默认方案)＝假)
加记录(#音乐方案,#默认方案,#移动音乐,#结束音乐,#推箱音乐,#重来音乐,#禁止音乐,#点击音乐,#撤消音乐,#背景音乐)
.如果真结束
.如果真结束
当前目录＝取当前目录()
.如果真(倒找文本(当前目录,“\”,,真)＝取文本长度(当前目录))
当前目录＝子文本替换(当前目录,“\”,“”,取文本长度(当前目录),1,假)
.如果真结束
当前目录＝删尾空(当前目录)
.如果真(是否为调试版()＝真)
'改变目录(comdir)
.如果真结束
'创建目录(“bbk”)
小人方案名＝取空白文本(255)
场景方案名＝取空白文本(255)
音乐方案名＝取空白文本(255)
场景方案名长度＝读配置文本(“config”,“ren”,#默认方案,小人方案名,255,当前目录＋“\box.ini”)
小人方案名＝取文本左边(小人方案名,场景方案名长度)
.如果真(载入图片号(#小人方案,小人方案名)＝假)
信息框(“小人图片载入失败!”,0,“退出”)
结束()
.如果真结束
场景方案名长度＝读配置文本(“config”,“gui”,#默认方案,场景方案名,255,当前目录＋“\box.ini”)
场景方案名＝取文本左边(场景方案名,场景方案名长度)
.如果真(载入图片号(#场景方案,场景方案名)＝假)
信息框(“场景图片载入失败!”,0,“退出”)
结束()
.如果真结束
场景方案名长度＝读配置文本(“config”,“sound”,#默认方案,音乐方案名,255,当前目录＋“\box.ini”)
音乐方案名＝取文本左边(音乐方案名,场景方案名长度)
载入音乐()
重定义数组(背景数组,假,14,16)
'画背景(假)
_启动窗口.宽度＝488
上步横坐标＝0
上步纵坐标＝0
当前横坐标＝0
当前纵坐标＝0
当前关数＝读配置整数(“score”,“lastscore”,1,当前目录＋“\box.ini”)
.如果(读配置整数(“sound”,“sound”,1,当前目录＋“\box.ini”)＝1)
声音效果＝真
.否则
声音效果＝假
.如果结束
声音.选中＝声音效果
.如果(声音.选中＝真)
工具条1.加入状态(2,#选中)
.否则
工具条1.去除状态(2,#选中)
.如果结束
返回结果＝读取文件()
.如果(返回结果＝0)
时钟1.时钟周期＝0
信息框(“没有可以过的关!”,0,“一个很严重的问题:”)
当前关数＝0
.否则
第一次画＝真
画背景(假)
_启动窗口.标题＝#游戏版本号＋“你现在推的是第”＋到文本(当前关数)＋“关”
时钟1.时钟周期＝500
.如果结束
播放音乐(重来音乐,)
.子程序_时钟1_周期事件
时钟1.时钟周期＝0
.如果真(总图片号组[背景数组[当前横坐标][当前纵坐标]＋1]＝0)
返回()
.如果真结束
.如果(背景数组[当前横坐标][当前纵坐标]％2＝0)
背景数组[当前横坐标][当前纵坐标]＝背景数组[当前横坐标][当前纵坐标]－1
.否则
背景数组[当前横坐标][当前纵坐标]＝背景数组[当前横坐标][当前纵坐标]＋1
.如果结束
画板1.画图片(总图片号组[背景数组[当前横坐标][当前纵坐标]＋1],(当前纵坐标－1)×30,(当前横坐标－1)×30,30,30,1)
标签2.标题＝“X:”＋到文本(当前横坐标)＋“”＋“Y:”＋到文本(当前纵坐标)
状态条1.置文本(0,“X:”＋到文本(当前横坐标)＋“”＋“Y:”＋到文本(当前纵坐标))
时钟1.时钟周期＝500
.子程序_撤消_被选择,,,单次撤消
.局部变量循环变量1,整数型
.局部变量循环变量2,整数型
时钟1.时钟周期＝0
.如果真(返回游戏.禁止＝真)
_撤消_被选择1()
.如果真结束
时钟1.时钟周期＝500
返回()
.如果真(声音效果＝真)
播放音乐(撤消音乐,)
.如果真结束
撤消.禁止＝真
工具条1.加入状态(0,#禁止)
.判断开始(背景数组[上步横坐标][上步纵坐标]＝2)
背景数组[上步横坐标][上步纵坐标]＝57
画图片(上步横坐标,上步纵坐标,57)
.判断(背景数组[上步横坐标][上步纵坐标]＝4)
背景数组[上步横坐标][上步纵坐标]＝67
画图片(上步横坐标,上步纵坐标,67)
.默认
返回()
.判断结束
小人步数＝小人步数－1
标签1.标题＝“你的移动步数为:”＋到文本(小人步数)
状态条1.置文本(1,“你的移动步数为:”＋到文本(小人步数))
.如果(上步箱子移到＝真)
.判断开始(背景数组[当前横坐标][当前纵坐标]≥51且背景数组[当前横坐标][当前纵坐标]≤58)
背景数组[当前横坐标][当前纵坐标]＝3
画图片(当前横坐标,当前纵坐标,3)
.判断(背景数组[当前横坐标][当前纵坐标]≥61且背景数组[当前横坐标][当前纵坐标]≤68)
背景数组[当前横坐标][当前纵坐标]＝7
画图片(当前横坐标,当前纵坐标,7)
.默认
.判断结束
.否则
.判断开始(背景数组[当前横坐标][当前纵坐标]≥51且背景数组[当前横坐标][当前纵坐标]≤58)
背景数组[当前横坐标][当前纵坐标]＝2
画图片(当前横坐标,当前纵坐标,2)
.判断(背景数组[当前横坐标][当前纵坐标]≥61且背景数组[当前横坐标][当前纵坐标]≤68)
背景数组[当前横坐标][当前纵坐标]＝4
.默认
画图片(当前横坐标,当前纵坐标,4)
.判断结束
.如果结束
.如果真(上步横坐标＝当前横坐标且上步纵坐标＝当前纵坐标－1)
.如果真(上步箱子移到＝真)
.判断开始(背景数组[当前横坐标][当前纵坐标＋1]＝7)
背景数组[当前横坐标][当前纵坐标＋1]＝4
画图片(当前横坐标,当前纵坐标＋1,4)
.判断(背景数组[当前横坐标][当前纵坐标＋1]＝3)
背景数组[当前横坐标][当前纵坐标＋1]＝2
画图片(当前横坐标,当前纵坐标＋1,2)
.默认
.判断结束
.如果真结束
.如果真结束
.如果真(上步横坐标＝当前横坐标且上步纵坐标＝当前纵坐标＋1)
.如果真(上步箱子移到＝真)
.判断开始(背景数组[当前横坐标][当前纵坐标－1]＝7)
背景数组[当前横坐标][当前纵坐标－1]＝4
画图片(当前横坐标,当前纵坐标－1,4)
.判断(背景数组[当前横坐标][当前纵坐标－1]＝3)
背景数组[当前横坐标][当前纵坐标－1]＝2
画图片(当前横坐标,当前纵坐标－1,2)
.默认
.判断结束
.如果真结束
.如果真结束
.如果真(上步横坐标＝当前横坐标－1且上步纵坐标＝当前纵坐标)
.如果真(上步箱子移到＝真)
.判断开始(背景数组[当前横坐标＋1][当前纵坐标]＝7)
背景数组[当前横坐标＋1][当前纵坐标]＝4
画图片(当前横坐标＋1,当前纵坐标,4)
.判断(背景数组[当前横坐标＋1][当前纵坐标]＝3)
背景数组[当前横坐标＋1][当前纵坐标]＝2
画图片(当前横坐标＋1,当前纵坐标,2)
.默认
.判断结束
.如果真结束
.如果真结束
.如果真(上步横坐标＝当前横坐标＋1且上步纵坐标＝当前纵坐标)
.如果真(上步箱子移到＝真)
.判断开始(背景数组[当前横坐标－1][当前纵坐标]＝7)
背景数组[当前横坐标－1][当前纵坐标]＝4
画图片(当前横坐标－1,当前纵坐标,4)
.判断(背景数组[当前横坐标－1][当前纵坐标]＝3)
背景数组[当前横坐标－1][当前纵坐标]＝2
画图片(当前横坐标－1,当前纵坐标,2)
.默认
.判断结束
.如果真结束
.如果真结束
当前横坐标＝上步横坐标
当前纵坐标＝上步纵坐标
上步横坐标＝0
上步纵坐标＝0
错误箱子数＝0
.计次循环首(14,循环变量1)
.计次循环首(16,循环变量2)
.如果真(背景数组[循环变量1][循环变量2]＝3)
错误箱子数＝错误箱子数＋1
.如果真结束
.计次循环尾()
.计次循环尾()
.子程序_撤消_被选择1,,,多次撤消
.局部变量循环变量1,整数型
.局部变量循环变量2,整数型
.局部变量记次变量,整数型,,,数组成员数
.如果真(录像播放中＝真)
返回()
.如果真结束
.如果真(声音效果＝真)
播放音乐(撤消音乐,)
.如果真结束
记次变量＝取数组成员数(撤消数组)
.如果真(记次变量＝0)
返回()
.如果真结束
.如果真(记次变量＝1)
撤消.禁止＝真
工具条1.加入状态(0,#禁止)
.如果真结束
上步横坐标＝撤消数组[记次变量].x
上步纵坐标＝撤消数组[记次变量].y
上步箱子移到＝撤消数组[记次变量].ifmove
.判断开始(背景数组[上步横坐标][上步纵坐标]＝2)
背景数组[上步横坐标][上步纵坐标]＝57
画图片(上步横坐标,上步纵坐标,57)
.判断(背景数组[上步横坐标][上步纵坐标]＝4)
背景数组[上步横坐标][上步纵坐标]＝67
画图片(上步横坐标,上步纵坐标,67)
.默认
删除成员(撤消数组,记次变量,1)
.如果真(正在录像中＝真)
删除成员(录像数组,取数组成员数(录像数组),1)
.如果真结束
返回()
.判断结束
小人步数＝小人步数－1
标签1.标题＝“你的移动步数为:”＋到文本(小人步数)
状态条1.置文本(1,“你的移动步数为:”＋到文本(小人步数))
.如果(上步箱子移到＝真)
.判断开始(背景数组[当前横坐标][当前纵坐标]≥51且背景数组[当前横坐标][当前纵坐标]≤58)
背景数组[当前横坐标][当前纵坐标]＝3
画图片(当前横坐标,当前纵坐标,3)
.判断(背景数组[当前横坐标][当前纵坐标]≥61且背景数组[当前横坐标][当前纵坐标]≤68)
背景数组[当前横坐标][当前纵坐标]＝7
画图片(当前横坐标,当前纵坐标,7)
.默认
.判断结束
.否则
.判断开始(背景数组[当前横坐标][当前纵坐标]≥51且背景数组[当前横坐标][当前纵坐标]≤58)
背景数组[当前横坐标][当前纵坐标]＝2
画图片(当前横坐标,当前纵坐标,2)
.判断(背景数组[当前横坐标][当前纵坐标]≥61且背景数组[当前横坐标][当前纵坐标]≤68)
背景数组[当前横坐标][当前纵坐标]＝4
.默认
画图片(当前横坐标,当前纵坐标,4)
.判断结束
.如果结束
.如果真(上步横坐标＝当前横坐标且上步纵坐标＝当前纵坐标－1)
.如果真(上步箱子移到＝真)
.判断开始(背景数组[当前横坐标][当前纵坐标＋1]＝7)
背景数组[当前横坐标][当前纵坐标＋1]＝4
画图片(当前横坐标,当前纵坐标＋1,4)
.判断(背景数组[当前横坐标][当前纵坐标＋1]＝3)
背景数组[当前横坐标][当前纵坐标＋1]＝2
画图片(当前横坐标,当前纵坐标＋1,2)
.默认
.判断结束
.如果真结束
.如果真结束
.如果真(上步横坐标＝当前横坐标且上步纵坐标＝当前纵坐标＋1)
.如果真(上步箱子移到＝真)
.判断开始(背景数组[当前横坐标][当前纵坐标－1]＝7)
背景数组[当前横坐标][当前纵坐标－1]＝4
画图片(当前横坐标,当前纵坐标－1,4)
.判断(背景数组[当前横坐标][当前纵坐标－1]＝3)
背景数组[当前横坐标][当前纵坐标－1]＝2
画图片(当前横坐标,当前纵坐标－1,2)
.默认
.判断结束
.如果真结束
.如果真结束
.如果真(上步横坐标＝当前横坐标－1且上步纵坐标＝当前纵坐标)
.如果真(上步箱子移到＝真)
.判断开始(背景数组[当前横坐标＋1][当前纵坐标]＝7)
背景数组[当前横坐标＋1][当前纵坐标]＝4
画图片(当前横坐标＋1,当前纵坐标,4)
.判断(背景数组[当前横坐标＋1][当前纵坐标]＝3)
背景数组[当前横坐标＋1][当前纵坐标]＝2
画图片(当前横坐标＋1,当前纵坐标,2)
.默认
.判断结束
.如果真结束
.如果真结束
.如果真(上步横坐标＝当前横坐标＋1且上步纵坐标＝当前纵坐标)
.如果真(上步箱子移到＝真)
.判断开始(背景数组[当前横坐标－1][当前纵坐标]＝7)
背景数组[当前横坐标－1][当前纵坐标]＝4
画图片(当前横坐标－1,当前纵坐标,4)
.判断(背景数组[当前横坐标－1][当前纵坐标]＝3)
背景数组[当前横坐标－1][当前纵坐标]＝2
画图片(当前横坐标－1,当前纵坐标,2)
.默认
.判断结束
.如果真结束
.如果真结束
当前横坐标＝上步横坐标
当前纵坐标＝上步纵坐标
上步横坐标＝0
上步纵坐标＝0
错误箱子数＝0
删除成员(撤消数组,记次变量,1)
.如果真(正在录像中＝真)
删除成员(录像数组,取数组成员数(录像数组),1)
.如果真结束
.计次循环首(14,循环变量1)
.计次循环首(16,循环变量2)
.如果真(背景数组[循环变量1][循环变量2]＝3)
错误箱子数＝错误箱子数＋1
.如果真结束
.计次循环尾()
.计次循环尾()
.子程序_重来_被选择
.如果真(声音效果＝真)
播放音乐(重来音乐,)
.如果真结束
小人步数＝0
标签1.标题＝“你的移动步数为:”＋到文本(小人步数)
状态条1.置文本(1,“你的移动步数为:”＋到文本(小人步数))
上步横坐标＝0
上步纵坐标＝0
当前横坐标＝0
当前纵坐标＝0
读取文件()
第一次画＝真
画背景(假)
.子程序__启动窗口_鼠标左键被按下,逻辑型
.参数横向位置,整数型
.参数纵向位置,整数型
.参数功能键状态,整数型
.如果真(声音效果＝真)
播放音乐(点击音乐,)
.如果真结束
'重来.禁止＝假
'撤消.禁止＝真
'工具条1.加入状态(0,#禁止)
.如果真(上步横坐标≠0)
'撤消.禁止＝假
'工具条1.加入状态(0,0)
.如果真结束
.子程序_帮助文件_被选择
运行文件(0,“open”,当前目录＋“\box.chm”,“”,“”,9)
.子程序_声音_被选择
声音效果＝取反(声音效果)
声音.选中＝声音效果
.如果(声音.选中＝真)
工具条1.加入状态(2,#选中)
.否则
工具条1.去除状态(2,#选中)
.如果结束
.子程序_退出_被选择
卸载图片号()
.如果真(小人方案名＝“”)
小人方案名＝#默认方案
.如果真结束
.如果真(音乐方案名＝“”)
音乐方案名＝#默认方案
.如果真结束
.如果真(场景方案名＝“”)
场景方案名＝#默认方案
.如果真结束
写配置文件(“score”,“lastscore”,到文本(当前关数),当前目录＋“\box.ini”)
写配置文件(“config”,“ren”,小人方案名,当前目录＋“\box.ini”)
写配置文件(“config”,“sound”,音乐方案名,当前目录＋“\box.ini”)
写配置文件(“config”,“gui”,场景方案名,当前目录＋“\box.ini”)
.如果(声音效果＝真)
写配置文件(“sound”,“sound”,“1”,当前目录＋“\box.ini”)
.否则
写配置文件(“sound”,“sound”,“0”,当前目录＋“\box.ini”)
.如果结束
关闭()
结束()
.子程序_新的想法_被选择
载入(设计窗口,,真)
.如果真(保存标志＝2且当前关数＝0)
当前关数＝当前关数＋1
上步横坐标＝0
上步纵坐标＝0
当前横坐标＝0
当前纵坐标＝0
读取文件()
第一次画＝真
画背景(假)
_启动窗口.标题＝#游戏版本号＋“你现在推的是”＋到文本(当前关数)＋“关”
.如果真结束
.子程序_编辑方案_被选择
载入(方案设计窗口,,真)
.子程序_选择方案_被选择
载入(选择方案窗口,,真)
.如果真(方案被改变＝真)
卸载图片号()
载入图片号(#小人方案,小人方案名)
载入图片号(#场景方案,场景方案名)
载入音乐()
画背景(假)
.如果真结束
.子程序__启动窗口_将被销毁
时钟1.时钟周期＝0
_退出_被选择()
.子程序_关于_被选择
载入(关于窗口,,真)
.子程序_选关_被选择
选择关卡＝当前关数
载入(选关窗口,,真)
.如果真(选择关卡＝当前关数)
返回()
.如果真结束
当前关数＝选择关卡
小人步数＝0
标签1.标题＝“你的移动步数为:”＋到文本(小人步数)
状态条1.置文本(1,“你的移动步数为:”＋到文本(小人步数))
上步横坐标＝0
上步纵坐标＝0
当前横坐标＝0
当前纵坐标＝0
读取文件()
第一次画＝真
画背景(假)
.子程序__启动窗口_按下某键,逻辑型
.参数键代码,整数型
.参数功能键状态,整数型
.局部变量步数配置变量,整数型,,,bestmove
.局部变量上下光标键,整数型,,,xflag
.局部变量左右光标键,整数型
.局部变量位置,撤消类型
.判断开始(键代码＝#左光标键)
上下光标键＝0
左右光标键＝-1
.判断(键代码＝#上光标键)
上下光标键＝-1
左右光标键＝0
.判断(键代码＝#右光标键)
上下光标键＝0
左右光标键＝1
.判断(键代码＝#下光标键)
上下光标键＝1
左右光标键＝0
.默认
.如果真(声音效果＝真)
播放音乐(点击音乐,)
.如果真结束
返回(真)
.判断结束
.如果真(返回游戏.禁止＝假)
返回(真)
.如果真结束
上步箱子移到＝假
.判断开始(背景数组[当前横坐标＋上下光标键][当前纵坐标＋左右光标键]＝2)
.如果真(声音效果＝真)
.如果真(移动音乐开关＝0)
播放音乐(移动音乐,真)
.如果真结束
.如果真结束
背景数组[当前横坐标＋上下光标键][当前纵坐标＋左右光标键]＝54＋3×上下光标键＋左右光标键
画图片(当前横坐标＋上下光标键,当前纵坐标＋左右光标键,54＋3×上下光标键＋左右光标键)
.判断开始(背景数组[当前横坐标][当前纵坐标]≥51且背景数组[当前横坐标][当前纵坐标]≤58)
背景数组[当前横坐标][当前纵坐标]＝2
画图片(当前横坐标,当前纵坐标,2)
.判断(背景数组[当前横坐标][当前纵坐标]≥61且背景数组[当前横坐标][当前纵坐标]≤68)
背景数组[当前横坐标][当前纵坐标]＝4
画图片(当前横坐标,当前纵坐标,4)
.默认
.判断结束
上步箱子移到＝假
.判断(背景数组[当前横坐标＋上下光标键][当前纵坐标＋左右光标键]＝4)
.如果真(声音效果＝真)
.如果真(移动音乐开关＝0)
播放音乐(移动音乐,真)
.如果真结束
.如果真结束
背景数组[当前横坐标＋上下光标键][当前纵坐标＋左右光标键]＝64＋3×上下光标键＋左右光标键
画图片(当前横坐标＋上下光标键,当前纵坐标＋左右光标键,64＋3×上下光标键＋左右光标键)
.判断开始(背景数组[当前横坐标][当前纵坐标]≥51且背景数组[当前横坐标][当前纵坐标]≤58)
背景数组[当前横坐标][当前纵坐标]＝2
画图片(当前横坐标,当前纵坐标,2)
.判断(背景数组[当前横坐标][当前纵坐标]≥61且背景数组[当前横坐标][当前纵坐标]≤68)
背景数组[当前横坐标][当前纵坐标]＝4
画图片(当前横坐标,当前纵坐标,4)
.默认
.判断结束
上步箱子移到＝假
.判断(背景数组[当前横坐标＋上下光标键][当前纵坐标＋左右光标键]＝3)
.判断开始(背景数组[当前横坐标＋上下光标键＋上下光标键][当前纵坐标＋左右光标键＋左右光标键]＝2)
.如果真(声音效果＝真)
播放音乐(推箱音乐,)
.如果真结束
背景数组[当前横坐标＋上下光标键＋上下光标键][当前纵坐标＋左右光标键＋左右光标键]＝3
画图片(当前横坐标＋上下光标键＋上下光标键,当前纵坐标＋左右光标键＋左右光标键,3)
背景数组[当前横坐标＋上下光标键][当前纵坐标＋左右光标键]＝54＋3×上下光标键＋左右光标键
画图片(当前横坐标＋上下光标键,当前纵坐标＋左右光标键,54＋3×上下光标键＋左右光标键)
.判断开始(背景数组[当前横坐标][当前纵坐标]≥51且背景数组[当前横坐标][当前纵坐标]≤58)
背景数组[当前横坐标][当前纵坐标]＝2
画图片(当前横坐标,当前纵坐标,2)
.判断(背景数组[当前横坐标][当前纵坐标]≥61且背景数组[当前横坐标][当前纵坐标]≤68)
背景数组[当前横坐标][当前纵坐标]＝4
画图片(当前横坐标,当前纵坐标,4)
.默认
.判断结束
上步箱子移到＝真
.判断(背景数组[当前横坐标＋上下光标键＋上下光标键][当前纵坐标＋左右光标键＋左右光标键]＝4)
.如果真(声音效果＝真)
播放音乐(推箱音乐,)
.如果真结束
背景数组[当前横坐标＋上下光标键＋上下光标键][当前纵坐标＋左右光标键＋左右光标键]＝7
画图片(当前横坐标＋上下光标键＋上下光标键,当前纵坐标＋左右光标键＋左右光标键,7)
背景数组[当前横坐标＋上下光标键][当前纵坐标＋左右光标键]＝54＋3×上下光标键＋左右光标键
画图片(当前横坐标＋上下光标键,当前纵坐标＋左右光标键,54＋3×上下光标键＋左右光标键)
错误箱子数＝错误箱子数－1
.判断开始(背景数组[当前横坐标][当前纵坐标]≥51且背景数组[当前横坐标][当前纵坐标]≤58)
背景数组[当前横坐标][当前纵坐标]＝2
画图片(当前横坐标,当前纵坐标,2)
.判断(背景数组[当前横坐标][当前纵坐标]≥61且背景数组[当前横坐标][当前纵坐标]≤68)
背景数组[当前横坐标][当前纵坐标]＝4
画图片(当前横坐标,当前纵坐标,4)
.默认
.判断结束
上步箱子移到＝真
.默认
.如果真(声音效果＝真)
播放音乐(禁止音乐,)
.如果真结束
上下光标键＝0
左右光标键＝0
.判断结束
.判断(背景数组[当前横坐标＋上下光标键][当前纵坐标＋左右光标键]＝7)
.判断开始(背景数组[当前横坐标＋上下光标键＋上下光标键][当前纵坐标＋左右光标键＋左右光标键]＝2)
.如果真(声音效果＝真)
播放音乐(推箱音乐,)
.如果真结束
背景数组[当前横坐标＋上下光标键＋上下光标键][当前纵坐标＋左右光标键＋左右光标键]＝3
画图片(当前横坐标＋上下光标键＋上下光标键,当前纵坐标＋左右光标键＋左右光标键,3)
背景数组[当前横坐标＋上下光标键][当前纵坐标＋左右光标键]＝64＋3×上下光标键＋左右光标键
画图片(当前横坐标＋上下光标键,当前纵坐标＋左右光标键,64＋3×上下光标键＋左右光标键)
错误箱子数＝错误箱子数＋1
.判断开始(背景数组[当前横坐标][当前纵坐标]≥51且背景数组[当前横坐标][当前纵坐标]≤58)
背景数组[当前横坐标][当前纵坐标]＝2
画图片(当前横坐标,当前纵坐标,2)
.判断(背景数组[当前横坐标][当前纵坐标]≥61且背景数组[当前横坐标][当前纵坐标]≤68)
背景数组[当前横坐标][当前纵坐标]＝4
画图片(当前横坐标,当前纵坐标,4)
.默认
.判断结束
上步箱子移到＝真
.判断(背景数组[当前横坐标＋上下光标键＋上下光标键][当前纵坐标＋左右光标键＋左右光标键]＝4)
.如果真(声音效果＝真)
播放音乐(推箱音乐,)
.如果真结束
背景数组[当前横坐标＋上下光标键＋上下光标键][当前纵坐标＋左右光标键＋左右光标键]＝7
画图片(当前横坐标＋上下光标键＋上下光标键,当前纵坐标＋左右光标键＋左右光标键,7)
背景数组[当前横坐标＋上下光标键][当前纵坐标＋左右光标键]＝64＋3×上下光标键＋左右光标键
画图片(当前横坐标＋上下光标键,当前纵坐标＋左右光标键,64＋3×上下光标键＋左右光标键)
.判断开始(背景数组[当前横坐标][当前纵坐标]≥51且背景数组[当前横坐标][当前纵坐标]≤58)
背景数组[当前横坐标][当前纵坐标]＝2
画图片(当前横坐标,当前纵坐标,2)
.判断(背景数组[当前横坐标][当前纵坐标]≥61且背景数组[当前横坐标][当前纵坐标]≤68)
背景数组[当前横坐标][当前纵坐标]＝4
画图片(当前横坐标,当前纵坐标,4)
.默认
.判断结束
上步箱子移到＝真
.默认
.如果真(声音效果＝真)
播放音乐(禁止音乐,)
.如果真结束
上下光标键＝0
左右光标键＝0
.判断结束
.默认
.如果真(声音效果＝真)
播放音乐(禁止音乐,)
.如果真结束
上下光标键＝0
左右光标键＝0
.判断结束
上步横坐标＝当前横坐标
上步纵坐标＝当前纵坐标
当前横坐标＝当前横坐标＋上下光标键
当前纵坐标＝当前纵坐标＋左右光标键
位置.x＝上步横坐标
位置.y＝上步纵坐标
位置.ifmove＝上步箱子移到
.如果真(返回游戏.禁止＝真)
.如果真(录像播放中＝假)
加入成员(撤消数组,位置)
.如果真结束
.如果真结束
.如果真(正在录像中＝真)
加入成员(录像数组,键代码)
.如果真结束
标签2.标题＝“X:”＋到文本(当前横坐标)＋“”＋“Y:”＋到文本(当前纵坐标)
状态条1.置文本(0,“X:”＋到文本(当前横坐标)＋“”＋“Y:”＋到文本(当前纵坐标))
'输出调试文本(到文本(lastx)＋字符(9)＋到文本(lasty))
'输出调试文本(到文本(localx)＋字符(9)＋到文本(localy)＋#换行符)
时钟1.时钟周期＝0
小人步数＝小人步数＋取绝对值(上下光标键＋左右光标键)
标签1.标题＝“你的移动步数为:”＋到文本(小人步数)
状态条1.置文本(1,“你的移动步数为:”＋到文本(小人步数))
撤消.禁止＝假
工具条1.去除状态(0,#禁止)
移动音乐开关＝1
.如果(错误箱子数＝0且正在录像中＝假且录像播放中＝假)
.如果真(声音效果＝真)
播放音乐(结束音乐,)
.如果真结束
步数配置变量＝读配置整数(“box”,“box”＋到文本(当前关数),0,当前目录＋“\box.ini”)
.如果(小人步数＜步数配置变量或步数配置变量＝0)
写配置文件(“box”,“box”＋到文本(当前关数),到文本(小人步数),当前目录＋“\box.ini”)
信息框(“你做的真不错!我佩服你!继续努力吧!”,0,“恭喜”)
.否则
.如果(小人步数＝步数配置变量)
信息框(“你这次的成绩和上次一样，继续努力吧!”,0,“没进步”)
.否则
信息框(“你还要继续锻炼!一定要打破以前的记录!”,0,“你的成绩......”)
.如果结束
.如果结束
小人步数＝0
标签1.标题＝“你的移动步数为:”＋到文本(小人步数)
状态条1.置文本(1,“你的移动步数为:”＋到文本(小人步数))
当前关数＝当前关数＋1
上步横坐标＝0
上步纵坐标＝0
当前横坐标＝0
当前纵坐标＝0
读取文件()
第一次画＝真
画背景(假)
.否则
时钟1.时钟周期＝500
.如果结束
.子程序获取移动路径,逻辑型,,已OK!2001.11.30.00:10"程序配制"还未更新
.参数当前x,整数型
.参数当前y,整数型
.参数目标x,整数型
.参数目标y,整数型
.局部变量地图数据,数据类型2,,"14,16",探索路径时用的临时地图
.局部变量节点1,整数型,,"0",保存每次找到的节点
.局部变量节点2,整数型,,"0",保存每次找到的节点
.局部变量数量,整数型
.局部变量完成,逻辑型,,,是否已经完成探索
.局部变量步数,整数型,,,当前步数
.局部变量变量1,整数型
.局部变量变量2,整数型
.局部变量循环变量1,整数型
.局部变量循环变量2,整数型
.局部变量最大次数,整数型,,,要搜索的最大次数
.如果真(取数组成员数(行走路径)＞0)
返回(假)
.如果真结束
.如果真(不自动寻路＝真)
返回(假)
.如果真结束
.如果真(当前x＝目标x且当前y＝目标y)
返回(假)
.如果真结束
.如果真(目标x＞14或目标y＞16)
返回(假)
.如果真结束
完成＝假
最大次数＝0
.计次循环首(14,循环变量1)
.计次循环首(16,循环变量2)
.如果真(背景数组[循环变量1][循环变量2]＝0或背景数组[循环变量1][循环变量2]＝1)
最大次数＝最大次数＋1
.如果真结束
.计次循环尾()
.计次循环尾()
最大次数＝14×16－最大次数
清除数组(节点1)
清除数组(节点2)
加入成员(节点1,当前x)
加入成员(节点2,当前y)
地图数据[当前x][当前y].步数＝99999
地图数据[当前x][当前y].位置.x＝节点1[1]
地图数据[当前x][当前y].位置.y＝节点2[1]
'map[p1[rq1]＋1][p2[rq1]].方向＝#下光标键
地图数据[当前x][当前y].上一步.x＝节点1[1]
地图数据[当前x][当前y].上一步.y＝节点2[1]
步数＝1
.计次循环首(最大次数,变量1)
数量＝取数组成员数(节点1)
.计次循环首(数量,变量2)
.如果真(背景数组[节点1[变量2]＋1][节点2[变量2]]＝2或背景数组[节点1[变量2]＋1][节点2[变量2]]＝4)
.如果真(地图数据[节点1[变量2]＋1][节点2[变量2]].步数＝0)
加入成员(节点1,节点1[变量2]＋1)
加入成员(节点2,节点2[变量2])
地图数据[节点1[变量2]＋1][节点2[变量2]].步数＝步数
地图数据[节点1[变量2]＋1][节点2[变量2]].位置.x＝节点1[变量2]
地图数据[节点1[变量2]＋1][节点2[变量2]].位置.y＝节点2[变量2]
地图数据[节点1[变量2]＋1][节点2[变量2]].方向＝#下光标键
地图数据[节点1[变量2]＋1][节点2[变量2]].上一步.x＝节点1[变量2]
地图数据[节点1[变量2]＋1][节点2[变量2]].上一步.y＝节点2[变量2]
'画板1.定位写出((p2[rq1]－1)×30,(p1[rq1]＋1－1)×30,step)
.如果真结束
.如果真(目标x＝节点1[变量2]＋1且目标y＝节点2[变量2])
完成＝真
跳出循环()
.如果真结束
.如果真结束
.如果真(背景数组[节点1[变量2]－1][节点2[变量2]]＝2或背景数组[节点1[变量2]－1][节点2[变量2]]＝4)
.如果真(地图数据[节点1[变量2]－1][节点2[变量2]].步数＝0)
加入成员(节点1,节点1[变量2]－1)
加入成员(节点2,节点2[变量2])
地图数据[节点1[变量2]－1][节点2[变量2]].步数＝步数
地图数据[节点1[变量2]－1][节点2[变量2]].位置.x＝节点1[变量2]－1
地图数据[节点1[变量2]－1][节点2[变量2]].位置.y＝节点2[变量2]
地图数据[节点1[变量2]－1][节点2[变量2]].方向＝#上光标键
地图数据[节点1[变量2]－1][节点2[变量2]].上一步.x＝节点1[变量2]
地图数据[节点1[变量2]－1][节点2[变量2]].上一步.y＝节点2[变量2]
'画板1.定位写出((p2[rq1]－1)×30,(p1[rq1]－1－1)×30,step)
.如果真结束
.如果真(目标x＝节点1[变量2]－1且目标y＝节点2[变量2])
完成＝真
跳出循环()
.如果真结束
.如果真结束
.如果真(背景数组[节点1[变量2]][节点2[变量2]＋1]＝2或背景数组[节点1[变量2]][节点2[变量2]＋1]＝4)
.如果真(地图数据[节点1[变量2]][节点2[变量2]＋1].步数＝0)
加入成员(节点1,节点1[变量2])
加入成员(节点2,节点2[变量2]＋1)
地图数据[节点1[变量2]][节点2[变量2]＋1].步数＝步数
地图数据[节点1[变量2]][节点2[变量2]＋1].位置.x＝节点1[变量2]
地图数据[节点1[变量2]][节点2[变量2]＋1].位置.y＝节点2[变量2]＋1
地图数据[节点1[变量2]][节点2[变量2]＋1].方向＝#右光标键
地图数据[节点1[变量2]][节点2[变量2]＋1].上一步.x＝节点1[变量2]
地图数据[节点1[变量2]][节点2[变量2]＋1].上一步.y＝节点2[变量2]
'画板1.定位写出((p2[rq1]－1＋1)×30,(p1[rq1]－1)×30,step)
.如果真结束
.如果真(目标x＝节点1[变量2]且目标y＝节点2[变量2]＋1)
完成＝真
跳出循环()
.如果真结束
.如果真结束
.如果真(背景数组[节点1[变量2]][节点2[变量2]－1]＝2或背景数组[节点1[变量2]][节点2[变量2]－1]＝4)
.如果真(地图数据[节点1[变量2]][节点2[变量2]－1].步数＝0)
加入成员(节点1,节点1[变量2])
加入成员(节点2,节点2[变量2]－1)
地图数据[节点1[变量2]][节点2[变量2]－1].步数＝步数
地图数据[节点1[变量2]][节点2[变量2]－1].位置.x＝节点1[变量2]
地图数据[节点1[变量2]][节点2[变量2]－1].位置.y＝节点2[变量2]－1
地图数据[节点1[变量2]][节点2[变量2]－1].方向＝#左光标键
地图数据[节点1[变量2]][节点2[变量2]－1].上一步.x＝节点1[变量2]
地图数据[节点1[变量2]][节点2[变量2]－1].上一步.y＝节点2[变量2]
'画板1.定位写出((p2[rq1]－1－1)×30,(p1[rq1]－1)×30,step)
.如果真结束
.如果真(目标x＝节点1[变量2]且目标y＝节点2[变量2]－1)
完成＝真
跳出循环()
.如果真结束
.如果真结束
.计次循环尾()
删除成员(节点1,1,数量)'删除旧节点
删除成员(节点2,1,数量)
.如果真(取数组成员数(节点1)＝0或完成＝真)
跳出循环()
.如果真结束
步数＝步数＋1
.计次循环尾()
.如果(完成＝真)
'倒推出小人的行走路径
重定义数组(行走路径,假,步数)
行走路径[步数]＝地图数据[目标x][目标y].方向
变量2＝目标x
目标x＝地图数据[变量2][目标y].上一步.x
目标y＝地图数据[变量2][目标y].上一步.y
.变量循环首(步数－1,1,-1,变量1)
.如果真(地图数据[目标x][目标y].方向＝99999)
跳出循环()
.如果真结束
行走路径[变量1]＝地图数据[目标x][目标y].方向
变量2＝目标x
目标x＝地图数据[变量2][目标y].上一步.x
目标y＝地图数据[变量2][目标y].上一步.y
.变量循环尾()
返回(真)
.否则
返回(假)
.如果结束
.子程序_画板1_鼠标左键被按下,逻辑型
.参数横向位置,整数型
.参数纵向位置,整数型
.参数功能键状态,整数型
.局部变量横坐标,整数型
.局部变量纵坐标,整数型
移动音乐开关＝0
.如果真(不自动寻路＝假)
横坐标＝取整(纵向位置÷30＋1)
纵坐标＝取整(横向位置÷30＋1)
'输出调试文本(到文本(box[x][y]))
.判断开始(背景数组[横坐标][纵坐标]＝2或背景数组[横坐标][纵坐标]＝4)
'小人自动移动
.如果真(获取移动路径(当前横坐标,当前纵坐标,横坐标,纵坐标)＝真)
.计次循环首(取数组成员数(行走路径),行走计数)
不自动寻路＝真
__启动窗口_按下某键(行走路径[行走计数],0)
移动音乐开关＝1
不自动寻路＝真
延时(50)
.计次循环尾()
停止播放()
移动音乐开关＝0
不自动寻路＝假
清除数组(行走路径)
.如果真结束
不自动寻路＝假
.判断(背景数组[横坐标][纵坐标]＝3或背景数组[横坐标][纵坐标]＝7)
'小人自动推箱子
.判断开始(当前横坐标＋1＝横坐标且当前纵坐标＝纵坐标)
__启动窗口_按下某键(#下光标键,0)
.判断(当前横坐标－1＝横坐标且当前纵坐标＝纵坐标)
__启动窗口_按下某键(#上光标键,0)
.判断(当前横坐标＝横坐标且当前纵坐标＋1＝纵坐标)
__启动窗口_按下某键(#右光标键,0)
.判断(当前横坐标＝横坐标且当前纵坐标－1＝纵坐标)
__启动窗口_按下某键(#左光标键,0)
.默认
.判断结束
.默认
.判断结束
.如果真结束
.子程序__启动窗口_放开某键,逻辑型,,N
.参数键代码,整数型
.参数功能键状态,整数型
.如果(错误箱子数＝0)
.否则
.判断开始(键代码＝#左光标键)
时钟2.时钟周期＝200
移动音乐开关＝0
.判断(键代码＝#上光标键)
时钟2.时钟周期＝200
移动音乐开关＝0
.判断(键代码＝#右光标键)
时钟2.时钟周期＝200
移动音乐开关＝0
.判断(键代码＝#下光标键)
时钟2.时钟周期＝200
移动音乐开关＝0
.默认
.判断结束
.如果结束
.子程序_时钟2_周期事件,,,N
时钟2.时钟周期＝0
停止播放()
.子程序_画板1_鼠标右键被按下,逻辑型,,N
.参数横向位置,整数型
.参数纵向位置,整数型
.参数功能键状态,整数型
.局部变量变量
.局部变量移动步数
.局部变量移动x1
.局部变量移动y1
.如果真(不自动寻路＝假)
移动x1＝取整(纵向位置÷30＋1)
移动y1＝取整(横向位置÷30＋1)
.如果真结束
'小人自动推箱子
.判断开始(当前横坐标＜移动x1－1且当前纵坐标＝移动y1)
移动步数＝移动x1－当前横坐标－1
.判断开始(背景数组[当前横坐标＋1][移动y1]＝3或背景数组[当前横坐标＋1][移动y1]＝7)
.变量循环首(1,移动步数,1,变量)
__启动窗口_按下某键(#下光标键,0)
.变量循环尾()
.默认
.判断结束
.判断(当前横坐标＞移动x1＋1且当前纵坐标＝移动y1)
移动步数＝当前横坐标－移动x1－1
.判断开始(背景数组[当前横坐标－1][移动y1]＝3或背景数组[当前横坐标－1][移动y1]＝7)
.变量循环首(1,移动步数,1,变量)
__启动窗口_按下某键(#上光标键,0)
.变量循环尾()
.默认
.判断结束
.判断(当前纵坐标＜移动y1－1且当前横坐标＝移动x1)
移动步数＝移动y1－当前纵坐标－1
.判断开始(背景数组[当前横坐标][当前纵坐标＋1]＝3或背景数组[当前横坐标][当前纵坐标＋1]＝7)
.变量循环首(1,移动步数,1,变量)
__启动窗口_按下某键(#右光标键,0)
.变量循环尾()
.默认
.判断结束
.判断(当前纵坐标＞移动y1＋1且当前横坐标＝移动x1)
移动步数＝当前纵坐标－移动y1－1
.判断开始(背景数组[当前横坐标][当前纵坐标－1]＝3或背景数组[当前横坐标][当前纵坐标－1]＝7)
.变量循环首(1,移动步数,1,变量)
__启动窗口_按下某键(#左光标键,0)
.变量循环尾()
.默认
.判断结束
.默认
.判断结束
.子程序_工具条1_被单击
.参数按钮索引,整数型
.判断开始(按钮索引＝0)
_撤消_被选择()
.判断(按钮索引＝1)
_重来_被选择()
.判断(按钮索引＝2)
_声音_被选择()
.判断(按钮索引＝3)
_选关_被选择()
.判断(按钮索引＝4)
_退出_被选择()
.判断(按钮索引＝6)
_新的想法_被选择()
.判断(按钮索引＝7)
_编辑方案_被选择()
.判断(按钮索引＝8)
_选择方案_被选择()
.默认
.判断结束
.子程序_开始录像_被选择
.局部变量循环变量1,整数型
.局部变量循环变量2,整数型
时钟1.时钟周期＝0
正在录像中＝真
开始录像.禁止＝真
停止录像.禁止＝假
播放录像.禁止＝真
停止播放.禁止＝真
保存录像.禁止＝真
打开录像文件.禁止＝真
返回游戏.禁止＝真
重来.禁止＝真
选关.禁止＝真
设计.禁止＝真
清除数组(录像数组)
录像地图数据＝{}'保存地图
.计次循环首(14,循环变量1)
.计次循环首(16,循环变量2)
录像地图数据＝录像地图数据＋到字节集(背景数组[循环变量1][循环变量2])
.计次循环尾()
.计次循环尾()
时钟1.时钟周期＝500
.子程序_停止录像_被选择
时钟1.时钟周期＝0
正在录像中＝假
.如果真(取数