Gosub 行军攻击
    // Gosub 对话npc框
    //三月
    //兵一
    xingx=843:xingy=548:jiaox=852:jiaoy=552:gongjw=53
    xingx=843:xingy=548:jiaox=854:jiaoy=562:gongjw=53
    Gosub 行军攻击
    //兵二
    xingx=768:xingy=521:jiaox=739:jiaoy=518:gongjw=33
    Gosub 行军攻击
    //兵三
    xingx=768:xingy=548:jiaox=742:jiaoy=560:gongjw=43
    Gosub 行军攻击
    ///攻击完成后
    Gosub 读验证码
    x1=728:y1=223
    Gosub 答题了罗
    //记完成日志
    //   If renqijindu = 6
    // Plugin File.WriteINI("NumMax","renqijindu",7,filenM)
    //    EndIf
    time2 = obj.GetTickCount()
    currtime=date
    currtime= currtime&" " &time
    str=cstr(ttlcount)&"路人=["&cstr(currtime)&"]--成功！！耗时:" & CStr(int((time2-time1)/1000)) & "秒 "
    Gosub 记运行日志
    time1 = obj.GetTickCount()
Return 路人之怒
Sub NPC对话
    str="进入 "&npc&"对话"
    Gosub 记运行日志10
    x=-2
    dnn=1
    KeyDown 112,1
    While x <  00
        KeyPress 27,2
        VBSCall Call FindPic(x1,y1,x2,y2,npcfile,0.9,x,y)
        If x>=0 and y>=0
            MoveTo x+15 ,y+10
            Delay chbtime
            LeftClick 1
            Delay 10*chbtime
        Else 
            dnn=dnn+1
            If (dnn mod 10) = 0
                MoveR 0,10
                LeftClick 1
            EndIf 
            Delay 1000
        EndIf 
        Gosub 重新进入
    EndWhile 
    xiangshidu=0
    Gosub 对话npc框
    str="出 "&npc&"对话"
    Gosub 记运行日志10
Return NPC对话
Sub 对话npc框
    str="出 "&npc&"对话框"
    Gosub 记运行日志10
    xx=2
    While xx>0
        IfColor 877,383,294508,0
            KeyUp 112,1
            xx=-2
        Else 
            Delay chbtime
        EndIf 
        Gosub 重新进入
    EndWhile 
    Delay 1000
    xx=2
    While xx>0
        IfColor 877,383,294508,0
            MoveTo 537, 468
            LeftClick 1
            Delay dltime
        Else 
            Delay chbtime
            xx=-2
        EndIf 
        Gosub 重新进入
    EndWhile 
    Delay dltime
    str="出 "&npc&"对话框"
    Gosub 记运行日志10
Return 对话npc框
Sub 要出兵罗
    xx=2
    While xx>0
        IfColor 814,576,fffbff,0
            xx=-2
        Else 
            Delay chbtime
        EndIf 
        IfColor 141,431,1014a5,0
            xx=-2
        EndIf 
        Gosub 重新进入
    EndWhile