MoveTo X - 410, Y + 310
	Delay 200
	LeftClick 1
	Delay 1000
	MoveTo X - 398, Y + 329
	Delay 200
	RightClick 1
	Delay 500
	RightClick 1
	Delay 500		
	MoveTo X-380, Y + 100
	Delay 100	
	LeftClick 1
	Delay 1000
	MoveTo X - 440, Y + 340
	Delay 100
	LeftClick 1
	Delay 500
	MoveTo X-180, Y + 100
	LeftClick 1
End Sub
Sub 查东郊坐标
	Rem dzb
	Call FindPic(X-50,Y,X+50,Y+70,"183zb133dj.bmp",1,dbnX,dbnY)
If dbnX > 0 and dbnY > 0 Then 
	Delay 10	
	Else 
	Delay 1000
	Goto dzb
End If
End Sub
Sub 查西郊坐标
	Rem xzb
	Call FindPic(X-50,Y,X+50,Y+70,"245zb69xj.bmp",1,xbnX,xbnY)
If xbnX > 0 and xbnY > 0 Then 
	Delay 10	
	Else 
	Delay 1000
	Goto xzb
End If
End Sub
Sub 查南郊坐标
	Rem nzb
	Call FindPic(X-50,Y,X+50,Y+70,"163zb139nj.bmp",1,zbnX,zbnY)
If zbnX > 0 and zbnY > 0 Then 
	Delay 10	
	Else 
	Delay 1000
	Goto nzb
End If
End Sub
Sub 查北郊坐标
	Rem bzb
	Call FindPic(X-50,Y,X+50,Y+70,"173zb63bj.bmp",1,bzbX,bzbY)
If bzbX > 0 and bzbY > 0 Then 
	Delay 10	
	Else 
	Delay 1000
	Goto bzb
End If
End Sub

Sub 洞查对话
	
Rem 找洞查
	Call FindPic(X-700, Y+200, X-200, Y+450, "dongchasz.bmp", 1, dxszX, dxszY)
If dxszX > 0 and dxszY > 0 Then	
	MoveTo dxszX + 40, dxszY + 90
	Delay 10
	LeftClick 1
	Else 
	Delay 200
	Goto 找洞查
	End if	
	For 2
	Rem 知道了
	Delay 500
	Call  findpic(X-700, Y+200, X-200, Y+450, "dongcha.bmp", 1, dxX, dxY)
If dxX > 0 and dxY > 0 Then 
	KeyPress "Enter", 1	
	Else 
Goto 知道了
End If
Next
Delay 1000
	Call  findpic(X-700, Y+200, X-200, Y+450, "dongcha.bmp", 1, dxX, dxY)
If dxX > 0 and dxY > 0 Then 
	KeyPress "Enter", 1	
End If
End Sub
Sub 回城
	Delay 500
	MoveTo X + 70, Y + 36
	Delay 200
	LeftClick 1	
    Delay 1000	
	MoveTo X -413 , Y +319
	Delay 10
RightClick 1
Delay 800