MyArray = Split(XY, "|")
    If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
        Call Plugin.File.WriteFileEx("C:\Log.txt", "探访任务-开始时间:"&NOW)
        Call 探访()
    End If
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"FFFFFF","1|8|414431,2|8|FFFFFF,5|7|FFFFFF,5|6|414431,5|6|414431,5|4|414431,6|4|FFFFFF,7|4|414431,11|7|FFFFFF,10|7|414431,14|7|414431,15|6|FFFFFF,17|2|414431,17|1|FFFFFF,17|3|FFFFFF,28|1|00FF00,27|9|00FF00,24|8|414431,22|12|00FF00",1)//种子
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
        Call Plugin.File.WriteFileEx("C:\Log.txt", "种树任务-开始时间:"&NOW)
        Call 种子()
    End If
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"FFC64C","-1|4|414431,-2|4|FFC64C,0|3|FFC64C,6|2|414431,5|3|FFC64C,13|0|414431,12|0|FFC64C,22|10|FFC64C,23|10|414431,34|0|FFC64C,39|1|414431,40|1|FFC64C,51|1|414431,51|0|FFC64C",1)//师门巡逻令
    
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
        Call Plugin.File.WriteFileEx("C:\Log.txt", "师门巡逻令任务-开始时间:"&NOW)
        Call 师门巡逻令()
    End If

    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"FFFFFF","1|0|414431,1|7|414431,2|7|FFFFFF,0|7|FFFFFF,1|9|414431,0|9|FFFFFF,2|9|FFFFFF,13|10|FFFFFF,12|10|414431,12|9|FFFFFF,13|9|414431,15|2|FFFFFF,-6|2|FFFFFF",1)//放河灯
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
        Call Plugin.File.WriteFileEx("C:\Log.txt", "放河灯任务-开始时间:"&NOW)
        Call 放河灯()
    End If
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"00FF00","3|9|00FF00,2|10|414431,12|9|00FF00,34|9|00FF00,35|9|414431,66|10|00FF00,65|10|414431",1)//三十到六十武器
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
        任务="武器"
        Call Plugin.File.WriteFileEx("C:\Log.txt", "武器任务-开始时间:"&NOW)
        Call 器衣饰(任务)
    End If
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"00FF00","9|10|00FF00,5|10|00FF00,2|8|414431,3|8|00FF00,1|8|00FF00,12|6|414431,13|7|414431,12|7|00FF00,13|6|00FF00,22|5|414431,22|6|00FF00,17|4|00FF00,27|2|414431,28|2|00FF00,29|7|00FF00,32|8|00FF00,33|10|00FF00",1)//慕小寰三十到六十戒指
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
        任务="戒指"
        Call Plugin.File.WriteFileEx("C:\Log.txt", "戒指任务-开始时间:"&NOW)
        Call 器衣饰(任务)
    End If    
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"00FF00","-4|2|00FF00,4|2|414431,5|2|00FF00,4|11|414431,-1|4|414431,2|4|414431,12|0|00FF00,12|1|414431,12|2|00FF00,12|3|414431,16|3|00FF00,19|2|00FF00,26|4|414431,27|4|00FF00,29|5|00FF00",1)//宫绿娥
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) > 0 And CInt(MyArray(1)) > 0 Then
        任务="衣服"
        Call Plugin.File.WriteFileEx("C:\Log.txt", "衣服任务-开始时间:"&NOW)
        Call 器衣饰(任务)
    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
        Rem 等待
        Call Plugin.Bkgnd.KeyPress(Hwnd, 27) //按“ESC”键一次
        Delay 1000
        Call Plugin.Bkgnd.KeyPress(Hwnd, Asc(WLGZ)) //按“万流归宗”键一次
        XY=Plugin.Color.FindMutiColor(0,0,1440,900,"00FF00","-1|-2|00FF00,8|-3|00FF00,9|2|00FF00,10|2|000000,17|-1|00FF00,21|4|00FF00,27|4|00FF00,23|-1|00FF00,27|2|758F85,32|-2|00FF00,29|0|00FF00",1)//万流归宗，坐标(84,226)判断是否回城
        MyArray = Split(XY, "|")
        If CInt(MyArray(0)) < 0 And CInt(MyArray(1)) < 0 Then
            Delay 1000
            Goto 等待
        End If
    End If
End Sub
Sub 目标太虚道长()
    Call 搜索()
End Sub

Sub 师门任务()
    Rem 等待1
    
    dim i , 余数
    XY=Plugin.Color.FindMutiColor(0,0,1440,900,"FFFFFF","3|0|414431,4|-2|FFFFFF,14|-2|FFFFFF,15|-2|414431,22|8|FFFFFF,27|8|414431,28|8|FFFFFF,26|8|FFFFFF,46|4|FFFFFF,41|8|FFFFFF,39|8|414431,40|8|414431,38|8|FFFFFF",1)//师门任务
    MyArray = Split(XY, "|")
    If CInt(MyArray(0)) < 0 And CInt(MyArray(1)) < 0 Then
        Delay 1000
        If i>=3 Then
            If 任务完成="报警" Then
                Call Plugin.Media.Play(音乐路径)
                Delay 30000
                EndScript
            End If
            If 任务完成="短信提示" Then
                提示="  提示:脚本已经停止运行!"
                Call 邮件短信(提示)
            End If
            If 任务完成="关机" Then
                t1=now
                提示="  提示:脚本已经暂停运行,3分钟内按""Home""建重新启动脚本,否则,脚本将关闭电脑!"
                Call 邮件短信(提示)
                Rem 等待5
                按键码 = GetLastKey()
                If DateDiff("s",t1,now)>=180 Then
                    Call Plugin.Sys.ExitOS(1)
                    Call Plugin.File.WriteFileEx("C:\Log.txt", "关机时间:"&NOW)
                elseIf 按键码=36 Then
                    RestartScript
                    Call Plugin.File.WriteFileEx("C:\Log.txt", "脚步重新启动--时间:"&NOW)