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