Delay 700
                VBSCall prop_f=GetPixelColor(693-move_x,472-move_y)
                If prop_f=color_gx
                    Rem 包裹满了关上包裹
                    Delay 50
                    KeyPress 66,1
                    Delay 2500
                    VBSCall prop_1=GetPixelColor(674-move_x,259-move_y)
                    VBSCall prop_2=GetPixelColor(450-move_x,112-move_y)
                    VBSCall prop_3=GetPixelColor(584-move_x,300-move_y)
                    If prop_1=prop_2 and prop_2=prop_3
                        Delay 500
                        Goto 包裹满了关上包裹
                    Else 
                        If propfull=1
                            wp=wp+1
                            propfull=3
                        ElseIf propfull=2
                            pick="N"
                            propfull=3
                        EndIf 
                    EndIf 
                Else 
                    Rem 包裹没满关上包裹
                    Delay 700
                    KeyPress 66 1
                    Delay 2500
                    VBSCall prop_1=GetPixelColor(674-move_x,259-move_y)
                    VBSCall prop_2=GetPixelColor(450-move_x,112-move_y)
                    VBSCall prop_3=GetPixelColor(584-move_x,300-move_y)
                    If prop_1=prop_2 and prop_2=prop_3
                        Delay 500
                        Goto 包裹没满关上包裹
                    Else 
                        prop_time=timer
                    EndIf 
                EndIf 
            EndIf 
            Delay 300
        EndIf 
    Return 打开包裹判断是否满了
    Sub 自动归位内存版
        VBSCall ReadMemory(&h044F91B4,1,dangqian_x)
        VBSCall ReadMemory(&h044F91B8,1,dangqian_y)
        VBSCall MessageBox(cstr(dangqian_x)&","&cstr(dangqian_y))
        juli_x=(dangqian_x-startguaji_x)
        juli_y=(dangqian_y-startguaji_y)
    Return 自动归位内存版
    Sub 自动归位
        If timer-t_return>return_time*60
            If delay_all_left-delay_all_right>0
                KeyDownH 39,1
                Delay delay_all_left-delay_all_right
                KeyUpH 39,2
            Else 
                KeyDownH 37,1
                Delay delay_all_right-delay_all_left
                KeyUpH 37,2
            EndIf 
            If delay_all_up-delay_all_down>0
                KeyDownH 40,1
                Delay delay_all_up-delay_all_down
                KeyUpH 40,2
            Else 
                KeyDownH 38,1
                Delay delay_all_down-delay_all_up
                KeyUpH 38,2
            EndIf 
            MoveTo 404-move_x,323-move_y
            LeftDoubleClick 1
            delay_all_left=0
            delay_all_right=0
            delay_all_up=0
            delay_all_down=0
            delay_left=0
            delay_right=0
            delay_up=0
            delay_down=0
            t_return_err=timer
            Rem 等待归位完成
            LeftDoubleClick 1
            VBSCall FindCenterColor(705-move_x,93-move_y,753-move_x,110-move_y,color,renwu_x,renwu_y)
            If renwu_x<0
                If timer-t_return_err>return_err_time
                    VBSCall FindCenterColor(684-move_x,63-move_y,777-move_x,141-move_y,color,gwblue_x,gwblue_y)
                    If gwblue_x<0
                        Gosub 出错原登
                    Else 
                        t_return_err=timer
                        Goto 修正时间到
                    EndIf 
                Else 
                    Delay 500
                    Gosub 补HP
                    Gosub 补SP
                    Goto 等待归位完成
                EndIf 
                Rem 修正时间到
            EndIf 
            //回归次数累加