- 令 XS = InputBox("请先进行" + vbCrLf + "请输入当前等级" + vbCrLf + "26级、32级异常中断请自行整理装备" + vbCrLf + "如果当前等级不运行,请当前等级+1级" + vbCrLf + "请输入数字","50级任务提示","1")
- 延时 250 毫秒
- 定义变量 Hwnd
- 令 Hwnd = Window.MousePoint()
- 延时 250 毫秒
- 调用 无限经验()
- 脚本停止运行
- 子程序 无限经验()
- 循环开始
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,276,111,280,115,"2522AD")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 跳转到标记 接经验任务(子程序 无限经验)
- 条件结束
- 调用 大地图()
- 循环开始
- 延时 200 毫秒
- 标记 接经验任务(子程序 无限经验)
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,530,229,533,233,"0000AB")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,511,277)
- 调用 Bkgnd.LeftClick(Hwnd,511,277)
- 跳出循环
- 否则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,316,200)
- 调用 Bkgnd.LeftClick(Hwnd,316,200)
- 延时 200 毫秒
- 条件结束
- 循环结束
- 延时 200 毫秒
- 循环开始
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,525,250,542,260,"32EDEB")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,542,256)
- 调用 Bkgnd.LeftClick(Hwnd,542,256)
- 延时 200 毫秒
- 条件结束
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,345,352,387,362,"8C8A8C")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,443,358)
- 调用 Bkgnd.LeftClick(Hwnd,443,358)
- 延时 1000 毫秒
- 条件结束
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,499,210,521,220,"00FFFF")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,518,214)
- 调用 Bkgnd.LeftClick(Hwnd,518,214)
- 延时 200 毫秒
- 条件结束
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,396,462,400,465,"7D6F04")
- 令 ZB = InStr(XY,"|")
- 令 X = Clng(Left(XY,ZB - 1))
- 令 Y = Clng(Right(XY,Len(XY) - ZB))
- 延时 200 毫秒
- 如果 X > 0 则
- 延时 200 毫秒
- 调用 Bkgnd.MoveTo(Hwnd,408,463)
- 调用 Bkgnd.LeftClick(Hwnd,408,463)
- 延时 200 毫秒
- 令 JY = JY + 1
- 调用 Msg.ShowScrTXT(250,50,400,70,"经验任务" & JY & "次","FF00FF")
- 跳出循环
- 条件结束
- 循环结束
- 延时 200 毫秒
- 令 YC = 0
- 标记 交经验任务(子程序 无限经验)
- 循环开始
- 延时 200 毫秒
- 令 XY = Bkgnd.FindColor(Hwnd,380,226,389,234,"0000AC")