End If
    Call 中级力量灵药(l2)
    Call 重新打开炼金()
End If
If  s2>0 then
    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)
            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 中级生命灵药(s2)
    Call 重新打开炼金()
End If
If  z3>0 then
    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)
            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 上级智力灵药(z3)
    Call 重新打开炼金()
End If
If l3>0 then
    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)
            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 上级力量灵药(l3)
    Call 重新打开炼金()
End If
If  s3>0 then
    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)
            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 上级生命灵药(s3)
    Call 重新打开炼金()
End If
If  s4>0 then
    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)
            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 特级生命秘药(s4)
    Call 重新打开炼金()
End If
If  z4>0 then
    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)
            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 特级智力秘药(z4)
    Call 重新打开炼金()
End If