VBSCall FindPic(0,0,700,599,"Attachment:\红点.bmp",0.8x,y)
    If x=-1 and i<1
        MoveTo 711,114
        Gosub 点鼠标
        MoveTo 706,195
        Gosub 点鼠标
        MoveTo 645,198
        Gosub 点鼠标
        MoveTo 464,FKTXZy
        Gosub 点鼠标
        i=i+1
    ElseIf x>0 and x<>hdx
        Delay 200
        Goto 找红点
    ElseIf x=hdx and y=hdy
        Goto 传送1
    EndIf 
    Goto 找红点
Return 自动跑NPC