Call FindPic(500,0,1600,500,"longcheng.bmp",1,X,Y)
If X > 0 and Y > 0  
Else 
 Delay 200
    Goto 检查龙城
End If
End sub
sub 龙城定位
	MoveTo X + 70, Y + 36
Delay 200
LeftClick 1	
Delay 1000
MoveTo X-380,Y+100
Delay 100
LeftClick 1
Delay 800
LeftClick 1
Delay 1000
MoveTo X - 422, Y + 500
Delay 100
LeftClick 1
Delay 1000
MoveTo X - 440, Y + 340
Delay 500
Call FindPic(X-600,Y+100,X,Y+400,"longchengdt.bmp",1,dtX,dtY)
If dtX > 0 and dtY > 0 Then 
Delay 10
Else 
    Delay 500
End If
LeftClick 1
Delay 1000
MoveTo X -413 , Y +319
Delay 10
RightClick 1
Delay 800
MoveTo X-380, Y + 100
LeftClick 1
Delay 800
MoveTo X-180, Y + 100
LeftClick 1
End sub
Sub 检查龙城定位
rem 检查坐标lc
Call FindPic(X-50,Y,X+50,Y+70,"240zb85lc.bmp",1,lzbX,lzbY)
If lzbX>0 and lzbY>0 then
 Delay 100
 Else 
 Delay 200
  Goto 检查坐标lc
    End If
End sub

Sub 进家族前院
rem 城主	
Call FindPic(X - 700, Y+200, X-200, Y + 450, "chengzhuch.bmp", 1, czX, czY)
If czX > 0 and czY > 0 Then 
	MoveTo czX + 30, czY + 90
	Delay 100
	LeftClick 1
	Else 
	Delay 500
	goto 城主
End If	
Rem 关于
Delay 500
Call FindPic(X-700, Y+200, X-200, Y+450, "guanyujzw.bmp", 1, gyX, gyY)
If gyX > 0 and gyY > 0 Then 
	Delay 10
	MoveTo gyX + 100, gyY + 8
	Delay 100
	LeftClick 1
	Else 
	Goto 关于
End If
Rem 进入
Delay 500
Call FindPic(X-700, Y+200, X-200, Y+450, "jinrujzqy.bmp", 1,jinX,jinY)
If jinX>0 and jinY>0 Then 
	Delay 10
	MoveTo jinX + 100, jinY + 8
	Delay 100
	LeftClick 1
	Else 
	Goto 进入
End If 
End Sub
Sub 是否进入前院
	Rem 前院
	Delay 200
Call FindPic(X-50,Y-20,X+100,Y+20,"jiazuqy.bmp",1,qyX,qyY)
If qyX > 0 and qyY > 0  
Else 
    Goto 前院
End If
End Sub
Sub 是否祭司旁停下
rem 检查坐标qy	
Call FindPic(X-50,Y,X+50,Y+70,"69zb36qy.bmp",1,qzbX,qzbY)
If qzbX>0 and qzbY>0