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