XY = Plugin.Bkgnd.FindColor(Hwnd, 974, 34, 987, 49, "6A7CDB")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y>0 then
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
Else
Goto ga1
End If
Rem guX
Delay 500
XY = Plugin.Bkgnd.FindColor(Hwnd, 930,32, 949,50, "010C66")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y>0 then
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
Else
Goto guX
End If
BeginThread jjcguanji
Delay 500
End Sub
Sub jjcguanji
Rem guguan
Delay 500
XY = Plugin.Bkgnd.FindColor(Hwnd, 506,431, 578,456, "A9C7D4")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y>0 then
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
Else
Goto guguan
End If
End Sub 
Sub 红90
  Delay 500
 
    Rem 再来6
   ga = Plugin.Bkgnd.GetPixelColor(Hwnd, 416,541)
If ga="0D1012" Then
Call Plugin.Bkgnd.LeftClick(Hwnd, 578, 401)
Else

    Goto 红达到要求2
End If
Delay 300
ga1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 646, 330)
If ga1="000068" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 646, 330)
else
Delay 300
Goto 再来6
End if
Rem gh
Delay 500
   XY = Plugin.Bkgnd.FindColorEx(Hwnd, 357, 90, 617, 351, "1C9E7D", 0, 0.96)
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y>0 then
Call Plugin.Bkgnd.LeftClick(Hwnd, x, y)
Delay 400
Call Plugin.Bkgnd.LeftClick(Hwnd, X+25, Y+30)
Delay 400
Goto lusehaole
Else
End If
   Rem NOOK6
XY = Plugin.Bkgnd.FindColorEx(Hwnd, 357, 90, 617, 351, "111778", 0, 0.96)
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y>0 then
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)
Delay 500
Call Plugin.Bkgnd.LeftClick(Hwnd, X+25, Y+30)
Else
End if
Rem lusehaole
 
Delay 300
   XY = Plugin.Bkgnd.FindColor(Hwnd, 401, 384, 473, 404, "A9C7D4")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
If X>0 and Y>0 then
Call Plugin.Bkgnd.LeftClick(Hwnd, X, Y)

Else 
Goto gh
End If
Delay 600
ca = Plugin.Bkgnd.GetPixelColor(Hwnd, 437,541)
If ca="000460"then
Delay 300
Call Plugin.Bkgnd.LeftClick(Hwnd, 578, 401)


Else
 Goto NOOK6

End If 

h=h+1