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