dim hong,lan,bbhong,bblan,paodong
//声明变量
UserVar hong=70 血量<hong%时，自动吃红。
UserVar lan=30 蓝量<lan%时，自动吃蓝。
UserVar bbhong=70 血量<hong%时，召唤兽自动吃红。
UserVar bblan=30 蓝量<lan%时，召唤兽自动吃蓝。
UserVar p=1 遇敌方式（1跑动其它跟随）
Plugin tl=Window.Foreground()
Plugin Window.Move(tl,0,0)
Rem 开始
VBSCall FindPic(0,0,800,600,"Attachment:\标志.bmp",0.9,x,y)
If x>0 and y>0
    //如果某处的颜色=什么，可以是战斗内和战斗外不同的颜色，x和y是坐标，color1,是颜色
    Gosub 战斗
    //调用战斗的子程序
Else 
    //Gosub 检查验证
    //调用检查验证的子程序
    Gosub 点掉自动
    Delay 100
    //延时防卡
    Gosub 检查红蓝
    //调用检查红蓝子程序
    Delay 100
    //延时防卡
    Gosub 遇怪
    //调用遇怪子程序
EndIf 
Goto 开始
//回到开头继续循环
-------------------战斗子程序-----------------------
Sub 战斗
    VBSCall FindPic(0,0,800,600,"Attachment:\自动.bmp",0.9,x,y)
    VBSCall FindPic(0,0,800,600,"Attachment:\点掉自动.bmp",0.9,zx,zy)
    VBSCall FindPic(0,0,800,600,"Attachment:\点掉自动2.bmp",0.9,zzx,zzy)
    If zx>0 or zzx>0
        Goto 回去
    ElseIf x>0 and y>0
        MoveTo x-3,y-5
        Delay 100
        LeftClick 1
        Delay 100
        MoveTo 9,34
    Else 
        Gosub 等待
        //调用等待子程序，等待战斗指令框出现
        Delay 100
        //延时防卡
    EndIf 
    Rem 回去
Return 战斗
//子程序完结回到调用处
Sub 等待
    Delay 2000
    //写上你等待的时间（单位：毫秒）
Return 等待
//子程序完结回到调用处
-------------------判断验证子程序-----------------------
Sub 检查验证
    //写上你的判断验证语句这里以找色函数为例
    VBSCall FindColor(left,right,top,bottom,color3,x,y)
    VBSCall FindColor(left,right,top,bottom,color4,x2,y2)
    VBSCall FindColor(left,right,top,bottom,color5,x3,y3)
    //多色寻找验证框
    If x>0 and y>0
        If x2>0 and y2>0
            If x3>0 and y3>0
                Delay 10
                strSoundFile = "C:\WINDOWS\Media\ringin.wav"
                Set objShell = CreateObject("Wscript.Shell")
                strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
                objShell.Run strCommand, 0, True
                //上面这些语句的效果就是发出丁零零一声，引用自晨风大大的脚本
            EndIf 
        EndIf 
    EndIf 
Return 检查验证
//子程序完结回到调用处
//-------------------点掉自动---------------
Sub 点掉自动
    VBSCall FindPic(0,0,800,600,"Attachment:\点掉自动.bmp",0.9,x,y)
    If x>0 and y>0
        //如果某处的颜色=什么，是战斗指令框的颜色（就是点防御啊法术什么的），x和y是坐标，color2是颜色
        MoveTo x+3,y+3
        Delay 100
        LeftClick 1
        Delay 100
        MoveTo 9,34
        //可以把上面这段改成自己想要的战斗命令，这里以Alt+A为例，按两次是为了把召唤兽算进
    Else 
        //调用等待子程序，等待战斗指令框出现
        Delay 100
        //延时防卡
    EndIf 
    VBSCall FindPic(0,0,800,600,"Attachment:\点掉自动2.bmp",0.9,x,y)
    If x>0 and y>0
        //如果某处的颜色=什么，是战斗指令框的颜色（就是点防御啊法术什么的），x和y是坐标，color2是颜色
        MoveTo x+3,y+3
        Delay 100
        LeftClick 1