else
                    Delay 500
                    Goto 等待5
                End If
            End If
            EndScript
        End If
        i=i+1
        Goto 等待1
    End If
    UX=CInt(MyArray(0))-4 :UY=CInt(MyArray(1))-30
    Call 左键单击()
End Sub

Sub 接受()
    dim i
    Rem 等待2
    Delay 1000
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"82D0F9","-6|0|000000,-3|0|000000,-3|3|82D0F9,-4|3|000000,5|6|82D0F9,6|6|000000,23|5|82D0F9,25|6|82D0F9,26|6|000000,27|6|82D0F9,30|8|000000,29|8|82D0F9",1)//完成
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
        UX=CInt(MyArray(0))-4+20:UY=CInt(MyArray(1))-30+7:Call 左键单击()
        Call 搜索()
        Goto 接任务
        Goto 等待4
    End If
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"82D0F9","3|-3|000000,7|1|000000,10|8|82D0F9,24|8|82D0F9,34|7|000000,33|-2|82D0F9,34|-2|000000,32|0|82D0F9",1)//接受
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) < 0 And CInt(MyArray(1)) < 0 Then
        Delay 1000
        If i>=3 Then
            Call 搜索()
            Call 师门任务()
            Call 接受()
        End If
        i=i+1
        Goto 等待2
    End If
    UX=CInt(MyArray(0))-4+30:UY=CInt(MyArray(1))-30+5:Call 左键单击()
    UX=CInt(MyArray(0))-4+17+30:UY=CInt(MyArray(1))-30-410+5:Call 左键单击()//清窗口
    Rem 等待4
End Sub
Sub 搜索()
    Rem 等待3
    UX=936:UY=172
    Call 左键单击()
    Delay 1500
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"000000","25|5|00A12A,25|10|00A12A,26|10|000000,24|10|000000,26|4|000000,24|6|000000,19|6|000000,14|6|00A12A,13|2|00A12A,16|1|00A12A,17|1|000000,3|3|00A12A,4|3|000000,1|3|00A12A,2|4|000000,-2|6|000000",1) //搜索
    dim MyArray
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) < 0 And CInt(MyArray(1)) < 0 Then
        Delay 1000
        Goto 等待3
    End If
    UX=CInt(MyArray(0))-4+50:UY=CInt(MyArray(1))-30+8:Call 左键单击()
    Call Plugin.Bkgnd.KeyPress(Hwnd, 84)//按“T”键一次
    Delay 600
    UX=CInt(MyArray(0))-4-248:UY=CInt(MyArray(1))-30+55:Call 左键单击()
    Delay 100

    UX=UX+328:UY=UY-84:Call 左键单击()
    Delay 100 
    Call 人物是否正在移动()
End Sub
Sub 左键单击()
    Delay 50
    Call Plugin.bgkms3_02.MoveTo(KMData, UX,UY)
    //    MoveTo UX+x,UY+y
    Delay 50
    Call Plugin.bgkms3_02.LeftClick(KMData)
    Delay 50
End Sub
Sub 右键单击()
    Delay 50
    Call Plugin.bgkms3_02.MoveTo (KMData, UX,UY)
    //    MoveTo UX+x,UY+y
    Delay 50
    Call Plugin.bgkms3_02.RightClick(KMData)
    Delay 50
End Sub
Sub 人物是否正在移动()
    Delay 1000
    Dim GetColor(5)
    Dim i
    ui=0
    Rem 判断1
    i=0
    GetColor(0)=GetPixelColor(x+926,y+116)
    GetColor(1)=GetPixelColor(x+927,y+119)
    GetColor(2)=GetPixelColor(x+930,y+119)
    GetColor(3)=GetPixelColor(x+951,y+119)
    GetColor(4)=GetPixelColor(x+955,y+116)
    GetColor(5)=GetPixelColor(x+951,y+108)
    Delay 200
    IfColor x+926,y+116,GetColor(0),0 Then
        Delay 200
        IfColor x+927,y+119,GetColor(1),0 Then
            Delay 200
            IfColor x+930,y+119,GetColor(2),0 Then
                Delay 200