1. 令 XS = InputBox("请先进行" + vbCrLf + "请输入当前等级" + vbCrLf + "26级、32级异常中断请自行整理装备" + vbCrLf + "如果当前等级不运行，请当前等级+1级" + vbCrLf + "请输入数字","50级任务提示","1")
2. 延时 250 毫秒
3. 定义变量 Hwnd
4. 令 Hwnd = Window.MousePoint()
5. 延时 250 毫秒
6. 调用 无限经验()
7. 脚本停止运行
8. 子程序 无限经验()
9.     循环开始
10.         延时 200 毫秒
11.         令 XY = Bkgnd.FindColor(Hwnd,276,111,280,115,"2522AD")
12.         令 ZB = InStr(XY,"|")
13.         令 X = Clng(Left(XY,ZB - 1))
14.         令 Y = Clng(Right(XY,Len(XY) - ZB))
15.         延时 200 毫秒
16.         如果 X > 0 则
17.             跳转到标记 接经验任务(子程序 无限经验)
18.         条件结束
19.         调用 大地图()
20.         循环开始
21.             延时 200 毫秒
22.             标记 接经验任务(子程序 无限经验)
23.             延时 200 毫秒
24.             令 XY = Bkgnd.FindColor(Hwnd,530,229,533,233,"0000AB")
25.             令 ZB = InStr(XY,"|")
26.             令 X = Clng(Left(XY,ZB - 1))
27.             令 Y = Clng(Right(XY,Len(XY) - ZB))
28.             延时 200 毫秒
29.             如果 X > 0 则
30.                 延时 200 毫秒
31.                 调用 Bkgnd.MoveTo(Hwnd,511,277)
32.                 调用 Bkgnd.LeftClick(Hwnd,511,277)
33.                 跳出循环
34.             否则
35.                 延时 200 毫秒
36.                 调用 Bkgnd.MoveTo(Hwnd,316,200)
37.                 调用 Bkgnd.LeftClick(Hwnd,316,200)
38.                 延时 200 毫秒
39.             条件结束
40.         循环结束
41.         延时 200 毫秒
42.         循环开始
43.             延时 200 毫秒
44.             令 XY = Bkgnd.FindColor(Hwnd,525,250,542,260,"32EDEB")
45.             令 ZB = InStr(XY,"|")
46.             令 X = Clng(Left(XY,ZB - 1))
47.             令 Y = Clng(Right(XY,Len(XY) - ZB))
48.             延时 200 毫秒
49.             如果 X > 0 则
50.                 延时 200 毫秒
51.                 调用 Bkgnd.MoveTo(Hwnd,542,256)
52.                 调用 Bkgnd.LeftClick(Hwnd,542,256)
53.                 延时 200 毫秒
54.             条件结束
55.             延时 200 毫秒
56.             令 XY = Bkgnd.FindColor(Hwnd,345,352,387,362,"8C8A8C")
57.             令 ZB = InStr(XY,"|")
58.             令 X = Clng(Left(XY,ZB - 1))
59.             令 Y = Clng(Right(XY,Len(XY) - ZB))
60.             延时 200 毫秒
61.             如果 X > 0 则
62.                 延时 200 毫秒
63.                 调用 Bkgnd.MoveTo(Hwnd,443,358)
64.                 调用 Bkgnd.LeftClick(Hwnd,443,358)
65.                 延时 1000 毫秒
66.             条件结束
67.             延时 200 毫秒
68.             令 XY = Bkgnd.FindColor(Hwnd,499,210,521,220,"00FFFF")
69.             令 ZB = InStr(XY,"|")
70.             令 X = Clng(Left(XY,ZB - 1))
71.             令 Y = Clng(Right(XY,Len(XY) - ZB))
72.             延时 200 毫秒
73.             如果 X > 0 则
74.                 延时 200 毫秒
75.                 调用 Bkgnd.MoveTo(Hwnd,518,214)
76.                 调用 Bkgnd.LeftClick(Hwnd,518,214)
77.                 延时 200 毫秒
78.             条件结束
79.             延时 200 毫秒
80.             令 XY = Bkgnd.FindColor(Hwnd,396,462,400,465,"7D6F04")
81.             令 ZB = InStr(XY,"|")
82.             令 X = Clng(Left(XY,ZB - 1))
83.             令 Y = Clng(Right(XY,Len(XY) - ZB))
84.             延时 200 毫秒
85.             如果 X > 0 则
86.                 延时 200 毫秒
87.                 调用 Bkgnd.MoveTo(Hwnd,408,463)
88.                 调用 Bkgnd.LeftClick(Hwnd,408,463)
89.                 延时 200 毫秒
90.                 令 JY = JY + 1
91.                 调用 Msg.ShowScrTXT(250,50,400,70,"经验任务" & JY & "次","FF00FF")
92.                 跳出循环
93.             条件结束
94.         循环结束
95.         延时 200 毫秒
96.         令 YC = 0
97.         标记 交经验任务(子程序 无限经验)
98.         循环开始
99.             延时 200 毫秒
100.             令 XY = Bkgnd.FindColor(Hwnd,380,226,389,234,"0000AC")