UserVar xue = 50 少于%时加血
UserVar lzc = 50 蓝少于%加蓝
UserVar jiaxue=DropList{扬州炒饭:值1|鬼枯滕灵丹:值2|天元聚集丹:值3}=0 加红药品(请选择)
UserVar jialan=DropList{蟹黄豆腐羹:值1|碧水清茗:值2|舍利子:值3}=0 加蓝药品(请选择)
//下面这句是得到当前最前面的窗口句柄
Plugin Hwnd = Window.Foreground()
//下面这句是移动窗口到(0, 0)位置
Plugin Window.Move(Hwnd, 0, 0)
Rem 一开始
//////////////////////以下为血
x1=58
y1=39
x2=118
y2=39
xuet=x2-x1
//xuet=60
i=xue/100*xuet
u=i+58
Rem 回家血
IfColor 58,40,4038f8,0
    //如果=我话就没有打怪
    //否则就是打怪了
    IfColor u,39 4038f8 1
        VBSCall Call FindPic(0,0,1023,767,"Attachment:\zb.bmp",0.8,x,y)
        //看有没打开背包
        If x>=0 and y>=0
            ///+血
            Rem ===============以下为判断血===============
            If jiaxue="值1"
                Gosub 血，饭
                Delay 500
                Goto 一开始
            Else 
                If jiaxue="值2"
                    Gosub 血，鬼哭
                    Delay 500
                    Goto 一开始
                Else 
                    If jiaxue="值3"
                        Gosub 血，天元
                        Delay 500
                        Goto 一开始
                    Else 
                    EndIf 
                EndIf 
            EndIf 
        Else 
            IfColor u,39 4038f8 1
                //没有打开 就
                KeyDown 18,1
                Delay 10
                KeyPress 69,1
                Delay 10
                KeyUp 18,1
                Goto 回家血
            Else 
            EndIf 
        EndIf 
    Else 
    EndIf 
    ///加入加血子程序
Else 
EndIf 
Rem ====================以下为加蓝========================
x11=58
y22=51
x111=118
y222=52
///////////////////////以上为坐标////////////////
lzco=x111-x11
//lzco=血总长
lanc=lzco/100*lzco
//LANC=?
lann=lanc+58
//LANN=蓝处始坐标
IfColor 58,39,4038f8,0
    //如果=我话就没有打怪
    //否则就是打怪了
    IfColor lann,51 F86008 1
        //不用加血
        VBSCall Call FindPic(0,0,1023,767,"Attachment:\zb.bmp",0.8,x,y)
        //看有没打开背包
        If x>=0 and y>=0
            //打开了,加蓝
            If jialan="值1
                Gosub 羹
                Delay 500
                Goto 一开始
            Else 
                If jialan="值2"
                    Gosub 蓝，碧水
                    Delay 500
                    Goto 一开始
                Else 
                    If jialan="值3"
                        Gosub 蓝，舍
                        Delay 500
                        Goto 一开始
                    Else 
                    EndIf