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