1. 令 Hwnd = Window.MousePoint()
  2. 令 sRect = Window.GetClientRect(Hwnd)
  3. 令 acc = Split(srect,"|")
  4. 令 ux = acc(0)
  5. 令 uy = acc(1)
  6. MsgBox(ux)
  7. MsgBox(uy)
  8. 用户定义变量 b=droplist{"手动起跳":0|"自动起跳":1}=1 "起跳/投掷设置"
  9. 用户定义变量 ms=droplist{"跳远":0|"标枪":1|"跑步":2|"全套":3}=3 "运动选择"
  10. 令 ys = array("00fds0","4f4367")
  11. 令 i = 0
  12. 用户定义变量 c=10 "次数"
  13. 如果 ms = 0 则
  14.     令 a = 0
  15. 条件结束
  16. 如果 ms = 1 则
  17.     令 a = 1
  18. 条件结束
  19. 如果 ms = 2 则
  20.     令 a = 2
  21. 条件结束
  22. 如果 ms = 3 则
  23.     令 a = 0
  24. 条件结束
  25. 标记 左右
  26. 循环当 true 时
  27.     注释:确定
  28.     从中心到四周查找颜色 "fcc40b",把找到的坐标保存到 (intX, intY),指定区域(左:ux + 100 上:uy + 365 右:ux + 659 下:uy + 375)
  29.     如果 intX > 0 并且 intY > 0 则
  30.         (键盘)按 Space 键, 1次
  31.         延时 100 毫秒
  32.         跳转到标记 结束
  33.     条件结束
  34.     注释:起跳
  35.     如果 a = 0 则
  36.         如果点 (ux + 377,uy + 149) 的颜色等于 ys(b) 则
  37.             延时 850 毫秒
  38.             (键盘)按 Space 键, 1次
  39.             延时 800 毫秒
  40.             (键盘)按 Space 键, 1次
  41.         条件结束
  42.     条件结束
  43.     注释:投掷
  44.     如果 a = 1 则
  45.         如果点 (ux + 377,uy + 149) 的颜色等于 ys(b) 则
  46.             延时 800 毫秒
  47.             (键盘)按下 Space 键
  48.             延时 750 毫秒
  49.             (键盘)弹起 Space 键
  50.         条件结束
  51.     条件结束
  52.     注释:左右按键
  53.     如果点 (ux + 245,uy + 156) 的颜色等于 "4f4367" 则
  54.         (键盘)按 Left 键, 1次
  55.         延时 40 毫秒
  56.     条件结束
  57.     如果点 (ux + 499,uy + 155) 的颜色等于 "4f4367" 则
  58.         (键盘)按 Right 键, 1次
  59.         延时 40 毫秒
  60.     条件结束
  61. 循环结束
  62. 标记 结束
  63. 延时 2000 毫秒
  64. 循环当 true 时
  65.     如果点 (ux + 364,uy + 355) 的颜色等于 "ffcc00" 则
  66.         (键盘)按 Space 键, 1次
  67.         延时 200 毫秒
  68.         跳转到标记 等
  69.     条件结束
  70. 循环结束
  71. 标记 等
  72. 循环当 true 时
  73.     如果点 (ux + 596,uy + 151) 的颜色等于 "f4f9fd" 则
  74.         延时 200 毫秒
  75.         (鼠标)移动到 (ux + 565, uy + 336)
  76.         (鼠标)左键单击, 1次
  77.         令 i = i + 1
  78.         如果 i >= c 则
  79.             如果 ms = 3 则
  80.                 令 a = a + 1
  81.                 令 i = 0
  82.             否则
  83.                 脚本停止运行
  84.             条件结束
  85.         条件结束
  86.         跳转到标记 跳远
  87.     条件结束
  88.     延时 50 毫秒
  89. 循环结束
  90. 注释:跳远
  91. 标记 跳远
  92. 延时 1000 毫秒
  93. (鼠标)移动到 (ux + 529 - 142 * a, uy + 251)
  94. (鼠标)左键单击, 1次
  95. 延时 400 毫秒
  96. 注释:289,267 试验473,253
  97. (鼠标)移动到 (ux + 289, uy + 267)
  98. (鼠标)左键单击, 1次
  99. 延时 400 毫秒
  100. (鼠标)移动到 (ux + 563, uy + 363)