LeftClick 1
Delay 1000
Goto 萃取过程
Else


FindPic 780,200,1200,450,"Attachment:\任务栏二.bmp",0.9,intA,intB
If intA> 0 And intB > 0 Then
Goto 萃取过程
Else
MoveTo intA-20,intB+10
Delay 500
LeftClick 1
Delay 1000
Goto 打开包裹
End If
End If
Rem 萃取过程
//按萃取键
Delay 1000
KeyPress "9", 1
delay 1000

//开始萃取
Call 包裹逐个点击()



//二

FindPic 780,200,1200,450,"Attachment:\任务栏二.bmp",0.9,intX,intY
If intX> 0 And intY> 0 Then
MoveTo intX+20,intY+20
Delay 200
LeftClick 1
Delay 1000
MoveTo 30, 110
Delay  1000

Call 包裹逐个点击()
Delay 2000
FindPic 697,562,1007,668,"Attachment:\分解装备拾取.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+10,intY+10
Delay 200
LeftClick 1
End If
Delay 1000
MoveTo 30, 110
Delay 500
RightClick 1
Delay 500

End If

//下面是灵兽吃东西
FindPic 118,452,444,603,"Attachment:\喂养.bmp",0.9,int喂养X,int喂养Y
If int喂养X > 0 And int喂养Y > 0 Then
MoveTo int喂养X+5,int喂养Y+5
Delay 200
LeftClick 1
Delay 1000
Call 包裹逐个点击()
Delay 500
  FindPic 780,200,1200,450,"Attachment:\任务栏一.bmp",0.9,intE,intF
  If intE > 0 And intF > 0 Then
 Delay 200
 MoveTo intE,intF
 Delay 500
 LeftClick 1
 Delay 1000
 Call 包裹逐个点击()
   End if

End if

Delay 500
MoveTo 30,110
Delay 500
RightClick 1
Delay 500
KeyPress "B", 1
Delay 500
KeyDown 16, 1
KeyPress 90, 1
KeyUp 16, 1
Delay 500
End Sub

Sub 包裹逐个点击()



FindPic 848,391,1129,503,"Attachment:\任务3.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
Delay 200
//第四排
Delay 200
MoveTo intX+16.5,intY-18