EndIf 
    Rem 过滤
    VBSCall FindPic(x+11,y+332,x+200,y+578,"Attachment:\配方win.bmp",0.5,x1,y1)
    //查找背包里的配方
    If x1>0 and y1>0
        MoveTo x1+5,y1+5
        Delay 50
        LeftDown 1
        Delay 200
        MoveTo x+48,y+219
        Delay 50
        LeftUp 1
        Delay 100
        Gosub 加血
        Goto 过滤
    Else 
        KeyPress 66,1
        Delay 100
    EndIf 
Return 扔掉配方
//******扔掉配方子程序结束******
//*****下面是死亡回城子程序*****
Sub 死亡回城
    VBSCall FindPic(x+297,y+244,x+500,y+361,"Attachment:\死亡回城.BMP",0.5,x2,y2)
    //如果人物死亡则回城结束脚本
    If x2>0 and y2>0
        MoveTo x2+10,y2+4
        Delay 500
        LeftClick 1
        For 5
            Beep 
            Delay 1000
        EndFor 
        //VBSCall RunApp("shutdown.exe -s")
    EndScript 
EndIf 
Return 死亡回城
//******死亡回城子程序结束******