dim hong,lan,hongT,lanT
//F8红，F9蓝，F10宠物红
//在游戏中利用按键抓点抓色工具找到x1,x2,y,color所对应的值并替换。
UserVar hong=70 血量<hong%时，自动吃红。
UserVar lan=30 蓝量<lan%时，自动吃蓝。
UserVar hongT=256 补血延时时间（毫秒）
UserVar lanT=256 补蓝延时时间（毫秒）
t = 954439560
// 定义鼠标移动到怪物身上后变成包裹形鼠标的值，请使用抓点抓色功能得到
s = 1594686126
// 定义鼠标移动到怪物身上后变成刀形鼠标的值，请使用抓点抓色功能得到
Rem 找怪
n = 15
// 定义变量n,用于后面的循环
x = 200
// 定义找怪区域左上角的X坐标
While n >= 0
    // 如果n大于等于0，则执行循环
    y = 100
    // 定义找怪区域左上角的Y坐标
    MoveTo x,y
    // 鼠标移动到坐标x,y
    z =15
    While z >= 0
        y = y +30
        // y坐标增加30
        z = z - 1
        MoveTo x,y
        Delay 10
        VBSCall k=GetCursorShape(0)
        If k = t
            Gosub 捡包
        EndIf 
        VBSCall k=GetCursorShape(0)
        If k = s
            Gosub 杀怪
        EndIf 
    EndWhile 
    x = x + 30
    // x坐标增加30
    n = n - 1
EndWhile 
//Gosub 捡物
Goto 找怪
Sub 捡包
    RightClick 1
    //右键捡包
    Delay 2000
    Gosub 回原点
Return 捡包
Sub 杀怪
    RightClick 1
    //右键选怪
    Gosub 技能
    Rem 怪物
    IfColor 247,33,0011FF,2
        Gosub 吃药
        Goto 怪物
    EndIf 
    n2 = 7
    x2 = 300
    // 定义杀怪完毕实时搜包的X坐标
    While n2 >= 0  //此循环同理于找怪循环
        y2 = 200
        // 定义杀怪完毕实时搜包的Y坐标
        MoveTo x2,y2
        z2 = 7
        While z2 >= 0
            y2 = y2 + 30
            z2 = z2 - 1
            MoveTo x2,y2
            Delay 10
            VBSCall k=GetCursorShape(0)
            If k = t
                RightClick 1
                Delay 500
            EndIf 
        EndWhile 
        x2 = x2 + 30
        n2 = n2 - 1
    EndWhile 
    Gosub 回原点
    Delay 2000
Return 杀怪
Sub 技能
    KeyPress 113,1
    //F2狂砍
Return 技能
Sub 吃药
    Rem 补红
    IfColor hong/100*(187-64)+64,31,222222,2
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
        KeyPress 119 1
        //按下补血快捷键F8
        Delay hongT
        //补血延时
    EndIf 
    Rem 补兰
    IfColor lan/100*(187-64)+64,38,111111,2