Rem X1
    GetColor = Plugin.Bkgnd.GetPixelColor(hwnd, 195, 44)
    Delay 300
    If GetColor <> "190073" Then
        If intYJn2 > 0 And intXJn2 > 0 Then 
            Call Plugin.Bkgnd.LeftDoubleClick(hwnd, intXJn4, intYJn4)
        Else 
            Call Plugin.Bkgnd.LeftDoubleClick(hwnd, 256,570)
        End If
        delay 3000
        Call 异常判断()
        Goto X1
    End If
End Sub

//整理
Sub 打开宝箱
    //打开宝箱
    XY = Plugin.Bkgnd.FindColor(Hwnd, 255, 175, 472, 425, "0000FF")
    ZB = InStr(XY, "|")
    X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
    Call Plugin.Bkgnd.LeftClick(Hwnd, x, y)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, x, y)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, x+45, y+20)
    Delay 1000
End Sub

Sub 整理
    //开包整理
    Call Plugin.Bkgnd.KeyPress(hwnd, 123)
    Delay 500
    //打开包裹
    Call Plugin.Bkgnd.KeyPress(hwnd, 66)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(hwnd, 417, 480)
    Delay 1000
    //打开宝箱
    Call 打开宝箱()
    //点击分解
    Call Plugin.Bkgnd.LeftClick(hwnd, 461, 479)
    Delay 500
    //第四行第一格 
    Call 分解(271,297)
    //第四行第二个
    Call 分解(306,295)
    //第四行第三个
    Call 分解(344,303)
    //第四行第四个
    Call 分解(378, 299)
    Call 平衡吃包子()
    //第四行第五个
    Call 分解(419,301)
    //第四行第六个
    Call 分解(455,303)
    //第五行第一格
    Call 分解(270,335)
    //第五行第2格
    Call 分解(310,335)
    //第五行第3格
    Call 分解(345,335)
    //第五行第4格
    Call 分解(380,335)
    //第五行第五格
    Call 分解(415,335)
    //第五行第六格
    Call 分解(455, 335)
    //关闭包裹
    Call Plugin.Bkgnd.KeyPress(hwnd, 123)
    //再次捐献
    If sfjx = "1" Then 
        Call 国家捐献()	
    End If
End Sub

Sub 国家捐献
    Delay 2000
    Call Plugin.Bkgnd.KeyPress(hwnd, 71)
    Delay 1500
    Call Plugin.Bkgnd.LeftClick(hwnd,699,459)
    Delay 1500
    Call Plugin.Bkgnd.LeftClick(hwnd, 451,308)
    Delay 1500
    Call Plugin.Bkgnd.LeftClick(hwnd,387,325)
    Delay 1500
    Call Plugin.Bkgnd.LeftClick(hwnd, 500,326)
    delay 1500
    Call Plugin.Bkgnd.KeyPress(hwnd, 71)
    Delay 1500
End Sub

Sub 分解(x,y)
    Call Plugin.Bkgnd.LeftClick(hwnd, x,y)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(hwnd, 389,327)
    Delay 500
    XY = Plugin.Bkgnd.FindColor(hwnd, 445, 166, 545, 432, 726112)
    ZB = InStr(XY, "|")
    X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))