EndIf 
            EndIf 
        Else 
            IfColor lann,51 F86008 1
                //没打开就按键
                KeyDown 18,1
                Delay 10
                KeyPress 69,1
                Delay 10
                KeyUp 18,1
            Else 
            EndIf 
        EndIf 
    Else 
        //加血
    EndIf 
Else 
EndIf 
Goto 一开始
EndScript 
Rem ====================以下为子程序========================
Sub 蓝，舍
    VBSCall Call FindPic(0,0,1023,767,"Attachment:\蓝，舍.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo x+10 y+10
        Delay 200
        LeftDoubleClick 1
        Delay 500
    Else 
        MessageBox 请问您有 舍利子 吗?(停止运行)
        EndScript 
    EndIf 
Return 蓝，舍
Sub 蓝，碧水
    VBSCall Call FindPic(0,0,1023,767,"Attachment:\蓝，碧水.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo x+10 y+10
        Delay 200
        LeftDoubleClick 1
        Delay 500
    Else 
        MessageBox 请问您有 碧水清茗 吗?(停止运行)
        EndScript 
    EndIf 
Return 蓝，碧水
Sub 羹
    VBSCall Call FindPic(0,0,1023,767,"Attachment:\蓝，羹.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo x+10 y+10
        Delay 200
        LeftDoubleClick 1
        Delay 500
    Else 
        MessageBox 请问您有 蟹黄豆腐羹 吗?(停止运行)
        EndScript 
    EndIf 
Return 羹
Sub 血，天元
    VBSCall Call FindPic(0,0,1023,767,"Attachment:\血，天元.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo x+10 y+10
        Delay 200
        LeftDoubleClick 1
        Delay 500
    Else 
        MessageBox 请问您有 天元聚集丹 吗?(停止运行)
        EndScript 
    EndIf 
Return 血，天元
Sub 血，鬼哭
    VBSCall Call FindPic(0,0,1023,767,"Attachment:\血，鬼哭.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo x+10 y+10
        Delay 200
        LeftDoubleClick 1
        Delay 500
    Else 
        MessageBox 请问您有 鬼枯滕 吗?(停止运行)
        EndScript 
    EndIf 
Return 血，鬼哭
Sub 血，饭
    VBSCall Call FindPic(0,0,1023,767,"Attachment:\血，饭.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo x+10 y+10
        Delay 200
        LeftDoubleClick 1
        Delay 500
    Else 
        MessageBox 请问您有 扬州炒饭 吗?(停止运行)
        EndScript 
    EndIf 
Return 血，饭