savestring="回城次数达到设定值，停止挂机。。。"
        Gosub 写入日志
        Goto 停止挂机
    EndIf 
    If huichengD=1
        savestring="回玄勃补给。。。"
        Gosub 写入日志
        dim color(3)
        color(0)="2134d6"
        color(1)="3030d6"
        color(2)="1824bd"
        color(3)="2130de"
        Goto 准备寻找
    EndIf 
    If huichengD=2
        savestring="回柳正补给。。。"
        Gosub 写入日志
        dim color(3)
        color(0)="5a4910"
        color(1)="b57918"
        color(2)="deae39"
        color(3)="9c4910"
        Goto 准备寻找
    EndIf 
    If huichengD=3
        savestring="回柳善补给。。。"
        Gosub 写入日志
        Rem 回柳善
        Delay 128
        KeyPress 9 1
        Delay 512
        VBSCall FindPic(970,165,1015,205,"Attachment:\包裹关闭.bmp",0.9,baox,baoy)
        If baox<0 and baoy<0
            Delay 128
            Goto 回柳善
        EndIf 
        MoveTo 977,369
        Delay 128
        RightClick 1
        Delay 256
        MoveTo 516,463
        Delay 128
        LeftClick 1
        Delay 5000
        KeyPress 9,1
        Delay 128
        Goto 准备寻找
    EndIf 
    //白天黑夜各取两种颜色，确保找到仓库NPC
    Rem 准备寻找
    For 5
        MoveTo fx,fy
        Delay 200
        LeftClick 1
        Delay 1000
    EndFor 
    Gosub 垂直视角
    Gosub 倾斜视角
    Rem 寻找仓库
    For 2
        KeyPress kjjF8,1
        Delay 64
    EndFor 
    npc_color=0
    If huichengD=3
        Delay 64
        VBSCall FindPic(200,0,800,600,"Attachment:\LS_NPC.bmp",0.6,npcX,npcY)
        //寻找仓库NPC
        Delay 256
        If npcX>0 and npcY>0
            //如果找到仓库NPC
            npc=1
            Goto 打开仓库
        EndIf 
        npc=0
    ElseIf huichengD=1 or huichengD=2
        For 4
            Delay 64
            VBSCall FindCenterColor(150,0,900,700,color(npc_color),npcX,npcY)
            //寻找仓库NPC
            Delay 256
            If npcX>0 and npcY>0
                //如果找到仓库NPC
                npc=1
                Goto 打开仓库
            EndIf 
            npc=0
            npc_color=npc_color+1
        EndFor 
    EndIf 
    Rem 打开仓库
    If npc=1
        //如果找到仓库NPC
        MoveTo npcX,npcY
        Delay 128
        Rem 打开
        LeftClick 1
        Delay 6000
        VBSCall FindPic(450,450,580,480,"Attachment:\打开仓库.bmp",0.9,dkX,dkY)
        Delay 64