Delay 500
KeyPress "F11", 4
Delay 100
Call 查龙城
Delay 200
Call 龙城定位
Delay 1000
Call 检查龙城定位
KeyDown 18, 1
Delay 100
KeyPress 189, 1
Delay 100
KeyUp 18, 1
  Delay 200
Call 进家族前院
  Delay 1000
Call 是否进入前院
  delay 200	
Call 走去祭司
  Delay 100
KeyPress "F11", 4
  Delay 1000
Call 是否祭司旁停下
Call 交接任务
Delay 200
Call 判断任务
Rem 东郊
Call 出前院
Delay 1000
Call 检查龙城
Call 去东郊
Delay 1000
KeyPress "F11", 3
Delay 5000
Call 查东郊坐标
Delay 200
Goto 对话
Rem 西郊
Call 出前院
Delay 1000
Call 检查龙城
Call 去西郊
Delay 1000
KeyPress "F11", 3
Delay 3000
Call 查西郊坐标
Delay 200
Goto 对话
Rem 南郊
Call 出前院
Delay 1000
Call 检查龙城
Call 去南郊
Delay 1000
KeyPress "F11", 3
Delay 5000
Call 查南郊坐标
Delay 200
Goto 对话
Rem 北郊
Call 出前院
Delay 1000
Call 检查龙城
Call 去北郊
Delay 1000
KeyPress "F11", 3
Delay 5000
Call 查北郊坐标
Delay 200
Goto 对话
Rem 对话
KeyPress "F11", 4
	Delay 100
Call 洞查对话
Call 回城
Delay 8000
Call 检查龙城定位
Delay 200
KeyPress "F11", 4
Delay 100
Call 进家族前院
Delay 500
Call 是否进入前院
Delay 10
Call 走去祭司
Delay 200
KeyPress "F11", 4
Delay 1000
Call 是否祭司旁停下
Call 交接任务
sub 查龙城
Call FindPic(500,0,1600,500,"longcheng.bmp",1,X,Y)
If X > 0 and Y > 0 Then	
Else 
    MessageBox "请确定角色已经停在龙城"
    EndScript
End If
End Sub
Sub 检查龙城
rem 检查龙城