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