End If       
Next
End If
End Function
//去NPC珐琅交任务
Function Go_FL()
    KeyPress "M", 1
    Delay 300
    MoveTo L+640,T+120
    Delay 300
    LeftClick 1
    Delay 300
    SayString "猎场"
    Delay 300
    MoveTo L+774,T+120
    Delay 300
    LeftClick 1
    Delay 300
    MoveTo L+676,T+448
    Delay 300
    LeftClick 1
    Delay 300
    KeyPress "M", 1
    Delay 300 
    M=T+242
    N=2-PS_Items
        If PS_Items > 1 Then
            If OpenNPC_FL = True Then
            Delay 300
            MoveTo L+119,M
            Delay 300
            LeftClick 1
            Delay 500
                i=0
                While i=0
                if Price=True 
                    If checkC() = True Then
                    Delay 300
                    MoveTo L+71,T+210
                    Delay 300
                    LeftClick 1
                    PS_Items=PS_Items+1
                    Delay 300
                    KeyPress "Esc", 1
                    Delay 300
                    Else
                    Delay 300
                    KeyPress "Esc", 1
                    End If
                i=1
                Else 
                Go_FL
                End If    
                Wend        
            End If     
        Else
        For j=0 to N
        MoveTo L+580,T+225
        Delay 300
        LeftClick 1
        Delay 300
        If OpenNPC_FL = True Then
        Delay 300
        MoveTo L+119,M
        Delay 300
        LeftClick 1
        Delay 500
            i=0
            While i=0
            if Price=True 
                If checkC() = True Then
                Delay 300
                MoveTo L+71,T+210
                Delay 300
                LeftClick 1
                PS_Items=PS_Items+1
                Delay 300
                KeyPress "Esc", 1
                Else
                Delay 300
                KeyPress "Esc", 1
                M=M+21
                End If
            i=1
            Else 
            Go_FL
            End If    
            Wend      
        End If      
        Next
    End If              
End Function
//判断任务是否完成
Function Mission_C()
FindPic L+523,T,L+705,T+234,"Attachment:\跑商完成.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Mission_C=True
Else
Mission_C=False
End If