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