IfColor lann,51 F86008 1
        Goto 出去加红
    Else 
    EndIf 
    Rem 出去加红
    Rem 没找到
    VBSCall Call FindPic(0,0,1023,767,"yj.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo x y
        Delay 100
        LeftClick 1
    Else 
        Goto 没找到
    EndIf 
    Delay 500
    VBSCall Call FindPic(0,0,1023,767,"yj1.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo x y+30*4+10*2+10
        Delay 100
        LeftClick 1
    Else 
    EndIf 
    Delay 1000
    For 3
        KeyPress 9,1
        Delay 100
        MoveTo 401,401
        Delay 100
        LeftClick 1
        Delay 2000
        KeyPress 9,1
        Delay 1000
    EndFor 
    KeyPress 120,1
    Delay 1000
    MoveTo 334,220
    Delay 500
    LeftClick 1
    Delay 500
    ////////////////////人物
    VBSCall Call FindPic(0,0,1023,767,"RW.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo x y+30*4+10*2+10
        Delay 100
        LeftClick 1
    Else 
    EndIf 
    VBSCall Call FindPic(0,0,1023,767,"RW.bmp",0.9,x,y)
    If x>=0 and y>=0
        MoveTo x y+30*4+10*2+10*5
        Delay 100
        LeftClick 1
        Delay 500
        MoveTo x y+30*4+10*2+10*2+10
        Delay 100
        LeftClick 1
        Delay 500
        RightClick 1
    Else 
    EndIf 
    ////////////////////宠物
    VBSCall Call FindPic(0,0,1023,767,"CW.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo x y+100*2-10
        Delay 100
        LeftClick 1
    EndIf 
    Delay 500
    VBSCall Call FindPic(0,0,1023,767,"CW.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo x-10 y+100*2-10
        Delay 100
        LeftClick 1
        Delay 100
        RightClick 1
    EndIf 
    /////////////回
    For 3
        KeyPress 9,1
        Delay 500
        MoveTo 267,352
        Delay 100
        LeftClick 1
        Delay 1000
        KeyPress 9,1
    EndFor 
    //回到镜妖
    VBSCall Call FindPic(0,0,1023,767,"jzi.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo x+20*2 y+50*2+10*3+10+9
        Delay 500
        LeftClick 1
        Delay 500
    EndIf 
    //jin tu  fang wu
Return 检查红蓝