dim hong,lan,bbhong,bblan,paodong
//声明变量
UserVar hong=70 血量<hong%时，自动吃红。
UserVar lan=30 蓝量<lan%时，自动吃蓝
UserVar Rz=DropList{攻击:65|防御:68|法术:81}=0 人物动作
UserVar bbhong=70 血量<hong%时，召唤兽自动吃红。
UserVar bblan=30 蓝量<lan%时，召唤兽自动吃蓝。
UserVar Bz=DropList{攻击:65|防御:68|法术:81}=0 召唤兽动作
UserVar paodong=DropList{跑动:1|跟随:2}=0 遇敌方式
UserVar Zd=DropList{接受:1|拒绝:2}=0 组队邀请的处理方法
//-------------[调用插件]
PutAttachment .\plugin *.dll
PutAttachment . *.bmp
Plugin mh=Window.Foreground()
Plugin Window.Move(mh,0,0)
//-------------[主程序]
Rem 开始挂机
IfColor 365,490,9cc0,2
    Gosub 检查组队邀请
    Delay 100
    Gosub 检查红蓝
    Delay 100
    Gosub 走路
Else 
    Gosub 战斗
    Delay 100
EndIf 
Goto 开始挂机
//------------[子程序]
Sub 查找宝宝
    VBSCall FindPic(0,0,650,502,"Attachment:\宝宝.bmp",0.5,bx,by)
    If bx>0 and by>0
        MoveTo bx by
        For 10
            Beep 
            Delay 10
        EndFor 
    EndIf 
Return 
//----------------------[战斗]
Sub 战斗
    VBSCall FindPic(527,81,630,358,"Attachment:\法术.bmp",1,x,y)
    If x>0 and y>0
        KeyDown 18,1
        Delay 100
        KeyPress Rz,1
        Delay 100
        KeyUp 18,1
        Delay 500
        KeyDown 18,1
        Delay 100
        KeyPress Bz,1
        Delay 100
        KeyUp 18,1
        //可以把上面这段改成自己想要的战斗命令，这里以Alt+A为例，按两次是为了把召唤兽算进
    Else 
        Gosub 等待
        //调用等待子程序，等待战斗指令框出现
        Delay 100
        //延时防卡
    EndIf 
Return 战斗
//子程序完结回到调用处
Sub 等待
    Delay 500
    //写上你等待的时间（单位：毫秒）
Return 等待
//子程序完结回到调用处
//--------------------[检查验证]
Sub 检查验证
    VBSCall FindPic(0,0,650,502,"Attachment:\验证.bmp",0.8,yx,yy)
    If yx>0 and yy>0
        For 10
            Beep 
        EndFor 
    EndIf 
Return 
//--------------------[检查组队邀请]
Sub 检查组队邀请
    VBSCall FindPic(0,0,650,502,"Attachment:\接受组队.bmp",0.9,x10,y10)
    If x10>0 and y10>0 and Zd=1
        Plugin vhr_xyq.mMoveTo(x10,y10+3,"shu.bmp",0.9)
        Delay 100
        LeftClick 1
    ElseIf x10>0 and y10>0 and Zd=2
        x=x10:y=y10+15
        Plugin vhr_xyq.mMoveTo(x10,y10+15,"shu.bmp",0.9)
        Delay 100
        LeftClick 1
    EndIf 
Return 
//--------------------[检查红蓝]
Sub 检查红蓝
    Rem 补红
    SaveMousePos 
    IfColor hong/100*(635-591)+591,37,4034e8,2
    Else 
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
        Plugin vhr_xyq.mMoveTo(592,40,"shu.bmp",0.9)