End Sub
Sub 蓝10
  Delay 1000
    Rem 再来2
   ga = Plugin.Bkgnd.GetPixelColor(Hwnd, 532,577)
If ga="1C2022" Then
Call Plugin.Bkgnd.LeftClick(Hwnd, 578, 401)
Else

    Goto 蓝达到要求2
End If
Delay 500
ga1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 646, 330)
If ga1="000068" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 646, 330)
else
Delay 300
Goto 再来2
End if
Rem gh4
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 lusehaole3
Else
End If
   Rem NOOK2
XY = Plugin.Bkgnd.FindColorEx(Hwnd, 357, 90, 617, 351, "653F21", 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 300
Call Plugin.Bkgnd.LeftClick(Hwnd, X+25, Y+30)
Else

End if

Delay 300
Rem lusehaole3

    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 gh4
End If
Delay 800
ca = Plugin.Bkgnd.GetPixelColor(Hwnd, 577,547)
If ca="7E4011"then
Call Plugin.Bkgnd.LeftClick(Hwnd, 578, 401)

Else
Goto NOOK2
End If
l=l+1
lo=l
    Rem 蓝达到要求2
 
End Sub
sub 延迟
Rem ca
Delay 1000
Goto ca
End Sub
Sub 内存血
Delay 1000
ha = Plugin.Memory.Read16Bit(Hwnd, C)
xuede=ha
MessageBox xuede
If xuede >= xueliang then
Delay 500
Call Plugin.Bkgnd.LeftClick(Hwnd, 578, 401)
Delay 500
ga1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 646, 330)
If ga1="000068" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 646, 330)
End if
Delay 300
   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 300
Call Plugin.Bkgnd.LeftClick(Hwnd, X+25, Y+30)
Delay 200
Goto lusehaole
Else
End If
   Rem NOOK8