Delay 192 EndFor EndIf Rem 有矿 KeyDown pick,1 Delay 64 KeyUp pick,2 Delay 192 VBSCall FindColorEx(0,140,1024,540,kuangsy,1,0.8,xx,yy) If xx<=0 VBSCall FindColorEx(0,140,1024,540,kuangsj,1,0.8,xx,yy) EndIf If xx>0 MoveTo xx,yy Delay 32 For 2 LeftDown 1 Delay 64 LeftUp 2 Delay 8 EndFor MoveTo 650,384 For 4 KeyDown pick,1 Delay 64 KeyUp pick,2 Delay 192 EndFor VBSCall FindColorEx(300,250,624,540,kuangsy,1,0.8,xx1,yy1) If xx1<=0 VBSCall FindColorEx(300,250,624,540,kuangsj,1,0.8,xx1,yy1) EndIf If xx1>0 xx=xx1:yy=yy1 If abs(xx1-xx)<=10 Gosub 挖矿中 EndIf EndIf Goto 有矿 EndIf Return //********************** Sub 挖矿中 Rem 继续挖矿 i=0 MoveTo xx,yy Delay 32 For 2 LeftDown 1 Delay 64 LeftUp 2 Delay 8 EndFor MoveTo 20,384 For 2 KeyDown pick,1 Delay 64 KeyUp pick,2 Delay 192 EndFor VBSCall FindColorEx(xx-6,yy-6,xx+6,yy+6,kuangsy,1,0.8,xx1,yy1) If xx1<0 VBSCall FindColorEx(xx-6,yy-6,xx+6,yy+6,kuangsj,1,0.8,xx1,yy1) EndIf If xx1>0 Goto 继续挖矿 EndIf //拣东西 Gosub 捡东西 Return //*********************** Sub 开关地图 KeyDown 77,1 Delay 512 KeyUp 77,2 Delay 512 Return