Sub 下级力量灵药(n)
    For n
        FindPic 0,0,800,600,"Attachment:\下级力量灵药.bmp",0.9,intX,intY
        If intX>0 And intY>0 Then 
            MoveTo intX,intY
            Delay 100
            LeftClick 1
            Delay 100
            FindPic 0,0,800,600,"Attachment:\制作.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then 
                MoveTo intX,intY
                Delay 100
                LeftClick 1
                Delay 100
                LeftClick 1
                Delay 5000
            End If
        End If
    Next
End Sub
Sub 中级力量灵药(n)
    For n
        FindPic 0,0,800,600,"Attachment:\中级力量灵药.bmp",0.9,intX,intY
        If intX>0 And intY>0 Then 
            MoveTo intX,intY
            Delay 100
            LeftClick 1
            Delay 100
            FindPic 0,0,800,600,"Attachment:\制作.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then 
                MoveTo intX,intY
                Delay 100
                LeftClick 1
                Delay 100
                LeftClick 1
                Delay 5000
            End If
        End If
    Next
End Sub 
Sub 上级力量灵药(n)
    For n
        FindPic 0,0,800,600,"Attachment:\上级力量灵药.bmp",0.9,intX,intY
        If intX>0 And intY>0 Then 
            MoveTo intX,intY
            Delay 100
            LeftClick 1
            Delay 100
            FindPic 0,0,800,600,"Attachment:\制作.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then 
                MoveTo intX,intY
                Delay 100
                LeftClick 1
                Delay 100
                LeftClick 1
                Delay 5000
            End If
        End If
    Next
End Sub
Sub 特级力量秘药(n)
    For n
        FindPic 0,0,800,600,"Attachment:\特级力量秘药.bmp",0.9,intX,intY
        If intX>0 And intY>0 Then 
            MoveTo intX,intY
            Delay 100
            LeftClick 1
            Delay 100
            FindPic 0,0,800,600,"Attachment:\制作.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then 
                MoveTo intX,intY
                Delay 100
                LeftClick 1
                Delay 100
                LeftClick 1
                Delay 5000
            End If
        End If
    Next
End Sub
Sub 特级力量灵药(n)
    For n
        FindPic 0,0,800,600,"Attachment:\特级力量灵药.bmp",0.9,intX,intY
        If intX>0 And intY>0 Then 
            MoveTo intX,intY
            Delay 100
            LeftClick 1
            Delay 100
            FindPic 0,0,800,600,"Attachment:\制作.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then 
                MoveTo intX,intY
                Delay 100
                LeftClick 1
                Delay 100
                LeftClick 1
                Delay 5000
            End If
        End If
    Next
End Sub