//本脚本规定：F6捡物小手，F8轻功15级，F10柳正符，1024*768分辨率
//包裹的位置是：上边紧贴小地图下边，右边紧靠屏幕右边，小退后再进来，这时右边离屏幕的右边有一小段距离，这是正确位置
//其他窗口的位置都是默认位置，切勿移动， 若移动后退出游戏再进来试试
//包裹：第一排，红、蓝、柳正符、新手符（就是你卖东西的地方，一般在新手）
//个人仓库：第一排，，红、蓝、柳正符、新手符
//本脚本不取包裹和个人仓库第一排的物品
//本脚本会在包裹内强化少于6个时，去柳正仓库取，请备足够的符
//使用正常的45度视角，若改动，可能会找不到仓库NPC
//切记在聊天窗口只显示信息栏，因为说话的多，信息很快就滚动走了
//本脚本会在仓库、包裹内所有强化少于10个时，自动关机
//不可以根据对方的要求卖几个强化，但可以按对方包裹容量卖
dim qhjg
qhjg=10
//确定价格，单位万
Delay 1000
KeyDown 17,1
KeyPress 78,1
KeyUp 17,1
Delay 1000
//不显示人名，为了防卡
Rem 开喊
MoveTo 512,730
Delay 256
VBSCall FindPic(980,180,1020,210,"Attachment:\包关闭.bmp",0.9,x,y)
If x<0 And y<0
    Delay 64
    KeyPress 9,1
    Delay 256
EndIf 
//打开包裹
ge=0:pai=0
bqhs=0
For 4
    ge=0
    For 8
        wu_x1=33*ge+734
        wu_y1=33*pai+470
        wu_x2=33*ge+767
        wu_y2=33*pai+503
        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
            bqhs=bqhs+1
        EndIf 
        ge=ge+1
        //下一格
    EndFor 
    pai=pai+1
    //下一排
EndFor 
//查看有多少个强化在包裹中
Delay 1000
If bqhs>=18
    SayString "卖强化，"
    Delay 128
    SayString qhjg
    Delay 128
    SayString "w一个，要的交易我。。"
    Delay 256
    KeyPress 13,1
    Delay 1000
    SayString "卖强化，"
    Delay 128
    SayString qhjg
    Delay 128
    SayString "w一个，要的交易我。。。。"
    Delay 256
    KeyPress 13,1
    Delay 1000
    Delay 5000
EndIf 
If bqhs>=6 and bqhs<18
    SayString "卖强化，"
    Delay 128
    SayString qhjg
    Delay 128
    SayString "w一个，要的交易我，,还有"
    Delay 128
    SayString bqhs
    Delay 128
    SayString " 个。。。"
    Delay 256
    KeyPress 13,1
    Delay 1000
    SayString "卖强化，"
    Delay 128
    SayString qhjg
    Delay 128
    SayString "w一个，要的交易我，,还有"
    Delay 128
    SayString bqhs
    Delay 128
    SayString " 个。。。。。。。。"
    Delay 256
    KeyPress 13,1
    Delay 1000
    Delay 5000
EndIf 
If bqhs<6
    SayString "没多少强化了，再取点去"
    Delay 256