LeftClick 1
                Delay 100
                Goto 点击任务列表1
            Else 
                MoveTo X3+660,Y3+430
                LeftClick 3
                Delay 100
            EndIf 
            VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\村长任务列表红.bmp",1,ccaintX,ccaintY)
            If ccaintX>0 and ccaintY>0
                Goto 点击任务列表1
            EndIf 
        EndFor 
        Gosub 清空屏幕对话框
    EndIf 
    Gosub 清空屏幕对话框
Return 村长任务之查看任务列表
Sub 村长任务之判断任务人
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\稻香村护具商.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        czrw=1
        Goto 任务对象判断结束
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\稻香村饰品商.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        czrw=2
        Goto 任务对象判断结束
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\稻香村武器商.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        czrw=3
        Goto 任务对象判断结束
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\稻香村药品商.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        czrw=4
        Goto 任务对象判断结束
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\稻香村杂货商.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        czrw=5
        Goto 任务对象判断结束
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\慧缘大师.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        czrw=6
        Goto 任务对象判断结束
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\贾雨村.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        czrw=7
        Goto 任务对象判断结束
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\魔力叶.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        czrw=8
        Goto 任务对象判断结束
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\药童.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        czrw=9
        Goto 任务对象判断结束
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\李纨.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        jsdt="李纨小屋"
        czrw=10
        Goto 任务对象判断结束
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\师父.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        czrw=11
        Goto 任务对象判断结束
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\兑奖使者.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        czrw=12
        Goto 任务对象判断结束
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\甄士隐.bmp",1,rwintX,rwintY)
    If rwintX>0 and rwintY>0
        jsdt="稻田"
        czrw=13
        Goto 任务对象判断结束
    EndIf 
    Rem 任务对象判断结束
Return 村长任务之判断任务人
//====================结束村长任务==============================
//====================自动寻路==============================
Sub 自动寻路
    Rem 自动寻路开始
    //起始地图。开始ksdt，结束jsdt。
    // **************** ksdt="开始地图":jsdt="结束地图"************
    //b是开始地点所在数组的序列位置、e是结束地点所在数组的序列位置
    b=0:e=0:i=80
    //得到结束地点在数组中的位置
    While i>0
        If zdxl(i,2)=jsdt
            e=i
            Goto extWhileA