//*************************颜色质量********************************************
Dev = Plugin.Sys.GetScDep()
If Dev <> 32 Then
    MessageBox "您的系统颜色质量不是32位，请调整!否则脚本可能不能正常运行!"
End If
//*************************释放图片******************************************
//查找按键小精灵的句柄
//Hwnd=Plugin.Window.Find(0, "蜀山精灵")
//获取按键精灵路径
//sPath = Plugin.Window.GetExePath(Hwnd)
//路径长度
//sPathLength = Len(sPath)
//返回相对路径
//sPathLeft = Left(sPath,sPathLength-8)
//设置图片文件
//sPathImage = sPathLeft & "Images"
//释放附件中的图片
//PutAttachment sPathImage, "*.bmp"
sPathImage = "e:\蜀山\"
Delay 500
//获取游戏句柄
Hwnd = Plugin.Window.MousePoint()
Delay 500
Plugin.BGCP2.TransformWindow (Hwnd)
djcs=1
//***************************程序开始**********************************
Rem 主程序
st = now
h = hour(now)
m = minute(now)
t = now
t1 = (t - st) * 86400
If t1 > 900 and djcs < 16 Then 
    Call 斗剑()
End If
Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "\发动攻击.bmp", 10, 1, x, y
If x + y > 0 Then
    Call 打怪()
End If 
Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "阵图窗口.bmp", 10, 0.9, x, y
If x + y > 0 Then
    Call 阵图()
End If
Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "决战窗口.bmp", 10, 0.8, x, y
If x + y > 0 Then 

    Call 决战()
End If
Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "副本.bmp", 10, 0.9, x, y
If x + y > 0 Then
    Call 副本()
End If
Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "副本选择.bmp", 10, 0.9, x, y
If x + y > 0 Then 
    Call 闯关()
End If
Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "锁妖塔标志.bmp", 10, 0.9, x, y
If x + y > 0 Then 
    Call 锁妖塔()
End If
Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage &"\阵营图标.bmp", 10, 0.9, x, y
If x + y > 0 Or h = 20 Then
    Call 阵营战()
End If
If h = 20 Or m = 40 Then
    Call 帮派战()
End If
Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "抽奖.bmp", 10, 0.9, x, y
If x + y > 0 Then
    Call 领奖()
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 + 31, y + 14)
End If
Delay  300
Goto 主程序
//*********************************挂机子程序********************************
//*********************************决战之地副本子程序****************************************
Sub 决战()
    Plugin.BGCP2.FindPicture Hwnd, 0, 0, 1440, 900, sPathImage & "决战窗口.bmp", 10, 0.9, x, y
    If x + y > 0 Then     
        Plugin.BGCP2.FindPicture Hwnd, x - 250, y, x + 342, y + 400, sPathImage & "进入战场.bmp", 10, 1, x1, y1
        If x1 + y1 > 0 Then 
            Delay 300
            Call Plugin.Bkgnd.LeftClick(Hwnd, x1 + 33, y1 + 13)
            Delay 2000
        End If
        Rem 决战之地战斗
        Plugin.BGCP2.FindPicture Hwnd, x - 250, y, x + 342, y + 400, sPathImage & "开始战斗.bmp", 10, 1, x1, y1   
        If x1 + y1 > 0 Then 
            Delay 300
            Call Plugin.Bkgnd.LeftClick(Hwnd, x1 + 33, y1 + 13)
        End If 
        Delay 300
        Plugin.BGCP2.FindPicture Hwnd, x - 250, y, x + 342, y + 400, sPathImage & "决战通关.bmp", 10, 1, x1, y1    
        If x1 + y1 > 0 Then 
            Call 关闭()
            Exit Sub