Dim Hwnd, YS
Hwnd = Plugin.Window.MousePoint()

    YS3 = Plugin.Bkgnd.GetPixelColor(Hwnd, 401, 252)
    Delay 300
UserVar Combo1=DropList{"师门任务":"0"|"捕杀任务":"1"|"洗练石任务":"2"|"惩恶任务":"3"}=0 "Combo1"
If Combo1="0"Then
Goto A
ElseIf Combo1 = "1" Then
Goto B
ElseIf Combo1="2"Then
Goto C
ELseIf Combo1="3" Then
Goto F
Else
Endif
Rem A
Call Plugin.Bkgnd.LeftClick(Hwnd, WE, WA)
If YS3 = "00FFFF" Then
	Goto A1
 Else
        End If
Call Plugin.Bkgnd.LeftClick(Hwnd, WB, WC)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd, WAF,WWF)
Delay 1500
Call Plugin.Bkgnd.LeftClick(Hwnd, WCC,WDD)
Delay 1000
Call Plugin.Bkgnd.LeftClick(Hwnd, WCC,WDD)
Delay 1000
Rem A1
YS4 = Plugin.Bkgnd.GetPixelColor(Hwnd, 401, 252)
                    If YS4 = "00FFFF" Then 
                    	Delay 10
 
        Else
    Goto B
            End If
Sub Q(a)
XY = Plugin.Bkgnd.FindColor(Hwnd, 391, 244, 590, WK, "480A00")
YS = Split(XY, "|")
X = CInt(YS(0))
Y = CInt(YS(1))
    End Sub
Rem A2
YS4 = Plugin.Bkgnd.GetPixelColor(Hwnd, 401, 252)
                    If YS4 = "00FFFF" Then 
                    	Delay 10
 
        Else
    Goto B
            End If
Call Plugin.Bkgnd.LeftClick(Hwnd, WE, WA)
    YS1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 486, 266)
    Delay 300
If YS1= "FFFFFF"Then
    Call Q(a)
    Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
        Delay 1500
   Goto A4
        Else
Goto A3
        Delay 1500
    End If
Rem A3
YS4 = Plugin.Bkgnd.GetPixelColor(Hwnd, 401, 252)
                    If YS4 = "00FFFF" Then 
                    	Delay 10
 
        Else
    Goto B
            End If
Call Q(a)
 Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
    Delay 1000
    For 5
 Call Plugin.Bkgnd.LeftClick(Hwnd, WBJ, WBW)
    Delay 3000
    Next
Goto A2
    Delay 2000
    Rem A4
    YS2 = Plugin.Bkgnd.GetPixelColor(Hwnd, 215, 426)
                    If YS2 = "29341A" Then
    Call Plugin.Bkgnd.LeftClick(Hwnd, WCC,WDD)
        Delay 500
        Call Plugin.Bkgnd.LeftClick(Hwnd, WCC,WDD)
            Delay 300
    Call Plugin.Bkgnd.LeftClick(Hwnd, WE, WA)
    Delay 2000
            Goto A2
    Else
        Delay 2000
    Call Q(a)
        Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
        Delay 2000
    goto A2
        End If 
Call Plugin.Bkgnd.LeftClick(Hwnd, WE, WA)
Delay 1000