For 40 FindPic 0,0,1024,768,"Attachment:\占卜.bmp",0.9,x,y If x > 0 And y > 0 Then MoveTo x+437, y+289 Delay 300 LeftClick 1 MoveTo x+520, y+289 Delay 300 LeftClick 1 MoveTo x+612, y+289 Delay 300 LeftClick 1 End If Next Delay 2000 MoveTo x+203, y-23 //移动到魔晶 LeftClick 1 Delay 1500 MoveTo x+385, y+332 //选择吞噬 LeftClick 1 Delay 1500 MoveTo x+30, y+433 //一键选取 LeftClick 20 Delay 500 LeftClick 20 Delay 1000 If Form1.OptionBox1.Value = 1 Then MoveTo x + 17, y + 119 Delay 500 LeftClick 10 Delay 500 End if MoveTo x+445, y+430 //确定吞噬 LeftClick 1 Delay 1500 MoveTo x+659, y+13 //关闭吞噬界面 LeftClick 1 Delay 1500 MoveTo x+127, y-31 //回到占卜界面 LeftClick 1 Delay 1500