End If
    End If 
End Sub
//************************帮派战子程序******************************
Sub 帮派战()
    Rem 帮派战斗
    Delay 300
    If hour(now) = 21 And minute(now) = 40 Then 
        Call 关闭()
        Exit Sub
    End If
    Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "帮派战窗口.bmp", 10, 0.8, 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
            Call Plugin.Bkgnd.LeftClick(Hwnd, x + 14, y + 7)
            Delay 300
        End If
        Call 确定()
        Goto 帮派战斗
    Else 
        Rem 帮派战传送
        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 + 13, y + 7)
            Delay 300
            qrjs=1
            Rem 确认
            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 + 13, y + 7)
                Delay 300
                Goto 帮派战斗
            Else 
                Delay 300
                Goto 确认
                qrjs = qrjs + 1
                If qrjs = 50 Then 
                    Goto 帮派战斗
                End If
            End If 
        Else 
            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
        Rem 阵营战斗
        Delay 300
        h1 = hour(now)
        m1 = minute(now)
        If h1 = 20 and m1 = 30 Then 
            Call 关闭()
            Exit Sub
        End If                    
        Delay 300
        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 + 14, y + 7)
        End If
        Call 确定()
        Goto 阵营战斗
    Else 
        Rem 阵营传送
        Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "传送按钮.bmp", 1, x, y
        If x + y > 0 Then
            Delay 300
            Call Plugin.Bkgnd.LeftClick(Hwnd, x + 13, y + 7)
            Goto 阵营战斗
        Else 
            Delay 300
            Goto 阵营传送
        End If
    End If 
End Sub
//************************************锁妖塔子程序************************待完善
Sub 锁妖塔()
    sytjs = 1
    If sytjs < 26 Then 
        Rem 封印
        Delay 300
        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 + 10, y + 10)
            Delay 300
            Rem 上一层
            Call 确定()
            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 + 5, y + 20) 
                sytjs = sytjs + 1
            Else