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