Call 师门任务() 
    Call 接受()
    Call 搜索()
    Goto 接任务
End Sub
Sub 种子()
    UX=CInt(MyArray(0))-4+30:UY=CInt(MyArray(1))-30+5:Call 左键单击()
    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,"BDA24A","5|3|867423,12|10|978016,10|17|5A3810,8|22|4A7173,17|14|3C260D,3|17|9C7510,1|17|735C10",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 1000
            Call 清窗()
            Delay 20000
            Call 打怪()
            任务="种子"
            Call 收尾(任务)
        Else
            Delay 500
            Goto 判断2
        End If
    Else
        Delay 1000
        Goto 按键
    End If
End Sub
Sub 选怪()
    Call Plugin.bgkms3_02.KeyDown(KMData, "Ctrl")
    Delay 50
    Call Plugin.bgkms3_02.KeyPress(KMData, "Tab")
    Delay 50
    Call Plugin.bgkms3_02.KeyUp(KMData, "Ctrl")
End Sub
Sub 打怪()
    dim XY(50),i,K
    i=0
    Rem 判断13
    XY(0)=Plugin.Color.FindMutiColor(x+407, y+9,x+521, y+57,"000000","2|2|FFFFFF,3|5|000000,4|5|FFFFFF,5|8|FFFFFF,1|9|000000,12|3|000000,22|11|45472C,24|10|FFFFFF,32|10|000000,31|4|FFFFFF,29|3|FFFFFF,28|9|000000,18|3|000000",1)//花鹿精
    XY(1)=Plugin.Color.FindMutiColor(x+407, y+9,x+521, y+57,"000000","4|1|FFFFFF,3|2|000000,5|3|FFFFFF,6|3|000000,9|3|FFFFFF,13|2|FFFFFF,16|2|000000,19|2|FFFFFF,21|2|000000,21|5|000000,22|9|FFFFFF,20|8|000000,15|8|000000,15|7|FFFFFF",1)//虫妖
    XY(2)=Plugin.Color.FindMutiColor(x+391, y+310,x+591, y+447,"000000","1|1|FFFFFF,2|1|000000,13|1|FFFFFF,23|1|000000,22|1|FFFFFF,29|2|FFFFFF,28|2|000000,30|12|000000,28|11|000000,29|11|FFFFFF,21|6|FFFFFF,19|6|000000,15|6|FFFFFF",1)//银两
    XY(3)=Plugin.Color.FindMutiColor(x+407, y+9,x+521, y+57,"000000","1|2|FFFFFF,5|0|000000,6|2|FFFFFF,3|3|000000,6|7|FFFFFF,12|9|FFFFFF,16|7|000000,18|7|000000,17|4|FFFFFF,19|1|FFFFFF,15|10|FFFFFF,13|10|000000,12|9|FFFFFF",1)//花妖
    Rem 判断9
    MyArray = Split(XY(I), "|")
    If CInt(MyArray(0)) < 0 And CInt(MyArray(1)) < 0 Then
        If K >= 5 Then
            Goto 判断12
        End If
        If I >= 3 Then
            Call 选怪()
            i=0:K=K+1
            Delay 2000
            Goto 判断13
        Else
            i=i+1
        End If
        Delay 200
        Goto 判断9
    Else
    End If
    IF i=0 THEN GUA="花鹿精"
    IF i=1 THEN GUA="虫妖"
    IF i=2 THEN GUA="银两"
    IF i=3 THEN GUA="花妖"
    TracePrint GUA
    If i=2 Then
        UX=CInt(MyArray(0))-4:UY=CInt(MyArray(1))-30
        Call 左键单击()
        Delay 100
    Else
        Rem 判断10
        IfColor X+409,Y+29,"090990",0 Then
            KeyPress 49, 1
            Call Plugin.Window.SendKeyPress(Hwnd, Asc(jnaj))
            Delay 1000
            Goto 判断10
        End If
        Delay 500
    End If
    Rem 判断12
End Sub
Sub 师门巡逻令()
    UX=CInt(MyArray(0))-4-70:UY=CInt(MyArray(1))-30+5:Call 左键单击()
    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, "|")