xx=-1
        EndIf 
        IfColor jiaox,jiaoy,ffffff,2
            xx=-1
        EndIf 
        VBSCall color=GetPixelColor(jiaox,jiaoy)
        str="jiaox="&jiaox&",jiaoy="&jiaoy&" color="&color
        Gosub 记运行日志10
        Gosub 重新进入
    EndWhile 
    // 农夫攻击
    MoveTo xingx,xingy
    Delay chbtime
    LeftClick 1
    VBSCall GetCursorPos(currx,curry)
    Delay 2*chbtime
    If gongjw=33
        gongjx=currx+32
        gongjy=curry-16
    ElseIf gongjw=43
        gongjx=currx+32
        gongjy=curry+16
    ElseIf gongjw=53
        gongjx=currx-32
        gongjy=curry+16
    ElseIf gongjw=44
        gongjx=currx-32
        gongjy=curry-16
    EndIf 
    MoveTo gongjx,gongjy
    Delay chbtime
    LeftClick 1
    Delay chbtime
    If curry > 535
        MoveTo currx-90,curry-90
        Delay chbtime
        LeftClick 1
        Delay chbtime
    Else 
        MoveTo currx-90,curry+120
        Delay chbtime
        LeftClick 1
        Delay chbtime
    EndIf 
Return 行军攻击
Sub 答题了罗
    currtime=date
    currtime= currtime&" " &time
    str=cstr(num)&"答题=["&currtime&"]开始!!"
    Gosub 记运行日志10
    xx=1
    While xx > 0
        IfColor x1,y1,5ad3ef,0
            MoveTo 621,338
            LeftClick 1
            Delay dltime
            xx =-1
        EndIf 
        IfColor x1,y1+32,5ad3ef,0
            MoveTo 756,339
            LeftClick 1
            Delay dltime
            xx =-1
        EndIf 
        IfColor x1,y1+64,5ad3ef,0
            MoveTo 886,340
            Delay dltime
            LeftClick 1
            xx =-1
        EndIf 
        Delay dltime
        IfColor 724,368,295108,0
            Gosub 验证码错重新进入
        EndIf 
        Gosub 重新进入
    EndWhile 
    // 考完
Return 答题了罗
//
Sub 卖宝
    dim baox,baoy
    currtime=date
    currtime= currtime&" " &time
    str=cstr(num)&"卖宝=["&currtime&"]开始!!"
    Gosub 记运行日志
    x=-2
    dnn=1
    npcfile="bmp\npc4.bmp"
    npc="铁匠"
    x1=10:y1=10:x2=1020:y2=760
    Gosub NPC对话
    Delay 5*dltime
    //看物品的标签，特殊物品（810，322），珍宝（892，322)
    MoveTo 726,321
    Delay 2*dltime
    LeftClick 1
    Delay 2*dltime
    //点宝物，高距，51，宽距 50
    baox=728:baoy=363
    For 6