Else 
                                            Rem 没有任务
                                            MoveTo 0,0
                                            VBSCall FindPic(0,0,800,600,"Attachment:\没有任务.bmp",1.0,X,Y)
                                            If X>0 and Y>0
                                                MoveTo x,y
                                                RightClick 1
                                                Goto 换任务
                                            Else 
                                                VBSCall FindPic(0,0,800,600,"Attachment:\接任务.bmp",1.0,X,Y)
                                                If X>0 and Y>0
                                                    MoveTo x,y
                                                    Delay 100
                                                    LeftDown 1
                                                    Delay 500
                                                    LeftUp 1
                                                    MoveTo x,y+100
                                                    Delay 1000
                                                    Goto 要花
                                                Else 
                                                    Rem 重接
                                                    MoveTo 0,100
                                                    VBSCall FindPic(0,0,800,600,"Attachment:\管家.bmp",0.9,X,Y)
                                                    If X>0 and Y>0
                                                        Goto 点房管
                                                    Else 
                                                        Goto 要花
                                                    EndIf 
                                                EndIf 
                                            EndIf 
                                        EndIf 
                                    EndIf 
                                EndIf 
                            EndIf 
                        EndIf 
                    EndIf 
                EndIf 
            EndIf 
        EndIf 
    EndIf 
EndIf 
EndIf 
EndIf 
EndIf 
EndIf 
EndIf 
EndIf 
Rem 通过
MessageBox 致命错误,脚本被强制终止
////////////////////////////识别任务完成////////////////////
///////////////////////////////////////////////////////////
////////////////////////做打鬼任务//////////////////////////
Rem 做打鬼
KeyDown 18,1
Delay 550
KeyDown 81,1
Delay 528
KeyUp 81,1
Delay 552
KeyUp 18,1
MoveTo 0,0
KeyDown 119,1
Delay 100
KeyUp 119,1
Rem 打鬼任务窗口
VBSCall FindPic(0,0,800,600,"Attachment:\打鬼任务窗口.bmp",0.9,X,Y)
If X>0 and Y>0
    MoveTo X+15,Y+5
    Delay 100
    LeftClick 1
    LeftClick 1
    MoveTo X,Y-200
    Goto 打鬼任务进行
Else 
    Goto 做打鬼
EndIf 
Rem 打鬼任务进行
Delay 1000
Delay 1000
VBSCall FindPic(0,50,800,600,"Attachment:\打死鬼了.bmp",0.9,intX,intY)
If intX>=0 and intY>=0
    Delay 4000
    KeyDown 120,1
    Delay 100
    KeyUp 120,1
    Goto 关闭
Else 
    Goto 监视战斗
EndIf 
Rem 监视战斗
VBSCall FindPic(0,0,800,600,"Attachment:\战斗.bmp",0.9,X,Y)
If X>0 and Y>0
    KeyDown 18,1
    Delay 200
    KeyDown 65,1
    Delay 200
    KeyUp 65,1
    Delay 200
    KeyUp 18,1
    Goto 监视战斗