- 令 Hwnd = Window.MousePoint()
- 令 sRect = Window.GetClientRect(Hwnd)
- 令 acc = Split(srect,"|")
- 令 ux = acc(0)
- 令 uy = acc(1)
- MsgBox(ux)
- MsgBox(uy)
- 用户定义变量 b=droplist{"手动起跳":0|"自动起跳":1}=1 "起跳/投掷设置"
- 用户定义变量 ms=droplist{"跳远":0|"标枪":1|"跑步":2|"全套":3}=3 "运动选择"
- 令 ys = array("00fds0","4f4367")
- 令 i = 0
- 用户定义变量 c=10 "次数"
- 如果 ms = 0 则
- 令 a = 0
- 条件结束
- 如果 ms = 1 则
- 令 a = 1
- 条件结束
- 如果 ms = 2 则
- 令 a = 2
- 条件结束
- 如果 ms = 3 则
- 令 a = 0
- 条件结束
- 标记 左右
- 循环当 true 时
- 注释:确定
- 从中心到四周查找颜色 "fcc40b",把找到的坐标保存到 (intX, intY),指定区域(左:ux + 100 上:uy + 365 右:ux + 659 下:uy + 375)
- 如果 intX > 0 并且 intY > 0 则
- (键盘)按 Space 键, 1次
- 延时 100 毫秒
- 跳转到标记 结束
- 条件结束
- 注释:起跳
- 如果 a = 0 则
- 如果点 (ux + 377,uy + 149) 的颜色等于 ys(b) 则
- 延时 850 毫秒
- (键盘)按 Space 键, 1次
- 延时 800 毫秒
- (键盘)按 Space 键, 1次
- 条件结束
- 条件结束
- 注释:投掷
- 如果 a = 1 则
- 如果点 (ux + 377,uy + 149) 的颜色等于 ys(b) 则
- 延时 800 毫秒
- (键盘)按下 Space 键
- 延时 750 毫秒
- (键盘)弹起 Space 键
- 条件结束
- 条件结束
- 注释:左右按键
- 如果点 (ux + 245,uy + 156) 的颜色等于 "4f4367" 则
- (键盘)按 Left 键, 1次
- 延时 40 毫秒
- 条件结束
- 如果点 (ux + 499,uy + 155) 的颜色等于 "4f4367" 则
- (键盘)按 Right 键, 1次
- 延时 40 毫秒
- 条件结束
- 循环结束
- 标记 结束
- 延时 2000 毫秒
- 循环当 true 时
- 如果点 (ux + 364,uy + 355) 的颜色等于 "ffcc00" 则
- (键盘)按 Space 键, 1次
- 延时 200 毫秒
- 跳转到标记 等
- 条件结束
- 循环结束
- 标记 等
- 循环当 true 时
- 如果点 (ux + 596,uy + 151) 的颜色等于 "f4f9fd" 则
- 延时 200 毫秒
- (鼠标)移动到 (ux + 565, uy + 336)
- (鼠标)左键单击, 1次
- 令 i = i + 1
- 如果 i >= c 则
- 如果 ms = 3 则
- 令 a = a + 1
- 令 i = 0
- 否则
- 脚本停止运行
- 条件结束
- 条件结束
- 跳转到标记 跳远
- 条件结束
- 延时 50 毫秒
- 循环结束
- 注释:跳远
- 标记 跳远
- 延时 1000 毫秒
- (鼠标)移动到 (ux + 529 - 142 * a, uy + 251)
- (鼠标)左键单击, 1次
- 延时 400 毫秒
- 注释:289,267 试验473,253
- (鼠标)移动到 (ux + 289, uy + 267)
- (鼠标)左键单击, 1次
- 延时 400 毫秒
- (鼠标)移动到 (ux + 563, uy + 363)