If x=402 and y=368
    MoveTo 711,114
    Gosub 点鼠标
    i=0
    Rem 点炉子
    MoveTo 420,240
    Gosub 点鼠标
    VBSCall FindPic(230,530,330,560,"Attachment:\合成.bmp",0.8,x,y)
    If x=-1
        Goto 点炉子
    EndIf 
    For 25
        MoveTo 250,132
        Gosub 点鼠标
        Delay 800
        While i<11
            VBSCall FindPic(240,370,290,420,tp(i),0.7x,y)
            If x>0 and y>0
                Goto 合好矿
            EndIf 
            i=i+1
        EndWhile 
        MoveTo 464,336
        Gosub 点鼠标
        MoveTo 279,545
        Gosub 点鼠标
        VBSCall FindPic(100,388,130,500,"Attachment:\系统提示包满.bmp",0.7x,y)
        If x>0 and y>0
            Goto 合好矿
        EndIf 
    EndFor 
    Rem 合好矿
    KeyPress 27,2
Else 
    MoveTo 706,195
    Gosub 点鼠标
    MoveTo 645,198
    Gosub 点鼠标
    MoveTo 464,360
    Gosub 点鼠标
    Goto 到了炉子旁
EndIf 
MoveTo 706,195
Gosub 点鼠标
MoveTo 645,198
Gosub 点鼠标
MoveTo 464,200
Gosub 点鼠标
MoveTo 711,114
Gosub 点鼠标
Rem 跑到仓库旁
VBSCall FindPic(0,0,690,599,"Attachment:\红点.bmp",0.8,x,y)
If x=444 and y=312
    MoveTo 711,114
    Gosub 点鼠标
    Rem 点无忧
    MoveTo 395,280
    Gosub 点鼠标
    VBSCall FindPic(0,0,799,599,"Attachment:\无忧.bmp",0.8,x,y)
    If x=-1
        Goto 点无忧
    EndIf 
    KeyPress 40,1
    Delay 32
    KeyPress 13,1
    Delay 32
Else 
    Goto 跑到仓库旁
EndIf 
VBSCall FindPic(zx,zy-90,zx+800,zy+520,"Attachment:\全部打开.bmp",0.8,x,y)
If x=-1 and y=-1
    Goto 点无忧
EndIf 
MoveTo 680,520
Gosub 点鼠标
MoveTo 680,520
Gosub 点鼠标
LeftClick 1
Delay 32
wpy=296
For 5
    wpx=597
    For 5
        MoveTo wpx,wpy
        Delay 200
        LeftDoubleClick 1
        Delay 32
        wpx=wpx+42
    EndFor 
    wpy=wpy+42
EndFor 
EndScript 
Sub 点鼠标
    Delay 200
    LeftClick 1
    Delay 32
Return 点鼠标
Sub 自动跑NPC
    i=0
    Rem 找红点