Else 
		Call jineng2
	End If
	If jin3 = 1 Then 
		Else 
		Call jineng3
	End If
	If jin4= 1 Then 
		Else 
		Call jineng4
	End If
	If jin5 = 1 Then 
		Else 
		Call jineng5
	End If
	If jin6 = 1 Then 
		Else 
		Call jineng6
	End If
	If jin7 = 1 Then 
		Else 
		Call jineng7
	End If
	If jin8 = 1 Then 
		Else 
		Call jineng8
	End If
	If jin9= 1 Then 
		Else 
		Call jineng9
	End If
	If jin10 = 1 Then 
		Else 
		Call jineng10
	End If
	If jin11 = 1 Then 
		Else 
		Call jineng11
	End If
	If jin12 = 1 Then 
		Else 
		Call jineng12
	End If
	If jin13 = 1 Then 
		Else 
		Call jineng13
	End If
	If jin14 = 1 Then 
		Else 
		Call jineng14
	End If
	If jin15 = 1 Then 
		Else 
		Call jineng15
	End If
	Goto star
	Rem over
	End Sub
Sub jineng1
		KeyPress jin1, 1
        Delay jnsj1*1000
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
     goto jianbao
        End If
End Sub
Sub jineng2
	   	KeyPress jin2, 1
        Delay jnsj2 * 1000
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
         goto jianbao
        End If
End Sub
Sub jineng3
	  	KeyPress jin3, 1
        Delay jnsj3 * 1000
      
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
        goto jianbao
        End If
End Sub
Sub jineng4
	  	KeyPress jin4, 1
        Delay jnsj4 * 1000
       
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
        goto jianbao
        End If
End Sub
Sub jineng5
	  	KeyPress jin5, 1
        Delay jnsj5 * 1000
        
        IfColor ux+463,uy+67,"C6F2F8",2 Then
        Else 
        goto jianbao
        End If