Rem 1400二
VBSCall FindPic(0,0,800,600,"Attachment:\1400.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+2
    LeftClick 1
    Delay 1000
    Goto 进入1400二
Else 
    Goto 重新
EndIf 
///进
Rem 进入1400一
VBSCall FindPic(0,0,800,600,"Attachment:\无任务房子.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+2
    Delay 1000
    Goto 1400二
Else 
    Goto 进入房屋
EndIf 
Rem 进入1400二
VBSCall FindPic(0,0,800,600,"Attachment:\无任务房子.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+2
    Delay 1000
    Goto 重新
Else 
    Goto 进入房屋
EndIf 
Rem 进入2600一
VBSCall FindPic(0,0,800,600,"Attachment:\无任务房子.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+2
    Delay 1000
    Goto 2600二
Else 
    Goto 进入房屋
EndIf 
Rem 进入2600二
VBSCall FindPic(0,0,800,600,"Attachment:\无任务房子.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+2
    Delay 1000
    Goto 2200
Else 
    Goto 进入房屋
EndIf 
//////-----------
Rem 进入2200
VBSCall FindPic(0,0,800,600,"Attachment:\无任务房子.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+2
    Delay 1000
    Goto 1800
Else 
    Goto 进入房屋
EndIf 
//--------------
Rem 进入1800
VBSCall FindPic(0,0,800,600,"Attachment:\无任务房子.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+2
    Delay 1000
    Goto 1400一
Else 
    Goto 进入房屋
EndIf 
//-----------
Rem 进入1400
VBSCall FindPic(0,0,800,600,"Attachment:\无任务房子.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+2
    Delay 1000
    Goto 重新
Else 
    Goto 进入房屋
EndIf 
////////进入房屋
/////////////
Rem 进入房屋
VBSCall FindPic(0,0,800,600,"Attachment:\进入房屋.bmp",1.0,X,Y)
If X>0 and Y>0
    MoveTo X,Y+2
    LeftClick 1
    Delay 3000
    Goto 点房管
EndIf 
Rem 重新
VBSCall FindPic(0,50,800,600,"Attachment:\关闭任务拦.bmp",1.0,intX,intY)
If intX>=0 and intY>=0
    MoveTo intX,intY
    LeftClick 1
    Goto H房管
EndIf 
//////////////////////////////////////////////////////
MessageBox 张龙上出错//////
//////////////------------张龙-------------////////////
Rem 张龙任务张龙
////识别任务指向标记
MoveTo 0,0+100