点击军事 

Sub 点击军事()
    //我是一个过程,被你调用了
    Delay 2000
    FindPic 0,0,1366,768,"Attachment:\军事.bmp",0.9,intX,intY
	If intX > 0 And intY > 0 Then 
		MoveTo intX, intY
		Delay 200
		LeftClick 1
		 Delay 1000
		点击活动 
	Else 
		FindPic 0, 0, 1366, 768, "Attachment:\军事已点.bmp", 0.9, intX, intY
		If intX > 0 And intY > 0 Then 
		
			点击活动 
			
		End If
	End If	
End Sub
//定义一个过程,可以在脚本中调用这个过程


Sub 点击活动()
    //我是一个过程,被你调用了
    Delay 2000
    FindPic 0,0,1366,768,"Attachment:\活动地图按钮.bmp",0.9,intX,intY
	If intX > 0 And intY > 0 Then 
		MoveTo intX+2, intY+2
		LeftClick 1
		
		参与丝绸之路				//参与丝绸之路	
	End If
End Sub
//定义一个过程,可以在脚本中调用这个过程


Sub 参与丝绸之路()
    //我是一个过程,被你调用了
    Delay 2000
    FindPic 0,0,1366,768,"Attachment:\丝绸之路参与按钮.bmp",0.9,intX,intY
	If intX > 0 And intY > 0 Then 
		MoveTo intX + 10, intY + 30

		Delay 2000 //  延时
		LeftClick 1
		
		丝绸之路活动选项
	End If
	
End Sub
//定义一个过程,可以在脚本中调用这个过程


Sub 丝绸之路活动选项()  // 参与丝绸之路的选项活动：精英之路，丝绸之路，帝王之路
    //我是一个过程,被你调用了
    Delay 2000
    FindPic 0,0,1366,768,"Attachment:\丝绸之路.bmp",0.9,intX,intY
	If intX > 0 And intY > 0 Then 
		MoveTo intX, intY
		Delay 200 //  延时
		LeftClick 1
		选择商人确定	
	End If
	    Delay 2000
    FindPic 0,0,1366,768,"Attachment:\帝王之路.bmp",0.9,intX,intY
	If intX > 0 And intY > 0 Then 
		MoveTo intX, intY
		Delay 200 //  延时
		LeftClick 1
		选择商人确定	
	End If
	
		Delay 2000
    FindPic 0,0,1366,768,"Attachment:\精英之路.bmp",0.9,intX,intY
	If intX > 0 And intY > 0 Then 
		MoveTo intX, intY
		Delay 200 //  延时
		LeftClick 1
		选择商人确定	
	End If
    右上角关闭 
    右上角关闭
    
End Sub
//定义一个过程,可以在脚本中调用这个过程

Sub 选择商人确定()  // 选择去确定按钮，如果过存在就点击，如果不存在就点击取消按钮
    //我是一个过程,被你调用了
        Delay 2000
    FindPic 0,0,1366,768,"Attachment:\选择商人确定.bmp",0.9,intX,intY
	If intX > 0 And intY > 0 Then 
		MoveTo intX, intY
		Delay 200 //  延时
		LeftClick 1
		
	Else 
    	FindPic 0,0,1366,768,"Attachment:\选择商人取消.bmp",0.9,intX,intY