End Sub
Sub jineng6
	  	KeyPress jin6, 1
        Delay jnsj6 * 1000
       
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
       goto jianbao
        End If
End Sub
Sub jineng7
	  	KeyPress jin7, 1
        Delay jnsj7 * 1000
     
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
        goto jianbao
        End If
End Sub
Sub jineng8
	  	KeyPress jin8, 1
        Delay jnsj8 * 1000
       
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
       goto jianbao
        End If
End Sub
Sub jineng9
	  	KeyPress jin9, 1
        Delay jnsj9* 1000
   
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
        goto jianbao
        End If
End Sub
Sub jineng10
	  	KeyPress jin10, 1
        Delay jnsj10 * 1000
    
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
       goto jianbao
        End If
End Sub
Sub jineng11
	  	KeyPress jin11, 1
        Delay jnsj11 * 1000
    
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
       goto jianbao
        End If
End Sub
Sub jineng12
	  	KeyPress jin12, 1
        Delay jnsj12 * 1000
 
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
        goto jianbao
        End If
End Sub
Sub jineng13
	  	KeyPress jin13, 1
        Delay jnsj13 * 1000
   
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
     goto jianbao
        End If
End Sub
Sub jineng14
	  	KeyPress jin14, 1
        Delay jnsj14 * 1000
      
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
       goto jianbao
        End If
End Sub
Sub jineng15
	  	KeyPress jin15, 1
        Delay jnsj15 * 1000
     
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
        goto jianbao
        End If
End Sub
Sub jianbaoz
	KeyPress "Z", 1
    Delay 600
    FindPic ux,uy,ux+1024,uy+768,"Attachment:\物品拾取.bmp",0.9,jx,jy
    If jx > 0 And jy > 0 Then 
	MoveTo jx + 158, jy + 2
	Delay 500
	LeftClick 1
End If