Delay 128
LeftClick 1
Delay 512
ge=0:pai=0
For 9
ge=0
For 6
wu_x1=33*ge+413
wu_y1=33*pai+274
wu_x2=33*ge+446
wu_y2=33*pai+307
VBSCall FindPic(wu_x1,wu_y1,wu_x2,wu_y2,"Attachment:\强化.bmp",0.6,wu_x,wu_y)
If wu_x>0 and wu_y>0
Delay 512
MoveTo wu_x+8,wu_y+8
Delay 512
LeftClick 1
Delay 800
MoveTo 948,585
Delay 800
LeftClick 1
Delay 128
MoveTo 512,730
Delay 800
VBSCall FindPic(932,569,965,602,"Attachment:\强化.bmp",0.6,x,y)
If x>0 and y>0
Goto 关仓库
//包裹的最后一格有了强化,包满
EndIf
EndIf
ge=ge+1
//下一格
EndFor
pai=pai+1
//下一排
EndFor
VBSCall FindPic(412,256,610,553,"Attachment:\强化.bmp",0.6,wu_x,wu_y)
If wu_x<0 and wu_y<0
Delay 512
MoveTo 560,215
Delay 800
LeftClick 1
Delay 800
Goto 看综合
//个人仓库没强化了,就去综合仓库取强化
EndIf
Rem 看综合
ge=0:pai=0
For 10
ge=0
For 6
wu_x1=33*ge+413
wu_y1=33*pai+241
wu_x2=33*ge+446
wu_y2=33*pai+274
VBSCall FindPic(wu_x1,wu_y1,wu_x2,wu_y2,"Attachment:\强化.bmp",0.6,wu_x,wu_y)
If wu_x>0 and wu_y>0
Delay 512
MoveTo wu_x+8,wu_y+8
Delay 512
LeftClick 1
Delay 800
MoveTo 948,585
Delay 800
LeftClick 1
Delay 64
MoveTo 512,730
Delay 64
EndIf
VBSCall FindPic(932,569,965,602,"Attachment:\强化.bmp",0.6,x,y)
If x>0 and y>0
Goto 关仓库
//包裹的最后一个有了强化,包满
EndIf
ge=ge+1
//下一格
EndFor
pai=pai+1
//下一排
EndFor
//取了强化
Rem 关仓库
MoveTo 618,168
Delay 512
LeftClick 1
//关闭仓库
Delay 1000
VBSCall FindPic(980,180,1020,210,"Attachment:\包关闭.bmp",0.9,x,y)
If x<0 And y<0
Delay 64
KeyPress 9,1
Delay 256
EndIf
Delay 1000
MoveTo 885,455
Delay 512
RightClick 1
Delay 8000
Delay 8000
Delay 10000