新人向 动画框 移动和碰撞教程（无模块）

bbgzzg

这几天摸索了一下动画框  教程主要还是新人向的 做了一下控制人物移动 、 碰撞方向返回 、 碰撞停止该方向移动 、 地图或动画框移动、 这些应该是很早就有的  不过易语言的自带碰撞效果大家都知道，花了几天时间想了个另外的法子  详细见图和源码

话说怎么发不需要币的  免费的附件啊

——https://wwn.lanzouf.com/ii47v071ghli——源码 只有扩展组件（无模块） 免费的我只能发链接  不能直接放进去

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
物体1	整数型
地图	整数型
pass点	整数型
重叠了	逻辑型
上	整数型
下	整数型
左	整数型
右	整数型
是否走到终点	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

地图 ＝ 动画框1.创建物体 (动画物体1, 0, 0, 真, )  ' 这里我在界面扔了动画物体就直接可以创建动画物体1  不用过多的参数设置
物体1 ＝ 动画框1.创建物体 (动画物体2, 10, 10, 真, )  ' 这里和上面一样的
pass点 ＝ 动画框1.创建物体 (, 1900, 830, 真, )  ' 这里是直接用代码设置动画物体   需要多设置几行 动画物体是 【图片】还是 【文字】 。 能否碰撞。 层次多少。
动画框1.置图片 (pass点, #pass点, )  ' 设置他的图片
动画框1.置碰撞管理 (pass点, 真, )  ' 设置可以碰撞
动画框1.置层次 (pass点, 1)  ' 设置他的层次  一定要和需要碰撞的物体一个层次
动画框1.添加监视键 (10, #W键 )
动画框1.添加监视键 (10, #S键 )
动画框1.添加监视键 (10, #A键 )
动画框1.添加监视键 (10, #D键 )

子程序名	返回值类型	公开	备 注
_动画框1_碰撞到边界	逻辑型
参数名	类 型	参考	可空	数组	备 注
物体标识值	整数型
碰撞前横坐标	整数型
碰撞前纵坐标	整数型
边界类型	整数型

如果真 (物体标识值 ＝ 物体1)
动画框1.置物体位置 (物体1, 碰撞前横坐标, 碰撞前纵坐标, 真)

子程序名	返回值类型	公开	备 注
_动画框1_监视键被按下			我将上下左右分成4个不同的字母  然后检测动画物体是否重叠  如果重叠 编辑框里面就放重叠的那个字母  相当于锁住 然后再次检测按键的时候  如果编辑框里面是那个字母 那么这个按键就不生效（解锁的话  只要按下了其他3个方向的任意一个 就可以解锁）
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果 (键代码 ＝ #A键 且 编辑框1.内容 ≠ “z”)  ' 健代码是 a  并且编辑框里面没有 （z） 这个按键才生效 编辑框看不懂就看上面的备注 还有下面的  有讲解【锁住】这个操作
如果真 (编辑框1.内容 ≠ “z”)  ' 如果编辑框里不是（z）  相当于就给其他按键解锁了
编辑框1.内容 ＝ “”
左 ＝ 1  ' 1表示按下键 并记录一下是按了哪个键
左 ＝ 0  ' 0表示不生效

如果 (键代码 ＝ #D键 且 编辑框1.内容 ≠ “y”)
如果真 (编辑框1.内容 ≠ “y”)
编辑框1.内容 ＝ “”
右 ＝ 1
右 ＝ 0

如果 (键代码 ＝ #W键 且 编辑框1.内容 ≠ “s”)
如果真 (编辑框1.内容 ≠ “s”)
编辑框1.内容 ＝ “”
上 ＝ 1
上 ＝ 0

如果 (键代码 ＝ #S键 且 编辑框1.内容 ≠ “x”)
如果真 (编辑框1.内容 ≠ “x”)
编辑框1.内容 ＝ “”
下 ＝ 1
下 ＝ 0

如果真 (上 ＝ 1)  ' 上=1 已经确定要往上走了   接下来看 人物在地图的哪个位置  如果到边界了不合适的话 就让【地图】代替【人物】行走
如果 (动画框1.取物体顶边 (物体1) ＜ 250 且 动画框1.取物体顶边 (地图) ＜ 0)  ' 【人物】和【地图】的顶边和左边是根据【动画框】来的  动画框的左上方就是绝对 0   所以要判断人物当前的位置 适不适合继续在框里动。
动画框1.置物体位置 (地图, 动画框1.取物体左边 (地图), 动画框1.取物体顶边 (地图) ＋ 3, )  ' 如果 不合适  就是地图走
动画框1.置物体位置 (pass点, 动画框1.取物体左边 (地图) ＋ 1900, 动画框1.取物体顶边 (地图) ＋ 830, )
动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1), 动画框1.取物体顶边 (物体1) － 3, 真)  ' 如果 合适  就是人物走


如果真 (下 ＝ 1)
如果 (动画框1.取物体顶边 (物体1) ＞ 250 且 动画框1.取物体顶边 (地图) ＞ -500)
动画框1.置物体位置 (地图, 动画框1.取物体左边 (地图), 动画框1.取物体顶边 (地图) － 3, )
动画框1.置物体位置 (pass点, 动画框1.取物体左边 (地图) ＋ 1900, 动画框1.取物体顶边 (地图) ＋ 830, )
动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1), 动画框1.取物体顶边 (物体1) ＋ 3, 真)


如果真 (左 ＝ 1)
如果 (动画框1.取物体左边 (物体1) ＜ 350 且 动画框1.取物体左边 (地图) ＜ 0)
动画框1.置物体位置 (地图, 动画框1.取物体左边 (地图) ＋ 3, 动画框1.取物体顶边 (地图), )
动画框1.置物体位置 (pass点, 动画框1.取物体左边 (地图) ＋ 1900, 动画框1.取物体顶边 (地图) ＋ 830, )
动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1) － 3, 动画框1.取物体顶边 (物体1), 真)


如果真 (右 ＝ 1)
如果 (动画框1.取物体左边 (物体1) ＞ 350 且 动画框1.取物体左边 (地图) ＞ -1200)
动画框1.置物体位置 (地图, 动画框1.取物体左边 (地图) － 3, 动画框1.取物体顶边 (地图), )
动画框1.置物体位置 (pass点, 动画框1.取物体左边 (地图) ＋ 1900, 动画框1.取物体顶边 (地图) ＋ 830, )
动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1) ＋ 3, 动画框1.取物体顶边 (物体1), 真)


判断 (动画框1.是否重叠 (物体1, 地图))  ' 开始判断  行走过后  【人物】是否和【地图】有重叠
重叠了 ＝ 真
重叠了 ＝ 假

如果 (重叠了 ＝ 真)  ' 这里是  如果-重叠了！！   应该做什么
判断 (上 ＝ 1 且 左 ＝ 0 且 右 ＝ 0)  ' 如果是按了 这个 【上】 导致的重叠的话 【上】 就先归零
上 ＝ 0
动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1), 动画框1.取物体顶边 (物体1) ＋ 4, 真)  ' 这里是让人物 往【反方向】动一些  用来离开重叠部分
编辑框1.内容 ＝ “s”  ' 这个就是  锁住 【上】 键   这样就不会再重叠然后又反方向动鬼畜了
判断 (下 ＝ 1 且 左 ＝ 0 且 右 ＝ 0)
下 ＝ 0
动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1), 动画框1.取物体顶边 (物体1) － 4, 真)
编辑框1.内容 ＝ “x”
判断 (左 ＝ 1 且 上 ＝ 0 且 下 ＝ 0)
左 ＝ 0
动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1) ＋ 4, 动画框1.取物体顶边 (物体1), 真)
编辑框1.内容 ＝ “z”
判断 (右 ＝ 1 且 上 ＝ 0 且 下 ＝ 0)
右 ＝ 0
动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1) － 4, 动画框1.取物体顶边 (物体1), 真)
编辑框1.内容 ＝ “y”






如果真 (是否走到终点 ＝ 假)
如果真 (动画框1.是否重叠 (物体1, pass点))
是否走到终点 ＝ 真
信息框 (“走到终点了”, 0, , )


调试输出 (上, 下, 左, 右)
编辑框meL.内容 ＝ 到文本 (动画框1.取物体左边 (物体1))  ' 这里是显示 人物 和 地图 的坐标的
编辑框meT.内容 ＝ 到文本 (动画框1.取物体顶边 (物体1))
编辑框mapL.内容 ＝ 到文本 (动画框1.取物体左边 (地图))
编辑框mapT.内容 ＝ 到文本 (动画框1.取物体顶边 (地图))
调试输出 (重叠了)

子程序名	返回值类型	公开	备 注
_动画框1_放开某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

判断开始断 (键代码 ＝ #W键 )
' 上 ＝ 2
. ' 判断 (键代码 ＝ #S键)
' 下 ＝ 2
. ' 判断 (键代码 ＝ #A键)
' 左 ＝ 2
. ' 判断 (键代码 ＝ #D键)
' 右 ＝ 2



' 按理说是监视键不需要放开的  我只是习惯做了

i支持库列表	支持库注释
iext2	扩展界面支持库二
spec	特殊功能支持库

.版本 2<br /> .支持库 iext2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 物体1, 整数型<br /> .程序集变量 地图, 整数型<br /> .程序集变量 pass点, 整数型<br /> .程序集变量 重叠了, 逻辑型<br /> .程序集变量 上, 整数型<br /> .程序集变量 下, 整数型<br /> .程序集变量 左, 整数型<br /> .程序集变量 右, 整数型<br /> .程序集变量 是否走到终点, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 地图 ＝ 动画框1.创建物体 (动画物体1, 0, 0, 真, )  ' 这里我在界面扔了动画物体就直接可以创建动画物体1  不用过多的参数设置<br /> 物体1 ＝ 动画框1.创建物体 (动画物体2, 10, 10, 真, )  ' 这里和上面一样的<br /> <br /> pass点 ＝ 动画框1.创建物体 (, 1900, 830, 真, )  ' 这里是直接用代码设置动画物体   需要多设置几行 动画物体是 【图片】还是 【文字】 。 能否碰撞。 层次多少。<br /> 动画框1.置图片 (pass点, #pass点, )  ' 设置他的图片<br /> 动画框1.置碰撞管理 (pass点, 真, )  ' 设置可以碰撞<br /> 动画框1.置层次 (pass点, 1)  ' 设置他的层次  一定要和需要碰撞的物体一个层次<br /> <br /> 动画框1.添加监视键 (10, #W键)<br /> 动画框1.添加监视键 (10, #S键)<br /> 动画框1.添加监视键 (10, #A键)<br /> 动画框1.添加监视键 (10, #D键)<br /> <br /> <br /> .子程序 _动画框1_碰撞到边界, 逻辑型<br /> .参数 物体标识值, 整数型<br /> .参数 碰撞前横坐标, 整数型<br /> .参数 碰撞前纵坐标, 整数型<br /> .参数 边界类型, 整数型<br /> <br /> .如果真 (物体标识值 ＝ 物体1)<br />     动画框1.置物体位置 (物体1, 碰撞前横坐标, 碰撞前纵坐标, 真)<br /> .如果真结束<br /> <br /> <br /> .子程序 _动画框1_监视键被按下, , , 我将上下左右分成4个不同的字母  然后检测动画物体是否重叠  如果重叠 编辑框里面就放重叠的那个字母  相当于锁住 然后再次检测按键的时候  如果编辑框里面是那个字母 那么这个按键就不生效（解锁的话  只要按下了其他3个方向的任意一个 就可以解锁）<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果 (键代码 ＝ #A键 且 编辑框1.内容 ≠ “z”)  ' 健代码是 a  并且编辑框里面没有 （z） 这个按键才生效 编辑框看不懂就看上面的备注 还有下面的  有讲解【锁住】这个操作<br />     .如果真 (编辑框1.内容 ≠ “z”)  ' 如果编辑框里不是（z）  相当于就给其他按键解锁了<br />         编辑框1.内容 ＝ “”<br />     .如果真结束<br />     左 ＝ 1  ' 1表示按下键 并记录一下是按了哪个键<br /> .否则<br />     左 ＝ 0  ' 0表示不生效<br /> .如果结束<br /> <br /> .如果 (键代码 ＝ #D键 且 编辑框1.内容 ≠ “y”)<br />     .如果真 (编辑框1.内容 ≠ “y”)<br />         编辑框1.内容 ＝ “”<br />     .如果真结束<br />     右 ＝ 1<br /> .否则<br />     右 ＝ 0<br /> .如果结束<br /> <br /> .如果 (键代码 ＝ #W键 且 编辑框1.内容 ≠ “s”)<br />     .如果真 (编辑框1.内容 ≠ “s”)<br />         编辑框1.内容 ＝ “”<br />     .如果真结束<br />     上 ＝ 1<br /> .否则<br />     上 ＝ 0<br /> .如果结束<br /> <br /> .如果 (键代码 ＝ #S键 且 编辑框1.内容 ≠ “x”)<br />     .如果真 (编辑框1.内容 ≠ “x”)<br />         编辑框1.内容 ＝ “”<br />     .如果真结束<br />     下 ＝ 1<br /> .否则<br />     下 ＝ 0<br /> .如果结束<br /> <br /> .如果真 (上 ＝ 1)  ' 上=1 已经确定要往上走了   接下来看 人物在地图的哪个位置  如果到边界了不合适的话 就让【地图】代替【人物】行走<br /> <br />     .如果 (动画框1.取物体顶边 (物体1) ＜ 250 且 动画框1.取物体顶边 (地图) ＜ 0)  ' 【人物】和【地图】的顶边和左边是根据【动画框】来的  动画框的左上方就是绝对 0   所以要判断人物当前的位置 适不适合继续在框里动。<br />         动画框1.置物体位置 (地图, 动画框1.取物体左边 (地图), 动画框1.取物体顶边 (地图) ＋ 3, )  ' 如果 不合适  就是地图走<br />         动画框1.置物体位置 (pass点, 动画框1.取物体左边 (地图) ＋ 1900, 动画框1.取物体顶边 (地图) ＋ 830, )<br />     .否则<br />         动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1), 动画框1.取物体顶边 (物体1) － 3, 真)  ' 如果 合适  就是人物走<br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (下 ＝ 1)<br /> <br />     .如果 (动画框1.取物体顶边 (物体1) ＞ 250 且 动画框1.取物体顶边 (地图) ＞ -500)<br />         动画框1.置物体位置 (地图, 动画框1.取物体左边 (地图), 动画框1.取物体顶边 (地图) － 3, )<br />         动画框1.置物体位置 (pass点, 动画框1.取物体左边 (地图) ＋ 1900, 动画框1.取物体顶边 (地图) ＋ 830, )<br />     .否则<br />         动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1), 动画框1.取物体顶边 (物体1) ＋ 3, 真)<br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (左 ＝ 1)<br /> <br />     .如果 (动画框1.取物体左边 (物体1) ＜ 350 且 动画框1.取物体左边 (地图) ＜ 0)<br />         动画框1.置物体位置 (地图, 动画框1.取物体左边 (地图) ＋ 3, 动画框1.取物体顶边 (地图), )<br />         动画框1.置物体位置 (pass点, 动画框1.取物体左边 (地图) ＋ 1900, 动画框1.取物体顶边 (地图) ＋ 830, )<br />     .否则<br />         动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1) － 3, 动画框1.取物体顶边 (物体1), 真)<br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (右 ＝ 1)<br /> <br />     .如果 (动画框1.取物体左边 (物体1) ＞ 350 且 动画框1.取物体左边 (地图) ＞ -1200)<br />         动画框1.置物体位置 (地图, 动画框1.取物体左边 (地图) － 3, 动画框1.取物体顶边 (地图), )<br />         动画框1.置物体位置 (pass点, 动画框1.取物体左边 (地图) ＋ 1900, 动画框1.取物体顶边 (地图) ＋ 830, )<br />     .否则<br />         动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1) ＋ 3, 动画框1.取物体顶边 (物体1), 真)<br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .判断开始 (动画框1.是否重叠 (物体1, 地图))  ' 开始判断  行走过后  【人物】是否和【地图】有重叠<br />     重叠了 ＝ 真<br /> .默认<br />     重叠了 ＝ 假<br /> .判断结束<br /> <br /> .如果 (重叠了 ＝ 真)  ' 这里是  如果-重叠了！！   应该做什么<br />     .判断开始 (上 ＝ 1 且 左 ＝ 0 且 右 ＝ 0)  ' 如果是按了 这个 【上】 导致的重叠的话 【上】 就先归零<br />         上 ＝ 0<br />         动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1), 动画框1.取物体顶边 (物体1) ＋ 4, 真)  ' 这里是让人物 往【反方向】动一些  用来离开重叠部分<br />         编辑框1.内容 ＝ “s”  ' 这个就是  锁住 【上】 键   这样就不会再重叠然后又反方向动鬼畜了<br />     .判断 (下 ＝ 1 且 左 ＝ 0 且 右 ＝ 0)<br />         下 ＝ 0<br />         动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1), 动画框1.取物体顶边 (物体1) － 4, 真)<br />         编辑框1.内容 ＝ “x”<br />     .判断 (左 ＝ 1 且 上 ＝ 0 且 下 ＝ 0)<br />         左 ＝ 0<br />         动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1) ＋ 4, 动画框1.取物体顶边 (物体1), 真)<br />         编辑框1.内容 ＝ “z”<br />     .判断 (右 ＝ 1 且 上 ＝ 0 且 下 ＝ 0)<br />         右 ＝ 0<br />         动画框1.置物体位置 (物体1, 动画框1.取物体左边 (物体1) － 4, 动画框1.取物体顶边 (物体1), 真)<br />         编辑框1.内容 ＝ “y”<br />     .默认<br /> <br />     .判断结束<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .如果真 (是否走到终点 ＝ 假)<br />     .如果真 (动画框1.是否重叠 (物体1, pass点))<br />         是否走到终点 ＝ 真<br />         信息框 (“走到终点了”, 0, , )<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> 调试输出 (上, 下, 左, 右)<br /> <br /> 编辑框meL.内容 ＝ 到文本 (动画框1.取物体左边 (物体1))  ' 这里是显示 人物 和 地图 的坐标的<br /> 编辑框meT.内容 ＝ 到文本 (动画框1.取物体顶边 (物体1))<br /> 编辑框mapL.内容 ＝ 到文本 (动画框1.取物体左边 (地图))<br /> 编辑框mapT.内容 ＝ 到文本 (动画框1.取物体顶边 (地图))<br /> <br /> 调试输出 (重叠了)<br /> <br /> .子程序 _动画框1_放开某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .判断开始断 (键代码 ＝ #W键)<br />     ' 上 ＝ 2<br /> .' 判断 (键代码 ＝ #S键)<br />     ' 下 ＝ 2<br /> .' 判断 (键代码 ＝ #A键)<br />     ' 左 ＝ 2<br /> .' 判断 (键代码 ＝ #D键)<br />     ' 右 ＝ 2<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> ' 按理说是监视键不需要放开的  我只是习惯做了

bbgzzg

忘了两张图  直接在这里发吧
一张是地图            一张是用win自带的画图找点位

张张利利

人物不动啊啊

清风明月夜

xj1314520

支持一下。。。。。。。。。。。

xj1314520

支持一下。。。。。。

宁氏

感谢分享

灵海雪缘

我非平凡

已经给你们分好类了，需要调用的，请自行转换mp3格式

王摇摆

感谢分享

wtflxk

感谢分享，希望楼主以后能分享更多源码出来