End If
Delay 21000
FindPic 0,0,1280,800,"Attachment:\bvb.bmp",0.9,bvbX,bvbY
If bvbX > 0 And bvbY > 0 Then
MoveTo bvbX+20,bvbY+50
Delay 800
LeftDown 1
Delay 80
LeftClick 1
Delay 80
LeftUp 1
Delay 300
End If
Delay 800
FindPic 0,0,1280,800,"Attachment:\dyu.bmp",0.9,dyuX,dyuY
If dyuX > 0 And dyuY > 0 Then
MoveTo dyuX+2,dyuY+2
LeftDown 1
Delay 80
LeftUp 1
Delay 300
MoveTo dyuX+50,dyuY+50
End If
Delay 800
FindPic 0,0,1280,800,"Attachment:\jru.bmp",0.9,jruX,jruY
If jruX > 0 And jruY > 0 Then
MoveTo jruX+2,jruY+2
LeftDown 1
Delay 80
LeftUp 1
Delay 300
End If
//进入钓鱼岛
Delay 1500
Call cw()
Delay 300
FindPic 0,0,1280,800,"Attachment:\包裹.bmp",0.9,bgX,bgY
If bgX > 0 And bgY > 0 Then
MoveTo bgX+5,bgY+5
Delay 80
LeftDown 1
Delay 80
LeftUp 1
Delay 300
End If
//开始钓鱼
Delay 1200
FindPic 0,0,1280,800,"Attachment:\1.bmp",0.9,intX,intY
FindPic 0,0,1280,800,"Attachment:\sd.bmp",0.9,inth,intj
If intX > 0 And intY > 0 Then
Do While intX > 0 And intY > 0
FindPic 0,0,1280,800,"Attachment:\wu.bmp",0.9,wuX,wuY
FindPic 0,0,1280,800,"Attachment:\cv.bmp",0.9,cvn,cvm
MoveTo 300,160
If wuX > 0 And wuY > 0 Then
Delay 800
FindPic 0,0,1280,800,"Attachment:\cv.bmp",0.9,cvn,cvm
If wuX > 0 And wuY > 0 Then
Call fsss()
Delay 400
End If
MoveTo intX,intY
Delay 100
LeftDown 1
Delay 100
MoveTo wuX+6,wuY+6
Delay 50
LeftClick 1
Delay 50
LeftUp 1
Delay 250
MoveTo 300,160
KeyDown "5", 1
Delay 85
KeyPress "5", 1
Delay 85
KeyUp "5", 1
Delay 85
else
If cvn > 0 And cvm > 0 Then
MoveTo cvn+5,cvm+5
Delay 85
LeftDown 1
Delay 80
LeftClick 1
Delay 120
LeftUp 1
MoveTo 300,160
Delay 500
KeyDown "5", 1
Delay 85
KeyPress "5", 1
Delay 85
KeyUp "5", 1
Delay 85
else
Delay 85
KeyDown "5", 1
Delay 85
KeyPress "5", 1