Sub 清理窗口
    Gosub 取消PK
    Gosub 关闭宝宝
    Gosub 关闭窗口
    Gosub 检查数值
Return 
Sub 开始采集
    //Gosub 清理窗口
    KeyPress 123,1
    Gosub 检查数值
    pObj=ObjN(3):t2=Timer
    //毛皮数量过多会出错.
    While ObjN(0)>0 and ObjN(3)<985
        KeyPress asc("7"),1
        Delay 2000
        KeyPress asc(keys(3)),1
        t=Timer
        While ((Timer-t+86400) mod 86400)<30
            Delay 500
        EndWhile 
        Gosub 检查数值
        If ((Timer-t2+86400) mod 86400)>120
            If ObjN(3)=pObj and ObjN(0)>0
                ObjN(0)=-1
            Else 
                pObj=ObjN(3)
            EndIf 
            t2=Timer
            Gosub 取消PK
            Gosub 关闭宝宝
        EndIf 
    EndWhile 
    KeyPress 40,1
Return 
Sub 打开背包
    tx=-1:ty=-1
    While tx<0 and ty<0
        Gosub 取消PK
        VBSCall FindPic(835+cx,235+cy,cx+905,cy+315,"Attachment:\标识_背包.bmp",0.75,tx,ty)
        If tx<0 and ty<0
            KeyPress asc("B"),1
            Delay 2000
        EndIf 
    EndWhile 
Return 
Sub 卖裤子
    SaveMousePos 
    MoveTo cx+673,cy+221
    Delay 1000
    RestoreMousePos 
    tx=1:ty=1
    While tx>0 and ty>0
        Gosub 取消PK
        VBSCall FindPic(745+cx,340+cy,cx+1010,cy+570,"Attachment:\物品_裤.bmp",0.8,tx,ty)
        If tx>0 and ty>0
            MoveTo tx+10,ty+10
            Delay 96
            RightClick 1
            Delay 1000
        EndIf 
    EndWhile 
    MoveTo 346+cx,209+cy
    Delay 96
    LeftClick 1
    Delay 1000
Return 
Sub 检查背包空格
    VBSCall FindPic(745+cx,340+cy,cx+1010,cy+570,"Attachment:\背包_空格.bmp",0.8,tx,ty)
    If tx>0 and ty>0
        isPacFull=0
    Else 
        isPacFull=1
    EndIf 
Return 
Sub 开始制衣
    Gosub 关闭窗口
    Gosub 检查数值
    If ObjN(2)<4
        Gosub 打开购物窗口
        Gosub 卖裤子
        Gosub 关闭窗口
    EndIf 
    While ObjN(2)>3
        KeyPress asc("8"),1
        Delay 2000
        KeyPress asc(keys(5)),1
        Delay 1500
        Gosub 打开背包
        tx=-1:ty=-1
        While tx<0 and ty<0
            Gosub 取消PK
            VBSCall FindPic(20+cx,200+cy,cx+150,cy+360,"Attachment:\制衣_裤1.bmp",0.8,tx,ty)
            If tx<0 and ty<0
                VBSCall FindPic(20+cx,200+cy,cx+150,cy+360,"Attachment:\制衣_裤2.bmp",0.8,tx,ty)
            EndIf 
            Delay 128
        EndWhile 
        MoveTo tx,ty+10
        Delay 128
        LeftClick 1