1. 令 Hwnd = Window.MousePoint()
  2. 令 s = Window.GetWindowRect(Hwnd)
  3. 注释:判断上下左右特征点的相对坐标
  4. 令 px = array(12,12,15,- 15 )
  5. 令 py = array(23,- 23 ,11,11)
  6. 令 k = array("Up","Down","Left","Right")
  7. 注释:获得窗口左上、右下角坐标
  8. 令 pt = split(s,"|",- 1 ,1)
  9. 令 zx = cint(pt(0))
  10. 令 zy = cint(pt(1))
  11. 令 yx = cint(pt(2))
  12. 令 yy = cint(pt(3))
  13. 如果 yy - zy <> 400 或者 yx - zx <> 550 则
  14.     MsgBox("请将鼠标移动到游戏窗口并重新运行脚本!")
  15.     脚本停止运行
  16. 条件结束
  17. 标记 start
  18. 注释:第一个箭头中心坐标
  19. 令 posx = zx + 120
  20. 令 posy = zy + 270
  21. 注释:判断4个箭头
  22. 循环 i 从 1 到 4
  23.     注释:判断每个箭头的4种可能形态
  24.     循环 j 从 0 到 3
  25.         如果点 (posx + px(j),posy + py(j)) 的颜色等于 "3399FF" 则
  26.             (键盘)按 k(j) 键, 1次
  27.             跳转到标记 over
  28.         条件结束
  29.     循环结束
  30.     标记 over
  31.     注释:移至下一个箭头的中心点
  32.     令 posx = posx + 100
  33. 循环结束
  34. 注释:判断按下SPACE的时机
  35. 循环当 true 时
  36.     如果点 (zx + 346,zy + 169) 的颜色不等于 "0C53C0" 则
  37.         (键盘)按 "Space" 键, 1次
  38.         跳转到标记 o2
  39.     条件结束
  40. 循环结束
  41. 标记 o2
  42. 注释:判断是否开始新的一轮
  43. 循环当 true 时
  44.     如果点 (zx + 430,zy + 270) 的颜色等于 "3399FF" 则
  45.         跳转到标记 start
  46.     条件结束
  47. 循环结束