Gosub 黄泥岗
    Delay 100000
    Rem 检查星秀村
    VBSCall FindPic(695,169,752,194,"Attachment:\xingxiucun.bmp",1,x,y)
    If x>0 and y>0
        //MessageBox 到达星秀村了
    Else 
        Gosub 等待
        Goto 检查星秀村
    EndIf 
    KeyPress 9,1
    If md=9 or md=11 or md=32
        MoveTo 705,500
        Delay 100
        LeftClick 1
    ElseIf md=2
        MoveTo 308,251
        Delay 100
        MoveR 1.5555555*zuobiaox,1.555555*zuobiaoy
        Delay 100
        LeftClick 1
    EndIf 
    KeyPress 27,1
Return 
***************************星秀村*******************************
Sub 黄泥岗
    KeyPress 9,1
    Delay 100
    MoveTo 309,529
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress 27,1
    Delay 5000
    Rem 检查黄泥岗
    VBSCall FindPic(695,169,752,194,"Attachment:\huangnigang.bmp",1,x,y)
    If x>0 and y>0
        //MessageBox 到达黄泥岗了
    Else 
        Gosub 等待
        Goto 检查黄泥岗
    EndIf 
    KeyPress 9,1
    If md=2 or md=9 or md=11 or md=31
        MoveTo 705,508
        Delay 100
        LeftClick 1
    ElseIf md=10
        MoveTo 308,270
        Delay 100
        MoveR 1.687*zuobiaox,1.687*zuobiaoy
        Delay 100
        LeftClick 1
    EndIf 
    KeyPress 27,1
Return 
***********************黄泥岗***********************************
Sub 等待
    Delay 1000
Return