Goto 杀怪中 EndIf Gosub 捡东西 Return //********************************** Sub 捡东西 For 6 KeyDown pick,1 Delay 64 KeyUp pick,2 Delay 8 EndFor Return //***************************** Sub 定位 //防卡信号 i=1 MoveTo 62,384 Delay 128 Rem 继续定位 //拣东西 For 2 KeyDown pick,1 Delay 64 KeyUp pick,2 Delay 8 EndFor VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1) If xx1>0 xx=xx1-cox:yy=yy1-1-coy If abs(xx)>1 or abs(yy)>2 If abs(yy)>1 If yy>0 KeyDown 87,1 ElseIf yy<0 KeyDown 83,1 EndIf EndIf For 2 KeyDown pick,1 Delay 64 KeyUp pick,2 Delay 8 EndFor KeyDown pick,1 Delay 64 KeyUp pick,2 Delay 320 If abs(xx)>1 If xx>0 KeyDown 65,1 ElseIf xx<0 KeyDown 68,1 EndIf EndIf For 3 KeyDown pick,1 Delay 64 KeyUp pick,2 Delay 192 EndFor KeyUp 65,2 KeyUp 68,2 KeyUp 83,2 KeyUp 87,2 //防卡住 xx2=xx1:yy2=yy1 VBSCall FindColor(daditx,dadity,daditx+539,dadity+542,coor,xx1,yy1) If xx2=xx1 and yy2=yy1 If i=1 If yy>0 KeyDown 87,1 ElseIf yy<0 KeyDown 83,1 EndIf If xx>0 KeyPress 68,2 ElseIf xx<0 KeyPress 65,2 EndIf For 2 KeyDown pick,1 Delay 64 KeyUp pick,2 Delay 192 EndFor ElseIf i=2 If xx>0 KeyDown 65,1 ElseIf xx<0 KeyDown 68,1 EndIf If yy>0 KeyPress 83,1 ElseIf yy<0 KeyPress 87,1 EndIf For 2 KeyDown pick,1 Delay 64