Delay 128
    SayString qian
    Delay 128
    SayString "W，请在20秒内放好钱，我20秒时点同意"
    Delay 256
    KeyPress 13,1
    Delay 512
    Delay 20000
    //告诉对方总价钱，给对方20秒钟算钱放钱时间
    VBSCall FindPic(465,160,550,195,"交易.bmp",0.8,jy_x,jy_y)
    If jy_x>0 and jy_y>0
        Plugin qian0=DBSoft.OCR(0,475,342,569,355,0,0,11,1,0,"b5c97b",0,20,0)
        Plugin qian00=DBSoft.WordSelect(qian0,1)
        //取得对方放的钱的数量
        qian1=qian00/10000
        //换算成万
        SayString "你给的钱为 "
        Delay 128
        SayString qian1
        Delay 128
        SayString " W。"
        Delay 256
        KeyPress 13,1
        Delay 512
    EndIf 
    If qian1-qian>=0
        //大于等于格子数*强化设定价格
        VBSCall FindPic(465,160,550,195,"Attachment:\交易.bmp",0.8,jy_x,jy_y)
        If jy_x>0 and jy_y>0
            SayString "钱够数，OK。"
            Delay 256
            KeyPress 13,1
            Delay 512
            MoveTo 592,586
            Delay 512
            LeftClick 1
        EndIf 
        Delay 20000
        //点同意，给20秒对方同意时间
        VBSCall FindPic(465,160,550,195,"Attachment:\交易.bmp",0.8,jy_x,jy_y)
        If jy_x>0 and jy_y>0
            MoveTo 618,168
            Delay 512
            LeftClick 1
            Delay 1000
            //20秒还没接受，就关闭交易
            Goto 开喊
        EndIf 
    Else 
        VBSCall FindPic(465,160,550,195,"Attachment:\交易.bmp",0.8,jy_x,jy_y)
        If jy_x>0 and jy_y>0
            MoveTo 618,168
            Delay 512
            LeftClick 1
            Delay 1000
            //点关闭
        EndIf 
        SayString "不够钱啊。。。别逗了。。"
        Delay 256
        KeyPress 13,1
        Delay 1000
        Goto 开喊
    EndIf 
Return 算钱