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