EndIf 
        EndIf 
        //VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\战斗地图判断.bmp",0.9,zdbintX,zdbintY)
    EndWhile 
    Gosub HPandMP
Return 自动打怪
//====================结束自动打怪==============================
//====================村长任务==============================
Sub 村长任务汇总
    Rem 村长任务大循环
    jsdt="稻香村"
    Gosub 检查当前地图
    If ksdt<>jsdt
        Gosub 自动寻路
    EndIf 
    Gosub 村长任务之领取任务
    Gosub 村长任务之完成任务
    Goto 村长任务大循环
Return 村长任务汇总
Sub 村长任务之完成任务
    cc=0
    While cc<5
        Gosub 清空屏幕对话框
        czX=rw(czrw-1,0)
        czY=rw(czrw-1,1)
        If czrw=10 or czrw=13
            Gosub 检查当前地图
            While ksdt<>jsdt
                Gosub 自动寻路
                Gosub 检查当前地图
            EndWhile 
        EndIf 
        Gosub 打开小地图
        MoveTo czX,czY
        LeftClick 1
        Delay 100
        Gosub 关闭小地图
        ntime=2
        Gosub 角色是否移动
        Gosub 自动打怪
        Gosub 清空屏幕对话框
        MoveTo X3+770,Y3+740
        LeftClick 1
        VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\村长任务列表红.bmp",1,ccaintX,ccaintY)
        VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\村长任务列表.bmp",1,ccbintX,ccbintY)
        If ccbintX>0 or ccaintX>0
            cc=cc+1
        Else 
            cc=6
        EndIf 
    EndWhile 
Return 村长任务之完成任务
Sub 村长任务之领取任务
    Rem 领取任务
    Gosub 清空屏幕对话框
    Gosub 打开小地图
    MoveTo X3+555,Y3+390
    LeftClick 1
    Delay 100
    Gosub 关闭小地图
    ntime=2
    Gosub 角色是否移动
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\村长任务1.bmp",1,rw1intX,rw1intY)
    If rw1intX>0 and rw1intY>0
        MoveTo rw1intX,rw1intY
        LeftClick 1
        Delay 300
    EndIf 
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\确定任务.bmp",1,rw2intX,rw2intY)
    If rw2intX>0 and rw2intY>0
        MoveTo rw2intX,rw2intY
        LeftClick 1
        Delay 50
    EndIf 
    Gosub 清空屏幕对话框
    MoveTo X3+770,Y3+740
    LeftClick 1
    Rem 村长任务之跳转一
    Gosub 村长任务之查看任务列表
    If rwintX>0 and rwintY>0
    Else 
        Goto 领取任务
    EndIf 
Return 村长任务之领取任务
Sub 村长任务之查看任务列表
    Rem 点击任务列表1
    VBSCall FindPic(X1,Y1,X2,Y2,"Attachment:\村长任务列表红.bmp",1,ccaintX,ccaintY)
    If ccaintX>0 and ccaintY>0
        MoveTo X3+537,Y3+543
        LeftClick 1
        KeyDown 17,1
        KeyPress 65,1
        KeyUp 17,1
        Gosub 村长任务之判断任务人
        Delay 100
    Else 
        For 5
            VBSCall FindPic(X3+270,Y3+225,X2,Y2,"Attachment:\村长任务列表.bmp",1,ccbintX,ccbintY)
            If ccbintX>0 and ccbintY>0
                MoveTo ccbintX,ccbintY