Delay 100
        Call 玩具(wanju)
    End If
End If
//神圣祝福
If sszf > 0 Then 
    FindPic 0,0,800,600,"Attachment:\向上.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX, intY + 95
        Delay 100
        LeftClick 1
        Delay 100
        Call 神圣祝福(sszf)
    End If
End If

 FindPic 0,0,800,600,"Attachment:\向下.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX, intY - 5
        Delay 100
        LeftClick 1
        Delay 100
End If

If  s1>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 下级生命灵药(s1)
    Call 重新打开炼金()
End If
If  z1>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 下级智力灵药(z1)
    Call 重新打开炼金()
End If
If l1>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 下级力量灵药(l1)
    Call 重新打开炼金()
End If
If  z2>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 中级智力灵药(z2)
    Call 重新打开炼金()
End If
If  l2>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