Else 
 delay 200 
 Goto 检查坐标qy
    End If
End Sub
Sub 交接任务
	Rem 无双
	Delay 500
Call findpic(X-500,Y+100,1359,767,"wushuang.bmp",1,wsX,wsY)
If wsX > 0 and wsY > 0 Then 
Delay 10
MoveTo wsX - 87, wsY
Delay 10
LeftClick 1
Else 
Goto 无双 
End If
Rem 荣誉任务
Delay 1000
Call FindPic(X-700, Y+200, X-200, Y+450, "jiazuryrw.bmp", 1, ryX, ryY)
If ryX > 0 and ryY > 0 Then 
	Delay 100
	MoveTo ryX + 100, ryY + 8
	Delay 100
	LeftClick 1
	Else 
	Goto 荣誉任务
End If
Rem 家族祭司
Delay 500
Call FindPic(X-700, Y+200, X-200, Y+450, "jiazujs.bmp", 1, jsX, jsY)
If jsX > 0 and jsY > 0 Then 
Else 
goto 家族祭司	
End If
Call FindPic(X-700, Y+200, X-200, Y+450, "kaishigz.bmp", 1, ksX, ksY)
If ksX > 0 and ksY > 0 Then 
	Call 判断任务
	End If
	Call FindPic(X-700, Y+200, X-200, Y+450, "10ci.bmp", 1, wcX, wcY)
	If wcX > 0 and wcY > 0 Then 
		Call 结束
	End If
Call FindPic(X-700, Y+200, X-200, Y+450, "lingqujl.bmp", 1, jlX, jlY)
If jlX > 0 and jlY > 0 Then 
	Delay 100
	KeyPress "Enter", 1
	Delay 1000
	Goto 无双
	Else 
	Goto 家族祭司
End If
End Sub
Sub 判断任务
rem 东	
	Call FindPic(X-700, Y+200, X-200, Y+450, "dongjiao.bmp", 1, djX, djY)
	If djX > 0 and djY > 0 Then 		
	Delay 100
	KeyPress "Enter", 1
		Goto 东郊
		Else 
		Goto 西		
	End If
	Rem 西
	Delay 10
	Call FindPic(X-700, Y+200, X-200, Y+450, "xijiao.bmp", 1, xjX, xjY)
	If xjX > 0 and xjY > 0 Then 
		Delay 100
	KeyPress "Enter", 1
		Goto 西郊
		Else 
		Goto 南
		End If
	Rem 南
	Delay 10
	Call FindPic(X-700, Y+200, X-200, Y+450, "nanjiao.bmp", 1, njX, njY)
	If njX > 0 and njY > 0 Then 
		Delay 100
	KeyPress "Enter", 1
		Goto 南郊
		Else 
		Goto 北
		End If
		Rem 北
	Delay 10
	Call FindPic(X-700, Y+200, X-200, Y+450, "beijiao.bmp", 1, bjX, bjY)
	If bjX > 0 and bjY > 0 Then 
		Delay 100
	KeyPress "Enter", 1
		Goto 北郊
		Else 
		Goto 东
		End If
		
End Sub
Sub 出前院
	Delay 1000
	MoveTo X - 18, Y + 108
	Delay 10
	RightClick 1