zuidading = Plugin.Bkgnd.GetPixelColor(Hwnd, 514,387)
If zuidading = "A9C7D4" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 514,387)
Else
Delay 500
Goto zuidading
End If
End If
Rem chongwu7hao
Delay 500
XY = Plugin.Bkgnd.FindColor(Hwnd, 348,248, 481,292, "141A1C")
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 chongwu7hao
End If

Delay 500
CW1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 902,184)
If CW1 = "A9C7D4" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 902,184)
Else
Goto shengjile
End If
Rem chongwutui
Delay 500
XY = Plugin.Bkgnd.FindColor(Hwnd, 421,381, 494,405, "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 chongwutui
End If
Rem shengjile
End Sub
Sub chongwu8hao
Delay 500
ca = Plugin.Bkgnd.GetPixelColor(Hwnd, 812,212)
If ca = "547950" then
Else 
Rem zuidading
Rem zuida
Delay 500
a = Plugin.Bkgnd.GetPixelColor(Hwnd, 910,212)
If a  = "A9C7D4" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 910,212)
End If
Delay 600
zuida = Plugin.Bkgnd.GetPixelColor(Hwnd, 590,320)
If zuida = "000000" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 590,320)
Else
Delay 500
Goto zuida
End If
Delay 500
zuidading = Plugin.Bkgnd.GetPixelColor(Hwnd, 514,387)
If zuidading = "A9C7D4" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 514,387)
Else
Delay 500
Goto zuidading
End If
End If
Rem chongwu8hao
Delay 500
XY = Plugin.Bkgnd.FindColor(Hwnd, 486,246, 617,289, "141A1C")
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 chongwu8hao
End If
Delay 500
CW1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 902,184)
If CW1 = "A9C7D4" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 902,184)
Else
Goto shengjile
End If
Rem chongwutui
Delay 500
XY = Plugin.Bkgnd.FindColor(Hwnd, 421,381, 494,405, "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 chongwutui
End If
Rem shengjile
End Sub
Sub chongwuga
Rem chongwuse
Delay 1000
chongwuse = Plugin.Bkgnd.GetPixelColor(Hwnd, 499,382)