IfColor x+951,y+119,GetColor(3),0 Then
                    Delay 300
                    IfColor x+955,y+116,GetColor(4),0 Then
                        Delay 400
                        IfColor x+951,y+108,GetColor(5),0 Then
                            XY=Plugin.Color.FindMutiColor(0,0,1440,900,"A8EDD4","-1|0|A8EDD4,-1|-2|A8EDD4,0|-2|A8EDD4,0|-5|A8EDD4,1|-5|A8EDD4,1|-6|A8EDD4,2|-6|A8EDD4,2|-4|091E0A,2|-5|091E0A,-1|-5|091E0A,-1|-4|091E0A,-4|-6|A8EDD4,-3|-6|A8EDD4,-1|-8|A8EDD4,-1|-7|091E0A",1)//过地图
                            MyArray = Split(XY, "|")
                            If CInt(MyArray(0)) < 0 And CInt(MyArray(1)) < 0 Then
                                Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "过地图", "0000FF")
                                Delay 4000
                                Goto 判断1
                            End If
                            Call Plugin.Msg.Tips("到达目标...   ")
                            Goto 到达目标
                        End If
                    End If
                End If
            End If
        End If

    End If
    Delay 200
    If ui=1 Then
        Call Plugin.Msg.Tips("正在移动...   ")
        ui=0
    else
        Call Plugin.Msg.Tips("正在移动......")
        ui=1
    End If
    Goto 判断1
    Rem 到达目标

End Sub
Sub 清窗()
    dim i:i=0
    Rem 清窗
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"51C9F6","1|1|4CC0EE,2|2|45B4E2,5|2|45B4E2,7|0|4BBBE8,6|1|4CC0EE,0|8|145E8C,7|8|145E8C",1)//清窗
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
        UX = CInt(MyArray(0)) + 1 : UY = CInt(MyArray(1)) -25
        Call 右键单击()
    Else
        If i<=2 Then
            Delay 200
            I=I+1
            Goto 清窗
        End If
    End If
End Sub
Sub 扫地()
    Rem 等待4
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"00FF00","1|-1|00FF00,3|-2|00FF00,6|-2|00FF00,5|7|00FF00,5|6|414431,9|6|00FF00,12|5|414431,14|4|414431,14|2|00FF00,20|5|414431,21|5|00FF00,22|0|00FF00,39|7|00FF00,38|9|00FF00",1)//扫地坐标
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) < 0 And CInt(MyArray(1)) < 0 Then
        Delay 1000
        Goto 等待4
    End If
    UX=CInt(MyArray(0))-4+30:UY=CInt(MyArray(1))-30+5:Call 左键单击()
    Delay 1000
    Call 清窗()
    Call 人物是否正在移动()
    Rem 按键
    Call Plugin.Bkgnd.KeyPress(Hwnd, 88)//按键“X”
    Delay 1000
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"51C9F6","1|1|4CC0EE,2|2|45B4E2,5|2|45B4E2,7|0|4BBBE8,6|1|4CC0EE,0|8|145E8C,7|8|145E8C",1)//窗口关闭按钮
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
        UX=CInt(MyArray(0))-4-76:UY=CInt(MyArray(1))-30+39:Call 左键单击()
        Rem 判断2
        XY=Plugin.Color.FindMutiColor(0,0,1440,900,"31A2D6","3|-2|42BAEF,7|-3|2C6A97,4|4|102C52,0|-2|42BAEF,1|-3|42BAEF,5|-3|2C6A97,13|-13|316184,-6|3|163C5D",1)//扫把
        MyArray = Split(XY, "|")
        If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
            UX=CInt(MyArray(0))-4:UY=CInt(MyArray(1))-30
            Call 右键单击()
            Delay 10000
            Call 清窗()
            任务="种子"
            Call 收尾(任务)
        Else
            Delay 500
            Goto 判断2
        End If
    Else
        Delay 1000
        Goto 按键
    End If
End Sub
Sub 收尾(任务)
    XY=Plugin.Color.FindMutiColor(x+892, y+1,x+986, y+25,"82D0F9","3|4|82D0F9,-1|4|82D0F9,8|3|82D0F9,12|4|82D0F9,12|6|82D0F9,15|10|82D0F9,18|8|82D0F9,19|4|82D0F9,29|8|82D0F9,33|9|82D0F9,18|3|82D0F9,12|6|82D0F9,19|6|82D0F9",1)//逍遥观
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
        Call 搜索()
    else
        Call 万流归宗()
    End If
    If 任务="种子" Then
        Call 搜索()
    Else
        Call 目标太虚道长()
    End If