cunyao=0
    //先把剩余药品存入仓库，防止因超重而取不了药
    savestring="存入剩余药品。。。"
    Gosub 写入日志
    For 3
        MoveTo 812+33*cunyao,369
        Delay 128
        LeftClick 1
        Delay 512
        MoveTo 600,543
        Delay 512
        LeftClick 1
        Delay 512
        SayString 1000
        Delay 128
        KeyPress 13,1
        Delay 512
        cunyao=cunyao+1
    EndFor 
    quyao=0
    //仓库第1排第1格红，第2格蓝，第3格符，先买了放好
    savestring="取出药品。。。"
    Gosub 写入日志
    For 3
        yao_x=429+33*quyao
        yao_y=241
        MoveTo yao_x,yao_y
        Delay 128
        LeftClick 1
        Delay 512
        MoveTo 812,369
        Delay 512
        LeftClick 1
        Delay 512
        If quyao=0
            //取红
            SayString hongN
            backsay=hongN
            Delay 256
            KeyPress 13,1
            Delay 512
            quyao=quyao+1
        ElseIf quyao=1
            //取蓝
            SayString lanN
            backsay=lanN
            Delay 256
            KeyPress 13,1
            Delay 512
            quyao=quyao+1
        Else 
            //取符
            SayString fuN
            backsay=fuN
            Delay 256
            KeyPress 13,1
            Delay 512
        EndIf 
    EndFor 
    Rem 补充结束
    savestring="补充结束。。。"
    Gosub 写入日志
    MoveTo 510,584
    Delay 256
    LeftClick 1
    //关闭仓库
    Delay 512
    If tufu=0
        //无土符
        KeyPress 9,1
        Delay 128
        savestring="无土符，停止挂机。。。"
        Gosub 写入日志
        Goto 停止挂机
    ElseIf tufu=1
        savestring="有土符,使用土符返回练级地点。。。"
        Gosub 写入日志
        MoveTo 977,369
        Delay 128
        RightClick 1
        Delay 256
        MoveTo 513,407
        Delay 128
        LeftClick 1
        Delay 3000
        For 8
            KeyPress kjjF3,1
            Delay 800
        EndFor 
        KeyPress 9,1
        Delay 128
        Goto 开始挂机
    Else 
        //使用土符移动到保存的第baocunD个练级点
        savestring="有土符,使用土符返回练级地点。。。"
        Gosub 写入日志
        MoveTo 977,369
        Delay 128
        RightClick 1
        Delay 256