EndWhile 
Return 再次挑战
Sub 对应单福提示
    x=-1
    MoveTo 550,400
    //先找NPC铁匠
    KeyDown 112,1
    While x < 0
        VBSCall Call FindPic(10,10,900,700,"bmp\npc4.bmp",0.9,x,y)
        If x > 0
            KeyUp 112,1
            MoveTo x-100,y-50
        Else 
            IfColor 726,368,213808,0
                MoveTo 511,441
                Delay dltime
                LeftClick 1
                Delay dltime
                Goto 开始选服务器
            Else 
                Delay 5*dltime
            EndIf 
        EndIf 
        Gosub 重新进入
    EndWhile 
    //等单福出来
    For 5
        MoveR 10,0
        LeftClick 1
        Delay 200
        MoveR -10,0
        LeftClick 1
        Delay 200
        //单福出来对话框
        //单福只是在一定时候出来，如到一定的战功
        IfColor 804,622,294508,0
            Goto 卖宝a
        EndIf 
        IfColor 371,622,73b64a,0
            Goto 卖宝a
        EndIf 
    EndFor 
    Rem 卖宝a
    Delay 1000
Return 对应单福提示
Sub 重新进入
    nnnnn=0
    time2 = obj.GetTickCount()
    If (time2-time1) > 1000*cint(onetime)
        //截错误图(Print screen键）
        KeyPress 44
        Plugin hwnd = Window.Find(0,"main.map")
        If hwnd = 0
            Delay chbtime
        Else 
            Delay 2000
            Plugin Window.Active(hwnd)
            While 1
                Delay 100
                MoveTo 670,436
                Delay dltime
                LeftClick 1
                Delay dltime
                MoveTo 670,457
                Delay dltime
                LeftClick 1
                Plugin hwnd = Window.Find(0,"main.map")
                If hwnd  = 0
                    Goto 杀了Main
                EndIf 
            EndWhile 
            Rem 杀了Main
            Delay 1000
        EndIf 
        Plugin hwnd = Window.Find(0,"三国策online")
        If hwnd = 0
            Delay chbtime
        Else 
            Plugin Window.Close(hwnd)
        EndIf 
        Plugin hwnd = Window.Find(0,"Smart Online Auto Updata")
        If hwnd = 0
            Delay chbtime
        Else 
            Plugin Window.Close(hwnd)
        EndIf 
        For 200
            hwnd=obj.FindWindow("","三国策online(connect when "&nnnnn&")")
            pID=obj.GetWindowThreadProcessId(hwnd)
            retv=obj.TerminateProcess(pID)
            hwnd=obj.FindWindow("","三国策online(disconnect when "&nnnnn&")")
            pID=obj.GetWindowThreadProcessId(hwnd)
            retv=obj.TerminateProcess(pID)
            nnnnn=nnnnn+1
        EndFor 
        Delay 100
        currtime=date
        currtime= currtime&" " &time
        str=cstr(ttlcount)&"["&cstr(currtime)&"]--超时！！耗时:" & CStr((time2-time1)/1000) & "秒 "
        Gosub 记运行日志