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