LeftClick 1
        KeyPress 9,1
    Else 
        Goto 区域
    EndIf 
Return gopos
Sub 过地图
    Rem 过图
    Delay 3000
    VBSCall FindPic(865,250,1024,500,"Attachment:\自动寻路(全).bmp",0.9,x4,y4)
    If x4>0 and y4>0
        Goto 过图
    Else 
        Delay 3000
    EndIf 
Return 过地图
Sub gopic
    KeyPress 192,1
    Rem 找全
    Delay 2000
    VBSCall FindPic(865,250,1024,500,"Attachment:\自动寻路(全).bmp",0.9,x3,y3)
    If x3>0 and y3>0
        Delay 1000
        MoveTo x3+64,y3+44+(hang-1)*16
        Delay 1000
        LeftClick 2
        Delay 1000
        MoveTo x3+64,y3+210
        Delay 500
        LeftClick 1
        Delay 10000
        LeftClick 1
    Else 
        Goto 找全
    EndIf 
Return gopic
Sub 进城
    Rem 过城
    Delay 3000
    VBSCall FindPic(0,150,200,300,"Attachment:\城市2.bmp",1,x1,y1)
    If x1>0 and y1>0
        Delay 1000
        MoveTo x1,y1+5
        Delay 1000
        LeftClick 2
        Delay 3000
    Else 
        Goto 过城
    EndIf 
Return 进城
Sub 找商人
    Rem 找人
    Delay 2000
    VBSCall FindPic(345,145,630,460,"Attachment:\钱为一.bmp",0.9,x5,y5)
    If x5>0 and y5>0
        MoveTo x5,y5+84
        Delay 2000
        VBSCall Shape=GetCursorShape(0)
        If Shape = 302826352
            Delay 2000
            LeftClick 2
        Else 
            Goto 找人
        EndIf 
    Else 
        Goto 找人
    EndIf 
Return 找商人