dim dong,xi,bao1,bao2,bao3,bao4,k,i,mai dim color(2),kuang(2) color(0)="Attachment:\水晶.bmp" color(1)="Attachment:\绿宝石.bmp" color(2)="Attachment:\蓝宝石.bmp" kuang(0)="Attachment:\矿.bmp" kuang(1)="Attachment:\矿1.bmp" kuang(2)="Attachment:\矿2.bmp" mai="铂金矿,钛金矿,3000 5000一组,要的MMMM" Delay 200 KeyPress 192,1 Delay 200 Rem 循环 MoveTo 292,226 Gosub 走路 MoveTo 313,252 Gosub 走路 MoveTo 271,287 Gosub 走路 MoveTo 378,213 Gosub 走路 MoveTo 415,215 Gosub 走路 MoveTo 312,325 Gosub 走路 MoveTo 337,334 Gosub 走路 MoveTo 273,330 Gosub 走路 MoveTo 307,362 Gosub 走路 Delay 200 Goto 循环 Sub 走路 Delay 200 LeftClick 1 Delay 100 KeyPress 192,1 Delay 200 KeyPress 115,1 Delay 200 Rem 行走中 VBSCall xi=GetPixelColor(885,221) VBSCall dong=GetPixelColor(885,142) Delay 1000 VBSCall xi1=GetPixelColor(885,221) VBSCall dong1=GetPixelColor(885,142) If xi1=xi and dong1=dong Delay 200 KeyPress 115,1 Delay 500 Gosub 挖矿 Goto 无矿 EndIf Goto 行走中 Rem 无矿 Delay 200 KeyPress 192,1 Delay 200 Return 走路 Sub 挖矿 Rem 继续挖矿 Gosub 防御 Delay 200 Gosub 拒绝请求 Delay 200 k=0 For 3 VBSCall FindPic(361,303,680,448,kuang(k),0.9,x,y) If x>=0 and y>=0 MoveTo x,y+15 Delay 200 LeftClick 1 Delay 200 MoveR 0,200 Delay 200 Gosub 补活力 Delay 20000 Goto 继续挖矿 EndIf k=k+1 EndFor Rem 区域找色挖矿 VBSCall FindColorEx(411,341,445,371,"80C7D7",1,0.9,x,y) If x>=0 and y>=0 MoveTo x,y+15 Delay 200 LeftClick 1 Delay 200 MoveR 0,200 Delay 200 Gosub 补活力 Delay 15000 Goto 继续挖矿 EndIf Delay 300 Return 挖矿 Sub 补活力 Gosub 叫卖 Delay 500