新手自制游戏，困住机器人

15887059803

感谢分享支持开源

wusuoweivv

不错不错，值得参考

static101

可以的，很强哇

ei9997

支持                   `﹀`

海鬼FKLY

哇，游戏，研究一下

毛超

判断循环首 (局_开关 ＝ 假)
如果真 (a ＝ 1 且 文本_取出现次数 (碰撞记录, “左”, ) ＞ 0)

胖虎O

哇，游戏，研究一下

晓风残月梦微凉

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
a	整数型
局_开关	逻辑型

a ＝ 取随机数 (1, 4)
局_开关 ＝ 假
判断 (文本_取出现次数 (碰撞记录, “上”, ) ＞ 0 且 文本_取出现次数 (碰撞记录, “左”, ) ＞ 0 且 文本_取出现次数 (碰撞记录, “下”, ) ＞ 0 且 文本_取出现次数 (碰撞记录, “右”, ) ＞ 0)
动画框1.销毁所有物体 ()
标签5.可视 ＝ 真
按钮5.可视 ＝ 真
按钮6.可视 ＝ 真
如果真 (标签5.标题 ≠ “成功过关”)
标签5.标题 ＝ “成功过关”
组件居中 ()



判断循环首 (局_开关 ＝ 假)
如果真 (a ＝ 1 且 文本_取出现次数 (碰撞记录, “左”, ) ＞ 0)
a ＝ 取随机数 (1, 4)
到循环尾 ()

如果真 (a ＝ 2 且 文本_取出现次数 (碰撞记录, “上”, ) ＞ 0)
a ＝ 取随机数 (1, 4)
到循环尾 ()

如果真 (a ＝ 3 且 文本_取出现次数 (碰撞记录, “右”, ) ＞ 0)
a ＝ 取随机数 (1, 4)
到循环尾 ()

如果真 (a ＝ 4 且 文本_取出现次数 (碰撞记录, “下”, ) ＞ 0)
a ＝ 取随机数 (1, 4)
到循环尾 ()
跳出循环 ()
判断循环尾 ()

如果真 (a ＝ 1)
判断 (敌人向左移动一格_碰撞检测 (敌人1_标识) ＝ 假)
碰撞记录 ＝ 碰撞记录 ＋ “左”
碰撞记录 ＝ “”


如果真 (a ＝ 2)
判断 (敌人向上移动一格_碰撞检测 (敌人1_标识) ＝ 假)
碰撞记录 ＝ 碰撞记录 ＋ “上”
碰撞记录 ＝ “”


如果真 (a ＝ 3)
判断 (敌人向右移动一格_碰撞检测 (敌人1_标识) ＝ 假)
碰撞记录 ＝ 碰撞记录 ＋ “右”
碰撞记录 ＝ “”


如果真 (a ＝ 4)
判断 (敌人向下移动一格_碰撞检测 (敌人1_标识) ＝ 假)
碰撞记录 ＝ 碰撞记录 ＋ “下”
碰撞记录 ＝ “”


' 调试输出 (动画框1.取物体左边 (敌人1_标识), 动画框1.取物体顶边 (敌人1_标识))
. ' 如果真 (敌人是否已经无路可走 (敌人1_标识) ＝ 真)
' 动画框1.销毁所有物体 ()
' 标签5.可视 ＝ 真
' 按钮5.可视 ＝ 真
' 按钮6.可视 ＝ 真
. ' 如果真 (标签5.标题 ≠ “成功过关”)
' 标签5.标题 ＝ “成功过关”
' 组件居中 ()

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 a, 整数型<br /> .局部变量 局_开关, 逻辑型<br /> <br /> a ＝ 取随机数 (1, 4)<br /> 局_开关 ＝ 假<br /> <br /> .判断开始 (文本_取出现次数 (碰撞记录, “上”, ) ＞ 0 且 文本_取出现次数 (碰撞记录, “左”, ) ＞ 0 且 文本_取出现次数 (碰撞记录, “下”, ) ＞ 0 且 文本_取出现次数 (碰撞记录, “右”, ) ＞ 0)<br />     动画框1.销毁所有物体 ()<br />     标签5.可视 ＝ 真<br />     按钮5.可视 ＝ 真<br />     按钮6.可视 ＝ 真<br />     .如果真 (标签5.标题 ≠ “成功过关”)<br />         标签5.标题 ＝ “成功过关”<br />     .如果真结束<br />     组件居中 ()<br /> <br /> .默认<br /> <br />     .判断循环首 (局_开关 ＝ 假)<br />         .如果真 (a ＝ 1 且 文本_取出现次数 (碰撞记录, “左”, ) ＞ 0)<br />             a ＝ 取随机数 (1, 4)<br />             到循环尾 ()<br />         .如果真结束<br /> <br />         .如果真 (a ＝ 2 且 文本_取出现次数 (碰撞记录, “上”, ) ＞ 0)<br />             a ＝ 取随机数 (1, 4)<br />             到循环尾 ()<br />         .如果真结束<br /> <br />         .如果真 (a ＝ 3 且 文本_取出现次数 (碰撞记录, “右”, ) ＞ 0)<br />             a ＝ 取随机数 (1, 4)<br />             到循环尾 ()<br />         .如果真结束<br /> <br />         .如果真 (a ＝ 4 且 文本_取出现次数 (碰撞记录, “下”, ) ＞ 0)<br />             a ＝ 取随机数 (1, 4)<br />             到循环尾 ()<br />         .如果真结束<br />         跳出循环 ()<br />     .判断循环尾 ()<br /> <br /> .判断结束<br /> <br /> <br /> .如果真 (a ＝ 1)<br />     .判断开始 (敌人向左移动一格_碰撞检测 (敌人1_标识) ＝ 假)<br />         碰撞记录 ＝ 碰撞记录 ＋ “左”<br />     .默认<br />         碰撞记录 ＝ “”<br />     .判断结束<br /> <br /> <br /> .如果真结束<br /> <br /> .如果真 (a ＝ 2)<br />     .判断开始 (敌人向上移动一格_碰撞检测 (敌人1_标识) ＝ 假)<br />         碰撞记录 ＝ 碰撞记录 ＋ “上”<br />     .默认<br />         碰撞记录 ＝ “”<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (a ＝ 3)<br />     .判断开始 (敌人向右移动一格_碰撞检测 (敌人1_标识) ＝ 假)<br />         碰撞记录 ＝ 碰撞记录 ＋ “右”<br />     .默认<br />         碰撞记录 ＝ “”<br />     .判断结束<br /> <br /> <br /> <br /> .如果真结束<br /> <br /> .如果真 (a ＝ 4)<br />     .判断开始 (敌人向下移动一格_碰撞检测 (敌人1_标识) ＝ 假)<br />         碰撞记录 ＝ 碰撞记录 ＋ “下”<br />     .默认<br />         碰撞记录 ＝ “”<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> <br /> ' 调试输出 (动画框1.取物体左边 (敌人1_标识), 动画框1.取物体顶边 (敌人1_标识))<br /> .' 如果真 (敌人是否已经无路可走 (敌人1_标识) ＝ 真)<br />     ' 动画框1.销毁所有物体 ()<br />     ' 标签5.可视 ＝ 真<br />     ' 按钮5.可视 ＝ 真<br />     ' 按钮6.可视 ＝ 真<br />     .' 如果真 (标签5.标题 ≠ “成功过关”)<br />         ' 标签5.标题 ＝ “成功过关”<br />     .如果真结束<br />     ' 组件居中 ()

帮你优化了下代码 使机器人相对没那么呆  虽然还是很呆 哈哈  

易语言千人交流群 476905451

走路有点憨

very nice~

蓝蓝2018

感觉不错。楼主加油。