If bjsound=1
                strSoundFile = "C:\WINDOWS\Media\Windows XP 启动.wav"
                Set objShell = CreateObject("Wscript.Shell")
                strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
                objShell.Run strCommand, 0, True
            EndIf 
            If bjsound=2
                For 4
                    Beep 
                    Beep 
                    Beep 
                EndFor 
            EndIf 
            bg=now
            SayString bg&">包包满了@.@！|||"
            Goto bb结束
        Else 
            Goto bb结束
        EndIf 
    Else 
        KeyDown 18,1
        Delay 200
        KeyPress 73,1
        Delay 200
        KeyUp 18,1
        Delay 1000
        Goto ckbb
    EndIf 
    Rem bb结束
    KeyDown 18,1
    Delay 200
    KeyPress 73,1
    Delay 200
    KeyUp 18,1
Return 检测背包
Sub 换锄头
    ctnum=ctnum+1
    If ctnum>byongct
        If bjsound=1
            strSoundFile = "C:\WINDOWS\Media\Windows XP 启动.wav"
            Set objShell = CreateObject("Wscript.Shell")
            strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
            objShell.Run strCommand, 0, True
        EndIf 
        If bjsound=2
            For 4
                Beep 
                Beep 
                Beep 
            EndFor 
        EndIf 
        bg=now
        SayString bg&">没有备用锄头了@.@！|||"
        Goto 换锄头结束
    EndIf 
    Rem 检测背包是否打开
    MoveTo zx zy
    VBSCall FindPic(zx-748,zy-559,zx+53,zy-42,"Attachment:\物品.bmp",0.7,bx,by)
    If bx>=0 and by>=0
        MoveTo bx+17+70,by+42
        Delay 500
        LeftClick 1
        Delay 200
        MoveTo (bx-65)+ctnum*35,by+67
        Delay 500
        LeftDoubleClick 1
        Goto 换锄头结束
    Else 
        KeyDown 18,1
        Delay 200
        KeyPress 73,1
        Delay 200
        KeyUp 18,1
        Delay 1000
        Goto 检测背包是否打开
    EndIf 
    Rem 换锄头结束
    KeyDown 18,1
    Delay 200
    KeyPress 73,1
    Delay 200
    KeyUp 18,1
Return 换锄头
Sub 回挂机点
    Delay 200
    KeyDown 18,1
    Delay 200
    KeyPress 77,1
    Delay 200
    KeyUp 18,1
    Delay 600
    MoveTo gwzx,gwzy
    Delay 400
    RightClick 1
    MoveTo zx-400 zy
    Rem 检测人物是否已到达挂机点
    VBSCall FindCenterColor(zx-748,zy-559,zx+53,zy-42,"2222ff",px,py)
    If px>=0 and py>=0
        If abs(px-gwzx)<=10 and abs(py-gwzy)<=10
            Goto 回挂机点结束