Goto 上一层
            End If
        Else 
            Goto 封印
        End If
    Else 	
        Exit Sub
    End If
End Sub
Sub 阵图()
    Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "阵图次数.bmp", 10, 1, x, y
    If x + y > 0 Then 
        Delay 200
        Call 关闭()
        Exit Sub
    End If
    Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "阵图窗口.bmp", 10, 0.9, x, y
    If x + y > 0 Then 
        Delay 300
        Call Plugin.Bkgnd.LeftClick(Hwnd, x + 38, y + 330)
    End If
End Sub
Sub 闯关()
    Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "单人挑战.bmp", 10, 0.8, x, y
    If x + y > 0 Then 
        Delay 300
        Call Plugin.Bkgnd.LeftClick(Hwnd, x + 38, y + 330)
    End If
End Sub
Sub 副本()
    Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "副本.bmp", 10, 0.9, x, y
    If x + y > 0 Then
        Delay 300
        Call Plugin.Bkgnd.LeftClick(Hwnd, x + 15, y + 45)
    End If
End Sub
//*************************************斗剑子程序********************************************
Sub 斗剑()
    Rem 斗剑
    Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "斗剑场窗口.bmp", 10, 1, x, y
    If x + y > 0 Then
        Delay 300
        Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "可以斗剑.bmp", 10, 1, x, y
        If x + y > 0 Then
            Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "斗剑次数.bmp", 10, 1, x, y
            If x + y > 0 Then
                Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "挑战.bmp", 10, 1, x, y
                If x + y > 0 Then
                    Delay 300
                    Call Plugin.Bkgnd.LeftClick(Hwnd, x + 13, y + 29)
                End If
            Else 
                Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "斗剑人物选择.bmp", 10, 0.8, x, y
                If x + y > 0 Then
                    Delay 300
                    Call Plugin.Bkgnd.LeftClick(Hwnd, x + 35, y + 59)
                    Rem 斗剑结束
                    Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "确定.bmp", 10, 0.9, x, y
                    If x + y > 0 Then
                        Delay 300
                        Call Plugin.Bkgnd.LeftClick(Hwnd, x + 31, y + 14)
                        Delay 1000
                        Call 关闭()
                    Else 
                        Delay 1000
                        Goto 斗剑结束
                    End If
                    djcs=djcs+1
                End If
            End If
        End If
    Else 
        Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "斗剑图标.bmp", 10, 1, x, y
        If x + y > 0 Then
            Call Plugin.Bkgnd.LeftClick(Hwnd, x + 24, y + 27)
            Delay 300
            Goto 斗剑
        End If
    End If
End Sub
Sub 领奖()
    Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "抽奖.bmp", 10, 0.9, x, y
    If x + y > 0 Then
        Delay 300
        Call Plugin.Bkgnd.LeftClick(Hwnd, x + 27, y + 9)
    End If
    Rem 领奖
    Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "领取奖励.bmp", 10, 0.9, x, y
    If x + y > 0 Then
        Delay 300
        Call Plugin.Bkgnd.LeftClick(Hwnd, x + 27, y + 9)
    Else 
        Delay 300
        Goto 领奖
    End If
End Sub
Sub 打怪()
    Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "发动攻击.bmp", 10, 0.9, x, y
    If x + y > 0 Then
        Delay 300