寻路算法求助

jack32830 · 发表于 2018-2-22 23:27:48

.版本 2
.支持库 spec

左容差＝ 1
右容差＝ 1
目的坐标.x ＝ 33342
目的坐标.y ＝ 32327
dm.GetClientSize (子窗口句柄, 人物窗口中心坐标.x, 人物窗口中心坐标.y)
人物窗口中心坐标.x ＝人物窗口中心坐标.x ÷ 2
人物窗口中心坐标.y ＝人物窗口中心坐标.y ÷ 2

.判断循环首 (1 ＝ 1)
当前人物坐标.x ＝ dm.ReadInt (进程ID, x基地址, 0)
当前人物坐标.y ＝ dm.ReadInt (进程ID, y基地址, 0)

调试输出 (“当前坐标”, 当前人物坐标.x, 当前人物坐标.y)

相距坐标.x ＝目的坐标.x －当前人物坐标.x
相距坐标.y ＝目的坐标.y －当前人物坐标.y

调试输出 (“相距坐标”, 相距坐标.x, 相距坐标.y)
调试输出 (“取整数”, 取绝对值 (相距坐标.x), )
调试输出 (“人物坐标”, 人物窗口中心坐标.x, 人物窗口中心坐标.y)
调试输出 (相距坐标.x ÷ 10)

调试输出 (“容差”, 取绝对值 (相距坐标.x), 取绝对值 (相距坐标.y))
调试输出 (取绝对值 (相距坐标.x) ≤ 左容差, 取绝对值 (相距坐标.y) ≤ 左容差)

.判断开始 (取绝对值 (相距坐标.x) ≥ 左容差或取绝对值 (相距坐标.y) ≥ 右容差)
      调试输出 (2)
      .判断开始 (相距坐标.x ≥ 0 且相距坐标.y ≥ 0)  ' 正正向前
         调试输出 (“向前”)
         ' 移动坐标.X =人物窗口中心坐标.x /10
         相距差＝相距坐标.x ÷ 10
         .如果真 (相距坐标.x ÷ 10 ＝ 0)
            相距差＝ 1

         .如果真结束
         .如果真 (相距坐标.x ÷ 10 ＞ 10)
            相距差＝ 10
         .如果真结束
         ' 取移动随机
         移动坐标.x ＝人物窗口中心坐标.x ＋相距差 × 5 ＋ 100 ＋取随机数 (10, 100)
         移动坐标.y ＝人物窗口中心坐标.y ＋ 20

      .判断 (相距坐标.x ＞ 0 且相距坐标.y ＜ 0)  ' 正负向上
         调试输出 (“往目标向上”)
         相距差＝相距坐标.y ÷ 10
         .如果真 (相距坐标.y ÷ 10 ＝ 0)
            相距差＝ 1
         .如果真结束
         .如果真 (相距坐标.y ÷ 10 ＞ 10)
            相距差＝ 10
         .如果真结束
         移动坐标.x ＝人物窗口中心坐标.x ＋ 20 ＋取随机数 (5, 10)
         移动坐标.y ＝人物窗口中心坐标.y － (相距差 × 5 ＋ 100 ＋取随机数 (5, 100))

      .判断 (相距坐标.x ≤ 0 且相距坐标.y ≤ 0)  ' 负负向后
         调试输出 (“往目标向后”)
         相距差＝相距坐标.x ÷ 10
         .如果真 (相距坐标.x ÷ 10 ＝ 0)
            相距差＝ 1

         .如果真结束
         .如果真 (相距坐标.x ÷ 10 ＞ 10)
            相距差＝ 10
         .如果真结束

         移动坐标.x ＝人物窗口中心坐标.x － (相距差 × 5 ＋ 50 ＋取随机数 (10, 100))
         移动坐标.y ＝人物窗口中心坐标.y ＋ 20

         调试输出 (“移动”, 移动坐标.x)

      .判断 (相距坐标.x ＜ 0 且相距坐标.y ＞ 0)  ' 负正向下
         调试输出 (“往目标向下”)
         相距差＝相距坐标.y ÷ 10
         .如果真 (相距坐标.y ÷ 10 ＝ 0)
            相距差＝ 1

         .如果真结束
         .如果真 (相距坐标.y ÷ 10 ＞ 10)
            相距差＝ 10
         .如果真结束

         移动坐标.x ＝人物窗口中心坐标.x ＋ 20 ＋取随机数 (5, 10)

         移动坐标.y ＝人物窗口中心坐标.y ＋相距差 × 5 ＋ 50 ＋取随机数 (5, 100)

      .默认

      .判断结束

      调试输出 (移动坐标.x, 移动坐标.y)
      .如果真 (移动坐标.x ＞ 0)
         dm.MoveTo (移动坐标.x, 移动坐标.y)
         dm.LeftDoubleClick ()
         辅Zhu延时 (2000)
      .如果真结束

.默认
      跳出循环 ()
.判断结束

.判断循环尾 ()

可以达到目的点。线路不是很精确算法做的k 谁能有比较改进的算法么。