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 向上(shang) FindPic 0,0,800,600,"Attachment:\向上.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY Delay 500 For shang LeftClick 1 Delay 500 Next MoveTo intX+50,intY End If End Sub Sub 打开炼金滑块最下() KeyPress "F5", 1 FindPic 0,0,800,600,"Attachment:\向下.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY - 6 Delay 100 LeftClick 1 Delay 100 End If End Sub Sub 重新打开炼金 MoveTo 182, 82 Delay 100 LeftClick 1 Delay 100 KeyPress "Esc", 1 Delay 100 KeyPress "F5", 1 Delay 100 End Sub UserVar l1=0 "下级力量灵药" UserVar l2=0 "中级力量灵药" UserVar l3=0 "上级力量灵药" UserVar l4=0 "特级力量秘药" UserVar l5=0 "特级力量灵药" UserVar l6=0 "顶级力量灵药" UserVar z1=0 "下级智力灵药" UserVar z2=0 "中级智力灵药" UserVar z3=0 "上级智力灵药" UserVar z4=0 "特级智力秘药" UserVar z5=0 "特级智力灵药" UserVar z6=0 "顶级智力灵药" UserVar s1=0 "下级生命灵药" UserVar s2=0 "中级生命灵药" UserVar s3=0 "上级生命灵药" UserVar s4=0 "特级生命秘药" UserVar s5=0 "特级生命灵药" UserVar s6=0 "顶级生命灵药" UserVar wanju=0 "神秘世界的玩具" UserVar sszf=0 "神圣祝福" //Call 打开炼金滑块最下() //玩具 If wanju > 0 Then FindPic 0,0,800,600,"Attachment:\向上.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY + 40 Delay 100 LeftClick 1