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