If dkX>0 and dkY>0
            //确认是否找到，防止NPC被人挡住产生误动作
            Goto 开始补充
        Else 
            Goto 没找到仓库NPC
        EndIf 
    Else 
        Rem 没找到仓库NPC
        no_npc=no_npc+1
        If no_npc>50
            KeyPress kjjF6,1
            Delay 3000
            savestring="转5圈仍找不到仓库，出错重新回城寻找。。。"
            Gosub 写入日志
            no_npc=0
            no_npc2=no_npc2+1
            If huchengD=3
                Goto 回柳善
            Else 
                Goto 寻找仓库
            EndIf 
        EndIf 
        If no_npc2>=fuN
            savestring="寻找仓库出现异常，停止挂机。。。"
            Gosub 写入日志
            Goto 停止挂机
        EndIf 
        MoveTo fx,fy
        SaveMousePos 
        MoveTo 0,384
        Delay 300
        RestoreMousePos 
        Delay 64
        //换个方向继续寻找
        Goto 寻找仓库
    EndIf 
    Rem 开始补充
    savestring="找到仓库。。。"
    Gosub 写入日志
    dki=0
    Rem 点开仓库
    MoveTo 510,464+dki
    Delay 128
    LeftClick 1
    Delay 512
    dki=dki+1
    If dki>5
        dki=0
    EndIf 
    VBSCall FindPic(450,450,580,480,"Attachment:\打开仓库.bmp",0.9,dkX,dkY)
    //再次检查仓库是否被打开
    If dkX>0 and dkY>0
        Goto 点开仓库
        //没打开，继续点
    EndIf 
    ge=0:pai=0
    Rem 存物品
    savestring="存入物品。。。"
    Gosub 写入日志
    For 5
        ge=0
        For 6
            wu_x=33*ge+812
            wu_y=33*pai+402
            IfColor 600,543,081810,2
                IfColor wu_x wu_y 081410 2
                    //第3排开始检查，如果该格无物品，去取药
                    Goto 取药
                EndIf 
                VBSCall FindPic(wu_x-20,wu_y-20,wu_x+20,wu_y+20,"Attachment:\五色0.bmp",0.9,ws_x,ws_y)
                If ws_x>0 and ws_y>0
                    //如果该格物品为五色,跳过
                    ge=ge+1
                    //横格依次加1
                Else 
                    MoveTo wu_x,wu_y
                    Delay 128
                    LeftClick 1
                    Delay 512
                    MoveTo 600,543
                    Delay 512
                    LeftClick 1
                    Delay 512
                    MoveTo 700,390
                    Delay 512
                    ge=ge+1
                    //下一格
                EndIf 
            Else 
                savestring="个人仓库满，停止挂机。。。"
                Gosub 写入日志
                Goto 停止挂机
            EndIf 
        EndFor 
        pai=pai+1
        //下一排
    EndFor 
    //存完，去取药
    Delay 1000
    Rem 取药