LeftClick 1 Delay 100 MoveTo 180,240 LeftClick 1 Delay 100 MoveTo 150,240 LeftClick 1 Delay 200 FindPic 0, 0, 640, 480, "Attachment:\装备栏1.bmp", 0.9, X2, intY If X2 = - 1 and intY = - 1 Then FindPic 0, 0, 640, 480, "Attachment:\装备栏2.bmp", 0.9, X2, intY End If Wend End Sub Sub 分解背包 //思路:循环完成。找腰带图片,找不到则说明分解完毕。 FindPic 400, 0, 800, 600, "Attachment:\赛利亚腰带.bmp", 0.9, intX, intY While intX > 0 and intY > 0 MoveTo intX + 10, intY + 10 Delay 200 LeftDown 2 MoveTo 330, 300 Delay 200 LeftUp 2 Delay 200 LeftClick 4 //使用自定义界面中的分解间隔*1000,获取分解延迟时间 Delay 分解间隔 * 1000 Call 点击确定() FindPic 0,0,800,600,"Attachment:\确认按钮.bmp",0.9,intX,intY MoveTo intX + 10, intY + 10 LeftClick 2 FindPic 400, 0,800, 600, "Attachment:\赛利亚腰带.bmp", 0.9, intX, intY Wend //一包分解完成。关闭分解机 MoveTo 180, 240 Delay 200 KeyPress "Esc", 2 Delay 200 LeftClick 5 Delay 200 KeyPress "Esc", 1 Delay 200 Call 点击确定() Delay 200 End Sub Sub 修理分解 //最后一步修理 FindPic 0, 0, 800, 600, "Attachment:\地图判断.bmp", 0.9, intX, intY Rem D While intX = - 1 and intY = - 1 MoveTo 784, 16 LeftClick 1 Delay 500 FindPic 0, 0, 800, 600, "Attachment:\地图判断.bmp", 0.9, intX, intY Wend MoveTo 266, 301 RightClick 1 MoveTo 200, 0 FindColor 0, 0, 800, 600, "FDCA09", X2, Y2 While X2 <> 265 and Y2 <> 296 // X3 = X2 //Y3 = Y2 Delay 2000 X3 = X2 Y3 = Y2 If X3 = - 1 and Y3 = - 1 Then Delay 100 KeyPress "Esc", 1 Delay 100 Call 点击确定() Delay 100 Goto D End If Delay 500 FindColor 0, 0, 800, 600, "FDCA09", X2, Y2 If X3 = X2 and Y3 = Y2 Then 停止次数 = 停止次数 + 1 Else 停止次数 = 0 X3 = X2 Y3 = Y2 End If If 停止次数 >= 4 Then Delay 100 KeyPress "Esc", 1 Delay 100 Call 点击确定() Delay 100 Goto D End If MoveTo 266, 301 RightClick 1 MoveTo 200, 0 Wend FindPic 0, 0, 800, 600, "Attachment:\地图判断.bmp", 0.9, intX, intY While intX > - 1 and intY > - 1 MoveTo 785, 15 LeftClick 5 Delay 200