Goto 开喊
Return 取强化
Sub 卖强化
    SayString "我自动卖的，不能按你要的数给强化"
    Delay 256
    KeyPress 13,1
    Delay 512
    //说一声，免得对方说要几几个强化，没法满足
    ge=0:pai=0
    For 4
        ge=0
        For 8
            wu_x1=-33*ge+965
            wu_y1=-33*pai+569
            wu_x2=-33*ge+998
            wu_y2=-33*pai+602
            //先从最后一个格子开始放，卖掉就表示包裹里有空位了
            VBSCall FindPic(wu_x1,wu_y1,wu_x2,wu_y2,"Attachment:\强化.bmp",0.6,wu_x,wu_y)
            If wu_x>0 and wu_y>0
                Delay 256
                MoveTo wu_x,wu_y
                Delay 512
                LeftClick 1
                Delay 800
                MoveTo 592,562
                Delay 512
                VBSCall FindPic(465,160,550,195,"Attachment:\交易.bmp",0.8,jy_x,jy_y)
                If jy_x>0 and jy_y>0
                    //时刻检测交易窗是否存在，免得别人关了后把强化扔地上
                    LeftClick 1
                    Delay 800
                    MoveTo 512,730
                    Delay 128
                Else 
                    For 2
                        KeyPress 117,1
                    EndFor 
                    //想了很久，如果对方关交易，自己的鼠标点回包裹，
                    //也可能有一个强化粘在鼠标上，影响下一个动作
                    //干脆万一扔地上就再捡回来吧，有什么好办法吗？
                    Delay 800
                    Goto 开喊
                    //如果别人关闭交易窗，就转到叫卖
                EndIf 
                VBSCall FindPic(577,545,610,578,"Attachment:\强化.bmp",0.6,jh_x,jh_y)
                If jh_x>0 and jh_y>0
                    Gosub 算钱
                    Delay 512
                EndIf 
                //检测交易窗最后一个格子，有强化就表示放满了
                Plugin wupin0=DBSoft.OCR(0,12,677,150,697,0,0,11,1,0,"ff797b",0,10,0)
                Plugin sykj0=DBsoft.IncludeWord(wupin0,"空间")
                If sykj0=1
                    //信息栏显示对方已没有空间，就不能再放了
                    Delay 256
                    SayString "你的包裹满了。"
                    Delay 256
                    KeyPress 13,1
                    Delay 512
                    Gosub 算钱
                EndIf 
            EndIf 
            ge=ge+1
            //下一格
        EndFor 
        pai=pai+1
        //下一排
    EndFor 
    //检测包裹中的格子，有强化就放到交易窗
    //如不能检测到对方已满，请自己取色，我自己的两台电脑的颜色就不太一样
    //方法是用自己的信息字的颜色取代 ff797b
Return 卖强化
Sub 算钱
    //由于电脑颜色不同，如不能识别钱数，请自己取对方钱的色颜色
    Delay 256
    MoveTo 512,730
    Delay 128
    ge=0:pai=0
    jys=0
    For 3
        ge=0
        For 6
            jyqh_x1=33*ge+412
            jyqh_y1=33*pai+479
            jyqh_x2=33*ge+445
            jyqh_y2=33*pai+512
            VBSCall FindPic(jyqh_x1,jyqh_y1,jyqh_x2,jyqh_y2,"Attachment:\强化.bmp",0.6,jyqh_x,jyqh_y)
            If jyqh_x>0 and jyqh_y>0
                jys=jys+1
            EndIf 
            ge=ge+1
            //下一格
        EndFor 
        pai=pai+1
        //下一排
    EndFor 
    qian=jys*qhjg
    SayString jys
    Delay 128
    SayString "个，"