Box("请先进行"+ vbCrLf +"请输入当前等级"+ vbCrLf +"26级、32级异常中断请自行整理装备"+ vbCrLf +"如果当前等级不运行，请当前等级+1级"+ vbCrLf +"请输入数字","50级任务提示","1")
Delay 250
Dim   Hwnd
Hwnd = Plugin.Window.MousePoint()
Delay 250
Call 无限经验()
EndScript
Sub 无限经验()
        Do 
            Delay 200
        XY = Plugin.Bkgnd.FindColor(Hwnd, 276,111, 280,115, "2522AD")
    ZB = InStr(XY, "|")
    X = Clng(Left(XY, ZB - 1))
     Y = Clng(Right(XY, Len(XY) - ZB))
    Delay 200
            If X > 0 Then
                Goto 接经验任务
                        End if
    Call 大地图()
    Do 
                        Delay 200
                    Rem 接经验任务
Delay 200
XY = Plugin.Bkgnd.FindColor(Hwnd, 530,229, 533,233, "0000AB")
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, 511,277)
 Call Plugin.Bkgnd.LeftClick(Hwnd, 511,277)
                Exit Do
                    Else
                                Delay 200
        Call Plugin.Bkgnd.MoveTo(Hwnd, 316,200)
        Call Plugin.Bkgnd.LeftClick(Hwnd, 316,200)
                    Delay 200
        End if
        Loop
            Delay 200
        Do 
                Delay 200
XY = Plugin.Bkgnd.FindColor(Hwnd, 525,250, 542,260, "32EDEB")
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, 542,256)
    Call Plugin.Bkgnd.LeftClick(Hwnd, 542,256)
                    Delay 200
                End if   
                Delay 200
             XY = Plugin.Bkgnd.FindColor(Hwnd, 345,352, 387,362, "8C8A8C")
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, 443,358)
Call Plugin.Bkgnd.LeftClick(Hwnd, 443,358)
                            Delay 1000
                                End if
                            Delay 200
XY = Plugin.Bkgnd.FindColor(Hwnd, 499,210, 521,220, "00FFFF")
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, 518,214)
            Call Plugin.Bkgnd.LeftClick(Hwnd, 518,214)
                                Delay 200
                        End if  
                Delay 200
XY = Plugin.Bkgnd.FindColor(Hwnd, 396,462 , 400,465, "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, 408,463)
    Call Plugin.Bkgnd.LeftClick(Hwnd, 408,463)
                            Delay 200
        JY=JY+1
         Call Plugin.Msg.ShowScrTXT(250, 50, 400, 70, "经验任务"&JY&"次", "FF00FF")
                            Exit Do
                    End if
            Loop
                    Delay 200
        YC=0
        Rem 交经验任务
Do
Delay 200
XY = Plugin.Bkgnd.FindColor(Hwnd, 380,226, 389,234, "0000AC")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
        Delay 200
If X>0 Then
                                        Delay 200