If l4>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 特级力量秘药(l4)
    Call 重新打开炼金
End If
If  z5>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 特级智力灵药(z5)
    Call 重新打开炼金()
End If
If l5>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 特级力量灵药(l5)
    Call 重新打开炼金
End If
If  s5>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 特级生命灵药(s5)
    Call 重新打开炼金()
End If
If  s6>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 顶级生命灵药(s6)
    Call 重新打开炼金()
End If
If  z6>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 顶级智力灵药(z6)
    Call 重新打开炼金()
End If
If l6>0 then
    FindPic 0,0,800,600,"Attachment:\顶级力量灵药.bmp",0.9,intX,intY
    If intX < 0 And intY <0 Then 
        Call 向上(8)