|
|

10精币
.版本 2
.支持库 iext
.判断循环首 (开始采挖 = 真)
.如果真 (开始采挖 = 假) ' 停止采矿
跳出循环 ()
.如果真结束
p = p + 1 ' P,片区号,从1开始
_启动窗口.矿点线路超级列表框.选择表项 (p - 1)
临时目标坐标.x = 到小数 (_启动窗口.矿点线路超级列表框.取标题 (p - 1, 1))
临时目标坐标.y = 到小数 (_启动窗口.矿点线路超级列表框.取标题 (p - 1, 2))
临时目标坐标.z = 到小数 (_启动窗口.矿点线路超级列表框.取标题 (p - 1, 3)) + 20 ' 采完一片矿,直接飞到下一片的 20高度的上空,再垂直下落
超级延时 (500)
移动 (临时目标坐标)
.如果真 (开始采挖 = 假) ' 停止采矿
跳出循环 ()
.如果真结束
超级延时 (500)
临时目标坐标.x = 到小数 (_启动窗口.矿点线路超级列表框.取标题 (p - 1, 1))
临时目标坐标.y = 到小数 (_启动窗口.矿点线路超级列表框.取标题 (p - 1, 2))
临时目标坐标.z = 到小数 (_启动窗口.矿点线路超级列表框.取标题 (p - 1, 3))
移动 (临时目标坐标)
.如果真 (开始采挖 = 假) ' 停止采矿
跳出循环 ()
.如果真结束
扫描加入矿点数组 ()
超级延时 (500)
临时目标坐标.x = 矿坐标X
临时目标坐标.y = 矿坐标Y
临时目标坐标.z = 矿坐标Z
.如果真 (算两点距离 (临时目标坐标, 当前人物坐标) > 1)
输出调试文本 (“准备采矿(” + 到文本 (矿坐标X) + “,” + 到文本 (矿坐标Y) + “,” + 到文本 (矿坐标Z) + “)”)
移动 (临时目标坐标)
.如果真结束
超级延时 (1000)
.如果真 (矿铲格子号 ≠ -1)
' 上下飞机CALL ()
超级延时 (2000)
采挖CALL (矿铲格子号, 地面物品系统ID)
超级延时 (10000)
输出调试文本 (到文本 (矿铲格子号) + 到文本 (地面物品系统ID))
' 上下飞机CALL ()
.计次循环首 (100, e)
超级延时 (1000)
.如果真 (人物选中 ≠ 0)
临时目标坐标.x = 当前人物坐标.x
临时目标坐标.y = 当前人物坐标.y
临时目标坐标.z = 当前人物坐标.z + 20 ' 飞高逃跑,到下一点
移动 (临时目标坐标)
跳出循环 ()
.如果真结束
.如果真 (人物动作 ≠ 11) ' 挖完矿去下个点
跳出循环 ()
.如果真结束
.如果真 (开始采挖 = 假) ' 停止采矿
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真结束
.' 如果真 (开始采挖 = 假) ' 停止采矿
' 跳出循环 ()
.如果真结束
.如果真 (p = _启动窗口.矿点线路超级列表框.取表项数 ())
p = 0 ' 采完一轮,再回到第一片采
.如果真结束
.判断循环尾 ()
采矿CALL 走路CALL经过调试发现都没有写错,但是人物停留在矿上就是不自动采集
|
回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。 友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。 快捷通道:申请荣誉值 →
|