MoveTo intX,intY
        LeftClick 1
        VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\取消1.bmp",1,intX,intY)
    EndWhile 
    VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\取消.bmp",1,intX,intY)
    While intX>0 and intY>0
        Delay 50
        MoveTo intX,intY
        LeftClick 1
        VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\取消.bmp",1,intX,intY)
    EndWhile 
    VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\屏幕对话框.bmp",1,intX,intY)
    While intX>0 and intY>0
        Delay 50
        MoveTo intX+5,intY+5
        LeftClick 1
        VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\屏幕对话框.bmp",1,intX,intY)
    EndWhile 
    VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\屏幕对话框1.bmp",1,intX,intY)
    While intX>0 and intY>0
        Delay 50
        MoveTo intX+5,intY+5
        LeftClick 1
        VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\屏幕对话框1.bmp",1,intX,intY)
    EndWhile 
Return 清空屏幕对话框
//====================清空屏幕对话框结束==============================
//====================关闭小地图==============================
Sub 关闭小地图
    VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\小地图.bmp",1,dtintX,dtintY)
    While dtintX>0 and dtintY>0
        MoveTo dtintX+5,dtintY+5
        LeftClick 1
        VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\小地图.bmp",1,dtintX,dtintY)
        Delay 100
    EndWhile 
Return 关闭小地图
//====================关闭小地图结束==============================
//====================打开小地图==============================
Sub 打开小地图
    VBSCall FindPic(X1,Y,X2,Y2,"Attachment:\小地图.bmp",1,dtintX,dtintY)
    If dtintX<0 and dtintY<0
        MoveTo X3+170,Y3+250
        LeftClick 1
    EndIf 
Return 打开小地图
//====================打开小地图结束==============================
//====================HP/MP/SP/EXP判断==============================
Sub HPandMP
    //--------------预留位，判断有无红蓝药---------------
    VBS dim hong,lan,hongT,lanT
    //在游戏中利用按键抓点抓色工具找到x1,x2,y,color所对应的值并替换。
    hongT=1000
    lanT=1000
    Rem 补HPMPXPEXP开始
    //循环开始标记
    Delay 32
    //循环小延时，防止出现CPU使用率过高，脚本卡
    IfColor int(bhp/100*(X3+872)-(X3+802)+(X3+802)),Y3+185,700AC,1
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
        KeyPress 49,1
        //按下补血快捷键
        Delay hongT
        //补血延时
    EndIf 
    IfColor int(bmp/100*(X3+867)-(X3+802)+(X3+867)),Y3+200,D29721,1
        //x2=蓝条在屏幕最右端坐标，x1=蓝条在屏幕最左端坐标，
        //y=x1,x2在蓝条中的同一纵坐标，color=蓝条的空蓝颜色值。
        KeyPress 50,1
        //按下补蓝快捷键
        Delay lanT
        //补蓝延时
    Else 
        Goto 补红蓝完毕
    EndIf 
    Goto 补HPMPXPEXP开始
    //跳转到循环开始
    Rem 补红蓝完毕
Return HPandMP
//====================结束HP/MP/SP/EXP判断==============================
//====================自动打怪==============================
Sub 自动打怪
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\战斗地图判断.bmp",0.9,zdbintX,zdbintY)
    While zdbintX>0 and zdbintY>0
        VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\是否在自动战斗状态中.bmp",0.9,zdxintX,zdxintY)
        If zdxintX>0 and zdxintY>0
            Delay 100
        Else 
            VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\自动.bmp",0.9,zd1intX,zd1intY)
            If zd1intX>0 and zd1intY>0
                MoveTo zd1intX,zd1intY
                LeftClick 1
                Delay 50
                MoveTo zd1intX-384,zd1intY-66
                LeftClick 1
                Delay 50
                MoveTo X3+601,X3+382
                LeftClick 1
                Delay 50