1. 定义变量 dx, dy, hwnd, hwndex, xyarray, s
  2. 令 hwnd = Window.Find("ToolbarWindow32","运行应用程序")
  3. 令 Hwndex = Window.FindEx(Hwnd,0,"sh2UnrealWWindowsViewportWindow","水浒Q传2 Beta 0.77.4 Build2010110300 电信一区 入云龙一线 板砖丶")
  4. 调用 Window.Move(Hwndex,- 2 ,1)
  5. 令 s = Window.GetClientRect(Hwndex)
  6. 令 XYArray = Split(s,"|",- 1 ,1)
  7. 令 dx = XYArray(0)
  8. 令 dy = XYarray(1)
  9. 标记 跑动遇敌
  10. 如果点 (644,40) 的颜色等于 "0A1109" 则
  11.     调用 自动走路()
  12.     调用 组队()
  13.     调用 检查红()
  14. 否则
  15.     调用 等待战斗()
  16. 条件结束
  17. 跳转到标记 跑动遇敌
  18. 子程序 等待战斗()
  19.     如果点 (586,87) 的颜色等于 "00407B" 则
  20.         (鼠标)移动到 (586 - dx, 87 - dy)
  21.         延时 200 毫秒
  22.         (鼠标)移动到 (700 - dx, 200 - dy)
  23.         延时 100 毫秒
  24.         调用 Bkgnd.MoveTo(Hwndex,747 - dx,250 - dy)
  25.         延时 100 毫秒
  26.         调用 Bkgnd.leftclick(Hwndex,747 - dx,250 - dy)
  27.         调用 关自动()
  28.     否则
  29.     条件结束
  30. 子程序结束
  31. 子程序 自动走路()
  32.     如果点 (536,30) 的颜色等于 "000000" 则
  33.         延时 2000 毫秒
  34.     否则
  35.         调用 Bkgnd.MoveTo(hwndex,659 - dx,162 - dy)
  36.         延时 200 毫秒
  37.         调用 Bkgnd.leftclick(hwndex,659 - dx,162 - dy)
  38.         延时 1000 毫秒
  39.     条件结束
  40. 子程序结束
  41. 子程序 检查红()
  42.     如果点 (137,132) 的颜色不等于 "0000D9" 则
  43.         调用 Bkgnd.moveto(Hwndex,137 - dx,132 - dy)
  44.         延时 100 毫秒
  45.         调用 Bkgnd.rightClick(Hwndex,137 - dx,132 - dy)
  46.     否则
  47.     条件结束
  48. 子程序结束
  49. 子程序 组队()
  50.     如果点 (343,361) 的颜色等于 "0C1704" 则
  51.         调用 Bkgnd.moveto(Hwndex,343 - dx,361 - dy)
  52.         延时 500 毫秒
  53.         调用 Bkgnd.LeftdoubleClick(Hwndex,343 - dx,361 - dy)
  54.     否则
  55.     条件结束
  56. 子程序结束
  57. 子程序 关自动()
  58.     延时 100 毫秒
  59.     调用 Bkgnd.MoveTo(Hwndex,99 - dx,393 - dy)
  60.     延时 100 毫秒
  61.     调用 Bkgnd.LeftClick(Hwndex,99 - dx,393 - dy)
  62.     延时 1000 毫秒
  63. 子程序结束