Do Delay 200 XY = Plugin.Bkgnd.FindColor(Hwnd, 482,335, 530,347, "00FFFF") ZB = InStr(XY, "|") X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB)) Delay 200 If X>0 Then Delay fr Call Plugin.Bkgnd.MoveTo(Hwnd, 507,339) Call Plugin.Bkgnd.LeftClick(Hwnd, 507,339) Delay 200 End If //交任务3 Delay 200 XY = Plugin.Bkgnd.FindColor(Hwnd, 630,367, 632,370, "7D6F04") ZB = InStr(XY, "|") X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB)) Delay 200 If X>0 Then Delay 200 Call Plugin.Bkgnd.MoveTo(Hwnd, 631,368) Call Plugin.Bkgnd.LeftClick(Hwnd, 631,368) Delay 200 End If //交任务5 Delay 200 XY = Plugin.Bkgnd.FindColor(Hwnd, 603,306, 605,309, "7D6F04") ZB = InStr(XY, "|") X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB)) Delay 200 If X>0 Then Delay 200 Call Plugin.Bkgnd.MoveTo(Hwnd, 604,307) Call Plugin.Bkgnd.LeftClick(Hwnd, 604,307) Delay 200 Exit Do End If JRW=JRW+1 If JRW=4 Then Goto 交经验任务 End If Loop Delay 200 XY = Plugin.Bkgnd.FindColor(Hwnd, 824,240, 840,245, "FFF000") ZB = InStr(XY, "|") X = Clng(Left(XY, ZB - 1)) Y = Clng(Right(XY, Len(XY) - ZB)) Delay 200 If X>0 Then Exit Sub End If Loop End Sub Sub 大地图() Rem 大地图 Delay 200 XY = Plugin.Bkgnd.FindColor(Hwnd, 631,286, 651,295, "FFFFFF") ZB = InStr(XY, "|") X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB)) Delay 200 If X > 0 Then Delay 200 Call Plugin.Bkgnd.MoveTo(Hwnd, 642,289) Call Plugin.Bkgnd.LeftClick(Hwnd, 642,289) Delay 200 Else Delay 200 Call Plugin.Bkgnd.MoveTo(Hwnd, 970,482) Call Plugin.Bkgnd.LeftClick(Hwnd, 970,482) Delay 200 Goto 大地图 End if End Sub