FindPic 0,0,800,600,"Attachment:\顶级力量灵药.bmp",0.9,intX,intY
        If intX < 0 And intY <0 Then 
            Call 向上(8)
            FindPic 0,0,800,600,"Attachment:\顶级力量灵药.bmp",0.9,intX,intY
            If intX < 0 And intY <0 Then 
                Call 向上(8)
            End If
        End If
    End If
    Call 顶级力量灵药(l6)
    Call 重新打开炼金
End If